Google
 

Trailing-Edge - PDP-10 Archives - BB-H311B-RM - rsx20f-swskit/listings/kldisc.lis
There is 1 other file named kldisc.lis in the archive. Click here to see a list.
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02
TABLE OF CONTENTS

    1-   2	KLDISC -- KLINIK TERMINATION TASK
    2-  42	KLDISC -- (INITILAIZATION)
    3- 139	KLDISC (CTY/TTY OUTPUT ROUTINES)
    4- 219	KLDISC -- (EVENT LOGGING)
    5- 243	KLDISC -- (LOCAL DATA)
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 1


      1						.TITLE	KLINIK TERMINATION AND DISCONNECT TASK
      2						.SBTTL	KLDISC -- KLINIK TERMINATION TASK
      3						.IDENT	/001020/
      4						.LIST MEB
      5					;
      6					;
      7					;
      8					;                             COPYRIGHT (C) 1975, 1978 BY
      9					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
     10					;
     11					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
     12					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
     13					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     14					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     15					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     16					;
     17					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     18					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     19					;       CORPORATION.
     20					;
     21					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     22					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     23					;
     24					;
     25					;
     26					;
     27					;
     28					;
     29					;		VERSION: V01-02
     30					;
     31					;		AUTHOR:	R. BELANGER
     32					;
     33					;		DATE: 09-FEB-77
     34					;
     35					;	MODIFICATIONS:
     36					;
     37					;	NO.	DATE		PROGRAMMER	PURPOSE
     38					;	---	----		----------	-------
     39					;	001	01-JUL-77	R. BELANGER	ADD KLINIK LOGGING
     40					;	002	21-SEP-77	R. BELANGER	FIX BUG IN HANGUP CODE
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 2
KLDISC -- (INITILAIZATION)

     42						.SBTTL	KLDISC -- (INITILAIZATION)
     43
     44					;+
     45					;	THIS MODULE IS REQUESTED BY THE TELETYPE DRIVER UPON KLINIK
     46					;	LINE CARRIER DROP. IT IS ALSO REQUESTED BY THE RSX20F CONSOLE
     47					;	COMMAND LANGUAGE VIA THE "DISCONNECT" COMMAND.
     48					;
     49					;	THIS TASK HAS THE RESPONSIBILTY TO:
     50					;
     51					;	1. INFORM THE CTYS OF A "CLEAR KLINIK" COMMAND
     52					;	2. INFORM THE CTYS OF A "DISCONNECT" COMMAND
     53					;	3. INFORM THE LOCAL CTY OF A KLINIK LINE CARRIER DROP
     54					;	4. DISCONNECT THE KLINIK LINE WHEN SO REQUESTED.
     55					;-
     56
     57						.MCALL	QIOW$,ALUN$,RQST$,DIR$,EXIT$S,WSIG$S,CALL,RETURN
     58						.MCALL	.ENB6,.INH6,WTSE$S,CLEF$S
     59
     60	000000				KLDISC::
     61	000000					DIR$	#ATCTY		; ATTACH THE LOCAL CTY
	000000	012746 	000762'			MOV	#ATCTY,-(SP)
	000004	104375 				EMT	375
     62	000006	016705 	000000G			MOV	KLNPTR,R5	; KLINIK LINE POINTER TO R5
     63	000012	016504 	000000G			MOV	TTYEXP(R5),R4	; EXTERNAL PAGE POINTER TO R4
     64	000016	016746 	000000G			MOV	.KLNSW,-(SP)	; +++002 SAVE THE KLINIK SWITCH WORD
     65	000022					.INH6			; DISALLOW INTERRUPTS
	000022	013746 	000000G			MOV	@#PS,-(SP)
	000026	112737 	000300 	000000G		MOVB	#300,@#PS
     66	000034	005067 	000000G			CLR	.KLNSW		;;; CLEAR THE ACTIVE FLAGS
     67	000040	042765 	000000C	000000G		BIC	#TT.CTY!TT.OUT,STSW1(R5) ;;; RESET SOFTWARE FLAGS
     68	000046	042714 	000000C			BIC	#DL.DEN!DL.REN,(R4) ;;; DISABLE THE LINE
     69	000052	042764 	000000G	000004 		BIC	#DL.XEN,4(R4)	;;; SO
     70	000060	005764 	000002 			TST	2(R4)		;;; FLUSH INPUT FLAGS
     71	000064	005065 	000000G			CLR	TTYEXP(R5)	;;; SO EXEC CAN'T MEDDLE
     72	000070					.ENB6			;;; ALLOW INTERRUPTS
	000070	012637 	000000G			MOV	(SP)+,@#PS
     73	000074	116600 	000001 			MOVB	1(SP),R0	; +++002 CALL CODE TO R0
     74	000100	003411 				BLE	UNDEF		; UNDEFINED IF .LE. 0
     75	000102	042700 	177774 			BIC	#^C3,R0		; MAKE IT MODULO 3
     76	000106	006300 				ASL	R0		; TIMES 2
     77	000110	000170 	000114'			JMP	@DISPAT(R0)	; DO IT TO IT
     78						;
     79	000114				DISPAT:
     80	000114	000216'				.WORD	DISCN		; 4 MODULO 3 -- DISCONNECT AND EXIT
     81	000116	000132'				.WORD	CLKLN		; 1 MODULO 3 -- CLEAR KLINIK - RECALL PARSER
     82	000120	000170'				.WORD	CRDRP		; 2 MODULO 3 -- REPORT CARRIER LOSS AND EXIT
     83	000122	000216'				.WORD	DISCN		; 3 MODULO 3 -- DISCONNECT - RECALL PARSER
     84						.ENABL	LSB
     85	000124				UNDEF:
     86	000124	012702 	001154'			MOV	#UNDFMS,R2	; UNDEFINED MESSAGE TO R2
     87	000130	000440 				BR	35$		; PRINT AND EXIT
     88						;
     89	000132				CLKLN:
     90	000132	012702 	001074'			MOV	#CLKLMS,R2	; CLEAR KLINIK MESSAGE TO R2
     91	000136					CALL	PRBOTH		; TELL BOTH TERMINALS
	000136	004767 	000216 			JSR	PC,PRBOTH
     92	000142					.INH6			; DISALLOW INTERRUPTS
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 2-1
KLDISC -- (INITILAIZATION)

	000142	013746 	000000G			MOV	@#PS,-(SP)
	000146	112737 	000300 	000000G		MOVB	#300,@#PS
     93	000154	052714 	000000C			BIS	#DL.DEN!DL.REN,(R4) ;;; REENABLE THE LINE
     94	000160	052764 	000000G	000004 		BIS	#DL.XEN,4(R4)	;;; SO
     95	000166	000452 				BR	40$		;;; AND EXIT
     96						;
     97	000170				CRDRP:
     98	000170	012700 	000004 			MOV	#4,R0		; +++001 PACKET LENGTH TO R0
     99	000174	012701 				MOV	(PC)+,R1	; +++001 MESSAGE TO R1
    100	000176	   000G	   000G			.BYTE	K.LDSC,K.LDRP	; +++001 CARRIER DROP
    101	000200					CALL	KLLOG		; +++001 LOG IT
	000200	004767 	000454 			JSR	PC,KLLOG
    102	000204	012702 	001032'			MOV	#CDMSG,R2	; CARRIER DROP MESSAGE TO R2
    103	000210					CALL	PRBOTH		; PRINT IT
	000210	004767 	000144 			JSR	PC,PRBOTH
    104	000214	000406 				BR	35$		; +++001 CONTINUE
    105						;
    106	000216				DISCN:
    107	000216	012700 	000004 			MOV	#4,R0		; +++001 PACKET LENGTH TO R0
    108	000222	012701 				MOV	(PC)+,R1	; +++001 MESSAGE TO R1
    109	000224	   000G	   000G			.BYTE	K.LDSC,K.LDCM	; +++001 DIRECTED DISCONNECT
    110	000226					CALL	KLLOG		; +++001 LOG IT
	000226	004767 	000426 			JSR	PC,KLLOG
    111	000232				35$:				; +++001
    112	000232	012702 	001223'			MOV	#DISCMS,R2	; DISCONNECT MESSAGE TO R2
    113	000236					CALL	PRBOTH		; TELL BOTH TERMINALS
	000236	004767 	000116 			JSR	PC,PRBOTH
    114	000242	105716 				TSTB	(SP)		; REMOTE KLINIK ACTIVE??
    115	000244	100006 				BPL	37$		; YES -- GO ON
    116	000246	010446 				MOV	R4,-(SP)	; NO -- MUST TELL KL
    117	000250	012701 	000000G			MOV	#BC.THU,R1	; HANGUP FUNCTION CODE TO R1
    118	000254					CALL	.STTYH		; MESSAGE TO -10 Q
	000254	004767 	000000G			JSR	PC,.STTYH
    119	000260	012604 				MOV	(SP)+,R4	; RESTORE R4
    120	000262				37$:
    121	000262					.INH6			; DISALLOW INTERRUPTS
	000262	013746 	000000G			MOV	@#PS,-(SP)
	000266	112737 	000300 	000000G		MOVB	#300,@#PS
    122	000274	012714 	000000C			MOV	#DL.DEN!DL.REN,(R4) ;;; HANG UP THE KLINIK LINE
    123	000300	012764 	000000G	000004 		MOV	#DL.XEN,4(R4)	;;; SO
    124	000306	042765 	000000C	000000G		BIC	#TT.CRW!TT.RIP,STSW1(R5) ;;; RESET CARRIER WAIT
    125	000314				40$:
    126	000314	010465 	000000G			MOV	R4,TTYEXP(R5)	;;; GIVE THE LINE BACK TO THE EXEC
    127	000320	005065 	000000G			CLR	STSW0(R5)	;;; TURN THE INPUT SIDE ON IF IT WAS OFF
    128	000324					.ENB6			;;; ALLOW INTERRUPTS
	000324	012637 	000000G			MOV	(SP)+,@#PS
    129	000330	132766 	000001 	000001 		BITB	#1,1(SP)	; +++002 MUST WE RECALL PARSER??
    130	000336	001403 				BEQ	50$		; NO -- JUST GO AWAY
    131	000340					DIR$	#RQSPAR		; YES -- CALL PARSER BACK
	000340	012746 	001014'			MOV	#RQSPAR,-(SP)
	000344	104375 				EMT	375
    132	000346				50$:
    133	000346	005726 				TST	(SP)+		; CLEAR STACK
    134	000350					EXIT$S			; AND GO AWAY
	000350	012746 				MOV	(PC)+,-(SP)
	000352	   063 	   001 			.BYTE	51.,1
	000354	104375 				EMT	375
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 2-2
KLDISC -- (INITILAIZATION)

    135	000356	000000 				HALT			; HELP!
    136						;
    137						.DSABL	LSB
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 3
KLDISC (CTY/TTY OUTPUT ROUTINES)

    139						.SBTTL	KLDISC (CTY/TTY OUTPUT ROUTINES)
    140
    141	000360				PRBOTH:
    142	000360	010246 				MOV	R2,-(SP)	; SAVE MESSAGE POINTER
    143	000362					CALL	PRCTY		; SEND IT TO THE CTY
	000362	004767 	000004 			JSR	PC,PRCTY
    144	000366	012602 				MOV	(SP)+,R2	; RETREIVE MESSAGE POINTER
    145	000370	000501 				BR	PRKLN		; SEND IT TO KLINIK
    146						;
    147	000372				PRCTY:
    148	000372	005767 	000000G			TST	.TTP11		; IS CTY HUNG UP IN I/O ?
    149	000376	001015 				BNE	90$		; YES, DON'T HANG US ALSO.
    150	000400	010200 				MOV	R2,R0		; COPY STRING POINTER
    151	000402				10$:
    152	000402	105720 				TSTB	(R0)+		; FIND END OF STRING
    153	000404	001376 				BNE	10$
    154	000406	005300 				DEC	R0		; BACK UP ONE CHAR
    155	000410	160200 				SUB	R2,R0		; AND FIGURE LENGTH.
    156	000412	010267 	000370 			MOV	R2,CTYDB+Q.IOPL+0 ;SET UP ADDRESS
    157	000416	010067 	000366 			MOV	R0,CTYDB+Q.IOPL+2 ;AND LENGTH,
    158	000422					DIR$	#CTYDB		; SEND THE MESSAGE.
	000422	012746 	000772'			MOV	#CTYDB,-(SP)
	000426	104375 				EMT	375
    159	000430	000471 				BR	PRKLX		; AND EXIT
    160	000432				90$:
    161	000432	010446 				MOV	R4,-(SP)	; SAVE R4
    162	000434	010546 				MOV	R5,-(SP)	; AND R5
    163	000436	016705 	000000G			MOV	CTYPTR,R5	; POINT TO THE CTY
    164	000442	016504 	000000G			MOV	TTYEXP(R5),R4	; I/O PAGE ADDRESS TO R4
    165	000446					.INH6			; DISALLOW INTERRUPTS
	000446	013746 	000000G			MOV	@#PS,-(SP)
	000452	112737 	000300 	000000G		MOVB	#300,@#PS
    166	000460	042714 	000000G			BIC	#DL.REN,(R4)	;;; DISABLE THE LINE
    167	000464	042764 	000000G	000004 		BIC	#DL.XEN,4(R4)	;;; SO
    168	000472	005065 	000000G			CLR	TTYEXP(R5)	;;; SO EXEC CAN'T MEDDLE
    169	000476					.ENB6			;;; ALLOW INTERRUPTS
	000476	012637 	000000G			MOV	(SP)+,@#PS
    170	000502					CALL	PRKLN		; PRINT THE LINE
	000502	004767 	000066 			JSR	PC,PRKLN
    171	000506					.INH6			; DISALLOW INTERRUPTS
	000506	013746 	000000G			MOV	@#PS,-(SP)
	000512	112737 	000300 	000000G		MOVB	#300,@#PS
    172	000520	052714 	000000G			BIS	#DL.REN,(R4)	;;; REENABLE THE LINE
    173	000524	052764 	000000G	000004 		BIS	#DL.XEN,4(R4)	;;; SO
    174	000532	010465 	000000G			MOV	R4,TTYEXP(R5)	;;; GIVE IT BACK TO THE EXEC
    175	000536					.ENB6			;;; ALLOW INTERRUPTS
	000536	012637 	000000G			MOV	(SP)+,@#PS
    176	000542	012605 				MOV	(SP)+,R5	; RESTORE REGISTERS
    177	000544	012604 				MOV	(SP)+,R4	; SO
    178	000546					RETURN			; AND GO AWAY
	000546	000207 				RTS	PC
    179						;
    180
    181	000550				PRKL0:
    182	000550					CALL	PRKLC		; SEND THE CHARACTER.
	000550	004767 	000026 			JSR	PC,PRKLC
    183	000554	122700 	000012 			CMPB	#12,R0		; IF CHARACTER WAS LF,
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 3-1
KLDISC (CTY/TTY OUTPUT ROUTINES)

    184	000560	001005 				BNE	PRKLN		; THEN
    185	000562	005000 				CLR	R0		; SEND TWO NULLS.
    186	000564					CALL	PRKLC
	000564	004767 	000012 			JSR	PC,PRKLC
    187	000570					CALL	PRKLC
	000570	004767 	000006 			JSR	PC,PRKLC
    188	000574				PRKLN:
    189	000574	112200 				MOVB	(R2)+,R0	; GET NEXT CHARACTER
    190	000576	001364 				BNE	PRKL0
    191	000600	000412 				BR	PRKLW		; ELSE LET PRINTER SETTLE AND EXIT
    192						;
    193
    194	000602				PRKLC:
    195	000602					CALL	PRKLW		; MAKE SURE PRINTER IS READY
	000602	004767 	000020 			JSR	PC,PRKLW
    196	000606	103402 				BCS	PRKLX		; FORGET IT IF CC-C IS SET
    197	000610	110064 	000006 			MOVB	R0,6(R4)	; AND SEND THE CHARACTER.
    198	000614				PRKLX:
    199	000614	000241 				CLC			; CLEAR CC-C
    200	000616					RETURN			; ALL FINISHED
	000616	000207 				RTS	PC
    201
    202	000620				PRKL1:
    203	000620					WSIG$S			; WAIT A TICK OR SO.
	000620	012746 				MOV	(PC)+,-(SP)
	000622	   061 	   001 			.BYTE	49.,1
	000624	104375 				EMT	375
    204	000626				PRKLW:
    205	000626	026705 	000000G			CMP	CTYPTR,R5	; IS THIS THE CTY??
    206	000632	001405 				BEQ	10$		; YES -- GO ON
    207	000634	032714 	000000G			BIT	#DL.CAR,(R4)	; NO -- IS THE CARRIER STILL THERE ?
    208	000640	001002 				BNE	10$		; YES -- GO ON
    209	000642	000261 				SEC			; NO -- SET CC-C
    210	000644	000404 				BR	20$		; AND EXIT
    211						;
    212	000646				10$:
    213	000646	105764 	000004 			TSTB	4(R4)		; IS PRINTER WAITING FOR CHAR ?
    214	000652	100362 				BPL	PRKL1		; STILL BUSY - WAIT SOME MORE.
    215	000654	000241 				CLC			; OK -- CLEAR CC-C
    216	000656				20$:
    217	000656					RETURN			; TO CALLER
	000656	000207 				RTS	PC
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 4
KLDISC -- (EVENT LOGGING)

    219						.SBTTL	KLDISC -- (EVENT LOGGING)
    220
    221	000660				KLLOG:				; +++001
    222	000660	010046 				MOV	R0,-(SP)	; +++001 SAVE R0
    223	000662	012700 	000754'			MOV	#LOGBUF,R0	; +++001 BUFFER POINTER TO R0
    224	000666	012620 				MOV	(SP)+,(R0)+	; +++001 SET PACKET LENGTH
    225	000670	005720 				TST	(R0)+		; +++001 GET OVER THE LOG FLAG
    226	000672	010110 				MOV	R1,(R0)		; +++001 SET THE MESSAGE
    227	000674	024040 				CMP	-(R0),-(R0)	; +++001 BACK THE POINTER UP
    228	000676	032767 	000000G	000002G		BIT	#EF.PR1,.COMEF+2 ; +++001 CAN WE DO THIS??
    229	000704	001422 				BEQ	90$		; +++001 NO -- QUIT NOW
    230	000706					CLEF$S	#2		; +++001 YES -- CLEAR THE FLAG
	000706	012746 	000002 			MOV	#2,-(SP)
	000712	012746 				MOV	(PC)+,-(SP)
	000714	   037 	   002 			.BYTE	31.,2
	000716	104375 				EMT	375
    231	000720	012701 	100000G			MOV	#BC.HDS+100000,R1 ; +++001 FUNCTION CODE TO R1
    232	000724	012702 	000002 			MOV	#2,R2		; +++001 EVENT FLAG 2
    233	000730	012703 	000000G			MOV	#D.CKLN,R3	; +++001 DEVICE CODE TO R3
    234	000734					CALL	..STIN		; +++001 LOG IT
	000734	004767 	000000G			JSR	PC,..STIN
    235	000740					WTSE$S	#2		; +++001 WAIT FOR IT
	000740	012746 	000002 			MOV	#2,-(SP)
	000744	012746 				MOV	(PC)+,-(SP)
	000746	   051 	   002 			.BYTE	41.,2
	000750	104375 				EMT	375
    236	000752				90$:
    237	000752					RETURN
	000752	000207 				RTS	PC
    238
    239	000754				LOGBUF:
    240	000754	000000 	000000G	000000 		.WORD	0,DV.LOG,0
    241		000762'			LOGBFE=.
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 5
KLDISC -- (LOCAL DATA)

    243						.SBTTL	KLDISC -- (LOCAL DATA)
    244
    245	000762				ATCTY:
    246	000762					ALUN$	1,TT,0
	000762	   007 	   004 			.BYTE	7,4
	000764	000001 				.WORD	1
	000766	   124 				.ASCII	/T/
	000767	   124 				.ASCII	/T/
	000770	000000 				.WORD	0
    247	000772				CTYDB:
    248	000772					QIOW$	IO.WLB,1,1,,,,<0,0,0>
	000772	   003 	   011 			.BYTE	3,$$$ARG
	000774	000000G				.WORD	IO.WLB
	000776	000001 				.WORD	1
	001000	   001 	   000 			.BYTE	1,
	001002	000000 				.WORD
	001004	000000 				.WORD
	001006	000000 				.WORD	0
	001010	000000 				.WORD	0
	001012	000000 				.WORD	0
    249	001014				RQSPAR:
    250	001014					RQST$	PARSER,,249.
	001014	   013 	   007 			.BYTE	11.,7
	001016	062072 	073632 			.RAD50	/PARSER/
	001022	000000 	000000 			.WORD	0,0
	001026	000371 				.WORD	249.
	001030	   000 	   000 			.BYTE	,
    251	001032				CDMSG:
    252	001032	   015 	   012 	   113 		.ASCIZ	<15><12>/KLD -- KLINIK LINE CARRIER DROP/
	001035	   114 	   104 	   040
	001040	   055 	   055 	   040
	001043	   113 	   114 	   111
	001046	   116 	   111 	   113
	001051	   040 	   114 	   111
	001054	   116 	   105 	   040
	001057	   103 	   101 	   122
	001062	   122 	   111 	   105
	001065	   122 	   040 	   104
	001070	   122 	   117 	   120
	001073	   000
    253	001074				CLKLMS:
    254	001074	   015 	   012 	   113 		.ASCIZ	<15><12>/KLD -- KLINIK ACCESS TERMINATED BY OPERATOR/<15><12>
	001077	   114 	   104 	   040
	001102	   055 	   055 	   040
	001105	   113 	   114 	   111
	001110	   116 	   111 	   113
	001113	   040 	   101 	   103
	001116	   103 	   105 	   123
	001121	   123 	   040 	   124
	001124	   105 	   122 	   115
	001127	   111 	   116 	   101
	001132	   124 	   105 	   104
	001135	   040 	   102 	   131
	001140	   040 	   117 	   120
	001143	   105 	   122 	   101
	001146	   124 	   117 	   122
	001151	   015 	   012 	   000
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 5-1
KLDISC -- (LOCAL DATA)

    255	001154				UNDFMS:
    256	001154	   015 	   012 	   113 		.ASCII	<15><12>/KLD -- KLINIK LINE IN UNDEFINED STATE/
	001157	   114 	   104 	   040
	001162	   055 	   055 	   040
	001165	   113 	   114 	   111
	001170	   116 	   111 	   113
	001173	   040 	   114 	   111
	001176	   116 	   105 	   040
	001201	   111 	   116 	   040
	001204	   125 	   116 	   104
	001207	   105 	   106 	   111
	001212	   116 	   105 	   104
	001215	   040 	   123 	   124
	001220	   101 	   124 	   105
    257	001223				DISCMS:
    258	001223	   015 	   012 	   113 		.ASCIZ	<15><12>/KLD -- KLINIK LINE DISCONNECTED/<15><12>
	001226	   114 	   104 	   040
	001231	   055 	   055 	   040
	001234	   113 	   114 	   111
	001237	   116 	   111 	   113
	001242	   040 	   114 	   111
	001245	   116 	   105 	   040
	001250	   104 	   111 	   123
	001253	   103 	   117 	   116
	001256	   116 	   105 	   103
	001261	   124 	   105 	   104
	001264	   015 	   012 	   000
    259					.EVEN
    260		000000'			.END	KLDISC
