Trailing-Edge
-
PDP-10 Archives
-
BB-H311B-RM
-
rsx20f-swskit/listings/setspd.lis
There is 1 other file named setspd.lis in the archive. Click here to see a list.
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26
TABLE OF CONTENTS
2- 50 MACRO DEFINITIONS
3- 60 .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 1
1 .TITLE SET SPEED AND RETURN TIME OF DAY
2 .IDENT "V010030"
3 ;
4 ; COPYRIGHT (C) 1975, 1978 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 AND RETURN TIME OF DAY
22 ;
23 ; VERSION: V010-03
24 ;
25 ; AUTHOR: R. MCLEAN
26 ;
27 ; DATE: 19 NOV 75
28 ;
29 ;
30 ; THIS MODULE CONTAINS:
31 ;
32 ; 1 -- THE CODE REQUIRED TO SET THE TIME IN THE KL AND
33 ; SET THE SPEED TABLE FOR THE KL AFTER RESTART
34 ;
35 ; 2 -- CODE REQUIRED TO REPORT AUTO-BAUD LINE SPEEDS TO THE KL
36 ;
37 ; MODIFICATIONS:
38 ;
39 ; NO. DATE PROGRAMMER PURPOSE
40 ; --- ---- ---------- -------
41 ; 001 14-MAR-77 R. BELANGER CHANGE TO REFERENCE
42 ; DLS INSTEAD OF DH TABLE
43 ; 002 15-JUL-77 R. BELANGER ADD AUTO-BAUD SUPPORT
44 ; TCO 4.2109 06-DEC-78 K. LEFEBVRE CLEAR XOFF AND DEQUEUE
45 ; PENDING OUTPUT ON RELOAD
46 ; TCO 4.2205 08-MAR-79 R. BELANGER ADD NEW FRAMING ERROR
47 ; SUPPORT
48 ; TCO 4.2284 14-JUN-79 R. BELANGER ADD NEW STSW0 BIT
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 2
MACRO DEFINITIONS
50 .SBTTL MACRO DEFINITIONS
51 ;
52 ; MACROS
53 ;
54 .MCALL CALL,RETURN,WSIG$S,CLEF$S,EXIT$S
55 .MCALL QIOW$,DIR$,RQST$,.ENB6,.INH6,$DEF
56 .LIST MEB
57
58 000000 $DEF
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 3
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
60 .SBTTL .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
61
62 ;+
63 ; .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
64 ;
65 ; THIS ROUTINE IS LOADED AND CALLED AS A TASK WHEN:
66 ;
67 ; 1. THE FRONT-END RELOADS THE KL
68 ; 2. AN AUTO-BAUD LINE HAS CONNECTED
69 ;
70 ; IF THE KL HAS BEEN RELOADED, ALL LINE SPEEDS ARE REPORTED. IF A LINE
71 ; HAS BEEN AUTO-BAUDED, THE SPEED FOR ONLY THAT LINE IS REPORTED.
72 ; FURTHER, ALL PENDING OUTPUT FOR ALL LINES IS DEQUEUED AND ALL LINES
73 ; ARE REMOVED FROM THE XOFF STATE AND SET TO LOCAL XOFF DISABLED.
74 ;
75 ; THE DECISION TO REPORT ALL LINE SPEEDS OR ONLY AUTO-BAUD LINE SPEEDS
76 ; IS DETERMINED BY THE STATE OF ".ABFLG"
77 ;
78 ; ".ABFLG" .LE. 0 -- REPORT ALL LINE SPEEDS
79 ; ".ABFLG" .GT. 0 -- REPORT ONLY AUTO-BAUD LINE SPEEDS
80 ;
81 ; DH-11 LINES WHICH ARE TO BE AUTO-BAUDED ARE FLAGGED BY HAVING BIT
82 ; 15 SET IN "STSW0".
83 ;
84 ; REGISTER SUMMARY:
85 ;
86 ; R0 -- COUNT OF LINES IN THE DLS TABLE
87 ; R1 -- TEMPORARY
88 ; R2 -- TEMPORARY
89 ; R3 -- TEMPORARY
90 ; R4 -- COUNT OF LINES TO BE AUTO-BAUDED
91 ; R5 -- ADDRESS OF DLS ENTRY FOR THE CURRENT LINE
92 ;-
93
94 000000 .STSPD::
95 000000 016705 000000G MOV .DQDLS,R5 ; FIND TABLE ADDRESS OF THE FIRST ENTRY
96 000004 016700 000016G MOV .DQDLS+16,R0 ; FIND THE NUMBER OF LINES TO DO
97 000010 001002 BNE 10$ ; THERE ARE SOME LINES
98 000012 000167 000436 JMP 80$ ; NO LINES !!
99 ;
100 000016 10$:
101 000016 105067 000561 CLRB UNIT ; CLEAR THE UNIT NUMBER
102 000022 .INH6 ; DISALLOW INTERRUPTS
000022 013746 177776 MOV @#PS,-(SP)
000026 112737 000300 177776 MOVB #300,@#PS
103 000034 016704 000000G MOV .ABCNT,R4 ;;; GET COUNT OF AUTO-BAUD LINES
104 000040 005067 000000G CLR .ABCNT ;;; RESET THE COUNTER
105 000044 .ENB6 ;;; ALLOW INTERRUPTS
000044 012637 177776 MOV (SP)+,@#PS
106 000050 15$:
107 000050 022705 000000G CMP #DHTBL,R5 ; IS THIS A DH11??
108 000054 101410 BLOS 20$ ; YES -- GO ON
109 000056 005767 000000G TST .ABFLG ; NO -- AUTO-BAUD FLAGGED??
110 000062 100164 BPL 75$ ; YES -- TRY THE NEXT LINE
111 000064 005067 000514 CLR INPSPD ; NO -- CLEAR INPUT SPEED
112 000070 005067 000512 CLR OUTSPD ; AND OUTPUT SPEED
113 000074 000407 BR 25$ ; [TCO 4.2205] AND SET IT
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 3-1
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
114 ;
115 000076 20$:
116 000076 016502 000000G MOV STSW0(R5),R2 ; FIND THE SPEED
117 000102 005767 000000G TST .ABFLG ; AUTO-BAUD FLAGGED??
118 000106 003402 BLE 25$ ; NO -- GO ON
119 000110 005702 TST R2 ; YES -- THIS LINE??
120 000112 100150 BPL 75$ ; NO -- TRY THE NEXT LINE
121 000114 25$:
122 000114 005767 000000G TST .ABFLG ; [TCO 4.2109] AUTO-BAUD FLAGGED
123 000120 003025 BGT 45$ ; [TCO 4.2109] YES -- NOT A RELOAD
124 000122 .INH6 ;;; [TCO 4.2109] INHIBIT INTERRUPTS
000122 013746 177776 MOV @#PS,-(SP)
000126 112737 000300 177776 MOVB #300,@#PS
125 000134 105765 000000G TSTB STSW1(R5) ;;; [TCO 4.2109] SEE IF XOFF SET
126 000140 100010 BPL 40$ ;;; [TCO 4.2109] NO -- CONTINUE SETSPD
127 000142 010046 MOV R0,-(SP) ;;; [TCO 4.2109] SAVE R0
128 000144 30$:
129 000144 011500 MOV (R5),R0 ;;; [TCO 4.2109] R0=ADDR OF NEXT BUFFER
130 000146 001404 BEQ 35$ ;;; [TCO 4.2109] NO MORE BUFFERS
131 000150 011015 MOV (R0),(R5) ;;; [TCO 4.2109] DELINK BUFFER
132 000152 CALL ..DECN ;;; [TCO 4.2109] DEALLOCATE BUFFER
000152 004767 000000G JSR PC,..DECN
133 000156 000772 BR 30$ ;;; [TCO 4.2109] NEXT BUFFER
134 ;
135 000160 35$:
136 000160 012600 MOV (SP)+,R0 ;;; [TCO 4.2109] RESTORE R0
137 000162 40$:
138 000162 042765 000000C 000000G BIC #TT.XOF!TT.XEN,STSW1(R5) ;;; [TCO 4.2109] CLEAR XOFF STATUS
139 000170 .ENB6 ;;; [TCO 4.2109] ENABLE INTERRUPTS
000170 012637 177776 MOV (SP)+,@#PS
140 000174 45$:
141 000174 022702 000000G CMP #DHTBL,R2 ; [TCO 4.2205] IS THIS A DL-11??
142 000200 101026 BHI 50$ ; [TCO 4.2205] YES -- GO ON
143 000202 010246 MOV R2,-(SP) ; NO -- SAVE THE SPEED
144 000204 006202 ASR R2 ; FIND THE INPUT SPEED
145 000206 006202 ASR R2
146 000210 006202 ASR R2
147 000212 006202 ASR R2
148 000214 006202 ASR R2
149 000216 042702 177741 BIC #177741,R2 ; MASK OFF JUNK
150 000222 016267 000720' 000354 MOV SPDTBL(R2),INPSPD
151 000230 012602 MOV (SP)+,R2 ; RESTORE SPEED
152 000232 006202 ASR R2 ; WORK ON OUTPUT SPEED
153 000234 000302 SWAB R2
154 000236 042702 177741 BIC #177741,R2
155 000242 016267 000720' 000336 MOV SPDTBL(R2),OUTSPD ; SET OUTPUT SPEED
156 000250 042765 100000 000000G BIC #100000,STSW0(R5) ; RESET FLAG
157 000256 50$: ; [TCO 4.2205]
158 000256 032767 000000G 000002G BIT #EF.PR1,.COMEF+2 ; ARE WE IN PRIMARY PROTOCOL??
159 000264 001446 BEQ 65$ ; NO -- COMPLAIN AND EXIT
160 000266 005067 000316 CLR REMOTE ; YES -- CLEAR REMOTE FLAG (ASSUME NOT REMOTE)
161 000272 032765 000000G 000000G BIT #TT.RMT,STSW1(R5) ; LOOK FOR REMOTE
162 000300 001412 BEQ 55$ ; NOT REMOTE
163 000302 052767 100000 000300 BIS #100000,REMOTE ; SET REMOTE FLAG
164 000310 032765 000000G 000000G BIT #TT.ABL,STSW1(R5) ; IS THIS AN AUTO-BAUD LINE??
165 000316 001403 BEQ 55$ ; NO -- GO ON
166 000320 052767 040000 000262 BIS #040000,REMOTE ; YES -- FLAG IT
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 3-2
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
167 000326 55$:
168 000326 010046 MOV R0,-(SP)
169 000330 012703 000000G MOV #D.CDLS,R3 ; SET UP FOR DATA LINE SCANNER
170 000334 012702 000001 MOV #1,R2 ; USE EVENT FLAG #1
171 000340 012701 100000G MOV #BC.STS+100000,R1 ; SET SPEED ON LINES
172 000344 012700 000602' MOV #SIZE,R0 ; SET UP THE BUFFER ADDRESS AND
173 000350 CALL ..STIN ; START INDIRECT FUNCTION
000350 004767 000000G JSR PC,..STIN
174 000354 103412 BCS 65$ ; NO GOOD...
175 000356 012600 MOV (SP)+,R0 ; RESTORE R0
176 000360 016701 000000G MOV .CRTSK,R1 ; GET ATL NODE
177 000364 60$:
178 000364 030261 000000G BIT R2,A.EF(R1) ; IS OPERATION COMPLETE??
179 000370 001012 BNE 70$ ; YES -- GO ON TO NEXT
180 000372 WSIG$S ; NO -- WAIT FOR AN EVENT
000372 012746 MOV (PC)+,-(SP)
000374 061 001 .BYTE 49.,1
000376 104375 EMT 375
181 000400 000771 BR 60$ ; LOOK FOR THE FLAG
182 ;
183 000402 65$:
184 000402 DIR$ #SPMSG ; COMPLAIN
000402 012746 000620' MOV #SPMSG,-(SP)
000406 104375 EMT 375
185 000410 005067 000000G CLR .ABCNT ; RESET AUTO-BAUD COUNT
186 000414 000465 BR 90$ ; EXIT -- CHANGE OF PROTOCOL
187 ;
188 000416 70$:
189 000416 040261 000000G BIC R2,A.EF(R1) ; TURN OFF FLAG
190 000422 005767 000000G TST .ABFLG ; AUTO-BAUD FLAGGED??
191 000426 003402 BLE 75$ ; NO -- GO ON
192 000430 005304 DEC R4 ; YES -- COUNT THIS LINE
193 000432 001410 BEQ 80$ ; AND EXIT IF DONE
194 000434 75$:
195 000434 105267 000143 INCB UNIT ; UPDATE UNIT
196 000440 062705 000010 ADD #10,R5 ; POINT TO NEXT TTY ENTRY
197 000444 005300 DEC R0 ; COUNT THIS LINE
198 000446 001402 BEQ 80$ ; DONE -- EXIT
199 000450 000167 177374 JMP 15$ ; CONTINUE
200 ;
201 000454 80$:
202 000454 005767 000000G TST .ABFLG ; AUTO-BAUD FLAGGED??
203 000460 003405 BLE 85$ ; NO -- JUST EXIT
204 000462 005767 000000G TST .ABCNT ; YES -- ARE WE REALLY DONE??
205 000466 001440 BEQ 90$ ; YES -- THEN EXIT
206 000470 000167 177304 JMP .STSPD ; NO -- START FROM THE TOP AGAIN
207 ;
208 000474 85$:
209 000474 012703 000000G MOV #D.CCLK,R3 ; SEND THE TIME OF DAY
210 000500 005002 CLR R2 ; NO EVENT FLAG THIS TIME
211 000502 012701 100000G MOV #100000+BC.HTD,R1 ; RETURN TIME OF DAY
212 000506 012700 000000G MOV #.CLKSW,R0 ; SEND TIME TO 10
213 000512 012710 000014 MOV #14,@R0 ; PUT IN SIZE
214 000516 CALL ..STIN ; START FUNCTION
000516 004767 000000G JSR PC,..STIN
215 000522 103727 BCS 65$
216 000524 016767 000000G 000064 MOV .KLERW,KLERR
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 3-3
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
217 000532 012703 000000G MOV #D.CCPU,R3 ; DEVICE CPU ERROR
218 000536 005002 CLR R2 ; DON'T WAIT FOR THIS ONE EITHER
219 000540 012701 100000G MOV #100000+BC.HDS,R1
220 000544 012700 000612' MOV #DEVERS,R0
221 000550 CALL ..STIN ; START FUNCTION
000550 004767 000000G JSR PC,..STIN
222 000554 103712 BCS 65$
223 000556 005067 000000G CLR .KLERW
224 000562 DIR$ #RQKLX ; REQUEST "KLXFR"
000562 012746 000754' MOV #RQKLX,-(SP)
000566 104375 EMT 375
225 000570 90$:
226 000570 005067 000000G CLR .ABFLG ; CLEAR THE INTERLOCK
227 000574 EXIT$S ; EXIT (BYE)
000574 012746 MOV (PC)+,-(SP)
000576 063 001 .BYTE 51.,1
000600 104375 EMT 375
228 ;
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 4
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
230 000602 SIZE:
231 000602 006 .BYTE 6
232 000603 UNIT:
233 000603 000 .BYTE 0
234 000604 INPSPD:
235 000604 000000 .WORD 0
236 000606 OUTSPD:
237 000606 000000 .WORD 0
238 000610 REMOTE:
239 000610 000000 .WORD 0
240 ;
241 000612 DEVERS:
242 000612 006 000 .BYTE 6,0
243 000614 000000G .WORD DV.LOG
244 000616 KLERR:
245 000616 000000 .WORD 0
246 ;
247 ;
248 000620 SPMSG:
249 000620 QIOW$ IO.WLB,1,2,0,0,0,<SPMES,SPSZ,40> ;
000620 003 011 .BYTE 3,$$$ARG
000622 000000G .WORD IO.WLB
000624 000001 .WORD 1
000626 002 000 .BYTE 2,0
000630 000000 .WORD 0
000632 000000 .WORD 0
000634 000642' .WORD SPMES
000636 000056 .WORD SPSZ
000640 000040 .WORD 40
250
251 ;
252 000642 SPMES:
253 000642 123 105 124 .ASCII /SETSPD -- *FATAL* PRIMARY PROTOCOL NOT RUNNING/
000645 123 120 104
000650 040 055 055
000653 040 052 106
000656 101 124 101
000661 114 052 040
000664 120 122 111
000667 115 101 122
000672 131 040 120
000675 122 117 124
000700 117 103 117
000703 114 040 116
000706 117 124 040
000711 122 125 116
000714 116 111 116
000717 107
254 000056 SPSZ=.-SPMES
255 .EVEN
256 ;
257 ;
258 000720 SPDTBL:
259 000720 000000 .WORD 0
260 000722 000062 .WORD 50. ;BAUD RATES
261 000724 000113 .WORD 75.
262 000726 000156 .WORD 110.
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 4-1
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
263 000730 000206 .WORD 134.
264 000732 000226 .WORD 150.
265 000734 000310 .WORD 200.
266 000736 000454 .WORD 300.
267 000740 001130 .WORD 600.
268 000742 002260 .WORD 1200.
269 000744 003410 .WORD 1800.
270 000746 004540 .WORD 2400.
271 000750 011300 .WORD 4800.
272 000752 022600 .WORD 9600.
273 ;
274 000754 RQKLX:
275 000754 RQST$ KLXFER
000754 013 007 .BYTE 11.,7
000756 043270 023132 .RAD50 /KLXFER/
000762 000000 000000 .WORD 0,0
000766 000000 .WORD
000770 000 000 .BYTE ,
276
277 000000' .END .STSPD
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 4-2
SYMBOL TABLE
A.EF = ****** GX DIKL10= 000010 PERCLR= 001000 STAT = 174434 .CRTSK= ****** GX
BC.HDS= ****** GX DLYCNT= 174400 PHYS = 100000 STATUS= 000022 .CSHRG= 164000
BC.HTD= ****** GX DON10C= 040000 PIDENT= 000000 STSW0 = ****** GX .DQDLS= ****** GX
BC.STS= ****** GX DON10S= 100000 PRI7 = 000340 STSW1 = ****** GX .DRLTC= 015000
BIT0 = 000001 DON11C= 000100 PROPNT= 000021 SWR = 177570 .DSACF= 066000
BIT1 = 000002 DON11S= 000200 PRTOFF= 004000 SWSLLT= 100000 .DSIOJ= 065000
BIT10 = 002000 DPS4 = 040000 PR0 = 000000 TENAD1= 174410 .EIOJA= 067000
BIT11 = 004000 DRESET= 000100 PR1 = 000040 TENAD2= 174412 .GFNR = 102000
BIT12 = 010000 DR.DTE= 000011 PR2 = 000100 TOBM = 000004 .INICL= 070000
BIT13 = 020000 DSEND = 000004 PR3 = 000140 TOD = 000003 .IRLTC= 014000
BIT14 = 040000 DS04 = 004000 PR4 = 000200 TOIP = 000002 .KLERW= ****** GX
BIT15 = 100000 DS05 = 002000 PR5 = 000240 TOIT = 000001 .LCRDL= 052000
BIT2 = 000004 DS06 = 001000 PR6 = 000300 TO10 = 000200 .LCRDR= 051000
BIT3 = 000010 DTECMD= 000451 PR7 = 000340 TO10AD= 174420 .LCRM1= 057000
BIT4 = 000020 DTEFLG= 000444 PS = 177776 TO10BC= 174414 .LCRM2= 056000
BIT5 = 000040 DTEF11= 000450 PSWW1 = 000005 TO10BM= 000001 .LCRM3= 055000
BIT6 = 000100 DTEMTD= 000455 PSWW10= 000014 TO10DB= 000400 .LCRM4= 054000
BIT7 = 000200 DTEMTI= 000456 PSWW11= 000015 TO10DN= 100000 .LCRM5= 053000
BIT8 = 000400 DUPE = 000020 PSWW12= 000016 TO10DT= 174424 .LDAR = 077000
BIT9 = 001000 DURE = 000004 PSWW13= 000017 TO10ER= 020000 .LDBRL= 043000
BPARER= 000020 DV.LOG= ****** GX PSWW2 = 000006 TO11 = 000100 .LDBRR= 042000
CDD = 000020 DXWRD1= 002000 PSWW3 = 000007 TO11AD= 174422 .LDCK1= 046000
CHNPNT= 000001 D.CCLK= ****** GX PSWW4 = 000010 TO11BC= 174416 .LDCK2= 047000
CNUPE = 000002 D.CCPU= ****** GX PSWW5 = 000011 TO11BM= 020000 .LDDIS= 045000
CS.EXP= 177670 D.CDLS= ****** GX PSWW6 = 000012 TO11DB= 004000 .LDRJD= 064000
CYCLS = 000002 D1011 = 000040 PSWW7 = 000013 TO11DN= 000200 .LDRJV= 063000
DATE = 000004 EBSEL = 000100 PULSE = 000020 TO11DT= 174426 .LDRM1= 060000
DCOMST= 000001 EBUSPC= 000020 QSIZE = 000023 TO11ER= 000002 .LDRM2= 061000
DEP = 010000 EBUSPS= 000004 Q.IOAE= 000012 TT.ABL= ****** GX .LDRM3= 062000
DEVERS 000612R EDONES= 040000 Q.IOEF= 000006 TT.RMT= ****** GX .LDSEL= 044000
DEX = 000400 EF.PR1= ****** GX Q.IOFN= 000002 TT.XEN= ****** GX .MEMRS= 076000
DEXDON= 000004 EPTR = 000000 Q.IOLU= 000004 TT.XOF= ****** GX .PCAB1= 150000
DEXWD1= 174406 ERR10C= 010000 Q.IOPL= 000014 UNASG1= 000032 .PCAB2= 151000
DEXWD2= 174404 ERR10S= 020000 Q.IOPR= 000007 UNASG2= 000033 .PCAB3= 152000
DEXWD3= 174402 ERR11C= 000001 Q.IOSB= 000010 UNASG3= 000034 .PCAB4= 153000
DFUNC = 000200 ERR11S= 000002 RAMIS0= 010000 UNASG4= 000035 .RCRM1= 147000
DF.DMG= 000004 FORPRO= 000020 REMOTE 000610R UNASG5= 000036 .RCRM2= 146000
DF.DMN= 000007 HIBYTE= 177400 RFMAD0= 100000 UNASG6= 000037 .RCRM3= 145000
DF.DOR= 000001 IFLOP = 100000 RFMAD1= 040000 UNIT 000603R .RCRM4= 144000
DF.EHG= 000010 INPSPD 000604R RFMAD2= 020000 WEP = 000010 .RCSPF= 141000
DF.EHM= 000011 INTROF= 000010 RFMAD3= 010000 ZSTOP = 040000 .RDJ14= 134000
DF.EMG= 000005 INTRON= 000040 RM = 000010 $$ = 000067 .RDJ71= 135000
DF.EMN= 000006 INTSON= 000001 RQKLX 000754R $$$ARG= 000011 .RDMAB= 133000
DF.KLR= 000012 INT10S= 000400 R.QSGC= 000015 $$$OST= 000016 .SECLK= 003000
DF.KLW= 000013 INT11C= 002000 R.QSPC= 000014 $$$T1 = 000000 .SETMR= 007000
DF.KLX= 000014 INT11S= 004000 R.QSPN= 000006 .ABCNT= ****** GX .SETRN= 011000
DF.OFF= 000002 IO.WLB= ****** GX R.QSPR= 000012 .ABFLG= ****** GX .SSCLK= 002000
DF.ON = 000003 KLERR 000616R R.QSTN= 000002 .BRCLK= 005000 .STPCL= 000000
DF.PDP= 000016 KLPWRF= 000010 SCD = 000040 .CECLK= 004000 .STRCL= 001000
DF.PEX= 000015 LOAD11= 000004 SIZE 000602R .CLKSW= ****** GX .STSPD 000000RG
DHTBL = ****** GX MPE11 = 001000 SPDTBL 000720R .CLRMR= 006000 .WRMBX= 071000
DIAG1 = 174430 NULSTP= 000040 SPMES 000642R .CLRUN= 010000 ..DECN= ****** GX
DIAG2 = 174432 NUPE = 000002 SPMSG 000620R .COMEF= ****** GX ..STIN= ****** GX
DIAG3 = 174436 OUTSPD 000606R SPSZ = 000056 .CONBT= 012000
. ABS. 000000 000
000772 001
SET SPEED AND RETURN TIME OF DA MACRO M1110 27-JUN-79 09:26 PAGE 4-3
SYMBOL TABLE
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 4520 WORDS ( 18 PAGES)
DYNAMIC MEMORY: 5836 WORDS ( 22 PAGES)
ELAPSED TIME: 00:00:40
[47,10]SETSPD,[47,20]SETSPD/-SP/CR=[47,30]SETSPD
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
A.EF = ****** GX 3-178 *3-189
BC.HDS = ****** GX 3-219
BC.HTD = ****** GX 3-211
BC.STS = ****** GX 3-171
BIT0 = 000001 #2-58
BIT1 = 000002 #2-58
BIT10 = 002000 #2-58
BIT11 = 004000 #2-58
BIT12 = 010000 #2-58
BIT13 = 020000 #2-58
BIT14 = 040000 #2-58
BIT15 = 100000 #2-58
BIT2 = 000004 #2-58
BIT3 = 000010 #2-58
BIT4 = 000020 #2-58
BIT5 = 000040 #2-58
BIT6 = 000100 #2-58
BIT7 = 000200 #2-58
BIT8 = 000400 #2-58
BIT9 = 001000 #2-58
BPARER = 000020 #2-58
CDD = 000020 #2-58
CHNPNT = 000001 #2-58
CNUPE = 000002 #2-58
CS.EXP = 177670 #2-58
CYCLS = 000002 #2-58
DATE = 000004 #2-58
DCOMST = 000001 #2-58
DEP = 010000 #2-58
DEVERS 000612 R 3-220 #4-241
DEX = 000400 #2-58
DEXDON = 000004 #2-58
DEXWD1 = 174406 #2-58
DEXWD2 = 174404 #2-58
DEXWD3 = 174402 #2-58
DFUNC = 000200 #2-58
DF.DMG = 000004 #2-58
DF.DMN = 000007 #2-58
DF.DOR = 000001 #2-58
DF.EHG = 000010 #2-58
DF.EHM = 000011 #2-58
DF.EMG = 000005 #2-58
DF.EMN = 000006 #2-58
DF.KLR = 000012 #2-58
DF.KLW = 000013 #2-58
DF.KLX = 000014 #2-58
DF.OFF = 000002 #2-58
DF.ON = 000003 #2-58
DF.PDP = 000016 #2-58
DF.PEX = 000015 #2-58
DHTBL = ****** GX 3-107 3-141
DIAG1 = 174430 #2-58
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DIAG2 = 174432 #2-58
DIAG3 = 174436 #2-58
DIKL10 = 000010 #2-58
DLYCNT = 174400 #2-58
DON10C = 040000 #2-58
DON10S = 100000 #2-58
DON11C = 000100 #2-58
DON11S = 000200 #2-58
DPS4 = 040000 #2-58
DRESET = 000100 #2-58
DR.DTE = 000011 #2-58
DSEND = 000004 #2-58
DS04 = 004000 #2-58
DS05 = 002000 #2-58
DS06 = 001000 #2-58
DTECMD = 000451 #2-58
DTEFLG = 000444 #2-58
DTEF11 = 000450 #2-58
DTEMTD = 000455 #2-58
DTEMTI = 000456 #2-58
DUPE = 000020 #2-58
DURE = 000004 #2-58
DV.LOG = ****** GX 4-243
DXWRD1 = 002000 #2-58
D.CCLK = ****** GX 3-209
D.CCPU = ****** GX 3-217
D.CDLS = ****** GX 3-169
D1011 = 000040 #2-58
EBSEL = 000100 #2-58
EBUSPC = 000020 #2-58
EBUSPS = 000004 #2-58
EDONES = 040000 #2-58
EF.PR1 = ****** GX 3-158
EPTR = 000000 #2-58
ERR10C = 010000 #2-58
ERR10S = 020000 #2-58
ERR11C = 000001 #2-58
ERR11S = 000002 #2-58
FORPRO = 000020 #2-58
HIBYTE = 177400 #2-58
IFLOP = 100000 #2-58
INPSPD 000604 R *3-111 *3-150 #4-234
INTROF = 000010 #2-58
INTRON = 000040 #2-58
INTSON = 000001 #2-58
INT10S = 000400 #2-58
INT11C = 002000 #2-58
INT11S = 004000 #2-58
IO.WLB = ****** GX 4-249
KLERR 000616 R *3-216 #4-244
KLPWRF = 000010 #2-58
LOAD11 = 000004 #2-58
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MPE11 = 001000 #2-58
NULSTP = 000040 #2-58
NUPE = 000002 #2-58
OUTSPD 000606 R *3-112 *3-155 #4-236
PERCLR = 001000 #2-58
PHYS = 100000 #2-58
PIDENT = 000000 #2-58
PRI7 = 000340 #2-58
PROPNT = 000021 #2-58
PRTOFF = 004000 #2-58
PR0 = 000000 #2-58
PR1 = 000040 #2-58
PR2 = 000100 #2-58
PR3 = 000140 #2-58
PR4 = 000200 #2-58
PR5 = 000240 #2-58
PR6 = 000300 #2-58
PR7 = 000340 #2-58
PS = 177776 #2-58 3-102 3-102 3-105 3-124 3-124 3-139
PSWW1 = 000005 #2-58
PSWW10 = 000014 #2-58
PSWW11 = 000015 #2-58
PSWW12 = 000016 #2-58
PSWW13 = 000017 #2-58
PSWW2 = 000006 #2-58
PSWW3 = 000007 #2-58
PSWW4 = 000010 #2-58
PSWW5 = 000011 #2-58
PSWW6 = 000012 #2-58
PSWW7 = 000013 #2-58
PULSE = 000020 #2-58
QSIZE = 000023 #2-58
Q.IOAE = 000012 #4-249
Q.IOEF = 000006 #4-249
Q.IOFN = 000002 #4-249
Q.IOLU = 000004 #4-249
Q.IOPL = 000014 #4-249
Q.IOPR = 000007 #4-249
Q.IOSB = 000010 #4-249
RAMIS0 = 010000 #2-58
REMOTE 000610 R *3-160 *3-163 *3-166 #4-238
RFMAD0 = 100000 #2-58
RFMAD1 = 040000 #2-58
RFMAD2 = 020000 #2-58
RFMAD3 = 010000 #2-58
RM = 000010 #2-58
RQKLX 000754 R 3-224 #4-274
R.QSGC = 000015 #4-275
R.QSPC = 000014 #4-275
R.QSPN = 000006 #4-275
R.QSPR = 000012 #4-275
R.QSTN = 000002 #4-275
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SCD = 000040 #2-58
SIZE 000602 R 3-172 #4-230
SPDTBL 000720 R 3-150 3-155 #4-258
SPMES 000642 R 4-249 #4-252 4-254
SPMSG 000620 R 3-184 #4-248
SPSZ = 000056 4-249 #4-254
STAT = 174434 #2-58
STATUS = 000022 #2-58
STSW0 = ****** GX 3-116 *3-156
STSW1 = ****** GX 3-125 *3-138 3-161 3-164
SWR = 177570 #2-58
SWSLLT = 100000 #2-58
TENAD1 = 174410 #2-58
TENAD2 = 174412 #2-58
TOBM = 000004 #2-58
TOD = 000003 #2-58
TOIP = 000002 #2-58
TOIT = 000001 #2-58
TO10 = 000200 #2-58
TO10AD = 174420 #2-58
TO10BC = 174414 #2-58
TO10BM = 000001 #2-58
TO10DB = 000400 #2-58
TO10DN = 100000 #2-58
TO10DT = 174424 #2-58
TO10ER = 020000 #2-58
TO11 = 000100 #2-58
TO11AD = 174422 #2-58
TO11BC = 174416 #2-58
TO11BM = 020000 #2-58
TO11DB = 004000 #2-58
TO11DN = 000200 #2-58
TO11DT = 174426 #2-58
TO11ER = 000002 #2-58
TT.ABL = ****** GX 3-164
TT.RMT = ****** GX 3-161
TT.XEN = ****** GX 3-138
TT.XOF = ****** GX 3-138
UNASG1 = 000032 #2-58
UNASG2 = 000033 #2-58
UNASG3 = 000034 #2-58
UNASG4 = 000035 #2-58
UNASG5 = 000036 #2-58
UNASG6 = 000037 #2-58
UNIT 000603 R *3-101 *3-195 #4-232
WEP = 000010 #2-58
ZSTOP = 040000 #2-58
$$ = 000067 #3-132 3-132 #3-173 3-173 #3-214 3-214 #3-221 3-221
$$$ARG = 000011 #4-249 4-249 #4-249 4-249 #4-249 4-249 #4-249 4-249
$$$GLB = ****** 4-249 4-249 4-249 4-249 4-249 4-249 4-249 4-249 4-275
4-275 4-275 4-275 4-275 4-275
$$$OST = 000016 #4-249 4-249 4-249 #4-249 4-249 4-249 #4-249 4-249 4-249
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#4-249 4-249 4-249 #4-249 4-249 4-249 #4-249 4-249 4-249
#4-249 4-249 #4-275 4-275 4-275 #4-275 4-275 4-275 #4-275
4-275 4-275 #4-275 4-275 4-275 #4-275 4-275 4-275 #4-275
$$$T1 = 000000 #4-275 4-275 4-275 4-275 #4-275 4-275
.ABCNT = ****** GX 3-103 *3-104 *3-185 3-204
.ABFLG = ****** GX 3-109 3-117 3-122 3-190 3-202 *3-226
.BRCLK = 005000 #2-58
.CECLK = 004000 #2-58
.CLKSW = ****** GX 3-212
.CLRMR = 006000 #2-58
.CLRUN = 010000 #2-58
.COMEF = ****** GX 3-158
.CONBT = 012000 #2-58
.CRTSK = ****** GX 3-176
.CSHRG = 164000 #2-58
.DQDLS = ****** GX 3-95 3-96
.DRLTC = 015000 #2-58
.DSACF = 066000 #2-58
.DSIOJ = 065000 #2-58
.EIOJA = 067000 #2-58
.GFNR = 102000 #2-58
.INICL = 070000 #2-58
.IRLTC = 014000 #2-58
.KLERW = ****** GX 3-216 *3-223
.LCRDL = 052000 #2-58
.LCRDR = 051000 #2-58
.LCRM1 = 057000 #2-58
.LCRM2 = 056000 #2-58
.LCRM3 = 055000 #2-58
.LCRM4 = 054000 #2-58
.LCRM5 = 053000 #2-58
.LDAR = 077000 #2-58
.LDBRL = 043000 #2-58
.LDBRR = 042000 #2-58
.LDCK1 = 046000 #2-58
.LDCK2 = 047000 #2-58
.LDDIS = 045000 #2-58
.LDRJD = 064000 #2-58
.LDRJV = 063000 #2-58
.LDRM1 = 060000 #2-58
.LDRM2 = 061000 #2-58
.LDRM3 = 062000 #2-58
.LDSEL = 044000 #2-58
.MEMRS = 076000 #2-58
.PCAB1 = 150000 #2-58
.PCAB2 = 151000 #2-58
.PCAB3 = 152000 #2-58
.PCAB4 = 153000 #2-58
.RCRM1 = 147000 #2-58
.RCRM2 = 146000 #2-58
.RCRM3 = 145000 #2-58
.RCRM4 = 144000 #2-58
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
.RCSPF = 141000 #2-58
.RDJ14 = 134000 #2-58
.RDJ71 = 135000 #2-58
.RDMAB = 133000 #2-58
.SECLK = 003000 #2-58
.SETMR = 007000 #2-58
.SETRN = 011000 #2-58
.SSCLK = 002000 #2-58
.STPCL = 000000 #2-58
.STRCL = 001000 #2-58
.STSPD 000000 RG #3-94 3-206 4-277
.WRMBX = 071000 #2-58
..DECN = ****** GX 3-132 3-132
..STIN = ****** GX 3-173 3-173 3-214 3-214 3-221 3-221
SETSPD CREATED BY MACRO ON 27-JUN-79 AT 09:26 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #2-54 3-132 3-173 3-214 3-221
CLEF$S #2-54
DIR$ #2-55 #3-180 3-180 3-184 3-224 #3-227 3-227
ERR$ #3-180 #3-184 #3-224 #3-227
EXIT$S #2-54 #3-227
OFF$ #4-249 #4-249 #4-249 #4-249 #4-249 #4-249 #4-249 #4-249 #4-249 #4-275
#4-275 #4-275 #4-275 #4-275 #4-275 #4-275
QDPB$ #4-249 #4-249
QIOW$ #2-55 4-249
RETURN #2-54
RQST$ #2-55 #4-275
R50$ #4-275 #4-275 #4-275
WSIG$S #2-54 #3-180
$DEF #2-55 2-58
.ENB6 #2-55 3-105 3-139
.INH6 #2-55 #3-102 #3-124