Trailing-Edge
-
PDP-10 Archives
-
BB-H311B-RM
-
rsx20f-swskit/listings/rex.lis
There are no other files named rex.lis in the archive.
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1
1 .TITLE REDIRECT
2 .IDENT "V002000"
3 .LIST MEB
4 ;
5 ;
6 ;
7 ;
8 ; COPYRIGHT (C) 1973, 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: V002000
30 ;
31 ; AUTHOR: R. MCLEAN
32 ;
33 ; DATE: 19 MAR 73
34 ;
35 ; MODIFIED BY ELLEN R GORDON
36 ;
37 ; DATE: 5 NOV 1973
38 ;
39 ; RSX20F -- R. MCLEAN
40 ; DATE 20-OCT-75
41 ;
42 ; J. MASSE 28-JUL-76 TO ALLOW REDIRECT DURING T/S
43 ;
44 ;
45 ;
46 ;
47 ; VERSION V001A
48 ;+
49 ; MCR FUNCTION -- REDIRECT
50 ;
51 ;NOTE -- REDIRECT IS A PRIVILEDGED TASK
52 ;
53 ;NOTE -- REDIRECT USES 1 LUN.
54 ;
55 ; THIS IS ONLY SUPPOSED TO BE USED
56 ; TO REDIRECT SY FOR RSX20F!
57 ;
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-1
58 ;
59 ;TASK NAME "...RED" TO REDIRECT ALL I/O REQUESTS
60 ;FROM ONE PHYSICAL DEVICE-UNIT TO ANOTHER.
61 ;ONE LINE OF COMMAND INPUT OF THE FOLLOWING SYNTAX IS USED:
62 ;
63 ; REDIRECT ::= "RED" $ <NBC> <BC>
64 ; <NEW DEVICE> ("_"/"=") <OLD DEVICE> <LT>;
65 ;
66 ; <OLD DEVICE> ::= <DEVICE-UNIT SYMBOL>;
67 ; <NEW DEVICE> ::= <DEVICE-UNIT SYMBOL>;
68 ; <DEVICE-UNIT SYMBOL> ::= <LETTER><LETTER>;
69 ; (OCTAL VALUE/NUL);
70 ; / INDICATES ALTERNATION (OR)
71 ; '$' INDICATES ANY NUMBER OF (INCLUNDING ZERO) OF
72 ; 'NUL' INDICATES THE EMPTY SET
73 ; <BC> ::= SPACE [BREAK CHARACTER]
74 ; <NBC> ::= NON-BREAK CHARACTER
75 ; <LT> ::= <CR>/<AM>; [LINE TERMINATOR]
76 ; <CR> ::= CARRAGE RETURN
77 ; <AM> ::= ALTMODE
78 ; <LETTER> ::= 'A'/'B'/.....'Z'
79 ; <OCTAL VALUE> ::= 1-3 OCTAL DIGITS
80 ;
81 ;
82 ; MACRO DEFINITIONS
83 ;-
84 .MACRO .QIO WRIT,LUN,EFN,PRI,IOS,AST,PAR1,PAR2
85 .BYTE IO,9.
86 .WORD WRIT
87 .WORD LUN
88 .BYTE EFN,PRI
89 .WORD IOS
90 .WORD AST
91 .WORD PAR1
92 .WORD PAR2
93 .WORD 40
94 .ENDM
95 ;
96 .MCALL CALL,RETURN,DIR$,ALUN$S,QIOW$,WSIG$S,EXIT$S,RQST$,.CRASH
97 .MCALL QIO$,.INH
98 ;
99 ;
100 ; DIRECTIVE DEFINITIONS
101 ;
102 024577 RDMCB=41.*400+127. ;READ MCR COMMAND BUFFER
103 000026 U.VA=26
104 000463 EXIT=1.*400+51. ;EXIT
105 000003 IO=3. ;Q I/O
106 000001 EFN1=1 ;EVENT FLAG 1
107 000400 WRIT=400 ;WRITE
108 000002 LUN=2 ;LOGICAL UNIT
109 000015 CR=15 ;CAR RTN
110 000012 LF=12 ;LINE FEED
111 000033 AM=33 ;ALTMODE
112 000040 SPA=40 ;SPACE
113 ;
114 ;
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-2
115 ;
116 000000 REDIR:
117 000000 012746 001272' 10$: MOV #RDMCR,-(SP) ;READ THE MCR COMMAND LINE
118 000004 104375 EMT 375
119 000006 103417 BCS MCRER1 ;ERROR ON TRYING TO READ MCR LINE
120 000010 012700 001277' MOV #MCRBH+3,R0 ;SET UP TO LOOK AT THE MCR BUFFER
121 000014 112001 REDSL: MOVB (R0)+,R1 ;PICK UP A CHARACTER FROM THE BUFFER
122 000016 022701 000040 CMP #SPA,R1 ;IS THIS A BREAK CHARACTER?
123 000022 001426 BEQ FNDBC ;YES -- START DECODING LINE
124 000024 022701 000015 CMP #CR,R1 ;NO -- IS IT A CARRAGE RETURN?
125 000030 001404 BEQ SYNER4 ;YES -- SYNTAX ERROR
126 000032 022701 000033 CMP #AM,R1 ;NO -- IS IT AN ALTMODE?
127 000036 001401 BEQ SYNER4 ;YES -- SYNTAX ERROR
128 000040 000765 BR REDSL ;NO -- THEN IT IS AN NBC
129 ;
130 000042 000167 000722 SYNER4: JMP SYNER
131 ;
132 000046 MCRER1: DIR$ #QIOWMC ;PROMPT
000046 012746 002176' MOV #QIOWMC,-(SP)
000052 104375 EMT 375
133 000054 DIR$ #QIORMC ;READ COMMAND LINE
000054 012746 002224' MOV #QIORMC,-(SP)
000060 104375 EMT 375
134 000062 012700 001274' MOV #MCRBH,R0 ;POINT TO THE COMMAND LINE
135 000066 016701 002266 MOV STATUS+2,R1 ;SET THE TERMINATING CHAR IN BUFFER
136 000072 116761 002261 001274' MOVB STATUS+1,MCRBH(R1)
137 ;
138 ;
139 000100 112067 001310 FNDBC: MOVB (R0)+,NEWDEV ;PICK UP THE DEVICE NAME (NEW DEVICE
140 000104 112067 001305 MOVB (R0)+,NEWDEV+1 ;BOTH CHARACTERS
141 000110 012703 001430' MOV #NEWUNA,R3 ;SAVE THE ASCII
142 000114 CALL PC,GETVAL ;FIND THE UNIT NUMBER
000114 004767 001100 JSR PC,GETVAL
143 000120 120127 000072 CMPB R1,#': ;ALLOW COLON AFTER DEVICE
144 000124 001001 BNE 1$
145 000126 112001 MOVB (R0)+,R1 ;MOVE PAST COLON
146 000130 120127 000075 1$: CMPB R1,#'= ;IS THE CHARACTER AN =?
147 000134 001051 BNE SYNER7 ;NO -- NEITHER = OR _ THEREFORE SYNTAX ERROR
148 000136 010267 001256 10$: MOV R2,NEWUNT ;YES -- SAVE THE NEW UNIT NUMBER
149 000142 112067 001250 MOVB (R0)+,OLDDEV ;SAVE THE OLD DEVICE NAME
150 000146 112067 001245 MOVB (R0)+,OLDDEV+1
151 000152 012703 001433' MOV #OLDUNA,R3 ;SAVE THE ASCII DEVICE NAME
152 000156 CALL PC,GETVAL ;GET THE UNIT NUMBER OF THE OLD DEVICE
000156 004767 001036 JSR PC,GETVAL
153 000162 010267 001234 MOV R2,OLDUNT ;SAVE THE OLD UNIT NUMBER
154 000166 120127 000072 CMPB R1,#': ;ALLOW COLON AFTER DEVICE
155 000172 001001 BNE 2$
156 000174 112001 MOVB (R0)+,R1 ;MOVE PAST COLON
157 000176 120127 000015 2$: CMPB R1,#CR ;IS THE TERMINATING CHARACTER A CARRTN?
158 000202 001403 BEQ SYNOK ;YES -- SYNTAX IS OK
159 000204 120127 000033 CMPB R1,#AM ;NO -- IS IT ALTMODE?
160 000210 001021 BNE SYNER8 ;NO -- SYNTAX ERROR
161 000212 012700 000000G SYNOK: MOV #.PUDBA,R0 ;YES -- FIND THE BEGINNING OF THE PUD
162 000216 026067 000000G 001170 COTSCN: CMP U.DN(R0),NEWDEV ;SEARCH FOR A MATCH
163 000224 001431 BEQ FNDNEW ;FOUND MATCH ON NEW UNIT
164 000226 026067 000000G 001162 CNTSCN: CMP U.DN(R0),OLDDEV ;SEARCH FOR MATCH ON OLD UNIT ALSO
165 000234 001413 BEQ FNDOLD ;FOUND OLD UNIT MATCH
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-3
166 000236 062700 000000G CNTNXT: ADD #U.SZ,R0 ;ADD THE PUD SIZE TO POINTER FOR NEXT ENTRY
167 000242 020027 000000G CMP R0,#.PUDEA ;IS THIS THE END OF THE TABLE?
168 000246 001363 BNE COTSCN ;NO -- CONTINUE SCAN
169 000250 000167 000530 JMP NTFND ;YES -- CAN'T FIND BOTH ENTRIES
170 ;
171 000254 000167 000466 SYNER8: JMP SYNER2
172 000260 000167 000422 SYNER7: JMP SYNER1
173 ;
174 000264 126067 000000G 001130 FNDOLD: CMPB U.UN(R0),OLDUNT ;DO THE UNITS MATCH?
175 000272 001361 BNE CNTNXT ;NO -- CONTINUE SCAN
176 000274 010067 001126 MOV R0,OLDADR ;YES -- SAVE THE PUD POINTER
177 000300 005767 001120 TST NEWADR ;HAVE WE FOUND BOTH?
178 000304 001012 BNE FNDBTH ;YES -- STOP SCAN
179 000306 000753 BR CNTNXT ;NO -- CONTINUE SCAN
180 ;
181 000310 126067 000000G 001102 FNDNEW: CMPB U.UN(R0),NEWUNT ;DO THE UNITS MATCH?
182 000316 001343 BNE CNTSCN ;NO -- CONTINUE SCAN
183 000320 010067 001100 MOV R0,NEWADR ;YES -- SAVE THE PUD POINTER
184 000324 005767 001076 TST OLDADR ;FOUND BOTH?
185 000330 001736 BEQ CNTSCN ;NO -- CONTINUE SCAN
186 000332 016700 001070 FNDBTH: MOV OLDADR,R0 ;SAVE REDIRECTED ADDRESS
187 000336 016004 000000G MOV U.RP(R0),R4
188 000342 012700 000000G MOV #.PUDBA,R0 ;YES -- SEARCH PUD FOR ENTRIES REDIRECTED TO OLD
189 000346 026067 000000G 001052 RDLP: CMP U.RP(R0),OLDADR ;AND CHANGE TO THE NEW UNIT
190 000354 001003 BNE RDNXT ;NO MATCH -- DON'T UPDATE REDIRECT POINTER
191 000356 016760 001042 000000G MOV NEWADR,U.RP(R0) ;YES -- SET UP A NEW REDIRECT POINTER
192 000364 062700 000000G RDNXT: ADD #U.SZ,R0 ;LOOK AT THE NEXT ENTRY
193 000370 022700 000000G CMP #.PUDEA,R0 ;AT THE END OF THE TABLE?
194 000374 001364 BNE RDLP ;NO -- CONTINUE SCAN
195 000376 022767 054523 001012 CMP #"SY,OLDDEV ;OLD DEVICE SY?
196 000404 001125 BNE 40$ ;NO -- FORGET IT
197 000406 016401 000000G MOV U.ACP(R4),R1 ;FIND THE ACP STD ADDRESS
198 000412 005211 INC @R1 ;CHANGE THE NAME OF THE FCP TASK
199 000414 016700 001006 MOV OLDADR,R0 ;YES -- REDIRECT THE OLD PUD
200 000420 005264 000000G INC U.DACP(R4) ;UPDATE ACP
201 000424 016705 000774 MOV NEWADR,R5
202 000430 005765 000026 TST U.VA(R5) ;VOLUME MOUNTED?
203 000434 001004 BNE 3$
204 000436 DIR$ #VOLNM
000436 012746 001516' MOV #VOLNM,-(SP)
000442 104375 EMT 375
205 000444 000432 BR 8$
206 ;
207 000446 010560 000000G 3$: MOV R5,U.RP(R0)
208 000452 005067 001654 CLR COUNT ; SET THE TIMEOUT COUNT TO ZERO
209 000456 022767 052104 000730 CMP #"DT,NEWDEV ; IS THE NEW DEVICE A DECTAPE??
210 000464 001403 BEQ 31$ ; YES -- GO ON
211 000466 012767 003000 001636 MOV #3000,COUNT ; NO -- SET UP SHORT TIMEOUT
212 000474 31$:
213 000474 010146 MOV R1,-(SP) ;SAVE STD ADDRESS
214 000476 DIR$ #F11RQ ;REQUEST NEW F11ACP
000476 012746 002334' MOV #F11RQ,-(SP)
000502 104375 EMT 375
215 000504 5$: WSIG$S ;WAIT A WHILE
000504 012746 MOV (PC)+,-(SP)
000506 061 001 .BYTE 49.,1
000510 104375 EMT 375
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-4
216 000512 012701 002352' MOV #F11NM,R1 ;SEARCH FOR F11ACP TO BE INSTALLED
217 000516 CALL ..FSTD ;SEARCH
000516 004767 000000G JSR PC,..FSTD
218 000522 001020 BNE 10$ ;FOUND IT -- NOW CAN WORK
219 000524 005367 001602 7$: DEC COUNT
220 000530 001365 BNE 5$
221 000532 8$: DIR$ #VOLMS
000532 012746 002022' MOV #VOLMS,-(SP)
000536 104375 EMT 375
222 000540 005364 000000G DEC U.DACP(R4)
223 000544 .INH
000544 016746 000000G MOV PS,-(SP)
000550 112737 000000G 000000G MOVB #PR7,@#PS ;;
224 000556 .CRASH RED
000556 000004 IOT
000560 122 105 104 .ASCIZ /RED/
000563 000
225 ;
226 000564 032762 000000G 000000G 10$: BIT #SF.IR,S.FW(R2) ;REALLY INSTALLED YET?
227 000572 001354 BNE 7$ ;NOPE -- CONTINUE WAITING
228 000574 042762 000000G 000000G BIC #SF.EX,S.FW(R2) ;CLEAR THE REMOVEON EXIT FLAG
229 000602 005364 000000G DEC U.DACP(R4) ;RESET NAME
230 000606 012600 MOV (SP)+,R0 ;RESTORE OLD STD ADDRESS
231 000610 012705 000000G MOV #.PUDBA,R5 ;SET UP ALL THE STD ADDRESSES
232 000614 026500 000000G 20$: CMP U.ACP(R5),R0 ;CORRECT ACP?
233 000620 001002 BNE 30$
234 000622 010265 000000G MOV R2,U.ACP(R5) ;YES -- SET NEW ACP STD ADDRESS
235 000626 062705 000000G 30$: ADD #U.SZ,R5 ;LOOK AT THE NEXT PUD ENTRY
236 000632 022705 000000G CMP #.PUDEA,R5 ;END?
237 000636 101366 BHI 20$ ;NO -- TRY NEXT ONE
238 000640 052760 000000G 000000G BIS #SF.EX,S.FW(R0) ;SET REMOVE ON EXIT FOR OLD ONE
239 000646 005267 001464 INC F11RQ+2 ;RUN THIS ONE SO IT GETS REMOVED
240 000652 DIR$ #F11RQ
000652 012746 002334' MOV #F11RQ,-(SP)
000656 104375 EMT 375
241 000660 016700 000540 40$: MOV NEWADR,R0 ;CHECK FOR HANDLER RESIDENT
242 000664 005760 000000G TST U.HA(R0)
243 000670 001003 BNE EXITA ;YES -- NO WARNING MESSAGE
244 000672 012746 001436' MOV #HNRMSG,-(SP) ;PRINT WARNING MESSAGE
245 000676 104375 EXITMS: EMT 375
246 000700 012746 000463 EXITA: MOV #EXIT,-(SP) ;EXIT
247 000704 104375 EMT 375
248 ;
249 000706 116767 000502 001011 SYNER1: MOVB NEWDEV,SYNDEV ;SET UP TO PRINT THE DEVICE NAME
250 000714 116767 000475 001004 MOVB NEWDEV+1,SYNDEV+1
251 000722 012703 001420' MOV #NEWUNTA,R3 ;SET UP TO FIND THE UNIT NUMBER
252 000726 012702 001727' SYNCOM: MOV #SYNUNT,R2 ;SET UP THE BUFFER POINTER TO UNIT
253 000732 012746 002132' MOV #SYNMS1,-(SP) ;PUSH THE DPB ADDRESS
254 000736 112322 MOVB (R3)+,(R2)+ ;MOVE IN THE UNIT NUMBER
255 000740 112322 MOVB (R3)+,(R2)+
256 000742 112322 MOVB (R3)+,(R2)+
257 000744 000754 BR EXITMS ;PRINT THE MESSAGE AND WAIT
258 ;
259 000746 116767 000444 000751 SYNER2: MOVB OLDDEV,SYNDEV ;SET UP THE DEVICE NAME
260 000754 116767 000437 000744 MOVB OLDDEV+1,SYNDEV+1
261 000762 012703 001433' MOV #OLDUNA,R3 ;AND UNIT NUMBER
262 000766 000757 BR SYNCOM ;AND PRINT THE MESSAGE
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-5
263 000770 012746 001654' SYNER: MOV #SYNMSG,-(SP) ;PRINT SYNTAX ERROR
264 000774 000740 BR EXITMS ;WAIT FOR MESSAGE AND EXIT
265 ;
266 ;
267 000776 012746 002244' MCRERR: MOV #MCRERM,-(SP) ;WRITE MCR ERROR
268 001002 000735 BR EXITMS ;AND EXIT
269 ;
270 001004 005767 000414 NTFND: TST NEWADR ;DIDN'T FIND A MATCH IS IT NEW?
271 001010 001005 BNE NTFNDO ;NO -- MUST BE OLD WE DIDN'T FIND
272 001012 016700 000376 MOV NEWDEV,R0 ;YES -- PRINT DEVICE NAME AND UNIT
273 001016 016701 000376 MOV NEWUNT,R1 ;ON ERROR MESSAGE TTY
274 001022 000404 BR OUTPUU ;BRANCH TO COMMON ERROR ROUTINE
275 ;
276 001024 016700 000366 NTFNDO: MOV OLDDEV,R0 ;PICK UP THE OLD UNIT NUMBER
277 001030 016701 000366 MOV OLDUNT,R1 ;AND DEVICE NAME
278 001034 010067 000716 OUTPUU: MOV R0,INCMSG ;STORE THE DEVICE NAME
279 001040 012702 001760' MOV #INCMSG+2,R2 ;SET UP TO STORE THE UNIT NUMBER
280 000012 .REPT 10.
281 ROL R1
282 ROL R0
283 .ENDR
001044 006101 ROL R1
001046 006100 ROL R0
001050 006101 ROL R1
001052 006100 ROL R0
001054 006101 ROL R1
001056 006100 ROL R0
001060 006101 ROL R1
001062 006100 ROL R0
001064 006101 ROL R1
001066 006100 ROL R0
001070 006101 ROL R1
001072 006100 ROL R0
001074 006101 ROL R1
001076 006100 ROL R0
001100 006101 ROL R1
001102 006100 ROL R0
001104 006101 ROL R1
001106 006100 ROL R0
001110 006101 ROL R1
001112 006100 ROL R0
284 001114 042700 177770 BIC #177770,R0 ;MASK OFF GARGAGE
285 001120 005700 TST R0 ;ZERO SUPPRESS
286 001122 001403 BEQ OUTP1
287 001124 052700 000060 BIS #60,R0 ;MAKE OCTAL
288 001130 110022 MOVB R0,(R2)+ ;STORE DIGIT
289 001132 006101 OUTP1: ROL R1
290 001134 006100 ROL R0
291 001136 006101 ROL R1
292 001140 006100 ROL R0
293 001142 006101 ROL R1
294 001144 006100 ROL R0
295 001146 042700 177770 BIC #177770,R0 ;MASK OFF GARBAGE
296 001152 005700 TST R0 ;ZERO SUPPRESS
297 001154 001403 BEQ OUTP2
298 001156 052700 000060 BIS #60,R0 ;MAKE OCTAL
299 001162 110022 MOVB R0,(R2)+ ;STORE
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-6
300 001164 006101 OUTP2: ROL R1
301 001166 006100 ROL R0
302 001170 006101 ROL R1
303 001172 006100 ROL R0
304 001174 006101 ROL R1
305 001176 006100 ROL R0
306 001200 042700 177770 BIC #177770,R0 ;MASK OFF GARBAGE
307 001204 052700 000060 BIS #60,R0 ;NO SUPPRESS
308 001210 110022 MOVB R0,(R2)+ ;STORE
309 001212 012746 002154' MOV #IDVERR,-(SP) ;PRINT MESSAGE
310 001216 000627 BR EXITMS
311 ;
312 ;
313 ; GETVAL -- ROUTINE TO PICK UP A UNIT NUMBER
314 ; CALLING SEQUENCE:
315 ; R0 -- LINE BUFFER POINTER
316 ; R3 -- POINTER TO SAVE AREA FOR UNTI NUMBER
317 ; JSR PC,GETVAL
318 ;
319 ; EXIT CONDITIONS
320 ; R0 -- POINTER TO NEXT CHARACTER IN BUFFER
321 ; R2 -- OCTAL NUMBER
322 ;
323 001220 012704 000004 GETVAL: MOV #4.,R4 ;3 OCTAL DIGITS MAX
324 001224 005002 CLR R2 ;DEFAULT IS 0
325 001226 112001 NXTDIG: MOVB (R0)+,R1 ;PICK UP A CHARACTER
326 001230 122701 000057 CMPB #57,R1 ;IS IT LT 60?
327 001234 100015 BPL VALEND ;YES -- END OF DIGIT
328 001236 122701 000067 CMPB #67,R1 ;IS IT GT 67?
329 001242 100412 BMI VALEND ;YES -- END OF DIGIT
330 001244 110123 MOVB R1,(R3)+ ;SAVE THE ASCII CHARACTER
331 001246 042701 177770 BIC #177770,R1 ;CONVERT TO OCTAL
332 001252 006302 ASL R2
333 001254 006302 ASL R2
334 001256 006302 ASL R2
335 001260 042702 000007 BIC #7,R2 ;CLEAR OUT JUNK
336 001264 074102 XOR R1,R2 ;MOVE IN NEW DIGIT
337 001266 077421 SOB R4,NXTDIG ;END OF SCAN?
338 001270 VALEND: RETURN PC ;YES RETURN TO CALLER
001270 000207 RTS PC
339 ;
340 ; TEMP STORAGE
341 ;
342 001272 024577 RDMCR: .WORD RDMCB
343 001274 MCRBH: .BLKB 80. ;MCR COMMAND BUFFER
344 001414 040 040 NEWDEV: .ASCII / / ;NEW DEVICE NAME
345 001416 040 040 OLDDEV: .ASCII / / ;OLD DEVICE NAME
346 001420 NEWUNT: .BLKW 1 ;NEW UNIT NUMBER
347 001422 OLDUNT: .BLKW 1 ;OLD UNIT NUMBER
348 001424 NEWADR: .BLKW 1 ;ADDRESS OF NEW PUD
349 001426 OLDADR: .BLKW 1 ;ADDRESS OF OLD PUD
350 001430 040 040 040 NEWUNA: .ASCII / /
351 001433 040 040 040 OLDUNA: .ASCII / / ;ASCII SAVE AREA FOR UNIT NUMBER
352 ;
353 ; DIRECTIVES AND MESSAGES
354 ;
355 ;
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-7
356 001436 HNRMSG: .QIO WRIT,LUN,EFN1,0,0,0,HNRBF,HNRSZ
001436 003 011 .BYTE IO,9.
001440 000400 .WORD WRIT
001442 000002 .WORD LUN
001444 001 000 .BYTE EFN1,0
001446 000000 .WORD 0
001450 000000 .WORD 0
001452 001460' .WORD HNRBF
001454 000036 .WORD HNRSZ
001456 000040 .WORD 40
357 ;
358 001460 122 105 104 HNRBF: .ASCII /RED /
001463 040
359 001464 000000 HNRDEV: .WORD 0
360 001466 040 055 055 .ASCII / -- HANDLER NOT RESIDENT/
001471 040 110 101
001474 116 104 114
001477 105 122 040
001502 116 117 124
001505 040 122 105
001510 123 111 104
001513 105 116 124
361 .EVEN
362 000036 HNRSZ=.-HNRBF
363 ;
364 001516 VOLNM: .QIO WRIT,LUN,EFN1,0,0,0,VNMSG,VNSZ
001516 003 011 .BYTE IO,9.
001520 000400 .WORD WRIT
001522 000002 .WORD LUN
001524 001 000 .BYTE EFN1,0
001526 000000 .WORD 0
001530 000000 .WORD 0
001532 001540' .WORD VNMSG
001534 000031 .WORD VNSZ
001536 000040 .WORD 40
365 ;
366 001540 122 105 104 VNMSG: .ASCII /RED -- NEW SY NOT MOUNTED/
001543 040 055 055
001546 040 116 105
001551 127 040 123
001554 131 040 116
001557 117 124 040
001562 115 117 125
001565 116 124 105
001570 104
367 000031 VNSZ=.-VNMSG
368 .EVEN
369 ;
370 ;
371 001572 SECMSG: .QIO WRIT,LUN,EFN1,0,0,0,SECBF,SECSZ
001572 003 011 .BYTE IO,9.
001574 000400 .WORD WRIT
001576 000002 .WORD LUN
001600 001 000 .BYTE EFN1,0
001602 000000 .WORD 0
001604 000000 .WORD 0
001606 001614' .WORD SECBF
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-8
001610 000037 .WORD SECSZ
001612 000040 .WORD 40
372 ;
373 001614 122 105 104 SECBF: .ASCII /RED -- PRIMARY PROTOCOL RUNNING/
001617 040 055 055
001622 040 120 122
001625 111 115 101
001630 122 131 040
001633 120 122 117
001636 124 117 103
001641 117 114 040
001644 122 125 116
001647 116 111 116
001652 107
374 000037 SECSZ=.-SECBF
375 .EVEN
376 ;
377 ;
378 001654 SYNMSG: .QIO WRIT,LUN,EFN1,0,0,0,SYNBF,SYNSZ
001654 003 011 .BYTE IO,9.
001656 000400 .WORD WRIT
001660 000002 .WORD LUN
001662 001 000 .BYTE EFN1,0
001664 000000 .WORD 0
001666 000000 .WORD 0
001670 001676' .WORD SYNBF
001672 000023 .WORD SYNSZ
001674 000040 .WORD 40
379 ;
380 001676 122 105 104 SYNBF: .ASCII /RED -- SYNTAX ERROR/
001701 040 055 055
001704 040 123 131
001707 116 124 101
001712 130 040 105
001715 122 122 117
001720 122
381 000023 SYNSZ=.-SYNBF
382 ;
383 001721 122 105 104 SYNBF1: .ASCII /RED /
001724 040
384 001725 040 040 SYNDEV: .ASCII / /
385 001727 040 040 040 SYNUNT: .ASCII / /
386 001732 040 055 055 .ASCII / -- SYNTAX ERROR/
001735 040 123 131
001740 116 124 101
001743 130 040 105
001746 122 122 117
001751 122
387 ;
388 000031 SYNSZ1=.-SYNBF1
389 ;
390 001752 122 105 104 INCMS: .ASCII /RED /
001755 040
391 001756 040 040 040 INCMSG: .ASCII / /
001761 040 040
392 001763 040 055 055 .ASCII / -- DEVICE NOT KNOWN TO SYSTEM/
001766 040 104 105
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-9
001771 126 111 103
001774 105 040 116
001777 117 124 040
002002 113 116 117
002005 127 116 040
002010 124 117 040
002013 123 131 123
002016 124 105 115
393 000047 INCSZ=.-INCMS
394 .EVEN
395 002022 VOLMS: .QIO WRIT,LUN,EFN1,0,0,0,VOLMSG,VOLMSZ
002022 003 011 .BYTE IO,9.
002024 000400 .WORD WRIT
002026 000002 .WORD LUN
002030 001 000 .BYTE EFN1,0
002032 000000 .WORD 0
002034 000000 .WORD 0
002036 002044' .WORD VOLMSG
002040 000065 .WORD VOLMSZ
002042 000040 .WORD 40
396 ;
397 002044 106 061 061 VOLMSG: .ASCII /F11ACP NOT FOUND ON SYSTEM/<12><15>
002047 101 103 120
002052 040 116 117
002055 124 040 106
002060 117 125 116
002063 104 040 117
002066 116 040 123
002071 131 123 124
002074 105 115 012
002077 015
398 002100 123 131 123 .ASCII /SYSTEM MUST BE RELOADED/<12><15>
002103 124 105 115
002106 040 115 125
002111 123 124 040
002114 102 105 040
002117 122 105 114
002122 117 101 104
002125 105 104 012
002130 015
399 000065 VOLMSZ=.-VOLMSG
400 .EVEN
401 ;
402 ;
403 002132 SYNMS1: .QIO WRIT,LUN,EFN1,0,0,0,SYNBF1,SYNSZ1
002132 003 011 .BYTE IO,9.
002134 000400 .WORD WRIT
002136 000002 .WORD LUN
002140 001 000 .BYTE EFN1,0
002142 000000 .WORD 0
002144 000000 .WORD 0
002146 001721' .WORD SYNBF1
002150 000031 .WORD SYNSZ1
002152 000040 .WORD 40
404 ;
405 002154 IDVERR: .QIO WRIT,LUN,EFN1,0,0,0,INCMS,INCSZ
002154 003 011 .BYTE IO,9.
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-10
002156 000400 .WORD WRIT
002160 000002 .WORD LUN
002162 001 000 .BYTE EFN1,0
002164 000000 .WORD 0
002166 000000 .WORD 0
002170 001752' .WORD INCMS
002172 000047 .WORD INCSZ
002174 000040 .WORD 40
406 ;
407 002176 QIOWMC: QIOW$ IO.WLB,LUN,EFN1,0,0,0,<MCMS,MCSZ,0>
002176 003 011 .BYTE 3,$$$ARG
002200 000000G .WORD IO.WLB
002202 000002 .WORD LUN
002204 001 000 .BYTE EFN1,0
002206 000000 .WORD 0
002210 000000 .WORD 0
002212 002220' .WORD MCMS
002214 000004 .WORD MCSZ
002216 000000 .WORD 0
408 ;
409 002220 122 105 104 MCMS: .ASCII /RED>/
002223 076
410 000004 MCSZ=.-MCMS
411 .EVEN
412 ;
413 002224 QIORMC: QIOW$ IO.RLB,LUN,EFN1,0,STATUS,0,<MCRBH,80.>
002224 003 010 .BYTE 3,$$$ARG
002226 000000G .WORD IO.RLB
002230 000002 .WORD LUN
002232 001 000 .BYTE EFN1,0
002234 002356' .WORD STATUS
002236 000000 .WORD 0
002240 001274' .WORD MCRBH
002242 000120 .WORD 80.
414 ;
415 ;
416 002244 MCRERM: .QIO WRIT,LUN,EFN1,0,0,0,MCREMS,MCRBSZ
002244 003 011 .BYTE IO,9.
002246 000400 .WORD WRIT
002250 000002 .WORD LUN
002252 001 000 .BYTE EFN1,0
002254 000000 .WORD 0
002256 000000 .WORD 0
002260 002266' .WORD MCREMS
002262 000044 .WORD MCRBSZ
002264 000040 .WORD 40
417 002266 122 105 104 MCREMS: .ASCII /RED -- CAN'T READ MCR COMMAND BUFFER/
002271 040 055 055
002274 040 103 101
002277 116 047 124
002302 040 122 105
002305 101 104 040
002310 115 103 122
002313 040 103 117
002316 115 115 101
002321 116 104 040
002324 102 125 106
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-11
002327 106 105 122
418 000044 MCRBSZ=.-MCREMS
419 .EVEN
420 ;
421 002332 000000 COUNT: .WORD 0
422 002334 F11RQ: RQST$ F11ACP
002334 013 007 .BYTE 11.,7
002336 025167 003310 .RAD50 /F11ACP/
002342 000000 000000 .WORD 0,0
002346 000000 .WORD
002350 000 000 .BYTE ,
423 002352 025167 003310 F11NM: .RAD50 /F11ACP/
424 002356 STATUS: .BLKW 2
425 000000' .END REDIR
REDIRECT MACRO M1110 03-MAY-79 10:56 PAGE 1-12
SYMBOL TABLE
AM = 000033 INCSZ = 000047 OUTPUU 001034R R.QSTN= 000002 S.FW = ****** GX
CNTNXT 000236R IO = 000003 OUTP1 001132R SECBF 001614R U.ACP = ****** GX
CNTSCN 000226R IO.RLB= ****** GX OUTP2 001164R SECMSG 001572R U.DACP= ****** GX
COTSCN 000216R IO.WLB= ****** GX PR7 = ****** GX SECSZ = 000037 U.DN = ****** GX
COUNT 002332R LF = 000012 PS = ****** GX SF.EX = ****** GX U.HA = ****** GX
CR = 000015 LUN = 000002 QIORMC 002224R SF.IR = ****** GX U.RP = ****** GX
CR$RED= 000560RG MCMS 002220R QIOWMC 002176R SPA = 000040 U.SZ = ****** GX
EFN1 = 000001 MCRBH 001274R Q.IOAE= 000012 STATUS 002356R U.UN = ****** GX
EXIT = 000463 MCRBSZ= 000044 Q.IOEF= 000006 SYNBF 001676R U.VA = 000026
EXITA 000700R MCREMS 002266R Q.IOFN= 000002 SYNBF1 001721R VALEND 001270R
EXITMS 000676R MCRERM 002244R Q.IOLU= 000004 SYNCOM 000726R VNMSG 001540R
FNDBC 000100R MCRERR 000776R Q.IOPL= 000014 SYNDEV 001725R VNSZ = 000031
FNDBTH 000332R MCRER1 000046R Q.IOPR= 000007 SYNER 000770R VOLMS 002022R
FNDNEW 000310R MCSZ = 000004 Q.IOSB= 000010 SYNER1 000706R VOLMSG 002044R
FNDOLD 000264R NEWADR 001424R RDLP 000346R SYNER2 000746R VOLMSZ= 000065
F11NM 002352R NEWDEV 001414R RDMCB = 024577 SYNER4 000042R VOLNM 001516R
F11RQ 002334R NEWUNA 001430R RDMCR 001272R SYNER7 000260R WRIT = 000400
GETVAL 001220R NEWUNT 001420R RDNXT 000364R SYNER8 000254R $$ = 000067
HNRBF 001460R NTFND 001004R REDIR 000000R SYNMSG 001654R $$$ARG= 000010
HNRDEV 001464R NTFNDO 001024R REDSL 000014R SYNMS1 002132R $$$OST= 000016
HNRMSG 001436R NXTDIG 001226R R.QSGC= 000015 SYNOK 000212R $$$T1 = 000000
HNRSZ = 000036 OLDADR 001426R R.QSPC= 000014 SYNSZ = 000023 .PUDBA= ****** GX
IDVERR 002154R OLDDEV 001416R R.QSPN= 000006 SYNSZ1= 000031 .PUDEA= ****** GX
INCMS 001752R OLDUNA 001433R R.QSPR= 000012 SYNUNT 001727R ..FSTD= ****** GX
INCMSG 001756R OLDUNT 001422R
. ABS. 000000 000
002362 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2369 WORDS ( 10 PAGES)
DYNAMIC MEMORY: 3724 WORDS ( 14 PAGES)
ELAPSED TIME: 00:00:26
[47,10]REX,[47,20]REX/-SP/CR=[47,30]REX
REX CREATED BY MACRO ON 3-MAY-79 AT 10:56 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AM = 000033 #1-111 1-126 1-159
CNTNXT 000236 R #1-166 1-175 1-179
CNTSCN 000226 R #1-164 1-182 1-185
COTSCN 000216 R #1-162 1-168
COUNT 002332 R *1-208 *1-211 *1-219 #1-421
CR = 000015 #1-109 1-124 1-157
CR$RED = 000560 RG #1-224
EFN1 = 000001 #1-106 1-356 1-364 1-371 1-378 1-395 1-403 1-405 1-407
1-413 1-416
EXIT = 000463 #1-104 1-246
EXITA 000700 R 1-243 #1-246
EXITMS 000676 R #1-245 1-257 1-264 1-268 1-310
FNDBC 000100 R 1-123 #1-139
FNDBTH 000332 R 1-178 #1-186
FNDNEW 000310 R 1-163 #1-181
FNDOLD 000264 R 1-165 #1-174
F11NM 002352 R 1-216 #1-423
F11RQ 002334 R 1-214 *1-239 1-240 #1-422
GETVAL 001220 R 1-142 1-152 #1-323
HNRBF 001460 R 1-356 #1-358 1-362
HNRDEV 001464 R #1-359
HNRMSG 001436 R 1-244 #1-356
HNRSZ = 000036 1-356 #1-362
IDVERR 002154 R 1-309 #1-405
INCMS 001752 R #1-390 1-393 1-405
INCMSG 001756 R *1-278 1-279 #1-391
INCSZ = 000047 #1-393 1-405
IO = 000003 #1-105 1-356 1-364 1-371 1-378 1-395 1-403 1-405 1-416
IO.RLB = ****** GX 1-413
IO.WLB = ****** GX 1-407
LF = 000012 #1-110
LUN = 000002 #1-108 1-356 1-364 1-371 1-378 1-395 1-403 1-405 1-407
1-413 1-416
MCMS 002220 R 1-407 #1-409 1-410
MCRBH 001274 R 1-120 1-134 *1-136 #1-343 1-413
MCRBSZ = 000044 1-416 #1-418
MCREMS 002266 R 1-416 #1-417 1-418
MCRERM 002244 R 1-267 #1-416
MCRERR 000776 R #1-267
MCRER1 000046 R 1-119 #1-132
MCSZ = 000004 1-407 #1-410
NEWADR 001424 R 1-177 *1-183 1-191 1-201 1-241 1-270 #1-348
NEWDEV 001414 R *1-139 *1-140 1-162 1-209 1-249 1-250 1-272 #1-344
NEWUNA 001430 R 1-141 #1-350
NEWUNT 001420 R *1-148 1-181 1-251 1-273 #1-346
NTFND 001004 R 1-169 #1-270
NTFNDO 001024 R 1-271 #1-276
NXTDIG 001226 R #1-325 1-337
OLDADR 001426 R *1-176 1-184 1-186 1-189 1-199 #1-349
OLDDEV 001416 R *1-149 *1-150 1-164 1-195 1-259 1-260 1-276 #1-345
OLDUNA 001433 R 1-151 1-261 #1-351
OLDUNT 001422 R *1-153 1-174 1-277 #1-347
REX CREATED BY MACRO ON 3-MAY-79 AT 10:56 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
OUTPUU 001034 R 1-274 #1-278
OUTP1 001132 R 1-286 #1-289
OUTP2 001164 R 1-297 #1-300
PR7 = ****** GX 1-223
PS = ****** GX 1-223 1-223
QIORMC 002224 R 1-133 #1-413
QIOWMC 002176 R 1-132 #1-407
Q.IOAE = 000012 #1-407 #1-413
Q.IOEF = 000006 #1-407 #1-413
Q.IOFN = 000002 #1-407 #1-413
Q.IOLU = 000004 #1-407 #1-413
Q.IOPL = 000014 #1-407 #1-413
Q.IOPR = 000007 #1-407 #1-413
Q.IOSB = 000010 #1-407 #1-413
RDLP 000346 R #1-189 1-194
RDMCB = 024577 #1-102 1-342
RDMCR 001272 R 1-117 #1-342
RDNXT 000364 R 1-190 #1-192
REDIR 000000 R #1-116 1-425
REDSL 000014 R #1-121 1-128
R.QSGC = 000015 #1-422
R.QSPC = 000014 #1-422
R.QSPN = 000006 #1-422
R.QSPR = 000012 #1-422
R.QSTN = 000002 #1-422
SECBF 001614 R 1-371 #1-373 1-374
SECMSG 001572 R #1-371
SECSZ = 000037 1-371 #1-374
SF.EX = ****** GX 1-228 1-238
SF.IR = ****** GX 1-226
SPA = 000040 #1-112 1-122
STATUS 002356 R 1-135 1-136 1-413 #1-424
SYNBF 001676 R 1-378 #1-380 1-381
SYNBF1 001721 R #1-383 1-388 1-403
SYNCOM 000726 R #1-252 1-262
SYNDEV 001725 R *1-249 *1-250 *1-259 *1-260 #1-384
SYNER 000770 R 1-130 #1-263
SYNER1 000706 R 1-172 #1-249
SYNER2 000746 R 1-171 #1-259
SYNER4 000042 R 1-125 1-127 #1-130
SYNER7 000260 R 1-147 #1-172
SYNER8 000254 R 1-160 #1-171
SYNMSG 001654 R 1-263 #1-378
SYNMS1 002132 R 1-253 #1-403
SYNOK 000212 R 1-158 #1-161
SYNSZ = 000023 1-378 #1-381
SYNSZ1 = 000031 #1-388 1-403
SYNUNT 001727 R 1-252 #1-385
S.FW = ****** GX 1-226 *1-228 *1-238
U.ACP = ****** GX 1-197 1-232 *1-234
U.DACP = ****** GX *1-200 *1-222 *1-229
U.DN = ****** GX 1-162 1-164
REX CREATED BY MACRO ON 3-MAY-79 AT 10:56 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
U.HA = ****** GX 1-242
U.RP = ****** GX 1-187 1-189 *1-191 *1-207
U.SZ = ****** GX 1-166 1-192 1-235
U.UN = ****** GX 1-174 1-181
U.VA = 000026 #1-103 1-202
VALEND 001270 R 1-327 1-329 #1-338
VNMSG 001540 R 1-364 #1-366 1-367
VNSZ = 000031 1-364 #1-367
VOLMS 002022 R 1-221 #1-395
VOLMSG 002044 R 1-395 #1-397 1-399
VOLMSZ = 000065 1-395 #1-399
VOLNM 001516 R 1-204 #1-364
WRIT = 000400 #1-107 1-356 1-364 1-371 1-378 1-395 1-403 1-405 1-416
$$ = 000067 #1-142 1-142 #1-152 1-152 #1-217 1-217
$$$ARG = 000010 #1-407 1-407 #1-407 1-407 #1-407 1-407 #1-407 1-407 #1-413
1-413 #1-413 1-413 #1-413 1-413
$$$GLB = ****** 1-407 1-407 1-407 1-407 1-407 1-407 1-407 1-407 1-413
1-413 1-413 1-413 1-413 1-413 1-413 1-413 1-422 1-422
1-422 1-422 1-422 1-422
$$$OST = 000016 #1-407 1-407 1-407 #1-407 1-407 1-407 #1-407 1-407 1-407
#1-407 1-407 1-407 #1-407 1-407 1-407 #1-407 1-407 1-407
#1-407 1-407 #1-413 1-413 1-413 #1-413 1-413 1-413 #1-413
1-413 1-413 #1-413 1-413 1-413 #1-413 1-413 1-413 #1-413
1-413 1-413 #1-413 1-413 #1-422 1-422 1-422 #1-422 1-422
1-422 #1-422 1-422 1-422 #1-422 1-422 1-422 #1-422 1-422
1-422 #1-422
$$$T1 = 000000 #1-422 1-422 1-422 1-422 #1-422 1-422
.PUDBA = ****** GX 1-161 1-188 1-231
.PUDEA = ****** GX 1-167 1-193 1-236
..FSTD = ****** GX 1-217 1-217
REX CREATED BY MACRO ON 3-MAY-79 AT 10:56 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ALUN$S #1-96
CALL #1-96 1-142 1-152 1-217
DIR$ #1-96 #1-132 #1-133 #1-204 #1-214 #1-215 #1-215 #1-221 #1-240
ERR$ #1-132 #1-133 #1-204 #1-214 #1-215 #1-221 #1-240
EXIT$S #1-96
OFF$ #1-407 #1-407 #1-407 #1-407 #1-407 #1-407 #1-407 #1-407 #1-407 #1-413
#1-413 #1-413 #1-413 #1-413 #1-413 #1-413 #1-413 #1-413 #1-422 #1-422
#1-422 #1-422 #1-422 #1-422 #1-422
QDPB$ #1-407 #1-407 #1-413 #1-413
QIOW$ #1-96 #1-407 #1-413
QIO$ #1-97
RETURN #1-96 1-338
RQST$ #1-96 1-422
R50$ #1-422 #1-422 #1-422
WSIG$S #1-96 #1-215
.CRASH #1-96 #1-224
.INH #1-97 1-223
.QIO #1-84 1-356 1-364 1-371 1-378 1-395 1-403 1-405 1-416