KLINIK TERMINATION AND DISCONNE	MACRO M1108  09-JAN-78 10:02  PAGE 5-2
SYMBOL TABLE

ATCTY   000762R  	DL.CAR= ****** GX	LOGBFE= 000762R  	Q.IOLU= 000004   	TT.CTY= ****** GX
A.LULU= 000002   	DL.DEN= ****** GX	LOGBUF  000754R  	Q.IOPL= 000014   	TT.OUT= ****** GX
A.LUNA= 000004   	DL.REN= ****** GX	PRBOTH  000360R  	Q.IOPR= 000007   	TT.RIP= ****** GX
A.LUNU= 000006   	DL.XEN= ****** GX	PRCTY   000372R  	Q.IOSB= 000010   	UNDEF   000124R
BC.HDS= ****** GX	DV.LOG= ****** GX	PRKLC   000602R  	RQSPAR  001014R  	UNDFMS  001154R
BC.THU= ****** GX	D.CKLN= ****** GX	PRKLN   000574R  	R.QSGC= 000015   	$$    = 000067
CDMSG   001032R  	EF.PR1= ****** GX	PRKLW   000626R  	R.QSPC= 000014   	$$$ARG= 000011
CLKLMS  001074R  	IO.WLB= ****** GX	PRKLX   000614R  	R.QSPN= 000006   	$$$OST= 000016
CLKLN   000132R  	KLDISC  000000RG 	PRKL0   000550R  	R.QSPR= 000012   	$$$T1 = 000000
CRDRP   000170R  	KLLOG   000660R  	PRKL1   000620R  	R.QSTN= 000002   	.COMEF= ****** GX
CTYDB   000772R  	KLNPTR= ****** GX	PS    = ****** GX	STSW0 = ****** GX	.KLNSW= ****** GX
CTYPTR= ****** GX	K.LDCM= ****** GX	Q.IOAE= 000012   	STSW1 = ****** GX	.STTYH= ****** GX
DISCMS  001223R  	K.LDRP= ****** GX	Q.IOEF= 000006   	TTYEXP= ****** GX	.TTP11= ****** GX
DISCN   000216R  	K.LDSC= ****** GX	Q.IOFN= 000002   	TT.CRW= ****** GX	..STIN= ****** GX
DISPAT  000114R

