Trailing-Edge
-
PDP-10 Archives
-
AP-4178E-RM
-
swskit-sources/dtdrv.lis
There are no other files named dtdrv.lis in the archive.
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 1
1 .TITLE DTDRV
2 .IDENT /007000/
3 ;
4 ;
5 ;
6 ; COPYRIGHT (C) 1975, 1978 BY
7 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
11 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
12 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
13 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
14 ;
15 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
16 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
21 ;
22 ; VERSION 07-00
23 ;
24 ; R. MCLEAN 5-JUN-75
25 ;
26 ; TC11 DECTAPE CONTROLLER DRIVER
27 ;
28 ; MODIFICATIONS:
29 ;
30 ; NO. DATE PROGRAMMER PURPOSE
31 ; --- ---- ---------- -------
32 ; 001 15-MAR-77 R. BELANGER CONDITIONALLY
33 ; ASSEMBLE DECTAPE DRIVER
34 ; 002 04-APR-77 A. PECKHAM FIX BUG IN I/O DONE SERVICE
35 ; 22-0CT-77 R. BELANGER REMOVE CONDITIONALS
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2
37 ; MACRO LIBRARY CALLS
38 ;
39 ;
40 .MCALL QIOSY$,$DEF
41 .MCALL .STKM,WTSE$,QIOW$,MRKT$,DIR$,CALL,RETURN
42 000000 $DEF
43 000000 QIOSY$
44 ;
45 ;
46 000020 A.EF=20 ;TEMP DEFINITION OF A.EF BECAUSE MACY WON'T ACCEPT COMPLEX GLOBLS
47 ;
48 ; EQUATED SYMBOLS
49 ;
50 ;
51 000005 RETRY=5. ;ERROR RETRY COUNT
52 ;
53 177340 DTEXP=177340 ;EXTERNAL PAGE ADDRESS OF DTA'S
54 ;
55 ; DIRECTIVES
56 ;
57 ;
58 000000 DTHD:: .STKM 0,0,0,0,0,0,0,DTINI,174000,DTSTK
59 ;
60 000300 WFDTQ: WTSE$ E.NIR
61 ;
62 000304 WFDTD: WTSE$ E.IOD
63 ;
64 000310 DTNRM: QIOW$ IO.WLB,1,1,0,0,0,<NTRDMS,NTRDSZ>
65 ;
66 000330 MRKDT: MRKT$ 2,74*10,0,0
67 ;
68 000342 WFMKT: WTSE$ 2
69 ;
70 000346 012 015 104 NTRDMS: .ASCII <12><15>"DT NOT RDY"<15><12>
000351 124 040 116
000354 117 124 040
000357 122 104 131
000362 015 012
71 000016 NTRDSZ=.-NTRDMS
72 .EVEN
73 ;
74 ;
75 ;
76 ;
77 ; LOCAL DATA
78 ;
79 ;
80 000364 RTTBL: .BLKW 1 ;ERROR RETRY COUNT AND DRIVE RESET FLAG
81 000366 000000 DTRNA: .WORD 0 ;REQUEST NODE ADDRESS
82 000370 000000 000000 DTBUF: .WORD 0,0 ;DECTAPE BUFFER
83 000374 000000 DTCNT: .WORD 0
84 000376 000000 DTCW2: .WORD 0
85 000400 000000 DTCW3: .WORD 0
86 ;
87 ;
88 ;
89 ;
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2-1
90 ;
91 ; DRIVER DISPATCH TABLE
92 ;
93 ;
94 ;+
95 ; **-DTINI-TC11 DECTAPE CONTROLLER INITIATOR
96 ;
97 ; THIS ROUTINE IS ENTERED FROM THE QUEUE I/O DIRECTIVE WHEN AN I/O REQUEST
98 ; IS QUEUED AND AT THE END OF A PREVIOUS I/O OPERATION TO PROPAGATE THE EXECU-
99 ; TION OF THE DRIVER. IF THE SPECIFIED CONTROLLER IS NOT BUSY, THEN AN ATTEMPT
100 ; IS MADE TO DEQUEUE THE NEXT I/O REQUEST. ELSE A RETURN TO THE CALLER IS
101 ; EXECUTED. IF THE DEQUEUE ATTEMPT IS SUCCESSFUL, THEN THE NEXT I/O OPER-
102 ; ATION IS INITIATED. A RETURN TO THE CALLER IS THEN EXECUTED.
103 ;
104 ; INPUTS:
105 ;
106 ;
107 ; OUTPUTS:
108 ;
109 ; IF THE SPECIFIED CONTROLLER IS NOT BUSY AND AN I/O REQUEST IS WAIT-
110 ; ING TO BE PROCESSED, THEN THE REQUEST IS DEQUEUED AND THE I/O OPER-
111 ; ATION IS INITIATED.
112 ;-
113 ;
114 .ENABL LSB
115 ;
116 000402 DTINI: DIR$ #WFDTQ ;WAIT FOR SOMETHING TO BE QUEUE'S
117 000410 012700 052104 MOV #"DT,R0 ;FIND THE UNIT NUMBER OF THE DT
118 000414 CALL ..DQRN ;;DEQUEUE REQUEST
119 000420 103770 BCS DTINI
120 000422 010367 177746 MOV R3,DTCNT ;SAVE COUNT
121 000426 010467 177736 MOV R4,DTBUF
122 000432 010567 177734 MOV R5,DTBUF+2
123
124 000436 012767 000005 177720 MOV #RETRY,RTTBL ;SET RETRY COUNT
125 000444 012700 000371' MOV #DTBUF+1,R0
126 000450 110210 MOVB R2,@R0 ;INSERT DRIVE NUMBER
127 000452 152740 000115 BISB #115,-(R0) ;ASSUME WRITE LOGICAL FUNCTION
128 000456 122761 000001 000001G CMPB #IO.WLB/256.,R.FC+1(R1) ;WRITE LOGICAL FUNCTION?
129 000464 001406 BEQ 10$ ;IF EQ YES
130 000466 042710 000010 BIC #10,@R0 ;CONVERT TO READ LOGICAL FUNCTION
131 000472 122761 000002 000001G CMPB #IO.RLB/256.,R.FC+1(R1) ;READ LOGICAL?
132 000500 001074 BNE 767$ ;NO -- BAD FUNCTION
133 000502 032761 000100 000000G 10$: BIT #IO.WLV&377,R.FC(R1) ;REVERSE DIRECTION?
134 000510 001402 BEQ 20$ ;IF EQ NO
135 000512 052710 004000 BIS #4000,@R0 ;SET REVERSE DIRECTION BIT
136 000516 012703 000354 20$: MOV #IE.BLK&377,R3 ;ASSUME ILLEGAL BLOCK NUMBER
137 000522 016102 000010G MOV R.PB+10(R1),R2 ;GET LOW PART OF LOGICAL BLOCK NUMBER
138 000526 020227 001102 CMP R2,#1102 ;LEGAL BLOCK NUMBER?
139 000532 103052 BHIS 66$ ; +++002 IF HIS NO
140 000534 105761 000006G TSTB R.PB+6(R1) ;HIGH PART OF LOGICAL BLOCK NUMBER ZERO?
141 000540 001045 BNE 50$ ;IF NE NO
142 000542 010267 177630 MOV R2,DTCW2 ;SET LOGICAL BLOCK NUMBER
143
144 ;
145 ;
146
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2-2
147 000546 005037 177340 DTOUT: CLR @#DTEXP ;;;CLEAR INTERRUPT ENABLE
148 ;
149 ;
150 ; INITIATE I/O OPERATION
151 ;
152 ;
153 000552 012700 177346 30$: MOV #DTEXP+6,R0 ;GET ADDRESS OF COMMAND REGISTER
154 000556 016710 177610 MOV DTBUF+2,@R0 ;INSERT BUFFER ADDRESS
155 000562 016740 177606 MOV DTCNT,-(R0) ;INSERT LENGTH OF TRANSFER IN BYTES
156 000566 005067 177606 CLR DTCW3 ;CLEAR FINAL ERROR STATUS
157 000572 006010 ROR @R0 ;CONVERT LENGTH TO WORD COUNT
158 000574 005410 NEG @R0 ;MAKE NEGATIVE WORD COUNT
159 000576 116740 177567 MOVB DTBUF+1,-(R0) ;INSERT UNIT AND DIRECTION BIT
160 000602 112740 000011 MOVB #11,-(R0) ;STOP TRANSPORT (SELECT UNIT)
161 000606 032710 100200 35$: BIT #100200,@R0 ;SELECT ERROR?
162 000612 100432 BMI 40$ ;IF MI YES
163 000614 001774 BEQ 35$ ;IF EQ DRIVE NOT SELECTED
164 000616 112767 000010 177541 MOVB #8.,RTTBL+1 ;SET TAPE ROCK COUNT
165 000624 042767 000000G 000020G BIC #EF.IOD,DTTSK+A.EF ;CLEAR EVENT FLAG
166 000632 112710 000103 MOVB #103,@R0 ;START SEARCH FOR BLOCK.
167 000636 032737 000340 177776 BIT #340,@#PS ;AT PRI LEVEL?
168 000644 001177 BNE 140$ ;YES -- RETURN THROUGH INTERRUPT SERVICE
169 000646 DIR$ #WFDTD ;WAIT FOR I/O DONE
170 000654 016703 177510 50$: MOV DTBUF,R3 ;SET UP FOR I/O DONE
171 000660 016704 177510 66$: MOV DTCNT,R4
172 000664 CALL ..IODN
173 000670 000644 BR DTINI ;WAIT FOR ANOTHER
174 000672 012703 177776 767$: MOV #IE.IFC,R3
175 000676 000770 BR 66$
176 ;
177 ;
178 ;
179 ;
180 ;
181 ; OUTPUT SELECT ERROR MESSAGE
182 ;
183 ;
184 000700 032737 000340 177776 40$: BIT #340,@#PS ;CHECK FOR INT SERV
185 000706 001135 BNE 175$ ;TOUGH
186 000710 DIR$ #DTNRM ;COMPLAIN
187 000716 DIR$ #MRKDT ;MARK TIME ON SELECT ERROR
188 000724 DIR$ #WFMKT ;WAIT FOR MARK TIME
189 000732 000705 BR DTOUT ;AND TRY AGAIN
190 ;
191
192 ;+
193 ; **-$DTINT-TC11 DECTAPE CONTROLLER INTERUPTS
194 ;-
195 ;
196 000734 $DTINT:: ;;;REF LABEL
197 ;
198 ;
199 ;
200 ;
201 000734 010046 MOV R0,-(SP) ;;;SAVE REGISTERS
202 000736 010246 MOV R2,-(SP)
203 000740 010346 MOV R3,-(SP)
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2-3
204 ;
205 ;
206 ;
207 ;
208 000742 012703 177342 MOV #DTEXP+2,R3 ;;;SET UP ADDRESS OF DT
209 000746 032713 000002 BIT #2,@R3 ;;;BLOCK SEARCH IN PROGRESS?
210 000752 001462 BEQ 150$ ;;;IF EQ NO
211 000754 005713 TST @R3 ;;;SEARCH ERROR?
212 000756 100011 BPL 70$ ;;;IF PL NO
213 000760 005743 TST -(R3) ;;;END ZONE?
214 000762 100436 BMI 110$ ;;;IF MI YES
215 000764 032723 020000 BIT #20000,(R3)+ ;;;MARK TRACK ERROR?
216 000770 001045 BNE 120$ ;;;IF NE YES-TRY TO BYPASS IT
217 000772 012767 100000 177400 60$: MOV #100000,DTCW3 ;;;SET UNRECOVERALBE ERROR
218 001000 000454 BR 160$ ;;;
219 001002 016346 000006 70$: MOV 6(R3),-(SP) ;;;GET CURRENT BLOCK NUMBER
220 001006 126763 177357 000001 CMPB DTBUF+1,1(R3) ;;;MOVING IN FINAL DIRECTION?
221 001014 001003 BNE 80$ ;;;IF NE NO
222 001016 021667 177354 CMP @SP,DTCW2 ;;;BLOCK NUMBER MATCH?
223 001022 001432 BEQ 130$ ;;;IF EQ YES
224 001024 032713 004000 80$: BIT #4000,@R3 ;;;MOVING IN FORWARD DIRECTION?
225 001030 001405 BEQ 90$ ;;;IF EQ YES
226 001032 062716 000002 ADD #2,@SP ;;;ADD TURN AROUND BIAS
227 001036 026726 177334 CMP DTCW2,(SP)+ ;;;TURN AROUND NECESSARY?
228 001042 000404 BR 100$ ;;;
229 001044 162716 000002 90$: SUB #2,@SP ;;;SUBTRACT TURN AROUND BIAS
230 001050 022667 177322 CMP (SP)+,DTCW2 ;;;TURN AROUND NECESSARY?
231 001054 003413 100$: BLE 120$ ;;;IF LE NO
232 001056 005743 TST -(R3) ;;;POINT TO ERROR REGISTER
233 001060 005723 110$: TST (R3)+ ;;;POINT TO COMMAND REGISTER
234 001062 105367 177277 DECB RTTBL+1 ;;;DRIVE HUNG?
235 001066 002741 BLT 60$ ;;;IF LT YES
236 001070 012746 004000 MOV #4000,-(SP) ;;;GET DIRECTION BIT
237 001074 041316 BIC @R3,@SP ;;;.NOT.COMMAND REGISTER.AND.DIRECTION BIT
238 001076 042713 004000 BIC #4000,@R3 ;;;.NOT.DIRECTION BIT.ANL.OMMAND REGISTER
239 001102 052613 BIS (SP)+,@R3 ;;;DIRECTION BIT.OR.COMMAND REGISTER
240 001104 005213 120$: INC @R3 ;;;CONTINUE SEARCH
241 001106 000456 BR 140$ ;;;
242 001110 005726 130$: TST (SP)+ ;;;REMOVE BLOCK NUMBER FROM STACK
243 001112 016713 177252 MOV DTBUF,@R3 ;;;START READ/WRITE FUNCTION
244 001116 000452 BR 140$
245 001120 005713 150$: TST @R3 ;;;ANY ERRORS?
246 001122 100003 BPL 160$ ;;;IF PL NO
247 001124 016367 177776 177246 MOV -2(R3),DTCW3 ;;;SAVE ERROR STATUS
248 001132 112713 000011 160$: MOVB #11,@R3 ;;;STOP TAPE MOTION
249 001136 012700 000001 MOV #IS.SUC&377,R0 ;ASSUME SUCCESSFUL COMPLETION
250 001142 016702 177232 MOV DTCW3,R2 ;RETRIEVE FINAL STATUS
251 001146 001417 BEQ 180$ ;IF EQ SUCCESS
252 001150 032702 063000 BIT #63000,R2 ;RECOVERABLE ERROR?
253 001154 001405 BEQ 170$ ;IF EQ NO
254 001156 105367 177202 DECB RTTBL ;ANY MORE RETRIES?
255 001162 003402 BLE 170$ ;IF LE NO
256 001164 000167 177362 JMP 30$ ;TRY AGAIN
257 001170 012700 000364 170$: MOV #IE.WLK&377,R0 ;ASSUME DRIVE WRITE LOCKED
258 001174 032702 010000 BIT #10000,R2 ;DRIVE WRITE LOCKED?
259 001200 001002 BNE 180$ ;IF NE YES
260 001202 012700 000374 175$: MOV #IE.VER&377,R0 ;UNRECOVERABLE ERROR
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2-4
261 001206 016703 177344 180$: MOV DTEXP+4,R3
262 001212 160303 SUB R3,R3
263 001214 066703 177154 ADD DTCNT,R3
264 001220 010067 177144 MOV R0,DTBUF ;SAVE I/O STATUS
265 001224 010367 177142 MOV R3,DTBUF+2
266 001230 052767 000000G 000020G BIS #EF.IOD,DTTSK+A.EF ;SET EVENT FLAG
267 001236 152767 000000G 000000G BISB #EV.SE,.SERFG+0
268 001244 012603 140$: MOV (SP)+,R3
269 001246 012602 MOV (SP)+,R2
270 001250 012600 MOV (SP)+,R0
271 001252 000167 000000G JMP ..INTX ;RETURN FROM INTERRUPT
272 ;
273 .DSABL LSB
274 ;
275 000001 .END
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2-5
SYMBOL TABLE
A.EF = 000020 DR.DTE= 000011 IE.BYT= 177755 IE.SPC= 177772 IO.MDI= 014400
BIT0 = 000001 DSEND = 000004 IE.CKP= 177766 IE.SQC= 177734 IO.MDO= 015400
BIT1 = 000002 DS04 = 004000 IE.CKS= 177742 IE.SRE= 177762 IO.MLO= 006000
BIT10 = 002000 DS05 = 002000 IE.CLO= 177732 IE.STK= 177706 IO.MOD= 003000
BIT11 = 004000 DS06 = 001000 IE.CON= 177752 IE.ULN= 177773 IO.MSO= 005000
BIT12 = 010000 DTBUF 000370R IE.DAA= 177770 IE.UPN= 177777 IO.RAL= 001010
BIT13 = 020000 DTCNT 000374R IE.DAO= 177763 IE.VER= 177774 IO.RAT= 013000
BIT14 = 040000 DTCW2 000376R IE.DFU= 177750 IE.WAC= 177743 IO.RBC= 003000
BIT15 = 100000 DTCW3 000400R IE.DNA= 177771 IE.WAT= 177741 IO.RCI= 015000
BIT2 = 000004 DTECMD= 000451 IE.DNR= 177775 IE.WER= 177737 IO.RCV= 015000
BIT3 = 000010 DTEFLG= 000444 IE.DUN= 177767 IE.WLK= 177764 IO.RDB= 001200
BIT4 = 000020 DTEF11= 000450 IE.DUP= 177707 IE.2DV= 177720 IO.RDN= 000022
BIT5 = 000040 DTEMTD= 000455 IE.EBX= 177776 IFLOP = 100000 IO.REL= 013400
BIT6 = 000100 DTEMTI= 000456 IE.EOF= 177766 INTROF= 000010 IO.RHD= 001010
BIT7 = 000200 DTEXP = 177340 IE.EOT= 177702 INTRON= 000040 IO.RLB= 001000
BIT8 = 000400 DTHD 000000RG IE.EOV= 177765 INTSON= 000001 IO.RLV= 001100
BIT9 = 001000 DTINI 000402R IE.EXP= 177676 INT10S= 000400 IO.RNA= 005400
BPARER= 000020 DTNRM 000310R IE.FEX= 177717 INT11C= 002000 IO.RNC= 001004
CDD = 000020 DTOUT 000546R IE.FHE= 177705 INT11S= 004000 IO.RNE= 001020
CHNPNT= 000001 DTRNA 000366R IE.FOP= 177713 IO.ACE= 007400 IO.RTC= 003400
CNUPE = 000002 DTSTK 000260RG IE.HFU= 177744 IO.ACR= 006400 IO.RTI= 016400
CS.EXP= 177670 DTTSK = ****** GX IE.HWR= 177772 IO.ACW= 007000 IO.RTK= 000060
CYCLS = 000002 DUPE = 000020 IE.IDU= 177644 IO.ADS= 014000 IO.RVB= 010400
DATE = 000004 DURE = 000004 IE.IEF= 177637 IO.APC= 014000 IO.RWD= 002400
DCOMST= 000001 DXWRD1= 002000 IE.IFC= 177776 IO.APV= 014010 IO.RWU= 002540
DEP = 010000 D1011 = 000040 IE.IFU= 177747 IO.ATT= 001400 IO.R1C= 002400
DEX = 000400 EBSEL = 000100 IE.ILL= 177726 IO.CCI= 014000 IO.SAO= 004000
DEXDON= 000004 EBUSPC= 000020 IE.ILU= 177640 IO.CCT= 002460 IO.SCS= 013000
DEXWD1= 174406 EBUSPS= 000004 IE.INS= 177776 IO.CLN= 003400 IO.SDI= 013000
DEXWD2= 174404 EDONES= 040000 IE.IPR= 177641 IO.CON= 015400 IO.SDO= 012400
DEXWD3= 174402 EF.IOD= ****** GX IE.ISQ= 177703 IO.CRC= 001020 IO.SEC= 002520
DFUNC = 000200 EPTR = 000000 IE.ITI= 177643 IO.CRE= 012000 IO.SEM= 002440
DF.DMG= 000004 ERR10C= 010000 IE.ITS= 177770 IO.CTI= 015400 IO.SHT= 002410
DF.DMN= 000007 ERR10S= 020000 IE.LCK= 177745 IO.CTL= 016400 IO.SLO= 005400
DF.DOR= 000001 ERR11C= 000001 IE.LNL= 177646 IO.DAC= 010000 IO.SMO= 002560
DF.EHG= 000010 ERR11S= 000002 IE.MBK= 177721 IO.DCI= 014400 IO.SNM= 002450
DF.EHM= 000011 EV.SE = ****** GX IE.MOD= 177753 IO.DCT= 002470 IO.SPB= 002420
DF.EMG= 000005 E.IOD = ****** GX IE.NBF= 177731 IO.DEL= 012400 IO.SPF= 002440
DF.EMN= 000006 E.NIR = ****** GX IE.NBK= 177727 IO.DET= 002000 IO.SSO= 004400
DF.KLR= 000012 FORPRO= 000020 IE.NFI= 177704 IO.DIS= 016000 IO.SST= 002430
DF.KLW= 000013 HIBYTE= 177400 IE.NLN= 177733 IO.DTI= 016000 IO.STC= 002500
DF.KLX= 000014 IE.ABO= 177761 IE.NNC= 177674 IO.ENA= 006000 IO.STP= 016400
DF.OFF= 000002 IE.ACT= 177771 IE.NOD= 177751 IO.EOF= 003000 IO.SYN= 003040
DF.ON = 000003 IE.ADP= 177636 IE.NSF= 177746 IO.ESA= 002500 IO.TRM= 002410
DF.PDP= 000016 IE.ALN= 177736 IE.OFL= 177677 IO.EXT= 011400 IO.UNL= 000042
DF.PEX= 000015 IE.AST= 177660 IE.ONP= 177773 IO.FDX= 003020 IO.WAT= 013400
DIAG1 = 174430 IE.BAD= 177777 IE.OVR= 177756 IO.FNA= 004400 IO.WLB= 000400
DIAG2 = 174432 IE.BBE= 177710 IE.PRI= 177760 IO.HDX= 003010 IO.WLS= 000410
DIAG3 = 174436 IE.BDI= 177714 IE.RAC= 177724 IO.HIS= 015000 IO.WLV= 000500
DIKL10= 000010 IE.BDR= 177716 IE.RAT= 177723 IO.INL= 002400 IO.WVB= 011000
DLYCNT= 174400 IE.BDV= 177711 IE.RBG= 177730 IO.ITI= 017000 IO.XMT= 014400
DON10C= 040000 IE.BHD= 177700 IE.RCN= 177722 IO.KIL= 000012 IO.XNA= 014410
DON10S= 100000 IE.BLK= 177754 IE.RER= 177740 IO.LED= 012000 IQ.Q = 000002
DON11C= 000100 IE.BNM= 177712 IE.RNM= 177715 IO.LOV= 001010 IQ.X = 000001
DON11S= 000200 IE.BTF= 177675 IE.RSU= 177757 IO.LTK= 000050 IS.BV = 000005
DPS4 = 040000 IE.BTP= 177725 IE.SDP= 177635 IO.MCS= 013400 IS.CLR= 000000
DRESET= 000100 IE.BVR= 177701 IE.SNC= 177735 IO.MDA= 016000 IS.CR = 006401
DTDRV MACRO M1108 13-JAN-78 14:01 PAGE 2-6
SYMBOL TABLE
IS.ESC= 015401 PSWW12= 000016 TOD = 000003 $DTE = 000001 .LDCK1= 046000
IS.PND= 000000 PSWW13= 000017 TOIP = 000002 $DTINT 000734RG .LDCK2= 047000
IS.RDD= 000002 PSWW2 = 000006 TOIT = 000001 $FE = 000001 .LDDIS= 045000
IS.SET= 000002 PSWW3 = 000007 TO10 = 000200 $F11 = 000001 .LDRJD= 064000
IS.SUC= 000001 PSWW4 = 000010 TO10AD= 174420 $LP20 = 000001 .LDRJV= 063000
KLPWRF= 000010 PSWW5 = 000011 TO10BC= 174414 $RP04 = 000001 .LDRM1= 060000
LOAD11= 000004 PSWW6 = 000012 TO10BM= 000001 $RX11 = 000001 .LDRM2= 061000
MPE11 = 001000 PSWW7 = 000013 TO10DB= 000400 $TOP20= 000001 .LDRM3= 062000
MRKDT 000330R PULSE = 000020 TO10DN= 100000 $$ = 000067 .LDSEL= 044000
M.KTAE= 000010 QSIZE = 000023 TO10DT= 174424 $$MSG = 000000 .MEMRS= 076000
M.KTEF= 000002 Q.IOAE= 000012 TO10ER= 020000 $$$ARG= 000010 .PCAB1= 150000
M.KTMG= 000004 Q.IOEF= 000006 TO11 = 000100 $$$OST= 000004 .PCAB2= 151000
M.KTUN= 000006 Q.IOFN= 000002 TO11AD= 174422 .BRCLK= 005000 .PCAB3= 152000
NTRDMS 000346R Q.IOLU= 000004 TO11BC= 174416 .CECLK= 004000 .PCAB4= 153000
NTRDSZ= 000016 Q.IOPL= 000014 TO11BM= 020000 .CLRMR= 006000 .RCRM1= 147000
NULSTP= 000040 Q.IOPR= 000007 TO11DB= 004000 .CLRUN= 010000 .RCRM2= 146000
NUPE = 000002 Q.IOSB= 000010 TO11DN= 000200 .CONBT= 012000 .RCRM3= 145000
PERCLR= 001000 RAMIS0= 010000 TO11DT= 174426 .CSHRG= 164000 .RCRM4= 144000
PHYS = 100000 RETRY = 000005 TO11ER= 000002 .DRLTC= 015000 .RCSPF= 141000
PIDENT= 000000 RFMAD0= 100000 TTPEN = ****** GX .DSACF= 066000 .RDJ14= 134000
PRI7 = 000340 RFMAD1= 040000 UNASG1= 000032 .DSIOJ= 065000 .RDJ71= 135000
PROPNT= 000021 RFMAD2= 020000 UNASG2= 000033 .EIOJA= 067000 .RDMAB= 133000
PRTOFF= 004000 RFMAD3= 010000 UNASG3= 000034 .GFNR = 102000 .SECLK= 003000
PR0 = 000000 RM = 000010 UNASG4= 000035 .INICL= 070000 .SERFG= ****** GX
PR1 = 000040 RTTBL 000364R UNASG5= 000036 .IRLTC= 014000 .SETMR= 007000
PR2 = 000100 R.FC = ****** GX UNASG6= 000037 .LCRDL= 052000 .SETRN= 011000
PR3 = 000140 R.PB = ****** GX WEP = 000010 .LCRDR= 051000 .SSCLK= 002000
PR4 = 000200 SCD = 000040 WFDTD 000304R .LCRM1= 057000 .STPCL= 000000
PR5 = 000240 STAT = 174434 WFDTQ 000300R .LCRM2= 056000 .STRCL= 001000
PR6 = 000300 STATUS= 000022 WFMKT 000342R .LCRM3= 055000 .WRMBX= 071000
PR7 = 000340 SWR = 177570 W.TSEF= 000002 .LCRM4= 054000 ..DQRN= ****** GX
PS = 177776 SWSLLT= 100000 ZSTOP = 040000 .LCRM5= 053000 ..INTX= ****** GX
PSWW1 = 000005 TENAD1= 174410 $CD11 = 000001 .LDAR = 077000 ..IODN= ****** GX
PSWW10= 000014 TENAD2= 174412 $DBDTE= 000001 .LDBRL= 043000 ...GBL= 000000
PSWW11= 000015 TOBM = 000004 $DH11 = 000001 .LDBRR= 042000
. ABS. 000000 000
001256 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 7131 WORDS ( 28 PAGES)
DYNAMIC MEMORY: 8384 WORDS ( 32 PAGES)
ELAPSED TIME: 00:01:27
,[100,20]DTDRV.LIS/-SP/CRF=[20,30]RSXFC/PA:1,[100,30]DTDRV
DTDRV CREATED BY MACRO ON 13-JAN-78 AT 14:02 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
A.EF = 000020 #2-46 *2-165 *2-266
BIT0 = 000001 #2-42
BIT1 = 000002 #2-42
BIT10 = 002000 #2-42
BIT11 = 004000 #2-42
BIT12 = 010000 #2-42
BIT13 = 020000 #2-42
BIT14 = 040000 #2-42
BIT15 = 100000 #2-42
BIT2 = 000004 #2-42
BIT3 = 000010 #2-42
BIT4 = 000020 #2-42
BIT5 = 000040 #2-42
BIT6 = 000100 #2-42
BIT7 = 000200 #2-42
BIT8 = 000400 #2-42
BIT9 = 001000 #2-42
BPARER = 000020 #2-42
CDD = 000020 #2-42
CHNPNT = 000001 #2-42
CNUPE = 000002 #2-42
CS.EXP = 177670 #2-42
CYCLS = 000002 #2-42
DATE = 000004 #2-42
DCOMST = 000001 #2-42
DEP = 010000 #2-42
DEX = 000400 #2-42
DEXDON = 000004 #2-42
DEXWD1 = 174406 #2-42
DEXWD2 = 174404 #2-42
DEXWD3 = 174402 #2-42
DFUNC = 000200 #2-42
DF.DMG = 000004 #2-42
DF.DMN = 000007 #2-42
DF.DOR = 000001 #2-42
DF.EHG = 000010 #2-42
DF.EHM = 000011 #2-42
DF.EMG = 000005 #2-42
DF.EMN = 000006 #2-42
DF.KLR = 000012 #2-42
DF.KLW = 000013 #2-42
DF.KLX = 000014 #2-42
DF.OFF = 000002 #2-42
DF.ON = 000003 #2-42
DF.PDP = 000016 #2-42
DF.PEX = 000015 #2-42
DIAG1 = 174430 #2-42
DIAG2 = 174432 #2-42
DIAG3 = 174436 #2-42
DIKL10 = 000010 #2-42
DLYCNT = 174400 #2-42
DON10C = 040000 #2-42
DTDRV CREATED BY MACRO ON 13-JAN-78 AT 14:02 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DON10S = 100000 #2-42
DON11C = 000100 #2-42
DON11S = 000200 #2-42
DPS4 = 040000 #2-42
DRESET = 000100 #2-42
DR.DTE = 000011 #2-42
DSEND = 000004 #2-42
DS04 = 004000 #2-42
DS05 = 002000 #2-42
DS06 = 001000 #2-42
DTBUF 000370 R #2-82 *2-121 *2-122 2-125 2-154 2-159 2-170 2-220 2-243
*2-264 *2-265
DTCNT 000374 R #2-83 *2-120 2-155 2-171 2-263
DTCW2 000376 R #2-84 *2-142 2-222 2-227 2-230
DTCW3 000400 R #2-85 *2-156 *2-217 *2-247 2-250
DTECMD = 000451 #2-42
DTEFLG = 000444 #2-42
DTEF11 = 000450 #2-42
DTEMTD = 000455 #2-42
DTEMTI = 000456 #2-42
DTEXP = 177340 #2-53 2-147 2-153 2-208 2-261
DTHD 000000 RG #2-58
DTINI 000402 R 2-58 2-58 #2-116 2-119 2-173
DTNRM 000310 R #2-64 2-186
DTOUT 000546 R #2-147 2-189
DTRNA 000366 R #2-81
DTSTK 000260 RG 2-58 #2-58
DTTSK = ****** GX *2-165 *2-266
DUPE = 000020 #2-42
DURE = 000004 #2-42
DXWRD1 = 002000 #2-42
D1011 = 000040 #2-42
EBSEL = 000100 #2-42
EBUSPC = 000020 #2-42
EBUSPS = 000004 #2-42
EDONES = 040000 #2-42
EF.IOD = ****** GX 2-165 2-266
EPTR = 000000 #2-42
ERR10C = 010000 #2-42
ERR10S = 020000 #2-42
ERR11C = 000001 #2-42
ERR11S = 000002 #2-42
EV.SE = ****** GX 2-267
E.IOD = ****** GX 2-62
E.NIR = ****** GX 2-60
FORPRO = 000020 #2-42
HIBYTE = 177400 #2-42
IE.BLK = 177754 2-136
IE.IFC = 177776 2-174
IE.VER = 177774 2-260
IE.WLK = 177764 2-257
IFLOP = 100000 #2-42
DTDRV CREATED BY MACRO ON 13-JAN-78 AT 14:02 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
INTROF = 000010 #2-42
INTRON = 000040 #2-42
INTSON = 000001 #2-42
INT10S = 000400 #2-42
INT11C = 002000 #2-42
INT11S = 004000 #2-42
IO.RLB = 001000 2-131
IO.WLB = 000400 2-64 2-128
IO.WLV = 000500 2-133
IS.SUC = 000001 2-249
KLPWRF = 000010 #2-42
LOAD11 = 000004 #2-42
MPE11 = 001000 #2-42
MRKDT 000330 R #2-66 2-187
M.KTAE = 000010 #2-66
M.KTEF = 000002 #2-66
M.KTMG = 000004 #2-66
M.KTUN = 000006 #2-66
NTRDMS 000346 R 2-64 #2-70 2-71
NTRDSZ = 000016 2-64 #2-71
NULSTP = 000040 #2-42
NUPE = 000002 #2-42
PERCLR = 001000 #2-42
PHYS = 100000 #2-42
PIDENT = 000000 #2-42
PRI7 = 000340 #2-42
PROPNT = 000021 #2-42
PRTOFF = 004000 #2-42
PR0 = 000000 #2-42
PR1 = 000040 #2-42
PR2 = 000100 #2-42
PR3 = 000140 #2-42
PR4 = 000200 #2-42
PR5 = 000240 #2-42
PR6 = 000300 #2-42
PR7 = 000340 #2-42
PS = 177776 #2-42 2-167 2-184
PSWW1 = 000005 #2-42
PSWW10 = 000014 #2-42
PSWW11 = 000015 #2-42
PSWW12 = 000016 #2-42
PSWW13 = 000017 #2-42
PSWW2 = 000006 #2-42
PSWW3 = 000007 #2-42
PSWW4 = 000010 #2-42
PSWW5 = 000011 #2-42
PSWW6 = 000012 #2-42
PSWW7 = 000013 #2-42
PULSE = 000020 #2-42
QSIZE = 000023 #2-42
Q.IOAE = 000012 #2-64
Q.IOEF = 000006 #2-64
DTDRV CREATED BY MACRO ON 13-JAN-78 AT 14:02 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
Q.IOFN = 000002 #2-64
Q.IOLU = 000004 #2-64
Q.IOPL = 000014 #2-64
Q.IOPR = 000007 #2-64
Q.IOSB = 000010 #2-64
RAMIS0 = 010000 #2-42
RETRY = 000005 #2-51 2-124
RFMAD0 = 100000 #2-42
RFMAD1 = 040000 #2-42
RFMAD2 = 020000 #2-42
RFMAD3 = 010000 #2-42
RM = 000010 #2-42
RTTBL 000364 R #2-80 *2-124 *2-164 *2-234 *2-254
R.FC = ****** GX 2-128 2-131 2-133
R.PB = ****** GX 2-137 2-140
SCD = 000040 #2-42
STAT = 174434 #2-42
STATUS = 000022 #2-42
SWR