Trailing-Edge
-
PDP-10 Archives
-
BB-H311B-RM
-
rsx20f-swskit/listings/red.lis
There is 1 other file named red.lis in the archive. Click here to see a list.
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1
1 .IDENT "V002000"
2 .NLIST TTM
3 .NLIST SYM
4 .LIST MEB
5 .TITLE REDIRECT
6 ;
7 ;
8 ;
9 ;
10 ; COPYRIGHT (C) 1973, 1978 BY
11 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
12 ;
13 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
14 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
15 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
16 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
17 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
18 ;
19 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
20 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
21 ; CORPORATION.
22 ;
23 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
24 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
25 ;
26 ;
27 ;
28 ;
29 ;
30 ;
31 ;
32 ;
33 ; VERSION: V002000
34 ;
35 ; AUTHOR: R. MCLEAN
36 ;
37 ; DATE: 19 MAR 73
38 ;
39 ; MODIFIED BY ELLEN R GORDON
40 ;
41 ; DATE: 5 NOV 1973
42 ;
43 ; RSX20F -- R. MCLEAN
44 ; DATE 20-OCT-75
45 ;
46 ;
47 ;
48 ;
49 ; VERSION V001A
50 ;+
51 ; MCR FUNCTION -- REDIRECT
52 ;
53 ;NOTE -- REDIRECT IS A PRIVILEDGED TASK
54 ;
55 ;NOTE -- REDIRECT USES 1 LUN.
56 ;
57 ; THIS IS ONLY SUPPOSED TO BE USED
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-1
58 ; TO REDIRECT SY FOR RSX20F!
59 ;
60 ;
61 ;TASK NAME "...RED" TO REDIRECT ALL I/O REQUESTS
62 ;FROM ONE PHYSICAL DEVICE-UNIT TO ANOTHER.
63 ;ONE LINE OF COMMAND INPUT OF THE FOLLOWING SYNTAX IS USED:
64 ;
65 ; REDIRECT ::= "RED" $ <NBC> <BC>
66 ; <NEW DEVICE> ("_"/"=") <OLD DEVICE> <LT>;
67 ;
68 ; <OLD DEVICE> ::= <DEVICE-UNIT SYMBOL>;
69 ; <NEW DEVICE> ::= <DEVICE-UNIT SYMBOL>;
70 ; <DEVICE-UNIT SYMBOL> ::= <LETTER><LETTER>;
71 ; (OCTAL VALUE/NUL);
72 ; / INDICATES ALTERNATION (OR)
73 ; '$' INDICATES ANY NUMBER OF (INCLUNDING ZERO) OF
74 ; 'NUL' INDICATES THE EMPTY SET
75 ; <BC> ::= SPACE [BREAK CHARACTER]
76 ; <NBC> ::= NON-BREAK CHARACTER
77 ; <LT> ::= <CR>/<AM>; [LINE TERMINATOR]
78 ; <CR> ::= CARRAGE RETURN
79 ; <AM> ::= ALTMODE
80 ; <LETTER> ::= 'A'/'B'/.....'Z'
81 ; <OCTAL VALUE> ::= 1-3 OCTAL DIGITS
82 ;
83 ;
84 ; MACRO DEFINITIONS
85 ;-
86 .MACRO .QIO WRIT,LUN,EFN,PRI,IOS,AST,PAR1,PAR2
87 .BYTE IO,9.
88 .WORD WRIT
89 .WORD LUN
90 .BYTE EFN,PRI
91 .WORD IOS
92 .WORD AST
93 .WORD PAR1
94 .WORD PAR2
95 .WORD 40
96 .ENDM
97 ;
98 .MCALL CALL,RETURN,DIR$,ALUN$S,QIOW$,WSIG$S,EXIT$S,RQST$,.CRASH
99 .MCALL QIO$,.INH
100 ;
101 ;
102 ; DIRECTIVE DEFINITIONS
103 ;
104 024577 RDMCB=41.*400+127. ;READ MCR COMMAND BUFFER
105 000026 U.VA=26
106 000463 EXIT=1.*400+51. ;EXIT
107 000003 IO=3. ;Q I/O
108 000001 EFN1=1 ;EVENT FLAG 1
109 000400 WRIT=400 ;WRITE
110 000002 LUN=2 ;LOGICAL UNIT
111 000015 CR=15 ;CAR RTN
112 000012 LF=12 ;LINE FEED
113 000033 AM=33 ;ALTMODE
114 000040 SPA=40 ;SPACE
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-2
115 ;
116 ;
117 ;
118 000000 032767 000000G 000002G REDIR: BIT #EF.PR1,.COMEF+2 ;PRIMARY PROTOCOL?
119 000006 001404 BEQ 10$ ;YES -- ALL OK
120 000010 012746 001574' MOV #SECMSG,-(SP) ;NO -- COMPLAIN
121 000014 000167 000660 5$: JMP EXITMS
122 ;
123 000020 012746 001274' 10$: MOV #RDMCR,-(SP) ;READ THE MCR COMMAND LINE
124 000024 104375 EMT 375
125 000026 103417 BCS MCRER1 ;ERROR ON TRYING TO READ MCR LINE
126 000030 012700 001301' MOV #MCRBH+3,R0 ;SET UP TO LOOK AT THE MCR BUFFER
127 000034 112001 REDSL: MOVB (R0)+,R1 ;PICK UP A CHARACTER FROM THE BUFFER
128 000036 022701 000040 CMP #SPA,R1 ;IS THIS A BREAK CHARACTER?
129 000042 001426 BEQ FNDBC ;YES -- START DECODING LINE
130 000044 022701 000015 CMP #CR,R1 ;NO -- IS IT A CARRAGE RETURN?
131 000050 001404 BEQ SYNER4 ;YES -- SYNTAX ERROR
132 000052 022701 000033 CMP #AM,R1 ;NO -- IS IT AN ALTMODE?
133 000056 001401 BEQ SYNER4 ;YES -- SYNTAX ERROR
134 000060 000765 BR REDSL ;NO -- THEN IT IS AN NBC
135 ;
136 000062 000167 000704 SYNER4: JMP SYNER
137 ;
138 000066 MCRER1: DIR$ #QIOWMC ;PROMPT
000066 012746 002200' MOV #QIOWMC,-(SP)
000072 104375 EMT 375
139 000074 DIR$ #QIORMC ;READ COMMAND LINE
000074 012746 002226' MOV #QIORMC,-(SP)
000100 104375 EMT 375
140 000102 012700 001276' MOV #MCRBH,R0 ;POINT TO THE COMMAND LINE
141 000106 016701 002250 MOV STATUS+2,R1 ;SET THE TERMINATING CHAR IN BUFFER
142 000112 116761 002243 001276' MOVB STATUS+1,MCRBH(R1)
143 ;
144 ;
145 000120 112067 001272 FNDBC: MOVB (R0)+,NEWDEV ;PICK UP THE DEVICE NAME (NEW DEVICE
146 000124 112067 001267 MOVB (R0)+,NEWDEV+1 ;BOTH CHARACTERS
147 000130 012703 001432' MOV #NEWUNA,R3 ;SAVE THE ASCII
148 000134 CALL PC,GETVAL ;FIND THE UNIT NUMBER
000134 004767 001062 JSR PC,GETVAL
149 000140 120127 000072 CMPB R1,#': ;ALLOW COLON AFTER DEVICE
150 000144 001001 BNE 1$
151 000146 112001 MOVB (R0)+,R1 ;MOVE PAST COLON
152 000150 120127 000075 1$: CMPB R1,#'= ;IS THE CHARACTER AN =?
153 000154 001051 BNE SYNER7 ;NO -- NEITHER = OR _ THEREFORE SYNTAX ERROR
154 000156 010267 001240 10$: MOV R2,NEWUNT ;YES -- SAVE THE NEW UNIT NUMBER
155 000162 112067 001232 MOVB (R0)+,OLDDEV ;SAVE THE OLD DEVICE NAME
156 000166 112067 001227 MOVB (R0)+,OLDDEV+1
157 000172 012703 001435' MOV #OLDUNA,R3 ;SAVE THE ASCII DEVICE NAME
158 000176 CALL PC,GETVAL ;GET THE UNIT NUMBER OF THE OLD DEVICE
000176 004767 001020 JSR PC,GETVAL
159 000202 010267 001216 MOV R2,OLDUNT ;SAVE THE OLD UNIT NUMBER
160 000206 120127 000072 CMPB R1,#': ;ALLOW COLON AFTER DEVICE
161 000212 001001 BNE 2$
162 000214 112001 MOVB (R0)+,R1 ;MOVE PAST COLON
163 000216 120127 000015 2$: CMPB R1,#CR ;IS THE TERMINATING CHARACTER A CARRTN?
164 000222 001403 BEQ SYNOK ;YES -- SYNTAX IS OK
165 000224 120127 000033 CMPB R1,#AM ;NO -- IS IT ALTMODE?
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-3
166 000230 001021 BNE SYNER8 ;NO -- SYNTAX ERROR
167 000232 012700 000000G SYNOK: MOV #.PUDBA,R0 ;YES -- FIND THE BEGINNING OF THE PUD
168 000236 026067 000000G 001152 COTSCN: CMP U.DN(R0),NEWDEV ;SEARCH FOR A MATCH
169 000244 001431 BEQ FNDNEW ;FOUND MATCH ON NEW UNIT
170 000246 026067 000000G 001144 CNTSCN: CMP U.DN(R0),OLDDEV ;SEARCH FOR MATCH ON OLD UNIT ALSO
171 000254 001413 BEQ FNDOLD ;FOUND OLD UNIT MATCH
172 000256 062700 000000G CNTNXT: ADD #U.SZ,R0 ;ADD THE PUD SIZE TO POINTER FOR NEXT ENTRY
173 000262 020027 000000G CMP R0,#.PUDEA ;IS THIS THE END OF THE TABLE?
174 000266 001363 BNE COTSCN ;NO -- CONTINUE SCAN
175 000270 000167 000512 JMP NTFND ;YES -- CAN'T FIND BOTH ENTRIES
176 ;
177 000274 000167 000450 SYNER8: JMP SYNER2
178 000300 000167 000404 SYNER7: JMP SYNER1
179 ;
180 000304 126067 000000G 001112 FNDOLD: CMPB U.UN(R0),OLDUNT ;DO THE UNITS MATCH?
181 000312 001361 BNE CNTNXT ;NO -- CONTINUE SCAN
182 000314 010067 001110 MOV R0,OLDADR ;YES -- SAVE THE PUD POINTER
183 000320 005767 001102 TST NEWADR ;HAVE WE FOUND BOTH?
184 000324 001012 BNE FNDBTH ;YES -- STOP SCAN
185 000326 000753 BR CNTNXT ;NO -- CONTINUE SCAN
186 ;
187 000330 126067 000000G 001064 FNDNEW: CMPB U.UN(R0),NEWUNT ;DO THE UNITS MATCH?
188 000336 001343 BNE CNTSCN ;NO -- CONTINUE SCAN
189 000340 010067 001062 MOV R0,NEWADR ;YES -- SAVE THE PUD POINTER
190 000344 005767 001060 TST OLDADR ;FOUND BOTH?
191 000350 001736 BEQ CNTSCN ;NO -- CONTINUE SCAN
192 000352 016700 001052 FNDBTH: MOV OLDADR,R0 ;SAVE REDIRECTED ADDRESS
193 000356 016004 000000G MOV U.RP(R0),R4
194 000362 012700 000000G MOV #.PUDBA,R0 ;YES -- SEARCH PUD FOR ENTRIES REDIRECTED TO OLD
195 000366 026067 000000G 001034 RDLP: CMP U.RP(R0),OLDADR ;AND CHANGE TO THE NEW UNIT
196 000374 001003 BNE RDNXT ;NO MATCH -- DON'T UPDATE REDIRECT POINTER
197 000376 016760 001024 000000G MOV NEWADR,U.RP(R0) ;YES -- SET UP A NEW REDIRECT POINTER
198 000404 062700 000000G RDNXT: ADD #U.SZ,R0 ;LOOK AT THE NEXT ENTRY
199 000410 022700 000000G CMP #.PUDEA,R0 ;AT THE END OF THE TABLE?
200 000414 001364 BNE RDLP ;NO -- CONTINUE SCAN
201 000416 022767 054523 000774 CMP #"SY,OLDDEV ;OLD DEVICE SY?
202 000424 001116 BNE 40$ ;NO -- FORGET IT
203 000426 016401 000000G MOV U.ACP(R4),R1 ;FIND THE ACP STD ADDRESS
204 000432 005211 INC @R1 ;CHANGE THE NAME OF THE FCP TASK
205 000434 016700 000770 MOV OLDADR,R0 ;YES -- REDIRECT THE OLD PUD
206 000440 005264 000000G INC U.DACP(R4) ;UPDATE ACP
207 000444 016705 000756 MOV NEWADR,R5
208 000450 005765 000026 TST U.VA(R5) ;VOLUME MOUNTED?
209 000454 001004 BNE 3$
210 000456 DIR$ #VOLNM
000456 012746 001520' MOV #VOLNM,-(SP)
000462 104375 EMT 375
211 000464 000423 BR 8$
212 ;
213 000466 010560 000000G 3$: MOV R5,U.RP(R0)
214 000472 005067 001636 CLR COUNT ; SET THE TIMEOUT COUNT TO ZERO
215 000476 010146 MOV R1,-(SP) ;SAVE STD ADDRESS
216 000500 DIR$ #F11RQ ;REQUEST NEW F11ACP
000500 012746 002336' MOV #F11RQ,-(SP)
000504 104375 EMT 375
217 000506 5$: WSIG$S ;WAIT A WHILE
000506 012746 MOV (PC)+,-(SP)
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-4
000510 061 001 .BYTE 49.,1
000512 104375 EMT 375
218 000514 012701 002354' MOV #F11NM,R1 ;SEARCH FOR F11ACP TO BE INSTALLED
219 000520 CALL ..FSTD ;SEARCH
000520 004767 000000G JSR PC,..FSTD
220 000524 001020 BNE 10$ ;FOUND IT -- NOW CAN WORK
221 000526 005367 001602 7$: DEC COUNT
222 000532 001365 BNE 5$
223 000534 8$: DIR$ #VOLMS
000534 012746 002024' MOV #VOLMS,-(SP)
000540 104375 EMT 375
224 000542 005364 000000G DEC U.DACP(R4)
225 000546 .INH
000546 016746 000000G MOV PS,-(SP)
000552 112737 000000G 000000G MOVB #PR7,@#PS ;;
226 000560 .CRASH RED
000560 000004 IOT
000562 122 105 104 .ASCIZ /RED/
000565 000
227 ;
228 000566 032762 000000G 000000G 10$: BIT #SF.IR,S.FW(R2) ;REALLY INSTALLED YET?
229 000574 001354 BNE 7$ ;NOPE -- CONTINUE WAITING
230 000576 042762 000000G 000000G BIC #SF.EX,S.FW(R2) ;CLEAR THE REMOVEON EXIT FLAG
231 000604 005364 000000G DEC U.DACP(R4) ;RESET NAME
232 000610 012600 MOV (SP)+,R0 ;RESTORE OLD STD ADDRESS
233 000612 012705 000000G MOV #.PUDBA,R5 ;SET UP ALL THE STD ADDRESSES
234 000616 026500 000000G 20$: CMP U.ACP(R5),R0 ;CORRECT ACP?
235 000622 001002 BNE 30$
236 000624 010265 000000G MOV R2,U.ACP(R5) ;YES -- SET NEW ACP STD ADDRESS
237 000630 062705 000000G 30$: ADD #U.SZ,R5 ;LOOK AT THE NEXT PUD ENTRY
238 000634 022705 000000G CMP #.PUDEA,R5 ;END?
239 000640 101366 BHI 20$ ;NO -- TRY NEXT ONE
240 000642 052760 000000G 000000G BIS #SF.EX,S.FW(R0) ;SET REMOVE ON EXIT FOR OLD ONE
241 000650 005267 001464 INC F11RQ+2 ;RUN THIS ONE SO IT GETS REMOVED
242 000654 DIR$ #F11RQ
000654 012746 002336' MOV #F11RQ,-(SP)
000660 104375 EMT 375
243 000662 016700 000540 40$: MOV NEWADR,R0 ;CHECK FOR HANDLER RESIDENT
244 000666 005760 000000G TST U.HA(R0)
245 000672 001003 BNE EXITA ;YES -- NO WARNING MESSAGE
246 000674 012746 001440' MOV #HNRMSG,-(SP) ;PRINT WARNING MESSAGE
247 000700 104375 EXITMS: EMT 375
248 000702 012746 000463 EXITA: MOV #EXIT,-(SP) ;EXIT
249 000706 104375 EMT 375
250 ;
251 000710 116767 000502 001011 SYNER1: MOVB NEWDEV,SYNDEV ;SET UP TO PRINT THE DEVICE NAME
252 000716 116767 000475 001004 MOVB NEWDEV+1,SYNDEV+1
253 000724 012703 001422' MOV #NEWUNTA,R3 ;SET UP TO FIND THE UNIT NUMBER
254 000730 012702 001731' SYNCOM: MOV #SYNUNT,R2 ;SET UP THE BUFFER POINTER TO UNIT
255 000734 012746 002134' MOV #SYNMS1,-(SP) ;PUSH THE DPB ADDRESS
256 000740 112322 MOVB (R3)+,(R2)+ ;MOVE IN THE UNIT NUMBER
257 000742 112322 MOVB (R3)+,(R2)+
258 000744 112322 MOVB (R3)+,(R2)+
259 000746 000754 BR EXITMS ;PRINT THE MESSAGE AND WAIT
260 ;
261 000750 116767 000444 000751 SYNER2: MOVB OLDDEV,SYNDEV ;SET UP THE DEVICE NAME
262 000756 116767 000437 000744 MOVB OLDDEV+1,SYNDEV+1
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-5
263 000764 012703 001435' MOV #OLDUNA,R3 ;AND UNIT NUMBER
264 000770 000757 BR SYNCOM ;AND PRINT THE MESSAGE
265 000772 012746 001656' SYNER: MOV #SYNMSG,-(SP) ;PRINT SYNTAX ERROR
266 000776 000740 BR EXITMS ;WAIT FOR MESSAGE AND EXIT
267 ;
268 ;
269 001000 012746 002246' MCRERR: MOV #MCRERM,-(SP) ;WRITE MCR ERROR
270 001004 000735 BR EXITMS ;AND EXIT
271 ;
272 001006 005767 000414 NTFND: TST NEWADR ;DIDN'T FIND A MATCH IS IT NEW?
273 001012 001005 BNE NTFNDO ;NO -- MUST BE OLD WE DIDN'T FIND
274 001014 016700 000376 MOV NEWDEV,R0 ;YES -- PRINT DEVICE NAME AND UNIT
275 001020 016701 000376 MOV NEWUNT,R1 ;ON ERROR MESSAGE TTY
276 001024 000404 BR OUTPUU ;BRANCH TO COMMON ERROR ROUTINE
277 ;
278 001026 016700 000366 NTFNDO: MOV OLDDEV,R0 ;PICK UP THE OLD UNIT NUMBER
279 001032 016701 000366 MOV OLDUNT,R1 ;AND DEVICE NAME
280 001036 010067 000716 OUTPUU: MOV R0,INCMSG ;STORE THE DEVICE NAME
281 001042 012702 001762' MOV #INCMSG+2,R2 ;SET UP TO STORE THE UNIT NUMBER
282 000012 .REPT 10.
283 ROL R1
284 ROL R0
285 .ENDR
001046 006101 ROL R1
001050 006100 ROL R0
001052 006101 ROL R1
001054 006100 ROL R0
001056 006101 ROL R1
001060 006100 ROL R0
001062 006101 ROL R1
001064 006100 ROL R0
001066 006101 ROL R1
001070 006100 ROL R0
001072 006101 ROL R1
001074 006100 ROL R0
001076 006101 ROL R1
001100 006100 ROL R0
001102 006101 ROL R1
001104 006100 ROL R0
001106 006101 ROL R1
001110 006100 ROL R0
001112 006101 ROL R1
001114 006100 ROL R0
286 001116 042700 177770 BIC #177770,R0 ;MASK OFF GARGAGE
287 001122 005700 TST R0 ;ZERO SUPPRESS
288 001124 001403 BEQ OUTP1
289 001126 052700 000060 BIS #60,R0 ;MAKE OCTAL
290 001132 110022 MOVB R0,(R2)+ ;STORE DIGIT
291 001134 006101 OUTP1: ROL R1
292 001136 006100 ROL R0
293 001140 006101 ROL R1
294 001142 006100 ROL R0
295 001144 006101 ROL R1
296 001146 006100 ROL R0
297 001150 042700 177770 BIC #177770,R0 ;MASK OFF GARBAGE
298 001154 005700 TST R0 ;ZERO SUPPRESS
299 001156 001403 BEQ OUTP2
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-6
300 001160 052700 000060 BIS #60,R0 ;MAKE OCTAL
301 001164 110022 MOVB R0,(R2)+ ;STORE
302 001166 006101 OUTP2: ROL R1
303 001170 006100 ROL R0
304 001172 006101 ROL R1
305 001174 006100 ROL R0
306 001176 006101 ROL R1
307 001200 006100 ROL R0
308 001202 042700 177770 BIC #177770,R0 ;MASK OFF GARBAGE
309 001206 052700 000060 BIS #60,R0 ;NO SUPPRESS
310 001212 110022 MOVB R0,(R2)+ ;STORE
311 001214 012746 002156' MOV #IDVERR,-(SP) ;PRINT MESSAGE
312 001220 000627 BR EXITMS
313 ;
314 ;
315 ; GETVAL -- ROUTINE TO PICK UP A UNIT NUMBER
316 ; CALLING SEQUENCE:
317 ; R0 -- LINE BUFFER POINTER
318 ; R3 -- POINTER TO SAVE AREA FOR UNTI NUMBER
319 ; JSR PC,GETVAL
320 ;
321 ; EXIT CONDITIONS
322 ; R0 -- POINTER TO NEXT CHARACTER IN BUFFER
323 ; R2 -- OCTAL NUMBER
324 ;
325 001222 012704 000004 GETVAL: MOV #4.,R4 ;3 OCTAL DIGITS MAX
326 001226 005002 CLR R2 ;DEFAULT IS 0
327 001230 112001 NXTDIG: MOVB (R0)+,R1 ;PICK UP A CHARACTER
328 001232 122701 000057 CMPB #57,R1 ;IS IT LT 60?
329 001236 100015 BPL VALEND ;YES -- END OF DIGIT
330 001240 122701 000067 CMPB #67,R1 ;IS IT GT 67?
331 001244 100412 BMI VALEND ;YES -- END OF DIGIT
332 001246 110123 MOVB R1,(R3)+ ;SAVE THE ASCII CHARACTER
333 001250 042701 177770 BIC #177770,R1 ;CONVERT TO OCTAL
334 001254 006302 ASL R2
335 001256 006302 ASL R2
336 001260 006302 ASL R2
337 001262 042702 000007 BIC #7,R2 ;CLEAR OUT JUNK
338 001266 074102 XOR R1,R2 ;MOVE IN NEW DIGIT
339 001270 077421 SOB R4,NXTDIG ;END OF SCAN?
340 001272 VALEND: RETURN PC ;YES RETURN TO CALLER
001272 000207 RTS PC
341 ;
342 ; TEMP STORAGE
343 ;
344 001274 024577 RDMCR: .WORD RDMCB
345 001276 MCRBH: .BLKB 80. ;MCR COMMAND BUFFER
346 001416 040 040 NEWDEV: .ASCII / / ;NEW DEVICE NAME
347 001420 040 040 OLDDEV: .ASCII / / ;OLD DEVICE NAME
348 001422 NEWUNT: .BLKW 1 ;NEW UNIT NUMBER
349 001424 OLDUNT: .BLKW 1 ;OLD UNIT NUMBER
350 001426 NEWADR: .BLKW 1 ;ADDRESS OF NEW PUD
351 001430 OLDADR: .BLKW 1 ;ADDRESS OF OLD PUD
352 001432 040 040 040 NEWUNA: .ASCII / /
353 001435 040 040 040 OLDUNA: .ASCII / / ;ASCII SAVE AREA FOR UNIT NUMBER
354 ;
355 ; DIRECTIVES AND MESSAGES
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-7
356 ;
357 ;
358 001440 HNRMSG: .QIO WRIT,LUN,EFN1,0,0,0,HNRBF,HNRSZ
001440 003 011 .BYTE IO,9.
001442 000400 .WORD WRIT
001444 000002 .WORD LUN
001446 001 000 .BYTE EFN1,0
001450 000000 .WORD 0
001452 000000 .WORD 0
001454 001462' .WORD HNRBF
001456 000036 .WORD HNRSZ
001460 000040 .WORD 40
359 ;
360 001462 122 105 104 HNRBF: .ASCII /RED /
001465 040
361 001466 000000 HNRDEV: .WORD 0
362 001470 040 055 055 .ASCII / -- HANDLER NOT RESIDENT/
001473 040 110 101
001476 116 104 114
001501 105 122 040
001504 116 117 124
001507 040 122 105
001512 123 111 104
001515 105 116 124
363 .EVEN
364 000036 HNRSZ=.-HNRBF
365 ;
366 001520 VOLNM: .QIO WRIT,LUN,EFN1,0,0,0,VNMSG,VNSZ
001520 003 011 .BYTE IO,9.
001522 000400 .WORD WRIT
001524 000002 .WORD LUN
001526 001 000 .BYTE EFN1,0
001530 000000 .WORD 0
001532 000000 .WORD 0
001534 001542' .WORD VNMSG
001536 000031 .WORD VNSZ
001540 000040 .WORD 40
367 ;
368 001542 122 105 104 VNMSG: .ASCII /RED -- NEW SY NOT MOUNTED/
001545 040 055 055
001550 040 116 105
001553 127 040 123
001556 131 040 116
001561 117 124 040
001564 115 117 125
001567 116 124 105
001572 104
369 000031 VNSZ=.-VNMSG
370 .EVEN
371 ;
372 ;
373 001574 SECMSG: .QIO WRIT,LUN,EFN1,0,0,0,SECBF,SECSZ
001574 003 011 .BYTE IO,9.
001576 000400 .WORD WRIT
001600 000002 .WORD LUN
001602 001 000 .BYTE EFN1,0
001604 000000 .WORD 0
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-8
001606 000000 .WORD 0
001610 001616' .WORD SECBF
001612 000037 .WORD SECSZ
001614 000040 .WORD 40
374 ;
375 001616 122 105 104 SECBF: .ASCII /RED -- PRIMARY PROTOCOL RUNNING/
001621 040 055 055
001624 040 120 122
001627 111 115 101
001632 122 131 040
001635 120 122 117
001640 124 117 103
001643 117 114 040
001646 122 125 116
001651 116 111 116
001654 107
376 000037 SECSZ=.-SECBF
377 .EVEN
378 ;
379 ;
380 001656 SYNMSG: .QIO WRIT,LUN,EFN1,0,0,0,SYNBF,SYNSZ
001656 003 011 .BYTE IO,9.
001660 000400 .WORD WRIT
001662 000002 .WORD LUN
001664 001 000 .BYTE EFN1,0
001666 000000 .WORD 0
001670 000000 .WORD 0
001672 001700' .WORD SYNBF
001674 000023 .WORD SYNSZ
001676 000040 .WORD 40
381 ;
382 001700 122 105 104 SYNBF: .ASCII /RED -- SYNTAX ERROR/
001703 040 055 055
001706 040 123 131
001711 116 124 101
001714 130 040 105
001717 122 122 117
001722 122
383 000023 SYNSZ=.-SYNBF
384 ;
385 001723 122 105 104 SYNBF1: .ASCII /RED /
001726 040
386 001727 040 040 SYNDEV: .ASCII / /
387 001731 040 040 040 SYNUNT: .ASCII / /
388 001734 040 055 055 .ASCII / -- SYNTAX ERROR/
001737 040 123 131
001742 116 124 101
001745 130 040 105
001750 122 122 117
001753 122
389 ;
390 000031 SYNSZ1=.-SYNBF1
391 ;
392 001754 122 105 104 INCMS: .ASCII /RED /
001757 040
393 001760 040 040 040 INCMSG: .ASCII / /
001763 040 040
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-9
394 001765 040 055 055 .ASCII / -- DEVICE NOT KNOWN TO SYSTEM/
001770 040 104 105
001773 126 111 103
001776 105 040 116
002001 117 124 040
002004 113 116 117
002007 127 116 040
002012 124 117 040
002015 123 131 123
002020 124 105 115
395 000047 INCSZ=.-INCMS
396 .EVEN
397 002024 VOLMS: .QIO WRIT,LUN,EFN1,0,0,0,VOLMSG,VOLMSZ
002024 003 011 .BYTE IO,9.
002026 000400 .WORD WRIT
002030 000002 .WORD LUN
002032 001 000 .BYTE EFN1,0
002034 000000 .WORD 0
002036 000000 .WORD 0
002040 002046' .WORD VOLMSG
002042 000065 .WORD VOLMSZ
002044 000040 .WORD 40
398 ;
399 002046 106 061 061 VOLMSG: .ASCII /F11ACP NOT FOUND ON SYSTEM/<12><15>
002051 101 103 120
002054 040 116 117
002057 124 040 106
002062 117 125 116
002065 104 040 117
002070 116 040 123
002073 131 123 124
002076 105 115 012
002101 015
400 002102 123 131 123 .ASCII /SYSTEM MUST BE RELOADED/<12><15>
002105 124 105 115
002110 040 115 125
002113 123 124 040
002116 102 105 040
002121 122 105 114
002124 117 101 104
002127 105 104 012
002132 015
401 000065 VOLMSZ=.-VOLMSG
402 .EVEN
403 ;
404 ;
405 002134 SYNMS1: .QIO WRIT,LUN,EFN1,0,0,0,SYNBF1,SYNSZ1
002134 003 011 .BYTE IO,9.
002136 000400 .WORD WRIT
002140 000002 .WORD LUN
002142 001 000 .BYTE EFN1,0
002144 000000 .WORD 0
002146 000000 .WORD 0
002150 001723' .WORD SYNBF1
002152 000031 .WORD SYNSZ1
002154 000040 .WORD 40
406 ;
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-10
407 002156 IDVERR: .QIO WRIT,LUN,EFN1,0,0,0,INCMS,INCSZ
002156 003 011 .BYTE IO,9.
002160 000400 .WORD WRIT
002162 000002 .WORD LUN
002164 001 000 .BYTE EFN1,0
002166 000000 .WORD 0
002170 000000 .WORD 0
002172 001754' .WORD INCMS
002174 000047 .WORD INCSZ
002176 000040 .WORD 40
408 ;
409 002200 QIOWMC: QIOW$ IO.WLB,LUN,EFN1,0,0,0,<MCMS,MCSZ,0>
002200 003 011 .BYTE 3,$$$ARG
002202 000000G .WORD IO.WLB
002204 000002 .WORD LUN
002206 001 000 .BYTE EFN1,0
002210 000000 .WORD 0
002212 000000 .WORD 0
002214 002222' .WORD MCMS
002216 000004 .WORD MCSZ
002220 000000 .WORD 0
410 ;
411 002222 122 105 104 MCMS: .ASCII /RED>/
002225 076
412 000004 MCSZ=.-MCMS
413 .EVEN
414 ;
415 002226 QIORMC: QIOW$ IO.RLB,LUN,EFN1,0,STATUS,0,<MCRBH,80.>
002226 003 010 .BYTE 3,$$$ARG
002230 000000G .WORD IO.RLB
002232 000002 .WORD LUN
002234 001 000 .BYTE EFN1,0
002236 002360' .WORD STATUS
002240 000000 .WORD 0
002242 001276' .WORD MCRBH
002244 000120 .WORD 80.
416 ;
417 ;
418 002246 MCRERM: .QIO WRIT,LUN,EFN1,0,0,0,MCREMS,MCRBSZ
002246 003 011 .BYTE IO,9.
002250 000400 .WORD WRIT
002252 000002 .WORD LUN
002254 001 000 .BYTE EFN1,0
002256 000000 .WORD 0
002260 000000 .WORD 0
002262 002270' .WORD MCREMS
002264 000044 .WORD MCRBSZ
002266 000040 .WORD 40
419 002270 122 105 104 MCREMS: .ASCII /RED -- CAN'T READ MCR COMMAND BUFFER/
002273 040 055 055
002276 040 103 101
002301 116 047 124
002304 040 122 105
002307 101 104 040
002312 115 103 122
002315 040 103 117
002320 115 115 101
REDIRECT MACRO M1110 07-MAY-79 09:21 PAGE 1-11
002323 116 104 040
002326 102 125 106
002331 106 105 122
420 000044 MCRBSZ=.-MCREMS
421 .EVEN
422 ;
423 002334 000000 COUNT: .WORD 0
424 002336 F11RQ: RQST$ F11ACP
002336 013 007 .BYTE 11.,7
002340 025167 003310 .RAD50 /F11ACP/
002344 000000 000000 .WORD 0,0
002350 000000 .WORD
002352 000 000 .BYTE ,
425 002354 025167 003310 F11NM: .RAD50 /F11ACP/
426 002360 STATUS: .BLKW 2
427 000000' .END REDIR
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2385 WORDS ( 10 PAGES)
DYNAMIC MEMORY: 3724 WORDS ( 14 PAGES)
ELAPSED TIME: 00:00:25
[47,10]RED,[47,20]RED/-SP/CR=[47,30]RED
RED CREATED BY MACRO ON 7-MAY-79 AT 09:21 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AM = 000033 #1-113 1-132 1-165
CNTNXT 000256 R #1-172 1-181 1-185
CNTSCN 000246 R #1-170 1-188 1-191
COTSCN 000236 R #1-168 1-174
COUNT 002334 R *1-214 *1-221 #1-423
CR = 000015 #1-111 1-130 1-163
CR$RED = 000562 RG #1-226
EFN1 = 000001 #1-108 1-358 1-366 1-373 1-380 1-397 1-405 1-407 1-409
1-415 1-418
EF.PR1 = ****** GX 1-118
EXIT = 000463 #1-106 1-248
EXITA 000702 R 1-245 #1-248
EXITMS 000700 R 1-121 #1-247 1-259 1-266 1-270 1-312
FNDBC 000120 R 1-129 #1-145
FNDBTH 000352 R 1-184 #1-192
FNDNEW 000330 R 1-169 #1-187
FNDOLD 000304 R 1-171 #1-180
F11NM 002354 R 1-218 #1-425
F11RQ 002336 R 1-216 *1-241 1-242 #1-424
GETVAL 001222 R 1-148 1-158 #1-325
HNRBF 001462 R 1-358 #1-360 1-364
HNRDEV 001466 R #1-361
HNRMSG 001440 R 1-246 #1-358
HNRSZ = 000036 1-358 #1-364
IDVERR 002156 R 1-311 #1-407
INCMS 001754 R #1-392 1-395 1-407
INCMSG 001760 R *1-280 1-281 #1-393
INCSZ = 000047 #1-395 1-407
IO = 000003 #1-107 1-358 1-366 1-373 1-380 1-397 1-405 1-407 1-418
IO.RLB = ****** GX 1-415
IO.WLB = ****** GX 1-409
LF = 000012 #1-112
LUN = 000002 #1-110 1-358 1-366 1-373 1-380 1-397 1-405 1-407 1-409
1-415 1-418
MCMS 002222 R 1-409 #1-411 1-412
MCRBH 001276 R 1-126 1-140 *1-142 #1-345 1-415
MCRBSZ = 000044 1-418 #1-420
MCREMS 002270 R 1-418 #1-419 1-420
MCRERM 002246 R 1-269 #1-418
MCRERR 001000 R #1-269
MCRER1 000066 R 1-125 #1-138
MCSZ = 000004 1-409 #1-412
NEWADR 001426 R 1-183 *1-189 1-197 1-207 1-243 1-272 #1-350
NEWDEV 001416 R *1-145 *1-146 1-168 1-251 1-252 1-274 #1-346
NEWUNA 001432 R 1-147 #1-352
NEWUNT 001422 R *1-154 1-187 1-253 1-275 #1-348
NTFND 001006 R 1-175 #1-272
NTFNDO 001026 R 1-273 #1-278
NXTDIG 001230 R #1-327 1-339
OLDADR 001430 R *1-182 1-190 1-192 1-195 1-205 #1-351
OLDDEV 001420 R *1-155 *1-156 1-170 1-201 1-261 1-262 1-278 #1-347
OLDUNA 001435 R 1-157 1-263 #1-353
RED CREATED BY MACRO ON 7-MAY-79 AT 09:21 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
OLDUNT 001424 R *1-159 1-180 1-279 #1-349
OUTPUU 001036 R 1-276 #1-280
OUTP1 001134 R 1-288 #1-291
OUTP2 001166 R 1-299 #1-302
PR7 = ****** GX 1-225
PS = ****** GX 1-225 1-225
QIORMC 002226 R 1-139 #1-415
QIOWMC 002200 R 1-138 #1-409
Q.IOAE = 000012 #1-409 #1-415
Q.IOEF = 000006 #1-409 #1-415
Q.IOFN = 000002 #1-409 #1-415
Q.IOLU = 000004 #1-409 #1-415
Q.IOPL = 000014 #1-409 #1-415
Q.IOPR = 000007 #1-409 #1-415
Q.IOSB = 000010 #1-409 #1-415
RDLP 000366 R #1-195 1-200
RDMCB = 024577 #1-104 1-344
RDMCR 001274 R 1-123 #1-344
RDNXT 000404 R 1-196 #1-198
REDIR 000000 R #1-118 1-427
REDSL 000034 R #1-127 1-134
R.QSGC = 000015 #1-424
R.QSPC = 000014 #1-424
R.QSPN = 000006 #1-424
R.QSPR = 000012 #1-424
R.QSTN = 000002 #1-424
SECBF 001616 R 1-373 #1-375 1-376
SECMSG 001574 R 1-120 #1-373
SECSZ = 000037 1-373 #1-376
SF.EX = ****** GX 1-230 1-240
SF.IR = ****** GX 1-228
SPA = 000040 #1-114 1-128
STATUS 002360 R 1-141 1-142 1-415 #1-426
SYNBF 001700 R 1-380 #1-382 1-383
SYNBF1 001723 R #1-385 1-390 1-405
SYNCOM 000730 R #1-254 1-264
SYNDEV 001727 R *1-251 *1-252 *1-261 *1-262 #1-386
SYNER 000772 R 1-136 #1-265
SYNER1 000710 R 1-178 #1-251
SYNER2 000750 R 1-177 #1-261
SYNER4 000062 R 1-131 1-133 #1-136
SYNER7 000300 R 1-153 #1-178
SYNER8 000274 R 1-166 #1-177
SYNMSG 001656 R 1-265 #1-380
SYNMS1 002134 R 1-255 #1-405
SYNOK 000232 R 1-164 #1-167
SYNSZ = 000023 1-380 #1-383
SYNSZ1 = 000031 #1-390 1-405
SYNUNT 001731 R 1-254 #1-387
S.FW = ****** GX 1-228 *1-230 *1-240
U.ACP = ****** GX 1-203 1-234 *1-236
U.DACP = ****** GX *1-206 *1-224 *1-231
RED CREATED BY MACRO ON 7-MAY-79 AT 09:21 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
U.DN = ****** GX 1-168 1-170
U.HA = ****** GX 1-244
U.RP = ****** GX 1-193 1-195 *1-197 *1-213
U.SZ = ****** GX 1-172 1-198 1-237
U.UN = ****** GX 1-180 1-187
U.VA = 000026 #1-105 1-208
VALEND 001272 R 1-329 1-331 #1-340
VNMSG 001542 R 1-366 #1-368 1-369
VNSZ = 000031 1-366 #1-369
VOLMS 002024 R 1-223 #1-397
VOLMSG 002046 R 1-397 #1-399 1-401
VOLMSZ = 000065 1-397 #1-401
VOLNM 001520 R 1-210 #1-366
WRIT = 000400 #1-109 1-358 1-366 1-373 1-380 1-397 1-405 1-407 1-418
$$ = 000067 #1-148 1-148 #1-158 1-158 #1-219 1-219
$$$ARG = 000010 #1-409 1-409 #1-409 1-409 #1-409 1-409 #1-409 1-409 #1-415
1-415 #1-415 1-415 #1-415 1-415
$$$GLB = ****** 1-409 1-409 1-409 1-409 1-409 1-409 1-409 1-409 1-415
1-415 1-415 1-415 1-415 1-415 1-415 1-415 1-424 1-424
1-424 1-424 1-424 1-424
$$$OST = 000016 #1-409 1-409 1-409 #1-409 1-409 1-409 #1-409 1-409 1-409
#1-409 1-409 1-409 #1-409 1-409 1-409 #1-409 1-409 1-409
#1-409 1-409 #1-415 1-415 1-415 #1-415 1-415 1-415 #1-415
1-415 1-415 #1-415 1-415 1-415 #1-415 1-415 1-415 #1-415
1-415 1-415 #1-415 1-415 #1-424 1-424 1-424 #1-424 1-424
1-424 #1-424 1-424 1-424 #1-424 1-424 1-424 #1-424 1-424
1-424 #1-424
$$$T1 = 000000 #1-424 1-424 1-424 1-424 #1-424 1-424
.COMEF = ****** GX 1-118
.PUDBA = ****** GX 1-167 1-194 1-233
.PUDEA = ****** GX 1-173 1-199 1-238
..FSTD = ****** GX 1-219 1-219
RED CREATED BY MACRO ON 7-MAY-79 AT 09:21 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ALUN$S #1-98
CALL #1-98 1-148 1-158 1-219
DIR$ #1-98 #1-138 #1-139 #1-210 #1-216 #1-217 #1-217 #1-223 #1-242
ERR$ #1-138 #1-139 #1-210 #1-216 #1-217 #1-223 #1-242
EXIT$S #1-98
OFF$ #1-409 #1-409 #1-409 #1-409 #1-409 #1-409 #1-409 #1-409 #1-409 #1-415
#1-415 #1-415 #1-415 #1-415 #1-415 #1-415 #1-415 #1-415 #1-424 #1-424
#1-424 #1-424 #1-424 #1-424 #1-424
QDPB$ #1-409 #1-409 #1-415 #1-415
QIOW$ #1-98 #1-409 #1-415
QIO$ #1-99
RETURN #1-98 1-340
RQST$ #1-98 1-424
R50$ #1-424 #1-424 #1-424
WSIG$S #1-98 #1-217
.CRASH #1-98 #1-226
.INH #1-99 1-225
.QIO #1-86 1-358 1-366 1-373 1-380 1-397 1-405 1-407 1-418