. ABS.	000000	   000
      	001270	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  2304 WORDS  ( 9 PAGES)
DYNAMIC MEMORY:  3104 WORDS  ( 11 PAGES)
ELAPSED TIME:  00:01:11
,[54,20]KLDISC/-SP/CR=[54,30]KLDISC
KLDISC     CREATED BY  MACRO  ON 9-JAN-78 AT 10:03	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ATCTY 	  000762 R	 2-61      #5-245     
A.LULU	= 000002	#5-246     
A.LUNA	= 000004	#5-246     
A.LUNU	= 000006	#5-246     
BC.HDS	= ******  GX	 4-231     
BC.THU	= ******  GX	 2-117     
CDMSG 	  001032 R	 2-102     #5-251     
CLKLMS	  001074 R	 2-90      #5-253     
CLKLN 	  000132 R	 2-81      #2-89      
CRDRP 	  000170 R	 2-82      #2-97      
CTYDB 	  000772 R	*3-156     *3-157      3-158     #5-247     
CTYPTR	= ******  GX	 3-163      3-205     
DISCMS	  001223 R	 2-112     #5-257     
DISCN 	  000216 R	 2-80       2-83      #2-106     
DISPAT	  000114 R	 2-77      #2-79      
DL.CAR	= ******  GX	 3-207     
DL.DEN	= ******  GX	 2-68       2-93       2-122     
DL.REN	= ******  GX	 2-68       2-93       2-122      3-166      3-172     
DL.XEN	= ******  GX	 2-69       2-94       2-123      3-167      3-173     
DV.LOG	= ******  GX	 4-240     
D.CKLN	= ******  GX	 4-233     
EF.PR1	= ******  GX	 4-228     
IO.WLB	= ******  GX	 5-248     
KLDISC	  000000 RG	#2-60       5-260     
KLLOG 	  000660 R	 2-101      2-101      2-110      2-110     #4-221     
KLNPTR	= ******  GX	 2-62      
K.LDCM	= ******  GX	 2-109     
K.LDRP	= ******  GX	 2-100     
K.LDSC	= ******  GX	 2-100      2-109     
LOGBFE	= 000762 R	#4-241     
LOGBUF	  000754 R	 4-223     #4-239     
PRBOTH	  000360 R	 2-91       2-91       2-103      2-103      2-113      2-113     #3-141     
PRCTY 	  000372 R	 3-143      3-143     #3-147     
PRKLC 	  000602 R	 3-182      3-182      3-186      3-186      3-187      3-187     #3-194     
PRKLN 	  000574 R	 3-145      3-170      3-170      3-184     #3-188     
PRKLW 	  000626 R	 3-191      3-195      3-195     #3-204     
PRKLX 	  000614 R	 3-159      3-196     #3-198     
PRKL0 	  000550 R	#3-181      3-190     
PRKL1 	  000620 R	#3-202      3-214     
PS    	= ******  GX	 2-65       2-65       2-72       2-92       2-92       2-121      2-121      2-128      3-165     
                         3-165      3-169      3-171      3-171      3-175     
