Trailing-Edge
-
PDP-10 Archives
-
bb-m403a-bk
-
setspd.lst
There are 2 other files named setspd.lst in the archive. Click here to see a list.
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01
TABLE OF CONTENTS
2- 51 MACRO DEFINITIONS
3- 71 .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
4- 235 CONFIG -- REPORT CONFIGURATION INFORMATION
5- 274 DOSTIN -- START INDIRECT FUNCTION
6- 321 DOXOFF -- RESET X'D OFF LINE
7- 361 SNDSPD -- REPORT LINE SPEED TO KL10
8- 417 LOCAL DATA
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 1
1 .TITLE SETSPD -- SET SPEED AND RETURN TIME OF DAY
2 .IDENT "V014450"
3 ;
4 ; COPYRIGHT (C) 1975, 1979 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
6 ;
7 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
8 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
9 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
10 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
11 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
12 ;
13 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
14 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
15 ; CORPORATION.
16 ;
17 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
18 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
19 ;
20 ;
21 ; MODULE: SET SPEED, RETURN TIME OF DAY, AND REPORT COMNFIGURATION
22 ;
23 ; VERSION: V014-45
24 ;
25 ; AUTHOR: R. BELANGER
26 ;
27 ; DATE: 12 SEP 79
28 ;
29 ; THIS MODULE CONTAINS:
30 ;
31 ; 1 -- THE CODE REQUIRED TO SET THE TIME IN THE KL AND
32 ; SET THE SPEED TABLE FOR THE KL AFTER RELOAD
33 ;
34 ; 2 -- CODE REQUIRED TO REPORT AUTO-BAUD LINE SPEEDS TO THE KL
35 ;
36 ; 3 -- CODE TO REPORT THE FRONT-END TERMINAL AND UNIT-RECORD CONFIGURATION
37 ;
38 ; NOTE:
39 ;
40 ; THIS MODULE WAS ESSENTIALLY REWRITTEN FOR TCO 5.1004
41 ;
42 ; MODIFICATIONS:
43 ;
44 ; TCO DATE PROGRAMMER PURPOSE
45 ; --- ---- ---------- -------
46 ; TCO5.1004 12-SEP-79 R. BELANGER START OF EDIT HISTORY
47 ; TCO 4.1.1091 12-FEB-80 R. BELANGER REPORT DM-11/BB CONFIGURATION
48 ; TCO 5.1269 04-MAR-81 S. LEAPLINE CLEAR "STSW2" ON WARM START
49 ; TCO 5.1448 11-AUG-81 S. LEAPLINE CLEAR XOFF STATE ON ANY START
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 2
MACRO DEFINITIONS
51 .SBTTL MACRO DEFINITIONS
52 ;
53 ; MACROS
54 ;
55 .MCALL CALL,RETURN,WSIG$S,CLEF$S,EXIT$S,ALUN$S
56 .MCALL QIOW$,DIR$,RQST$,.ENB6,.INH6,$DEF
57 .LIST MEB
58 .ENABL AMA
59
60 000000 $DEF
61 ;
62 ; LOCAL DEFINITIONS
63 ;
64
65 000005 DL1CNT=5 ; MAX NUMBER OF DL-11'S
66 000010 DH1CNT=10 ; MAX NUMBER OF DH-11'S
67 000010 DM1CNT=10 ; [4.1.1091] MAX NUMBER OF DM-11/BB'S
68 000002 LP2CNT=2 ; MAX NUMBER OF LP-20'S
69 000001 CR1CNT=1 ; MAX NUMBER OF CR-11'S
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 3
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
71 .SBTTL .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
72
73 ;+
74 ; .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
75 ;
76 ; THIS ROUTINE IS LOADED AND CALLED AS A TASK WHEN:
77 ;
78 ; 1. THE KL SENDS THE FRONT-END A REQUEST FOR THE TIME-OF-DAY
79 ; 2. AN AUTO-BAUD LINE HAS CONNECTED
80 ;
81 ; IF THE KL HAS BEEN RELOADED:
82 ;
83 ; 1. ALL LINE SPEEDS ARE REPORTED.
84 ; 2. THE CURRENT DATE AND TIME ARE EPORTED TO KL
85 ; 3. THE REASON FOR THE RELOAD IS REPORTED TO THE KL.
86 ; 4. THE TERMINAL AND UNIT-RECORD CONFIGURATION IS REPORTED
87 ; TO THE KL.
88 ;
89 ; FURTHER, ALL PENDING OUTPUT FOR ALL LINES IS DEQUEUED AND ALL LINES
90 ; ARE REMOVED FROM THE XOFF STATE AND SET TO LOCAL XOFF DISABLED.
91 ;
92 ; IF A REMOTE LINE HAS BEEN AUTO-BAUDED, THE SPEED FOR ONLY THAT LINE
93 ; IS REPORTED.
94 ;
95 ; THE DECISION TO REPORT ALL LINE SPEEDS OR ONLY AUTO-BAUD LINE SPEEDS
96 ; IS DETERMINED BY THE STATE OF ".ABFLG"
97 ;
98 ; ".ABFLG" .LE. 0 -- REPORT ALL LINE SPEEDS
99 ; ".ABFLG" .GT. 0 -- REPORT ONLY AUTO-BAUD LINE SPEEDS
100 ;
101 ; DH-11 LINES WHICH ARE TO BE AUTO-BAUDED ARE FLAGGED BY HAVING BIT 15
102 ; (S0.ABR) SET IN "STSW0".
103 ;
104 ; IF THIS IS A SYSTEM DEAD-START (".DATE3" = 0) ONLY THE TERMINAL AND
105 ; UNIT-RECORD CONFIGURATION IS REPORTED, AND THE DATE AND TIME REQUESTED.
106 ;
107 ; REGISTER SUMMARY:
108 ;
109 ; R0 -- COUNT OF LINES IN THE DLS TABLE
110 ; R1 -- TEMPORARY
111 ; R2 -- TEMPORARY
112 ; R3 -- TEMPORARY
113 ; R4 -- TEMPORARY
114 ; R5 -- ADDRESS OF DLS ENTRY FOR THE CURRENT LINE
115 ;-
116
117 000000 .STSPD::
118 000000 ALUN$S #1,#"TT,#0 ; ASSIGN THE CTY JUST IN CASE
000000 005046 CLR -(SP)
000002 012746 052124 MOV #"TT,-(SP)
000006 012746 000001 MOV #1,-(SP)
000012 012746 MOV (PC)+,-(SP)
000014 007 004 .BYTE 7.,4
000016 104375 EMT 375
119 000020 013705 000000G MOV .DQDLS,R5 ; FIND TABLE ADDRESS OF THE FIRST ENTRY
120 000024 013700 000000C MOV .DQDLS+Q.DZ,R0 ; FIND THE NUMBER OF LINES TO DO
121 ;
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 3-1
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
122 ;
123 ; HERE TO REPORT LINE SPEEDS TO THE KL10
124 ;
125 000030 10$:
126 000030 105037 001055' CLRB UNIT ; NO -- CLEAR THE UNIT NUMBER
127 000034 005037 000000G CLR .ABCNT ; RESET THE AUTO-BAUD COUNTER
128 000040 20$:
129 000040 005737 000000G TST .ABFLG ; IS THIS AN AUTO-BAUD REPORT??
130 000044 003404 BLE 30$ ; NO -- GO ON
131 000046 005765 000000G TST STSW0(R5) ; YES -- THIS LINE??
132 000052 100406 BMI 40$ ; YES -- REPORT THE LINE SPEED
133 000054 000410 BR 50$ ; NO -- TRY FOR THE NEXT LINE
134 ;
135 000056 30$:
136 000056 CALL DOXOFF ; RESET THE XOFF STATUS OF THE LINE
000056 004737 000566' JSR PC,DOXOFF
137 000062 005737 000000G TST .DATE3 ; [TCO 5.1448] COLD START ??
138 000066 001403 BEQ 50$ ; [TCO 5.1448] YES, DON'T SEND LINE SPEEDS
139 000070 40$:
140 000070 CALL SNDSPD ; SEND THE LINE SPEED
000070 004737 000660' JSR PC,SNDSPD
141 000074 103541 BCS 80$ ; QUIT IF ERROR FLAG SET
142 000076 50$:
143 000076 105237 001055' INCB UNIT ; UPDATE UNIT
144 000102 062705 000010 ADD #10,R5 ; POINT TO NEXT TABLE ENTRY
145 000106 077024 SOB R0,20$ ; LOOP TILL ALL LINES ARE DONE
146 000110 005737 000000G TST .DATE3 ; [TCO 5.1448] COLD START ??
147 000114 001444 BEQ 70$ ; [TCO 5.1448] YES, SEND CONFIGURATION AND EXIT
148 000116 005737 000000G TST .ABFLG ; DONE -- IS THIS AN AUTO-BAUD REQUEST??
149 000122 003404 BLE 60$ ; NO -- GO ON
150 000124 005737 000000G TST .ABCNT ; YES -- ARE WE REALLY DONE??
151 000130 001523 BEQ 80$ ; YES -- EXIT
152 000132 000722 BR .STSPD ; NO -- START ALL OVER
153 ;
154 ;
155 ; HERE TO RETURN TIME OF DAY ON KL RELOAD
156 ;
157 000134 60$:
158 000134 012703 000000G MOV #D.CCLK,R3 ; SEND THE TIME OF DAY
159 000140 005002 CLR R2 ; NO EVENT FLAG
160 000142 012701 000000C MOV #BIT15!BC.HTD,R1 ; RETURN TIME OF DAY
161 000146 012700 000000G MOV #.CLKSW,R0 ; SEND TIME TO 10
162 000152 012710 000014 MOV #14,@R0 ; PUT IN SIZE
163 000156 CALL DOSTIN ; START FUNCTION
000156 004737 000500' JSR PC,DOSTIN
164 000162 103506 BCS 80$ ; ERROR IF CC-C IS SET
165 ;
166 ; HERE TO RETURN REASON FOR RELOAD
167 ;
168 000164 013737 000000G 001070' MOV .KLERW,KLERR
169 000172 012703 000000G MOV #D.CCPU,R3 ; DEVICE CPU ERROR
170 000176 012701 000000C MOV #BIT15!BC.HDS,R1; HERE IS DEVICE STATUS
171 000202 012700 001064' MOV #DEVERS,R0 ; BUFFER POINTER TO R1
172 000206 CALL DOSTIN ; START FUNCTION
000206 004737 000500' JSR PC,DOSTIN
173 000212 103472 BCS 80$ ; ERROR IF CC-C IS SET
174 000214 005037 000000G CLR .KLERW
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 3-2
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
175 ;
176 ; HERE TO REQUEST TRANSFER OF ERROR SNAPHOT
177 ;
178 000220 DIR$ #RQKLX ; REQUEST "KLXFR"
000220 012746 001234' MOV #RQKLX,-(SP)
000224 104375 EMT 375
179 ;
180 ; HERE TO REPORT DL-11 CONFIGURATION
181 ;
182 000226 70$:
183 000226 012700 000005 MOV #DL1CNT,R0 ; MAX NUMBER OF DL-11'S TO R0
184 000232 013701 000000G MOV .DQDL1,R1 ; TABLE POINTER TO R1
185 000236 012703 000000G MOV #D.CDL1,R3 ; DEVICE CODE TO R3
186 000242 012704 000010 MOV #10,R4 ; OFFSET TO NEXT TABLE ENTRY
187 000246 CALL CONFIG ; SEND THE CONFIGURATION REPORT
000246 004737 000434' JSR PC,CONFIG
188 000252 103452 BCS 80$ ; ERROR IF CC-C IS SET
189 ;
190 ; HERE TO REPORT DH-11 CONFIGURATION
191 ;
192 000254 012700 000010 MOV #DH1CNT,R0 ; MAX NUMBER OF DH-11'S TO R0
193 000260 013701 000000G MOV .DQDH0,R1 ; TABLE POINTER TO R1
194 000264 012703 000000G MOV #D.CDH1,R3 ; DEVICE CODE TO R3
195 000270 012704 000200 MOV #200,R4 ; OFFSET TO NEXT TABLE ENTRY
196 000274 CALL CONFIG ; SEND THE CONFIGURATION REPORT
000274 004737 000434' JSR PC,CONFIG
197 000300 103437 BCS 80$ ; ERROR IF CC-C IS SET
198 ;
199 ; HERE TO REPORT LP-20 CONFIGURATION
200 ;
201 000302 012700 000002 MOV #LP2CNT,R0 ; MAX NUMBER OF LP-20'S TO R0
202 000306 013701 000000G MOV .DQLPT,R1 ; TABLE POINTER TO R1
203 000312 012703 000000G MOV #D.CLPT,R3 ; DEVICE CODE TO R3
204 000316 012704 000010 MOV #10,R4 ; OFFSET TO NEXT TABLE ENTRY
205 000322 CALL CONFIG ; SEND THE CONFIGURATION REPORT
000322 004737 000434' JSR PC,CONFIG
206 000326 103424 BCS 80$ ; ERROR IF CC-C IS SET
207 ;
208 ; HERE TO REPORT CD-11 CONFIGURATION
209 ;
210 000330 012700 000001 MOV #CR1CNT,R0 ; MAX NUMBER OF CD-11'S TO R0
211 000334 013701 000000G MOV .DQCDR,R1 ; TABLE POINTER TO R1
212 000340 012703 000000G MOV #D.CCDR,R3 ; DEVICE CODE TO R3
213 000344 005004 CLR R4 ; ONLY ONE CDR AT MOST
214 000346 CALL CONFIG ; SEND THE CONFIGURATION REPORT
000346 004737 000434' JSR PC,CONFIG
215 000352 103412 BCS 80$ ; ERROR IF CC-C IS SET
216 ;
217 ; HERE TO REPORT DM-11/BB CONFIGURATION
218 ;
219 000354 012700 000010 MOV #DM1CNT,R0 ; [4.1.1091] MAX NUMBER OF DM-11/BB'S TO R0
220 000360 012701 177776G MOV #DMTBL-2,R1 ; [4.1.1091] TABLE POINTER TO R1
221 000364 012703 000000G MOV #D.CDMB,R3 ; [4.1.1091] DEVICE CODE TO R3
222 000370 012704 000004 MOV #4,R4 ; [4.1.1091] OFFSET TO THE NEXT TABLE ENTRY
223 000374 CALL CONFIG ; [4.1.1091] SEND THE CONFIGURATION REPORT
000374 004737 000434' JSR PC,CONFIG
224 000400 80$:
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 3-3
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
225 000400 013704 000000G MOV .DATE3,R4 ; VALID DATE ??
226 000404 001006 BNE 85$ ; BRANCH IF YES
227 000406 012703 000000G MOV #D.CCLK,R3 ; DEVICE CODE TO R3
228 000412 012701 000000G MOV #BC.HTD,R1 ; FUNCTION CODE TO R1
229 000416 CALL ..STFC ; REQUSET DATE AND TIME
000416 004737 000000G JSR PC,..STFC
230 000422 85$:
231 000422 005037 000000G CLR .ABFLG ; CLEAR THE AUTO-BAUD INTERLOCK
232 000426 EXIT$S ; EXIT (BYE)
000426 012746 MOV (PC)+,-(SP)
000430 063 001 .BYTE 51.,1
000432 104375 EMT 375
233 ;
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 4
CONFIG -- REPORT CONFIGURATION INFORMATION
235 .SBTTL CONFIG -- REPORT CONFIGURATION INFORMATION
236
237 ;+
238 ; CONFIG -- REPORT CONFIGURATION INFORMATION
239 ;
240 ; THIS SUBROUTINE WILL REPORT THE PRESENCE OR ABSENCE OF A GIVEN DEVICE
241 ; CONTROLLER (UNIT) IN A SINGLE-WORD BIT MASK.
242 ;
243 ; INPUTS:
244 ;
245 ; R0 -- BASE OF DEVICE (CONTROLLER) TABLE
246 ; R1 -- MAX NUMBER OF UNITS FOR THIS CONTROLLER
247 ; R3 -- DEVICE CODE FOR THIS DEVICE
248 ; R4 -- TABLE INCREMENT BETWEEN DEVICES
249 ;
250 ; OUTPUTS:
251 ;
252 ; R1, R2 ALTERED
253 ; RETURNS CC-C SET IF ERROR IN TRANSFER
254 ;-
255
256 000434 CONFIG:
257 000434 012702 000001 MOV #1,R2 ; MARKER BIT TO R2
258 000440 005046 CLR -(SP) ; BIT MASK TO STACK
259 000442 10$:
260 000442 005761 000000G TST TTYEXP(R1) ; DOES THE DEVICE EXIST??
261 000446 001401 BEQ 20$ ; NO -- GO ON
262 000450 050216 BIS R2,(SP) ; NO -- MARK THAT IT DOES
263 000452 20$:
264 000452 006302 ASL R2 ; ADVANCE MARKER BIT
265 000454 060401 ADD R4,R1 ; POINT TO NEXT UNIT
266 000456 077007 SOB R0,10$ ; LOOP THROUGH ALL UNITS
267 000460 012700 001072' MOV #LOGBUF,R0 ; DONE -- POINT TO THE BUFFER HEAD
268 000464 012660 000004 MOV (SP)+,4(R0) ; SET THE BIT MASK
269 000470 012701 000000C MOV #BIT15!BC.HDS,R1 ; SET THE FUNCTION CODE
270 000474 012702 000001 MOV #1,R2 ; EVENT FLAG 1
271 ; BR DOSTIN ; FALL INTO "DOSTIN"
272 ;
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 5
DOSTIN -- START INDIRECT FUNCTION
274 .SBTTL DOSTIN -- START INDIRECT FUNCTION
275
276 ;+
277 ; DOSTIN -- START INDIRECT FUNCTION
278 ;
279 ; THIS SUBROUTINE WILL START AND CHECK AN INDIRECT FUNCTION TO THE KL10
280 ;
281 ; INPUTS:
282 ;
283 ; R0 -- BUFFER ADDRESS
284 ; R1 -- FUNCTION CODE
285 ; R2 -- EVENT FLAG (0 ==> DON'T WAIT)
286 ; R3 -- DEVICE CODE
287 ;
288 ; OUTPUTS:
289 ;
290 ; R1, R2 ALTERED
291 ; RETURNS CC-C SET IF THE CALL TO "..STIN" FAILS OR PRIMARY PROTOCOL
292 ; STOPS RUNNING DURING THE COMPLETION CHECK.
293 ;-
294
295 000500 DOSTIN:
296 000500 CALL ..STIN ; START THE TRANSFER
000500 004737 000000G JSR PC,..STIN
297 000504 103423 BCS 30$ ; ERROR IF CC-C IS SET
298 000506 005702 TST R2 ; ANY EVENT FLAG SPECIFIED??
299 000510 001425 BEQ 40$ ; NO -- JUST EXIT
300 000512 013701 000000G MOV .CRTSK,R1 ; YES -- ATL NODE OF CURRENT TASK
301 000516 062701 000000G ADD #A.EF,R1 ; POINT TO EVENT FLAGS
302 000522 10$:
303 000522 032737 000000G 000002G BIT #EF.PR1,.COMEF+2 ; PRIMARY STILL RUNNING??
304 000530 001411 BEQ 30$ ; NO -- COMPLAIN AND EXIT
305 000532 030211 BIT R2,(R1) ; YES -- TRANSFER DONE??
306 000534 001004 BNE 20$ ; YES -- GO ON
307 000536 WSIG$S ; NO -- WAIT A BIT
000536 012746 MOV (PC)+,-(SP)
000540 061 001 .BYTE 49.,1
000542 104375 EMT 375
308 000544 000766 BR 10$ ; AND TRY AGAIN
309 ;
310 000546 20$:
311 000546 040211 BIC R2,(R1) ; CLEAN UP
312 000550 000241 CLC ; ASSURE SUCCESS
313 000552 000404 BR 40$ ; AND EXIT
314 ;
315 000554 30$:
316 000554 DIR$ #SPMSG ; SAY PRIMARY DIED
000554 012746 001100' MOV #SPMSG,-(SP)
000560 104375 EMT 375
317 000562 000261 SEC ; SET ERROR RETURN STATUS
318 000564 40$:
319 000564 RETURN ; AND EXIT
000564 000207 RTS PC
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 6
DOXOFF -- RESET X'D OFF LINE
321 .SBTTL DOXOFF -- RESET X'D OFF LINE
322
323 ;+
324 ; DOXOFF -- RESET AN X'D OFF LINE
325 ;
326 ; THIS SUBROUTINE WILL DEQUEUE ALL OUTPUT PENDING FOR AN X'D OFF LINE
327 ; AND RESET THE XOFF AND XOFF ENABLE STATUS BIT FOR THE LINE
328 ;
329 ; INPUTS:
330 ;
331 ; R5 -- POINTS TO DEVICE TABLE ENTRY FOR THIS LINE
332 ;
333 ; OUTPUTS:
334 ;
335 ; R2 AND R3 ALTERED
336 ;-
337
338 000566 DOXOFF:
339 000566 .INH6 ; DISALLOW INTERUPTS
000566 013746 177776 MOV @#PS,-(SP)
000572 112737 000300 177776 MOVB #300,@#PS
340 000600 105765 000000G TSTB STSW1(R5) ;;; IS THIS LINE X'D OFF??
341 000604 100010 BPL 30$ ;;; NO -- JUST EXIT
342 000606 010046 MOV R0,-(SP) ;;; YES -- SAVE R0
343 000610 10$:
344 000610 011500 MOV (R5),R0 ;;; POINT TO THE BUFFER
345 000612 001404 BEQ 20$ ;;; DONE IF .EQ. 0
346 000614 011015 MOV (R0),(R5) ;;; DELINK BUFFER FROM LIST
347 000616 CALL ..DECN ;;; AND RELEASE IT
000616 004737 000000G JSR PC,..DECN
348 000622 000772 BR 10$ ;;; TRY FOR MORE
349 ;
350 000624 20$:
351 000624 012600 MOV (SP)+,R0 ;;; RESTORE R0
352 000626 30$:
353 000626 042765 000000C 000000G BIC #TT.XOF!TT.XEN,STSW1(R5) ;;; RESET STATUS
354 000634 CALL .TTSW2 ;;; [TCO 5.1269] FIND THE "STSW2" ENTRY
000634 004737 000000G JSR PC,.TTSW2
355 000640 005012 CLR (R2) ;;; [TCO 5.1269] REMOVE ANY STATUS
356 000642 016503 000000G MOV STSW0(R5),R3 ;;; [TCO 5.1269] COPY LINE SPEED TO R3
357 000646 CALL .DHSPD ;;; [TCO 5.1269] RESET THE LINE SPEED
000646 004737 000000G JSR PC,.DHSPD
358 000652 .ENB6 ;;; ALLOW INTERRUPTS
000652 012637 177776 MOV (SP)+,@#PS
359 000656 RETURN ; TO CALLER
000656 000207 RTS PC
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 7
SNDSPD -- REPORT LINE SPEED TO KL10
361 .SBTTL SNDSPD -- REPORT LINE SPEED TO KL10
362
363 ;-
364 ; SNDSPD -- REPORT LINE SPEED TO THE KL10
365 ;
366 ; THIS SUBROUTINE WILL REPORT A SINGLE LINE SPEED AND CHARACTERISTICS TO THE KL10
367 ;
368 ; INPUTS:
369 ;
370 ; R5 -- POINTS TO THE DEVICE TABLE ENTRY FOR THIS LINE
371 ;
372 ; OUTPUTS:
373 ;
374 ; R1, R2, R3 ALTERED
375 ;-
376
377 000660 SNDSPD:
378 000660 005037 001062' CLR REMOTE ; ASSUME LOCAL LINE
379 000664 005037 001056' CLR INPSPD ; RESET INPUT SPEED
380 000670 005037 001060' CLR OUTSPD ; AND OUTPUT SPEED
381 000674 032765 000000G 000000G BIT #TT.RMT,STSW1(R5) ; IS IT A REMOTE LINE??
382 000702 001403 BEQ 10$ ; NO -- GO ON
383 000704 052737 100000 001062' BIS #BIT15,REMOTE ; YES -- SAY SO
384 000712 10$:
385 000712 032765 000000G 000000G BIT #TT.ABL,STSW1(R5) ; IS IT AN AUTO-BAUD LINE??
386 000720 001403 BEQ 20$ ; NO -- GO ON
387 000722 052737 040000 001062' BIS #BIT14,REMOTE ; YES -- SAY SO
388 000730 20$:
389 000730 042765 000000G 000000G BIC #S0.ABR,STSW0(R5) ; RESET AUTO-BAUD REQUEST
390 000736 022705 000000G CMP #DHTBL,R5 ; IS THIS A DL-11??
391 000742 101027 BHI 30$ ; YES -- GO ON
392 000744 016502 000000G MOV STSW0(R5),R2 ; NO -- GET THE SPEED WORD
393 000750 042702 000000G BIC #S0.MSK,R2 ; MINUS JUNK
394 000754 010246 MOV R2,-(SP) ; SAVE IT
395 000756 006202 ASR R2 ; FIND THE INPUT SPEED
396 000760 006202 ASR R2
397 000762 006202 ASR R2
398 000764 006202 ASR R2
399 000766 006202 ASR R2 ; SO
400 000770 042702 177741 BIC #^C36,R2 ; GET RID OF JUNK
401 000774 016237 001200' 001056' MOV SPDTBL(R2),INPSPD ; SET THE INPUT SPEED
402 001002 012602 MOV (SP)+,R2 ; GET THE SPEED WORD AGAIN
403 001004 006202 ASR R2 ; COMPUTE THE OUTPUT SPEED
404 001006 000302 SWAB R2 ; SO
405 001010 042702 177741 BIC #^C36,R2 ; GET RID OF JUNK
406 001014 016237 001200' 001060' MOV SPDTBL(R2),OUTSPD ; SET THE OUTPUT SPEED
407 001022 30$:
408 001022 010046 MOV R0,-(SP) ; SAVE R0
409 001024 012703 000000G MOV #D.CDLS,R3 ; DEVICE CODE TO R3
410 001030 012702 000001 MOV #1,R2 ; EVENT FLAG 1
411 001034 012701 000000C MOV #BIT15!BC.STS,R1 ; FUNCTION CODE TO R1
412 001040 012700 001054' MOV #SIZE,R0 ; BUFFER POINTER TO R0
413 001044 CALL DOSTIN ; START THE TRANSFER
001044 004737 000500' JSR PC,DOSTIN
414 001050 012600 MOV (SP)+,R0 ; RESTORE R0
415 001052 RETURN ; TO CALLER
001052 000207 RTS PC
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 8
LOCAL DATA
417 .SBTTL LOCAL DATA
418
419 ;
420 ; BLOCK TO REPORT LINE SPEEDS
421 ;
422 001054 SIZE:
423 001054 006 .BYTE 6
424 001055 UNIT:
425 001055 000 .BYTE 0
426 001056 INPSPD:
427 001056 000000 .WORD 0
428 001060 OUTSPD:
429 001060 000000 .WORD 0
430 001062 REMOTE:
431 001062 000000 .WORD 0
432 ;
433 ; BLOCK TO REPORT RELOAD INFORMATION
434 ;
435 001064 DEVERS:
436 001064 006 000 .BYTE 6,0
437 001066 000000G .WORD DV.LOG
438 001070 KLERR:
439 001070 000000 .WORD 0
440 ;
441 ; BLOCK TO REPORT CONFIGURATION INFORMATION
442 ;
443 001072 LOGBUF:
444 001072 000006 .WORD 6
445 001074 000000C .WORD DV.LOG!DV.CFG
446 001076 000000 .WORD 0
447 ;
448 ; ERROR MESSAGES
449 ;
450 001100 SPMSG:
451 001100 QIOW$ IO.WLB,1,2,0,0,0,<SPMES,SPSZ,40>
001100 003 011 .BYTE 3,$$$ARG
001102 000000G .WORD IO.WLB
001104 000001 .WORD 1
001106 002 000 .BYTE 2,0
001110 000000 .WORD 0
001112 000000 .WORD 0
001114 001122' .WORD SPMES
001116 000056 .WORD SPSZ
001120 000040 .WORD 40
452 ;
453 001122 SPMES:
454 001122 123 105 124 .ASCII /SETSPD -- *FATAL* PRIMARY PROTOCOL NOT RUNNING/
001125 123 120 104
001130 040 055 055
001133 040 052 106
001136 101 124 101
001141 114 052 040
001144 120 122 111
001147 115 101 122
001152 131 040 120
001155 122 117 124
001160 117 103 117
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 8-1
LOCAL DATA
001163 114 040 116
001166 117 124 040
001171 122 125 116
001174 116 111 116
001177 107
455 000056 SPSZ=.-SPMES
456 .EVEN
457 ;
458 ; TABLE OF LINE SPEEDS
459 ;
460 001200 SPDTBL:
461 001200 000000 .WORD 0
462 001202 000062 .WORD 50. ; BAUD RATES
463 001204 000113 .WORD 75.
464 001206 000156 .WORD 110.
465 001210 000206 .WORD 134.
466 001212 000226 .WORD 150.
467 001214 000310 .WORD 200.
468 001216 000454 .WORD 300.
469 001220 001130 .WORD 600.
470 001222 002260 .WORD 1200.
471 001224 003410 .WORD 1800.
472 001226 004540 .WORD 2400.
473 001230 011300 .WORD 4800.
474 001232 022600 .WORD 9600.
475 ;
476 ; "KLXFR" REQUEST BLOCK
477 ;
478 001234 RQKLX:
479 001234 RQST$ LOGXFR
001234 013 007 .BYTE 11.,7
001236 046537 113402 .RAD50 /LOGXFR/
001242 000000 000000 .WORD 0,0
001246 000000 .WORD
001250 000 000 .BYTE ,
480
481 000000' .END .STSPD
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 8-2
SYMBOL TABLE
A.EF = ****** GX DIKL10= 000010 IO.WLB= ****** GX R.QSPR= 000012 .ABCNT= ****** GX
BC.HDS= ****** GX DLYCNT= 174400 KLERR 001070R R.QSTN= 000002 .ABFLG= ****** GX
BC.HTD= ****** GX DL1CNT= 000005 KLPWRF= 000010 SCD = 000040 .BRCLK= 005000
BC.STS= ****** GX DMTBL = ****** GX LOAD11= 000004 SIZE 001054R .CECLK= 004000
BIT0 = 000001 DM1CNT= 000010 LOGBUF 001072R SNDSPD 000660R .CLKSW= ****** GX
BIT1 = 000002 DON10C= 040000 LP2CNT= 000002 SPDTBL 001200R .CLRMR= 006000
BIT10 = 002000 DON10S= 100000 MPE11 = 001000 SPMES 001122R .CLRUN= 010000
BIT11 = 004000 DON11C= 000100 NULSTP= 000040 SPMSG 001100R .COMEF= ****** GX
BIT12 = 010000 DON11S= 000200 NUPE = 000002 SPSZ = 000056 .CONBT= 012000
BIT13 = 020000 DOSTIN 000500R OUTSPD 001060R STAT = 174434 .CRTSK= ****** GX
BIT14 = 040000 DOXOFF 000566R PERCLR= 001000 STATUS= 000022 .CSHRG= 164000
BIT15 = 100000 DPS4 = 040000 PHYS = 100000 STSW0 = ****** GX .DATE3= ****** GX
BIT2 = 000004 DRESET= 000100 PIDENT= 000000 STSW1 = ****** GX .DHSPD= ****** GX
BIT3 = 000010 DR.DTE= 000011 PRI7 = 000340 SWR = 177570 .DQCDR= ****** GX
BIT4 = 000020 DSEND = 000004 PROPNT= 000021 SWSLLT= 100000 .DQDH0= ****** GX
BIT5 = 000040 DS04 = 004000 PRTOFF= 004000 S0.ABR= ****** GX .DQDLS= ****** GX
BIT6 = 000100 DS05 = 002000 PR0 = 000000 S0.MSK= ****** GX .DQDL1= ****** GX
BIT7 = 000200 DS06 = 001000 PR1 = 000040 TENAD1= 174410 .DQLPT= ****** GX
BIT8 = 000400 DTECMD= 000451 PR2 = 000100 TENAD2= 174412 .DRLTC= 015000
BIT9 = 001000 DTEFLG= 000444 PR3 = 000140 TOBM = 000004 .DSACF= 066000
BPARER= 000020 DTEF11= 000450 PR4 = 000200 TOD = 000003 .DSIOJ= 065000
CDD = 000020 DTEMTD= 000455 PR5 = 000240 TOIP = 000002 .EIOJA= 067000
CHNPNT= 000001 DTEMTI= 000456 PR6 = 000300 TOIT = 000001 .GFNR = 102000
CNUPE = 000002 DUPE = 000020 PR7 = 000340 TO10 = 000200 .INICL= 070000
CONFIG 000434R DURE = 000004 PS = 177776 TO10AD= 174420 .IRLTC= 014000
CR1CNT= 000001 DV.CFG= ****** GX PSWW1 = 000005 TO10BC= 174414 .KLERW= ****** GX
CS.EXP= 177670 DV.LOG= ****** GX PSWW10= 000014 TO10BM= 000001 .LCRDL= 052000
CYCLS = 000002 DXWRD1= 002000 PSWW11= 000015 TO10DB= 000400 .LCRDR= 051000
DATE = 000004 D.CCDR= ****** GX PSWW12= 000016 TO10DN= 100000 .LCRM1= 057000
DCOMST= 000001 D.CCLK= ****** GX PSWW13= 000017 TO10DT= 174424 .LCRM2= 056000
DEP = 010000 D.CCPU= ****** GX PSWW2 = 000006 TO10ER= 020000 .LCRM3= 055000
DEVERS 001064R D.CDH1= ****** GX PSWW3 = 000007 TO11 = 000100 .LCRM4= 054000
DEX = 000400 D.CDLS= ****** GX PSWW4 = 000010 TO11AD= 174422 .LCRM5= 053000
DEXDON= 000004 D.CDL1= ****** GX PSWW5 = 000011 TO11BC= 174416 .LDAR = 077000
DEXWD1= 174406 D.CDMB= ****** GX PSWW6 = 000012 TO11BM= 020000 .LDBRL= 043000
DEXWD2= 174404 D.CLPT= ****** GX PSWW7 = 000013 TO11DB= 004000 .LDBRR= 042000
DEXWD3= 174402 D1011 = 000040 PULSE = 000020 TO11DN= 000200 .LDCK1= 046000
DFUNC = 000200 EBSEL = 000100 QSIZE = 000023 TO11DT= 174426 .LDCK2= 047000
DF.DMG= 000004 EBUSPC= 000020 Q.DZ = ****** GX TO11ER= 000002 .LDDIS= 045000
DF.DMN= 000007 EBUSPS= 000004 Q.IOAE= 000012 TTYEXP= ****** GX .LDRJD= 064000
DF.DOR= 000001 EDONES= 040000 Q.IOEF= 000006 TT.ABL= ****** GX .LDRJV= 063000
DF.EHG= 000010 EF.PR1= ****** GX Q.IOFN= 000002 TT.RMT= ****** GX .LDRM1= 060000
DF.EHM= 000011 EPTR = 000000 Q.IOLU= 000004 TT.XEN= ****** GX .LDRM2= 061000
DF.EMG= 000005 ERR10C= 010000 Q.IOPL= 000014 TT.XOF= ****** GX .LDRM3= 062000
DF.EMN= 000006 ERR10S= 020000 Q.IOPR= 000007 UNASG1= 000032 .LDSEL= 044000
DF.KLR= 000012 ERR11C= 000001 Q.IOSB= 000010 UNASG2= 000033 .MEMRS= 076000
DF.KLW= 000013 ERR11S= 000002 RAMIS0= 010000 UNASG3= 000034 .PCAB1= 150000
DF.KLX= 000014 FORPRO= 000020 REMOTE 001062R UNASG4= 000035 .PCAB2= 151000
DF.OFF= 000002 HIBYTE= 177400 RFMAD0= 100000 UNASG5= 000036 .PCAB3= 152000
DF.ON = 000003 IFLOP = 100000 RFMAD1= 040000 UNASG6= 000037 .PCAB4= 153000
DF.PDP= 000016 INPSPD 001056R RFMAD2= 020000 UNIT 001055R .RCRM1= 147000
DF.PEX= 000015 INTROF= 000010 RFMAD3= 010000 WEP = 000010 .RCRM2= 146000
DHTBL = ****** GX INTRON= 000040 RM = 000010 ZSTOP = 040000 .RCRM3= 145000
DH1CNT= 000010 INTSON= 000001 RQKLX 001234R $$ = 000037 .RCRM4= 144000
DIAG1 = 174430 INT10S= 000400 R.QSGC= 000015 $$$ARG= 000011 .RCSPF= 141000
DIAG2 = 174432 INT11C= 002000 R.QSPC= 000014 $$$OST= 000016 .RDJ14= 134000
DIAG3 = 174436 INT11S= 004000 R.QSPN= 000006 $$$T1 = 000000 .RDJ71= 135000
SETSPD -- SET SPEED AND RETURN MACRO M1113 14-OCT-81 12:01 PAGE 8-3
SYMBOL TABLE
.RDMAB= 133000 .SETRN= 011000 .STRCL= 001000 .WRMBX= 071000 ..STFC= ****** GX
.SECLK= 003000 .SSCLK= 002000 .STSPD 000000RG ..DECN= ****** GX ..STIN= ****** GX
.SETMR= 007000 .STPCL= 000000 .TTSW2= ****** GX
. ABS. 000000 000
001252 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 5144 WORDS ( 21 PAGES)
DYNAMIC MEMORY: 6734 WORDS ( 25 PAGES)
ELAPSED TIME: 00:00:16
[47,10]SETSPD,[47,20]SETSPD/-SP/CR=[47,30]SETSPD
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
A.EF = ****** GX 5-301
BC.HDS = ****** GX 3-170 4-269
BC.HTD = ****** GX 3-160 3-228
BC.STS = ****** GX 7-411
BIT0 = 000001 #2-60
BIT1 = 000002 #2-60
BIT10 = 002000 #2-60
BIT11 = 004000 #2-60
BIT12 = 010000 #2-60
BIT13 = 020000 #2-60
BIT14 = 040000 #2-60 7-387
BIT15 = 100000 #2-60 3-160 3-170 4-269 7-383 7-411
BIT2 = 000004 #2-60
BIT3 = 000010 #2-60
BIT4 = 000020 #2-60
BIT5 = 000040 #2-60
BIT6 = 000100 #2-60
BIT7 = 000200 #2-60
BIT8 = 000400 #2-60
BIT9 = 001000 #2-60
BPARER = 000020 #2-60
CDD = 000020 #2-60
CHNPNT = 000001 #2-60
CNUPE = 000002 #2-60
CONFIG 000434 R 3-187 3-187 3-196 3-196 3-205 3-205 3-214 3-214 3-223
3-223 #4-256
CR1CNT = 000001 #2-69 3-210
CS.EXP = 177670 #2-60
CYCLS = 000002 #2-60
DATE = 000004 #2-60
DCOMST = 000001 #2-60
DEP = 010000 #2-60
DEVERS 001064 R 3-171 #8-435
DEX = 000400 #2-60
DEXDON = 000004 #2-60
DEXWD1 = 174406 #2-60
DEXWD2 = 174404 #2-60
DEXWD3 = 174402 #2-60
DFUNC = 000200 #2-60
DF.DMG = 000004 #2-60
DF.DMN = 000007 #2-60
DF.DOR = 000001 #2-60
DF.EHG = 000010 #2-60
DF.EHM = 000011 #2-60
DF.EMG = 000005 #2-60
DF.EMN = 000006 #2-60
DF.KLR = 000012 #2-60
DF.KLW = 000013 #2-60
DF.KLX = 000014 #2-60
DF.OFF = 000002 #2-60
DF.ON = 000003 #2-60
DF.PDP = 000016 #2-60
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DF.PEX = 000015 #2-60
DHTBL = ****** GX 7-390
DH1CNT = 000010 #2-66 3-192
DIAG1 = 174430 #2-60
DIAG2 = 174432 #2-60
DIAG3 = 174436 #2-60
DIKL10 = 000010 #2-60
DLYCNT = 174400 #2-60
DL1CNT = 000005 #2-65 3-183
DMTBL = ****** GX 3-220
DM1CNT = 000010 #2-67 3-219
DON10C = 040000 #2-60
DON10S = 100000 #2-60
DON11C = 000100 #2-60
DON11S = 000200 #2-60
DOSTIN 000500 R 3-163 3-163 3-172 3-172 #5-295 7-413 7-413
DOXOFF 000566 R 3-136 3-136 #6-338
DPS4 = 040000 #2-60
DRESET = 000100 #2-60
DR.DTE = 000011 #2-60
DSEND = 000004 #2-60
DS04 = 004000 #2-60
DS05 = 002000 #2-60
DS06 = 001000 #2-60
DTECMD = 000451 #2-60
DTEFLG = 000444 #2-60
DTEF11 = 000450 #2-60
DTEMTD = 000455 #2-60
DTEMTI = 000456 #2-60
DUPE = 000020 #2-60
DURE = 000004 #2-60
DV.CFG = ****** GX 8-445
DV.LOG = ****** GX 8-437 8-445
DXWRD1 = 002000 #2-60
D.CCDR = ****** GX 3-212
D.CCLK = ****** GX 3-158 3-227
D.CCPU = ****** GX 3-169
D.CDH1 = ****** GX 3-194
D.CDLS = ****** GX 7-409
D.CDL1 = ****** GX 3-185
D.CDMB = ****** GX 3-221
D.CLPT = ****** GX 3-203
D1011 = 000040 #2-60
EBSEL = 000100 #2-60
EBUSPC = 000020 #2-60
EBUSPS = 000004 #2-60
EDONES = 040000 #2-60
EF.PR1 = ****** GX 5-303
EPTR = 000000 #2-60
ERR10C = 010000 #2-60
ERR10S = 020000 #2-60
ERR11C = 000001 #2-60
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ERR11S = 000002 #2-60
FORPRO = 000020 #2-60
HIBYTE = 177400 #2-60
IFLOP = 100000 #2-60
INPSPD 001056 R *7-379 *7-401 #8-426
INTROF = 000010 #2-60
INTRON = 000040 #2-60
INTSON = 000001 #2-60
INT10S = 000400 #2-60
INT11C = 002000 #2-60
INT11S = 004000 #2-60
IO.WLB = ****** GX 8-451
KLERR 001070 R *3-168 #8-438
KLPWRF = 000010 #2-60
LOAD11 = 000004 #2-60
LOGBUF 001072 R 4-267 #8-443
LP2CNT = 000002 #2-68 3-201
MPE11 = 001000 #2-60
NULSTP = 000040 #2-60
NUPE = 000002 #2-60
OUTSPD 001060 R *7-380 *7-406 #8-428
PERCLR = 001000 #2-60
PHYS = 100000 #2-60
PIDENT = 000000 #2-60
PRI7 = 000340 #2-60
PROPNT = 000021 #2-60
PRTOFF = 004000 #2-60
PR0 = 000000 #2-60
PR1 = 000040 #2-60
PR2 = 000100 #2-60
PR3 = 000140 #2-60
PR4 = 000200 #2-60
PR5 = 000240 #2-60
PR6 = 000300 #2-60
PR7 = 000340 #2-60
PS = 177776 #2-60 6-339 *6-339 *6-358
PSWW1 = 000005 #2-60
PSWW10 = 000014 #2-60
PSWW11 = 000015 #2-60
PSWW12 = 000016 #2-60
PSWW13 = 000017 #2-60
PSWW2 = 000006 #2-60
PSWW3 = 000007 #2-60
PSWW4 = 000010 #2-60
PSWW5 = 000011 #2-60
PSWW6 = 000012 #2-60
PSWW7 = 000013 #2-60
PULSE = 000020 #2-60
QSIZE = 000023 #2-60
Q.DZ = ****** GX 3-120
Q.IOAE = 000012 #8-451
Q.IOEF = 000006 #8-451
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
Q.IOFN = 000002 #8-451
Q.IOLU = 000004 #8-451
Q.IOPL = 000014 #8-451
Q.IOPR = 000007 #8-451
Q.IOSB = 000010 #8-451
RAMIS0 = 010000 #2-60
REMOTE 001062 R *7-378 *7-383 *7-387 #8-430
RFMAD0 = 100000 #2-60
RFMAD1 = 040000 #2-60
RFMAD2 = 020000 #2-60
RFMAD3 = 010000 #2-60
RM = 000010 #2-60
RQKLX 001234 R 3-178 #8-478
R.QSGC = 000015 #8-479
R.QSPC = 000014 #8-479
R.QSPN = 000006 #8-479
R.QSPR = 000012 #8-479
R.QSTN = 000002 #8-479
SCD = 000040 #2-60
SIZE 001054 R 7-412 #8-422
SNDSPD 000660 R 3-140 3-140 #7-377
SPDTBL 001200 R 7-401 7-406 #8-460
SPMES 001122 R 8-451 #8-453 8-455
SPMSG 001100 R 5-316 #8-450
SPSZ = 000056 8-451 #8-455
STAT = 174434 #2-60
STATUS = 000022 #2-60
STSW0 = ****** GX 3-131 6-356 *7-389 7-392
STSW1 = ****** GX 6-340 *6-353 7-381 7-385
SWR = 177570 #2-60
SWSLLT = 100000 #2-60
S0.ABR = ****** GX 7-389
S0.MSK = ****** GX 7-393
TENAD1 = 174410 #2-60
TENAD2 = 174412 #2-60
TOBM = 000004 #2-60
TOD = 000003 #2-60
TOIP = 000002 #2-60
TOIT = 000001 #2-60
TO10 = 000200 #2-60
TO10AD = 174420 #2-60
TO10BC = 174414 #2-60
TO10BM = 000001 #2-60
TO10DB = 000400 #2-60
TO10DN = 100000 #2-60
TO10DT = 174424 #2-60
TO10ER = 020000 #2-60
TO11 = 000100 #2-60
TO11AD = 174422 #2-60
TO11BC = 174416 #2-60
TO11BM = 020000 #2-60
TO11DB = 004000 #2-60
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TO11DN = 000200 #2-60
TO11DT = 174426 #2-60
TO11ER = 000002 #2-60
TTYEXP = ****** GX 4-260
TT.ABL = ****** GX 7-385
TT.RMT = ****** GX 7-381
TT.XEN = ****** GX 6-353
TT.XOF = ****** GX 6-353
UNASG1 = 000032 #2-60
UNASG2 = 000033 #2-60
UNASG3 = 000034 #2-60
UNASG4 = 000035 #2-60
UNASG5 = 000036 #2-60
UNASG6 = 000037 #2-60
UNIT 001055 R *3-126 *3-143 #8-424
WEP = 000010 #2-60
ZSTOP = 040000 #2-60
$$ = 000037 #3-136 3-136 #3-140 3-140 #3-163 3-163 #3-172 3-172 #3-187
3-187 #3-196 3-196 #3-205 3-205 #3-214 3-214 #3-223 3-223
#3-229 3-229 #5-296 5-296 #6-347 6-347 #6-354 6-354 #6-357
6-357 #7-413 7-413
$$$ARG = 000011 #3-118 3-118 #3-118 3-118 #3-118 3-118 #3-118 3-118 3-118
3-118 3-118 3-118 3-118 3-118 3-118 3-118 3-118 #8-451
8-451 #8-451 8-451 #8-451 8-451 #8-451 8-451
$$$GLB = ****** 8-451 8-451 8-451 8-451 8-451 8-451 8-451 8-451 8-479
8-479 8-479 8-479 8-479 8-479
$$$OST = 000016 #8-451 8-451 8-451 #8-451 8-451 8-451 #8-451 8-451 8-451
#8-451 8-451 8-451 #8-451 8-451 8-451 #8-451 8-451 8-451
#8-451 8-451 #8-479 8-479 8-479 #8-479 8-479 8-479 #8-479
8-479 8-479 #8-479 8-479 8-479 #8-479 8-479 8-479 #8-479
$$$T1 = 000000 #8-479 8-479 8-479 8-479 #8-479 8-479
.ABCNT = ****** GX *3-127 3-150
.ABFLG = ****** GX 3-129 3-148 *3-231
.BRCLK = 005000 #2-60
.CECLK = 004000 #2-60
.CLKSW = ****** GX 3-161
.CLRMR = 006000 #2-60
.CLRUN = 010000 #2-60
.COMEF = ****** GX 5-303
.CONBT = 012000 #2-60
.CRTSK = ****** GX 5-300
.CSHRG = 164000 #2-60
.DATE3 = ****** GX 3-137 3-146 3-225
.DHSPD = ****** GX 6-357 6-357
.DQCDR = ****** GX 3-211
.DQDH0 = ****** GX 3-193
.DQDLS = ****** GX 3-119 3-120
.DQDL1 = ****** GX 3-184
.DQLPT = ****** GX 3-202
.DRLTC = 015000 #2-60
.DSACF = 066000 #2-60
.DSIOJ = 065000 #2-60
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
.EIOJA = 067000 #2-60
.GFNR = 102000 #2-60
.INICL = 070000 #2-60
.IRLTC = 014000 #2-60
.KLERW = ****** GX 3-168 *3-174
.LCRDL = 052000 #2-60
.LCRDR = 051000 #2-60
.LCRM1 = 057000 #2-60
.LCRM2 = 056000 #2-60
.LCRM3 = 055000 #2-60
.LCRM4 = 054000 #2-60
.LCRM5 = 053000 #2-60
.LDAR = 077000 #2-60
.LDBRL = 043000 #2-60
.LDBRR = 042000 #2-60
.LDCK1 = 046000 #2-60
.LDCK2 = 047000 #2-60
.LDDIS = 045000 #2-60
.LDRJD = 064000 #2-60
.LDRJV = 063000 #2-60
.LDRM1 = 060000 #2-60
.LDRM2 = 061000 #2-60
.LDRM3 = 062000 #2-60
.LDSEL = 044000 #2-60
.MEMRS = 076000 #2-60
.PCAB1 = 150000 #2-60
.PCAB2 = 151000 #2-60
.PCAB3 = 152000 #2-60
.PCAB4 = 153000 #2-60
.RCRM1 = 147000 #2-60
.RCRM2 = 146000 #2-60
.RCRM3 = 145000 #2-60
.RCRM4 = 144000 #2-60
.RCSPF = 141000 #2-60
.RDJ14 = 134000 #2-60
.RDJ71 = 135000 #2-60
.RDMAB = 133000 #2-60
.SECLK = 003000 #2-60
.SETMR = 007000 #2-60
.SETRN = 011000 #2-60
.SSCLK = 002000 #2-60
.STPCL = 000000 #2-60
.STRCL = 001000 #2-60
.STSPD 000000 RG #3-117 3-152 8-481
.TTSW2 = ****** GX 6-354 6-354
.WRMBX = 071000 #2-60
..DECN = ****** GX 6-347 6-347
..STFC = ****** GX 3-229 3-229
..STIN = ****** GX 5-296 5-296
SETSPD CREATED BY MACRO ON 14-OCT-81 AT 12:01 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ALUN$S #2-55 3-118
CALL #2-55 #3-136 #3-140 #3-163 #3-172 #3-187 #3-196 #3-205 #3-214 #3-223
#3-229 #5-296 #6-347 #6-354 #6-357 #7-413
CLEF$S #2-55
DIR$ #2-56 #3-118 #3-118 #3-178 #3-232 #3-232 #5-307 #5-307 #5-316
ERR$ #3-118 #3-178 #3-232 #5-307 #5-316
EXIT$S #2-55 3-232
MOV$ #3-118 #3-118 3-118 3-118 3-118
NBL$ #3-118 #3-118
OFF$ #8-451 8-451 8-451 8-451 8-451 8-451 8-451 8-451 8-451 #8-479
8-479 8-479 8-479 8-479 8-479 8-479
QDPB$ #8-451 8-451
QIOW$ #2-56 #8-451
RETURN #2-55 5-319 6-359 7-415
RQST$ #2-56 8-479
RVP$ #3-118 #3-118
R50$ #8-479 8-479 8-479
WSIG$S #2-55 5-307
$DEF #2-56 #2-60
.ENB6 #2-56 #6-358
.INH6 #2-56 #6-339