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