Q.IOAE	= 000012	#5-248     
Q.IOEF	= 000006	#5-248     
Q.IOFN	= 000002	#5-248     
Q.IOLU	= 000004	#5-248     
Q.IOPL	= 000014	*3-156     *3-157     #5-248     
Q.IOPR	= 000007	#5-248     
Q.IOSB	= 000010	#5-248     
RQSPAR	  001014 R	 2-131     #5-249     
R.QSGC	= 000015	#5-250     
R.QSPC	= 000014	#5-250     
R.QSPN	= 000006	#5-250     
KLDISC     CREATED BY  MACRO  ON 9-JAN-78 AT 10:03	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

R.QSPR	= 000012	#5-250     
R.QSTN	= 000002	#5-250     
STSW0 	= ******  GX	*2-127     
STSW1 	= ******  GX	*2-67      *2-124     
TTYEXP	= ******  GX	 2-63      *2-71      *2-126      3-164     *3-168     *3-174     
TT.CRW	= ******  GX	 2-124     
TT.CTY	= ******  GX	 2-67      
TT.OUT	= ******  GX	 2-67      
TT.RIP	= ******  GX	 2-124     
UNDEF 	  000124 R	 2-74      #2-85      
UNDFMS	  001154 R	 2-86      #5-255     
$$    	= 000067	#2-91       2-91      #2-101      2-101     #2-103      2-103     #2-110      2-110     #2-113     
                         2-113     #2-118      2-118     #3-143      3-143     #3-170      3-170     #3-182      3-182     
                        #3-186      3-186     #3-187      3-187     #3-195      3-195     #4-234      4-234     
