Trailing-Edge
-
PDP-10 Archives
-
bb-x141b-bb
-
kldisc.lst
There are 2 other files named kldisc.lst in the archive. Click here to see a list.
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23
TABLE OF CONTENTS
1- 2 KLDISC -- KLINIK TERMINATION TASK
2- 43 KLDISC -- (INITILAIZATION)
3- 140 KLDISC (CTY/TTY OUTPUT ROUTINES)
4- 220 KLDISC -- (EVENT LOGGING)
5- 244 KLDISC -- (LOCAL DATA)
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 1
1 .TITLE KLINIK TERMINATION AND DISCONNECT TASK
2 .SBTTL KLDISC -- KLINIK TERMINATION TASK
3 .IDENT /014230/
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: V14-23
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
41 ; TCO 4.1.1105 11-MAR-80 R. BELANGER CHANGE "EF.PR1" RECOGNITION
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 2
KLDISC -- (INITILAIZATION)
43 .SBTTL KLDISC -- (INITILAIZATION)
44
45 ;+
46 ; THIS MODULE IS REQUESTED BY THE TELETYPE DRIVER UPON KLINIK
47 ; LINE CARRIER DROP. IT IS ALSO REQUESTED BY THE RSX20F CONSOLE
48 ; COMMAND LANGUAGE VIA THE "DISCONNECT" COMMAND.
49 ;
50 ; THIS TASK HAS THE RESPONSIBILTY TO:
51 ;
52 ; 1. INFORM THE CTYS OF A "CLEAR KLINIK" COMMAND
53 ; 2. INFORM THE CTYS OF A "DISCONNECT" COMMAND
54 ; 3. INFORM THE LOCAL CTY OF A KLINIK LINE CARRIER DROP
55 ; 4. DISCONNECT THE KLINIK LINE WHEN SO REQUESTED.
56 ;-
57
58 .MCALL QIOW$,ALUN$,RQST$,DIR$,EXIT$S,WSIG$S,CALL,RETURN
59 .MCALL .ENB6,.INH6,WTSE$S,CLEF$S
60
61 000000 KLDISC::
62 000000 DIR$ #ATCTY ; ATTACH THE LOCAL CTY
000000 012746 000760' MOV #ATCTY,-(SP)
000004 104375 EMT 375
63 000006 016705 000000G MOV KLNPTR,R5 ; KLINIK LINE POINTER TO R5
64 000012 016504 000000G MOV TTYEXP(R5),R4 ; EXTERNAL PAGE POINTER TO R4
65 000016 016746 000000G MOV .KLNSW,-(SP) ; +++002 SAVE THE KLINIK SWITCH WORD
66 000022 .INH6 ; DISALLOW INTERRUPTS
000022 013746 000000G MOV @#PS,-(SP)
000026 112737 000300 000000G MOVB #300,@#PS
67 000034 005067 000000G CLR .KLNSW ;;; CLEAR THE ACTIVE FLAGS
68 000040 042765 000000C 000000G BIC #TT.CTY!TT.OUT,STSW1(R5) ;;; RESET SOFTWARE FLAGS
69 000046 042714 000000C BIC #DL.DEN!DL.REN,(R4) ;;; DISABLE THE LINE
70 000052 042764 000000G 000004 BIC #DL.XEN,4(R4) ;;; SO
71 000060 005764 000002 TST 2(R4) ;;; FLUSH INPUT FLAGS
72 000064 005065 000000G CLR TTYEXP(R5) ;;; SO EXEC CAN'T MEDDLE
73 000070 .ENB6 ;;; ALLOW INTERRUPTS
000070 012637 000000G MOV (SP)+,@#PS
74 000074 116600 000001 MOVB 1(SP),R0 ; +++002 CALL CODE TO R0
75 000100 003411 BLE UNDEF ; UNDEFINED IF .LE. 0
76 000102 042700 177774 BIC #^C3,R0 ; MAKE IT MODULO 3
77 000106 006300 ASL R0 ; TIMES 2
78 000110 000170 000114' JMP @DISPAT(R0) ; DO IT TO IT
79 ;
80 000114 DISPAT:
81 000114 000216' .WORD DISCN ; 4 MODULO 3 -- DISCONNECT AND EXIT
82 000116 000132' .WORD CLKLN ; 1 MODULO 3 -- CLEAR KLINIK - RECALL PARSER
83 000120 000170' .WORD CRDRP ; 2 MODULO 3 -- REPORT CARRIER LOSS AND EXIT
84 000122 000216' .WORD DISCN ; 3 MODULO 3 -- DISCONNECT - RECALL PARSER
85 .ENABL LSB
86 000124 UNDEF:
87 000124 012702 001152' MOV #UNDFMS,R2 ; UNDEFINED MESSAGE TO R2
88 000130 000440 BR 35$ ; PRINT AND EXIT
89 ;
90 000132 CLKLN:
91 000132 012702 001072' MOV #CLKLMS,R2 ; CLEAR KLINIK MESSAGE TO R2
92 000136 CALL PRBOTH ; TELL BOTH TERMINALS
000136 004767 000216 JSR PC,PRBOTH
93 000142 .INH6 ; DISALLOW INTERRUPTS
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 2-1
KLDISC -- (INITILAIZATION)
000142 013746 000000G MOV @#PS,-(SP)
000146 112737 000300 000000G MOVB #300,@#PS
94 000154 052714 000000C BIS #DL.DEN!DL.REN,(R4) ;;; REENABLE THE LINE
95 000160 052764 000000G 000004 BIS #DL.XEN,4(R4) ;;; SO
96 000166 000452 BR 40$ ;;; AND EXIT
97 ;
98 000170 CRDRP:
99 000170 012700 000004 MOV #4,R0 ; +++001 PACKET LENGTH TO R0
100 000174 012701 MOV (PC)+,R1 ; +++001 MESSAGE TO R1
101 000176 000G 000G .BYTE K.LDSC,K.LDRP ; +++001 CARRIER DROP
102 000200 CALL KLLOG ; +++001 LOG IT
000200 004767 000454 JSR PC,KLLOG
103 000204 012702 001030' MOV #CDMSG,R2 ; CARRIER DROP MESSAGE TO R2
104 000210 CALL PRBOTH ; PRINT IT
000210 004767 000144 JSR PC,PRBOTH
105 000214 000406 BR 35$ ; +++001 CONTINUE
106 ;
107 000216 DISCN:
108 000216 012700 000004 MOV #4,R0 ; +++001 PACKET LENGTH TO R0
109 000222 012701 MOV (PC)+,R1 ; +++001 MESSAGE TO R1
110 000224 000G 000G .BYTE K.LDSC,K.LDCM ; +++001 DIRECTED DISCONNECT
111 000226 CALL KLLOG ; +++001 LOG IT
000226 004767 000426 JSR PC,KLLOG
112 000232 35$: ; +++001
113 000232 012702 001221' MOV #DISCMS,R2 ; DISCONNECT MESSAGE TO R2
114 000236 CALL PRBOTH ; TELL BOTH TERMINALS
000236 004767 000116 JSR PC,PRBOTH
115 000242 105716 TSTB (SP) ; REMOTE KLINIK ACTIVE??
116 000244 100006 BPL 37$ ; YES -- GO ON
117 000246 010446 MOV R4,-(SP) ; NO -- MUST TELL KL
118 000250 012701 000000G MOV #BC.THU,R1 ; HANGUP FUNCTION CODE TO R1
119 000254 CALL .STTYH ; MESSAGE TO -10 Q
000254 004767 000000G JSR PC,.STTYH
120 000260 012604 MOV (SP)+,R4 ; RESTORE R4
121 000262 37$:
122 000262 .INH6 ; DISALLOW INTERRUPTS
000262 013746 000000G MOV @#PS,-(SP)
000266 112737 000300 000000G MOVB #300,@#PS
123 000274 012714 000000C MOV #DL.DEN!DL.REN,(R4) ;;; HANG UP THE KLINIK LINE
124 000300 012764 000000G 000004 MOV #DL.XEN,4(R4) ;;; SO
125 000306 042765 000000C 000000G BIC #TT.CRW!TT.RIP,STSW1(R5) ;;; RESET CARRIER WAIT
126 000314 40$:
127 000314 010465 000000G MOV R4,TTYEXP(R5) ;;; GIVE THE LINE BACK TO THE EXEC
128 000320 005065 000000G CLR STSW0(R5) ;;; TURN THE INPUT SIDE ON IF IT WAS OFF
129 000324 .ENB6 ;;; ALLOW INTERRUPTS
000324 012637 000000G MOV (SP)+,@#PS
130 000330 132766 000001 000001 BITB #1,1(SP) ; +++002 MUST WE RECALL PARSER??
131 000336 001403 BEQ 50$ ; NO -- JUST GO AWAY
132 000340 DIR$ #RQSPAR ; YES -- CALL PARSER BACK
000340 012746 001012' MOV #RQSPAR,-(SP)
000344 104375 EMT 375
133 000346 50$:
134 000346 005726 TST (SP)+ ; CLEAR STACK
135 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 M1113 14-APR-81 11:23 PAGE 2-2
KLDISC -- (INITILAIZATION)
136 000356 000000 HALT ; HELP!
137 ;
138 .DSABL LSB
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 3
KLDISC (CTY/TTY OUTPUT ROUTINES)
140 .SBTTL KLDISC (CTY/TTY OUTPUT ROUTINES)
141
142 000360 PRBOTH:
143 000360 010246 MOV R2,-(SP) ; SAVE MESSAGE POINTER
144 000362 CALL PRCTY ; SEND IT TO THE CTY
000362 004767 000004 JSR PC,PRCTY
145 000366 012602 MOV (SP)+,R2 ; RETREIVE MESSAGE POINTER
146 000370 000501 BR PRKLN ; SEND IT TO KLINIK
147 ;
148 000372 PRCTY:
149 000372 005767 000000G TST .TTP11 ; IS CTY HUNG UP IN I/O ?
150 000376 001015 BNE 90$ ; YES, DON'T HANG US ALSO.
151 000400 010200 MOV R2,R0 ; COPY STRING POINTER
152 000402 10$:
153 000402 105720 TSTB (R0)+ ; FIND END OF STRING
154 000404 001376 BNE 10$
155 000406 005300 DEC R0 ; BACK UP ONE CHAR
156 000410 160200 SUB R2,R0 ; AND FIGURE LENGTH.
157 000412 010267 000366 MOV R2,CTYDB+Q.IOPL+0 ;SET UP ADDRESS
158 000416 010067 000364 MOV R0,CTYDB+Q.IOPL+2 ;AND LENGTH,
159 000422 DIR$ #CTYDB ; SEND THE MESSAGE.
000422 012746 000770' MOV #CTYDB,-(SP)
000426 104375 EMT 375
160 000430 000471 BR PRKLX ; AND EXIT
161 000432 90$:
162 000432 010446 MOV R4,-(SP) ; SAVE R4
163 000434 010546 MOV R5,-(SP) ; AND R5
164 000436 016705 000000G MOV CTYPTR,R5 ; POINT TO THE CTY
165 000442 016504 000000G MOV TTYEXP(R5),R4 ; I/O PAGE ADDRESS TO R4
166 000446 .INH6 ; DISALLOW INTERRUPTS
000446 013746 000000G MOV @#PS,-(SP)
000452 112737 000300 000000G MOVB #300,@#PS
167 000460 042714 000000G BIC #DL.REN,(R4) ;;; DISABLE THE LINE
168 000464 042764 000000G 000004 BIC #DL.XEN,4(R4) ;;; SO
169 000472 005065 000000G CLR TTYEXP(R5) ;;; SO EXEC CAN'T MEDDLE
170 000476 .ENB6 ;;; ALLOW INTERRUPTS
000476 012637 000000G MOV (SP)+,@#PS
171 000502 CALL PRKLN ; PRINT THE LINE
000502 004767 000066 JSR PC,PRKLN
172 000506 .INH6 ; DISALLOW INTERRUPTS
000506 013746 000000G MOV @#PS,-(SP)
000512 112737 000300 000000G MOVB #300,@#PS
173 000520 052714 000000G BIS #DL.REN,(R4) ;;; REENABLE THE LINE
174 000524 052764 000000G 000004 BIS #DL.XEN,4(R4) ;;; SO
175 000532 010465 000000G MOV R4,TTYEXP(R5) ;;; GIVE IT BACK TO THE EXEC
176 000536 .ENB6 ;;; ALLOW INTERRUPTS
000536 012637 000000G MOV (SP)+,@#PS
177 000542 012605 MOV (SP)+,R5 ; RESTORE REGISTERS
178 000544 012604 MOV (SP)+,R4 ; SO
179 000546 RETURN ; AND GO AWAY
000546 000207 RTS PC
180 ;
181
182 000550 PRKL0:
183 000550 CALL PRKLC ; SEND THE CHARACTER.
000550 004767 000026 JSR PC,PRKLC
184 000554 122700 000012 CMPB #12,R0 ; IF CHARACTER WAS LF,
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 3-1
KLDISC (CTY/TTY OUTPUT ROUTINES)
185 000560 001005 BNE PRKLN ; THEN
186 000562 005000 CLR R0 ; SEND TWO NULLS.
187 000564 CALL PRKLC
000564 004767 000012 JSR PC,PRKLC
188 000570 CALL PRKLC
000570 004767 000006 JSR PC,PRKLC
189 000574 PRKLN:
190 000574 112200 MOVB (R2)+,R0 ; GET NEXT CHARACTER
191 000576 001364 BNE PRKL0
192 000600 000412 BR PRKLW ; ELSE LET PRINTER SETTLE AND EXIT
193 ;
194
195 000602 PRKLC:
196 000602 CALL PRKLW ; MAKE SURE PRINTER IS READY
000602 004767 000020 JSR PC,PRKLW
197 000606 103402 BCS PRKLX ; FORGET IT IF CC-C IS SET
198 000610 110064 000006 MOVB R0,6(R4) ; AND SEND THE CHARACTER.
199 000614 PRKLX:
200 000614 000241 CLC ; CLEAR CC-C
201 000616 RETURN ; ALL FINISHED
000616 000207 RTS PC
202
203 000620 PRKL1:
204 000620 WSIG$S ; WAIT A TICK OR SO.
000620 012746 MOV (PC)+,-(SP)
000622 061 001 .BYTE 49.,1
000624 104375 EMT 375
205 000626 PRKLW:
206 000626 026705 000000G CMP CTYPTR,R5 ; IS THIS THE CTY??
207 000632 001405 BEQ 10$ ; YES -- GO ON
208 000634 032714 000000G BIT #DL.CAR,(R4) ; NO -- IS THE CARRIER STILL THERE ?
209 000640 001002 BNE 10$ ; YES -- GO ON
210 000642 000261 SEC ; NO -- SET CC-C
211 000644 000404 BR 20$ ; AND EXIT
212 ;
213 000646 10$:
214 000646 105764 000004 TSTB 4(R4) ; IS PRINTER WAITING FOR CHAR ?
215 000652 100362 BPL PRKL1 ; STILL BUSY - WAIT SOME MORE.
216 000654 000241 CLC ; OK -- CLEAR CC-C
217 000656 20$:
218 000656 RETURN ; TO CALLER
000656 000207 RTS PC
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 4
KLDISC -- (EVENT LOGGING)
220 .SBTTL KLDISC -- (EVENT LOGGING)
221
222 000660 KLLOG: ; +++001
223 000660 010046 MOV R0,-(SP) ; +++001 SAVE R0
224 000662 012700 000752' MOV #LOGBUF,R0 ; +++001 BUFFER POINTER TO R0
225 000666 012620 MOV (SP)+,(R0)+ ; +++001 SET PACKET LENGTH
226 000670 005720 TST (R0)+ ; +++001 GET OVER THE LOG FLAG
227 000672 010110 MOV R1,(R0) ; +++001 SET THE MESSAGE
228 000674 024040 CMP -(R0),-(R0) ; +++001 BACK THE POINTER UP
229 000676 005767 000002G TST .COMEF+2 ; [4.1.1105] CAN ER DO THIS??
230 000702 100022 BPL 90$ ; [4.1.1105] NO -- QUIT NOW
231 000704 CLEF$S #2 ; +++001 YES -- CLEAR THE FLAG
000704 012746 000002 MOV #2,-(SP)
000710 012746 MOV (PC)+,-(SP)
000712 037 002 .BYTE 31.,2
000714 104375 EMT 375
232 000716 012701 100000G MOV #BC.HDS+100000,R1 ; +++001 FUNCTION CODE TO R1
233 000722 012702 000002 MOV #2,R2 ; +++001 EVENT FLAG 2
234 000726 012703 000000G MOV #D.CKLN,R3 ; +++001 DEVICE CODE TO R3
235 000732 CALL ..STIN ; +++001 LOG IT
000732 004767 000000G JSR PC,..STIN
236 000736 WTSE$S #2 ; +++001 WAIT FOR IT
000736 012746 000002 MOV #2,-(SP)
000742 012746 MOV (PC)+,-(SP)
000744 051 002 .BYTE 41.,2
000746 104375 EMT 375
237 000750 90$:
238 000750 RETURN
000750 000207 RTS PC
239
240 000752 LOGBUF:
241 000752 000000 000000G 000000 .WORD 0,DV.LOG,0
242 000760' LOGBFE=.
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 5
KLDISC -- (LOCAL DATA)
244 .SBTTL KLDISC -- (LOCAL DATA)
245
246 000760 ATCTY:
247 000760 ALUN$ 1,TT,0
000760 007 004 .BYTE 7,4
000762 000001 .WORD 1
000764 124 .ASCII /T/
000765 124 .ASCII /T/
000766 000000 .WORD 0
248 000770 CTYDB:
249 000770 QIOW$ IO.WLB,1,1,,,,<0,0,0>
000770 003 011 .BYTE 3,$$$ARG
000772 000000G .WORD IO.WLB
000774 000001 .WORD 1
000776 001 000 .BYTE 1,
001000 000000 .WORD
001002 000000 .WORD
001004 000000 .WORD 0
001006 000000 .WORD 0
001010 000000 .WORD 0
250 001012 RQSPAR:
251 001012 RQST$ PARSER,,249.
001012 013 007 .BYTE 11.,7
001014 062072 073632 .RAD50 /PARSER/
001020 000000 000000 .WORD 0,0
001024 000371 .WORD 249.
001026 000 000 .BYTE ,
252 001030 CDMSG:
253 001030 015 012 113 .ASCIZ <15><12>/KLD -- KLINIK LINE CARRIER DROP/
001033 114 104 040
001036 055 055 040
001041 113 114 111
001044 116 111 113
001047 040 114 111
001052 116 105 040
001055 103 101 122
001060 122 111 105
001063 122 040 104
001066 122 117 120
001071 000
254 001072 CLKLMS:
255 001072 015 012 113 .ASCIZ <15><12>/KLD -- KLINIK ACCESS TERMINATED BY OPERATOR/<15><12>
001075 114 104 040
001100 055 055 040
001103 113 114 111
001106 116 111 113
001111 040 101 103
001114 103 105 123
001117 123 040 124
001122 105 122 115
001125 111 116 101
001130 124 105 104
001133 040 102 131
001136 040 117 120
001141 105 122 101
001144 124 117 122
001147 015 012 000
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 5-1
KLDISC -- (LOCAL DATA)
256 001152 UNDFMS:
257 001152 015 012 113 .ASCII <15><12>/KLD -- KLINIK LINE IN UNDEFINED STATE/
001155 114 104 040
001160 055 055 040
001163 113 114 111
001166 116 111 113
001171 040 114 111
001174 116 105 040
001177 111 116 040
001202 125 116 104
001205 105 106 111
001210 116 105 104
001213 040 123 124
001216 101 124 105
258 001221 DISCMS:
259 001221 015 012 113 .ASCIZ <15><12>/KLD -- KLINIK LINE DISCONNECTED/<15><12>
001224 114 104 040
001227 055 055 040
001232 113 114 111
001235 116 111 113
001240 040 114 111
001243 116 105 040
001246 104 111 123
001251 103 117 116
001254 116 105 103
001257 124 105 104
001262 015 012 000
260 .EVEN
261 000000' .END KLDISC
KLINIK TERMINATION AND DISCONNE MACRO M1113 14-APR-81 11:23 PAGE 5-2
SYMBOL TABLE
ATCTY 000760R DISPAT 000114R LOGBFE= 000760R Q.IOLU= 000004 TT.CTY= ****** GX
A.LULU= 000002 DL.CAR= ****** GX LOGBUF 000752R Q.IOPL= 000014 TT.OUT= ****** GX
A.LUNA= 000004 DL.DEN= ****** GX PRBOTH 000360R Q.IOPR= 000007 TT.RIP= ****** GX
A.LUNU= 000006 DL.REN= ****** GX PRCTY 000372R Q.IOSB= 000010 UNDEF 000124R
BC.HDS= ****** GX DL.XEN= ****** GX PRKLC 000602R RQSPAR 001012R UNDFMS 001152R
BC.THU= ****** GX DV.LOG= ****** GX PRKLN 000574R R.QSGC= 000015 $$ = 000067
CDMSG 001030R D.CKLN= ****** GX PRKLW 000626R R.QSPC= 000014 $$$ARG= 000011
CLKLMS 001072R 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 000770R KLNPTR= ****** GX PS = ****** GX STSW0 = ****** GX .KLNSW= ****** GX
CTYPTR= ****** GX K.LDCM= ****** GX Q.IOAE= 000012 STSW1 = ****** GX .STTYH= ****** GX
DISCMS 001221R K.LDRP= ****** GX Q.IOEF= 000006 TTYEXP= ****** GX .TTP11= ****** GX
DISCN 000216R K.LDSC= ****** GX Q.IOFN= 000002 TT.CRW= ****** GX ..STIN= ****** GX
. ABS. 000000 000
001266 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2296 WORDS ( 9 PAGES)
DYNAMIC MEMORY: 3574 WORDS ( 13 PAGES)
ELAPSED TIME: 00:00:13
[54,10]KLDISC,[54,20]KLDISC/-SP/CR=[54,30]KLDISC
KLDISC CREATED BY MACRO ON 14-APR-81 AT 11:23 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ATCTY 000760 R 2-62 #5-246
A.LULU = 000002 #5-247
A.LUNA = 000004 #5-247
A.LUNU = 000006 #5-247
BC.HDS = ****** GX 4-232
BC.THU = ****** GX 2-118
CDMSG 001030 R 2-103 #5-252
CLKLMS 001072 R 2-91 #5-254
CLKLN 000132 R 2-82 #2-90
CRDRP 000170 R 2-83 #2-98
CTYDB 000770 R *3-157 *3-158 3-159 #5-248
CTYPTR = ****** GX 3-164 3-206
DISCMS 001221 R 2-113 #5-258
DISCN 000216 R 2-81 2-84 #2-107
DISPAT 000114 R 2-78 #2-80
DL.CAR = ****** GX 3-208
DL.DEN = ****** GX 2-69 2-94 2-123
DL.REN = ****** GX 2-69 2-94 2-123 3-167 3-173
DL.XEN = ****** GX 2-70 2-95 2-124 3-168 3-174
DV.LOG = ****** GX 4-241
D.CKLN = ****** GX 4-234
IO.WLB = ****** GX 5-249
KLDISC 000000 RG #2-61 5-261
KLLOG 000660 R 2-102 2-102 2-111 2-111 #4-222
KLNPTR = ****** GX 2-63
K.LDCM = ****** GX 2-110
K.LDRP = ****** GX 2-101
K.LDSC = ****** GX 2-101 2-110
LOGBFE = 000760 R #4-242
LOGBUF 000752 R 4-224 #4-240
PRBOTH 000360 R 2-92 2-92 2-104 2-104 2-114 2-114 #3-142
PRCTY 000372 R 3-144 3-144 #3-148
PRKLC 000602 R 3-183 3-183 3-187 3-187 3-188 3-188 #3-195
PRKLN 000574 R 3-146 3-171 3-171 3-185 #3-189
PRKLW 000626 R 3-192 3-196 3-196 #3-205
PRKLX 000614 R 3-160 3-197 #3-199
PRKL0 000550 R #3-182 3-191
PRKL1 000620 R #3-203 3-215
PS = ****** GX 2-66 *2-66 *2-73 2-93 *2-93 2-122 *2-122 *2-129 3-166
*3-166 *3-170 3-172 *3-172 *3-176
Q.IOAE = 000012 #5-249
Q.IOEF = 000006 #5-249
Q.IOFN = 000002 #5-249
Q.IOLU = 000004 #5-249
Q.IOPL = 000014 *3-157 *3-158 #5-249
Q.IOPR = 000007 #5-249
Q.IOSB = 000010 #5-249
RQSPAR 001012 R 2-132 #5-250
R.QSGC = 000015 #5-251
R.QSPC = 000014 #5-251
R.QSPN = 000006 #5-251
R.QSPR = 000012 #5-251
KLDISC CREATED BY MACRO ON 14-APR-81 AT 11:23 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
R.QSTN = 000002 #5-251
STSW0 = ****** GX *2-128
STSW1 = ****** GX *2-68 *2-125
TTYEXP = ****** GX 2-64 *2-72 *2-127 3-165 *3-169 *3-175
TT.CRW = ****** GX 2-125
TT.CTY = ****** GX 2-68
TT.OUT = ****** GX 2-68
TT.RIP = ****** GX 2-125
UNDEF 000124 R 2-75 #2-86
UNDFMS 001152 R 2-87 #5-256
$$ = 000067 #2-92 2-92 #2-102 2-102 #2-104 2-104 #2-111 2-111 #2-114
2-114 #2-119 2-119 #3-144 3-144 #3-171 3-171 #3-183 3-183
#3-187 3-187 #3-188 3-188 #3-196 3-196 #4-235 4-235
$$$ARG = 000011 #5-247 5-247 #5-247 5-247 #5-247 5-247 #5-249 5-249 #5-249
5-249 #5-249 5-249 #5-249 5-249
$$$GLB = ****** 5-247 5-247 5-247 5-247 5-249 5-249 5-249 5-249 5-249
5-249 5-249 5-249 5-251 5-251 5-251 5-251 5-251 5-251
$$$OST = 000016 #5-247 5-247 5-247 #5-247 5-247 5-247 #5-247 5-247 5-247
#5-247 #5-249 5-249 5-249 #5-249 5-249 5-249 #5-249 5-249
5-249 #5-249 5-249 5-249 #5-249 5-249 5-249 #5-249 5-249
5-249 #5-249 5-249 #5-251 5-251 5-251 #5-251 5-251 5-251
#5-251 5-251 5-251 #5-251 5-251 5-251 #5-251 5-251 5-251
#5-251
$$$T1 = 000000 #5-247 5-247 5-247 #5-247 5-247 5-247 #5-247 5-247 5-247
#5-251 5-251 5-251 5-251 #5-251 5-251
.COMEF = ****** GX 4-229
.KLNSW = ****** GX 2-65 *2-67
.STTYH = ****** GX 2-119 2-119
.TTP11 = ****** GX 3-149
..STIN = ****** GX 4-235 4-235
KLDISC CREATED BY MACRO ON 14-APR-81 AT 11:23 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ALUN$ #2-58 5-247
CALL #2-58 2-92 2-102 2-104 2-111 2-114 2-119 3-144 3-171 3-183
3-187 3-188 3-196 4-235
CLEF$S #2-59 4-231
DIR$ #2-58 #2-62 #2-132 #2-135 #2-135 #3-159 #3-204 #3-204 #4-231 #4-231
#4-236 #4-236
ERR$ #2-62 #2-132 #2-135 #3-159 #3-204 #4-231 #4-236
EXIT$S #2-58 #2-135
MOV$ #4-231 #4-231 #4-236 #4-236
NBL$ #5-247 #5-247
OFF$ #5-247 #5-247 #5-247 #5-247 #5-247 #5-249 #5-249 #5-249 #5-249 #5-249
#5-249 #5-249 #5-249 #5-249 #5-251 #5-251 #5-251 #5-251 #5-251 #5-251
#5-251
QDPB$ #5-249 5-249
QIOW$ #2-58 #5-249
RETURN #2-58 3-179 3-201 3-218 4-238
RQST$ #2-58 5-251
R50$ #5-251 5-251 5-251
WSIG$S #2-58 #3-204
WTSE$S #2-59 4-236
.ENB6 #2-59 2-73 2-129 3-170 3-176
.INH6 #2-59 #2-66 #2-93 #2-122 #3-166 #3-172