$$$ARG	= 000011	#5-246      5-246     #5-246      5-246     #5-246      5-246     #5-248      5-248     #5-248     
                         5-248     #5-248      5-248     #5-248      5-248     
$$$GLB	= ******	 5-246      5-246      5-246      5-246      5-248      5-248      5-248      5-248      5-248     
                         5-248      5-248      5-248      5-250      5-250      5-250      5-250      5-250      5-250     
$$$OST	= 000016	#5-246      5-246      5-246     #5-246      5-246      5-246     #5-246      5-246      5-246     
                        #5-246     #5-248      5-248      5-248     #5-248      5-248      5-248     #5-248      5-248     
                         5-248     #5-248      5-248      5-248     #5-248      5-248      5-248     #5-248      5-248     
                         5-248     #5-248      5-248     #5-250      5-250      5-250     #5-250      5-250      5-250     
                        #5-250      5-250      5-250     #5-250      5-250      5-250     #5-250      5-250      5-250     
                        #5-250     
$$$T1 	= 000000	#5-246      5-246      5-246     #5-246      5-246      5-246     #5-246      5-246      5-246     
                        #5-250      5-250      5-250      5-250     #5-250      5-250     
.COMEF	= ******  GX	 4-228     
.KLNSW	= ******  GX	 2-64      *2-66      
.STTYH	= ******  GX	 2-118      2-118     
.TTP11	= ******  GX	 3-148     
..STIN	= ******  GX	 4-234      4-234     
KLDISC     CREATED BY  MACRO  ON 9-JAN-78 AT 10:03	PAGE 3

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ALUN$ 		#2-57       5-246     
CALL  		#2-57       2-91       2-101      2-103      2-110      2-113      2-118      3-143      3-170      3-182     
                 3-186      3-187      3-195      4-234     
CLEF$S		#2-58       4-230     
DIR$  		#2-57      #2-61      #2-131     #2-134     #2-134     #3-158     #3-203     #3-203     #4-230     #4-230     
                #4-235     #4-235     
ERR$  		#2-61      #2-131     #2-134     #3-158     #3-203     #4-230     #4-235     
EXIT$S		#2-57      #2-134     
MOV$  		#4-230     #4-230     #4-235     #4-235     
NBL$  		#5-246     #5-246     
OFF$  		#5-246     #5-246     #5-246     #5-246     #5-246     #5-248     #5-248     #5-248     #5-248     #5-248     
                #5-248     #5-248     #5-248     #5-248     #5-250     #5-250     #5-250     #5-250     #5-250     #5-250     
                #5-250     
QDPB$ 		#5-248      5-248     
QIOW$ 		#2-57      #5-248     
RETURN		#2-57       3-178      3-200      3-217      4-237     
RQST$ 		#2-57       5-250     
R50$  		#5-250      5-250      5-250     
WSIG$S		#2-57      #3-203     
WTSE$S		#2-58       4-235     
.ENB6 		#2-58       2-72       2-128      3-169      3-175     
.INH6 		#2-58      #2-65      #2-92      #2-121     #3-165     #3-171