Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/initl.list
There are no other files named initl.list in the archive.
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3
1 .TITLE INITL
2 .IDENT /12/
3
4 ;
5 ; COPYRIGHT 1974, 1978
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
9 ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
10 ;
11 ; VERSION 10
12 ;
13 ; D. N. CUTLER 23-AUG-73
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; D. N. CUTLER
18 ; T. J. MILLER
19 ;
20 ; MODIFIED BY:
21 ;
22 ; B. SCHREIBER 28-JUL-77
23 ;
24 ; BS004 -- CHANGE TO V3.1.
25 ;
26 ; T. J. MILLER 14-SEP-77
27 ;
28 ; TM103 -- ENHANCE CLOCK SETUP AND ALIGN POOL ON EVEN
29 ; BOUNDARY.
30 ;
31 ; TM104 -- PROPERLY INITIALIZE VECTORS FOR HANDLING
32 ; FLOATING POINT PROCESSOR EXCEPTION CONDITIONS.
33 ;
34 ; TM105 -- ADD SUPPORT FOR ODD CSR'S AND DEVICE UNIT
35 ; NUMBERS OVER 127.
36 ;
37 ; AP001 -- REMOVE NON-DN20 STUFF AND CHANGE HELLO MESSAGE
38 ;
39 ; LW002 -- TOO MANY INSTRUCTIONS REMOVED
40 ;
41 ; SYSTEM START UP AND INITIALIZATION ROUTINE
42 ;
43 ; MACRO LIBRARY CALLS
44 ;
45
46 .MCALL HWDDF$
47 000000 HWDDF$ ;DEFINE HARDWARE REGISTERS
48
49 ;
50 ; LOCAL DATA
51 ;
52 ; SYSTEM IDENTIFICATION MESSAGES
53 ;
54
55 000000 $POOL:: ;START OF POOL
56
57
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-1
58 .IF NDF R$$11S
59
60 SYSMG: .ASCII <15><12>/RSX11M V3.1 BL/ ;BS004
61
62 .IFF
63
64 .ENABL LC ;AP001
65 000000 015 012 104 SYSMG: .ASCII <15><12>/DN20/ ;AP001
000003 116 062 060
66 000006 000G .BYTE $DNTYP ;AP001
67 000007 040 104 105 .ASCIZ / DECnet-20 V2.0/<15><12><12> ;AP001
000012 103 156 145
000015 164 055 062
000020 060 040 126
000023 062 056 060
000026 015 012 012
000031 000
68 .DSABL LC ;AP001
69 ;**-1
70 .ENDC
71
72
73 000032 015 177 177 DEVMG: .ASCIZ <15><177><177><12>/ DEVICE DDUU: NOT IN CONFIGURATION/<15> ; ;**-1
000035 012 040 104
000040 105 126 111
000043 103 105 040
000046 104 104 125
000051 125 072 040
000054 116 117 124
000057 040 111 116
000062 040 103 117
000065 116 106 111
000070 107 125 122
000073 101 124 111
000076 117 116 015
000101 000
74 .EVEN ;**-1
75
76 ;+
77 ; **-$INITL-SYSTEM TRANSFER ADDRESS
78 ;
79 ; THIS ROUTINE CONTAINS THE TRANSFER POINT OF THE RESIDENT EXECUTIVE. WHEN
80 ; THE SYSTEM IS BOOTED, CONTROL IS TRANSFERED HERE TO INITIALIZE AND START
81 ; UP THE SYSTEM
82 ;-
83
84 000102 000005 $INITL::RESET ;RESET PROCESSOR
85 000104 012700 000002G MOV #$SYSIZ+2,R0 ;POINT TO SYSTEM CONFIGURATION VECTOR
86 000110 110320 MOVB R3,(R0)+ ;SAVE UNIT NUMBER
87 000112 110120 MOVB R1,(R0)+ ;SAVE LBN OF LOAD IMAGE
88 000114 010220 MOV R2,(R0)+ ;
89 000116 010420 MOV R4,(R0)+ ;SAVE DEVICE NAME
90 000120 010520 MOV R5,(R0)+ ;SAVE LENGTH OF LOAD FILE
91
92
93 .IF DF M$$MGE
94
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-2
95 000122 012767 030340 177776 MOV #PMODE+PR7,PS ;SET MODE BITS AND LOCK OUT INTERRUPTS
96 000130 012706 177760G MOV #$STACK-20,SP ;SETUP EXEC STACK POINTER
97 000134 012700 172340 MOV #KISAR0,R0 ;POINT TO KERNEL PAR 0
98 000140 012701 172300 MOV #KISDR0,R1 ;POINT TO KERNEL PDR 0
99 000144 012702 177640 MOV #UISAR0,R2 ;POINT TO USER PAR 0
100 000150 012703 177600 MOV #UISDR0,R3 ;POINT TO USER PDR 0
101 000154 012704 000010 MOV #8.,R4 ;SET LOOP COUNT
102 000160 005005 CLR R5 ;START AT BOTTOM OF MEMORY
103 000162 010520 10$: MOV R5,(R0)+ ;SET KERNEL AND USER RELOCATION BIAS
104 000164 010522 MOV R5,(R2)+ ;
105 000166 012711 077406 MOV #77406,(R1) ;SET KERNEL AND USER DESCRIPTOR REGISTERS
106 000172 012123 MOV (R1)+,(R3)+ ;
107 000174 062705 000200 ADD #200,R5 ;ADVANCE TO NEXT 4K BLOCK
108 000200 005304 DEC R4 ;ANY MORE REGISTERS TO LOAD?
109 000202 003367 BGT 10$ ;IF GT YES
110 000204 012740 177600 MOV #177600,-(R0) ;SET KERNEL PAR 7 TO I/O PAGE
111 000210 005267 177572 INC SR0 ;AND AWAY WE GO
112
113
114 .IF DF M$$EXT
115
116 MOV #UBMPR,R0 ;POINT TO FIRST UNIBUS MAPPING REG
117 CLR R1 ;SET INITIAL ADDRESS TO ZERO
118 MOV #5.,R2 ;SET NUMBER OF REGISTER PAIRS TO LOAD
119 11$: MOV R1,(R0)+ ;LOAD LOW 16 BITS OF ADDRESS
120 CLR (R0)+ ;CLEAR HIGH 6 BITS OF ADDRESS
121 ADD #20000,R1 ;ADVANCE 8K BYTES
122 DEC R2 ;ANY MORE TO LOAD?
123 BGT 11$ ;IF GT YES
124 MOV #60,SR3 ;ENABLE 22 BIT ADDRESSING AND UB MAP
125
126 .ENDC
127
128
129 .IFF
130
131 MTPS #PR7 ;LOCK OUT INTERRUPTS
132 MOV #$STACK-10,SP ;SETUP EXEC STACK POINTER
133
134 .IFTF
135
136 000214 013746 000004 MOV @#4,-(SP) ;SAVE ADDRESS OF TRAP 4 ROUTINE
137 000220 012737 001064' 000004 MOV #TRPRT,@#4 ;SET TRAP ADDRESS FOR NONEX MEM
138 000226 004567 000604 JSR R5,OPMSG ;TELL EVERYBODY WE'RE ON THE AIR ;**-6
139 000232 000000' .WORD SYSMG ;
140
141 .IFT
142
143 000234 012700 140000 MOV #140000,R0 ;SET INITIAL MEMORY ADDRESS
144 000240 005067 172354 CLR KISAR6 ;SET ZERO RELOCATION BIAS
145
146 .IFF
147
148 CLR R0 ;SET INITIAL MEMORY ADDRESS
149
150 .IFTF
151
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-3
152 000244 005001 CLR R1 ;ZERO NUMBER OF 32W BLOCKS IN SYSTEM
153 000246 005710 13$: TST (R0) ;MEMORY EXIST?
154 000250 103411 BCS 17$ ;IF CS NO
155 000252 062701 000040 ADD #40,R1 ;UPDATE NUMBER OF 32W BLOCKS
156
157 .IFT
158
159 000256 062767 000040 172354 ADD #40,KISAR6 ;UPDATE RELOCATION BIAS BY 1K
160
161
162 .IF DF M$$EXT
163
164 CMP KISAR6,#170000 ;END OF MEMORY?
165
166 .IFF
167
168 000264 026727 172354 007600 CMP KISAR6,#7600 ;END OF MEMORY?
169
170 .ENDC
171
172
173 000272 103765 BLO 13$ ;IF LO NO
174
175 .IFF
176
177 ADD #4000,R0 ;UPDATE MEMORY ADDRESS BY 1K
178 CMP R0,#160000 ;END OF MEMORY?
179 BLO 13$ ;IF LO NO
180
181 .IFTF
182
183 000274 010167 000000G 17$: MOV R1,$SYSIZ ;SET SIZE OF MEMORY IN 32W BLOCKS
184
185 .IFT
186
187 000300 012767 001400 172354 MOV #1400,KISAR6 ;RESET MAPPING RELOCATION BIAS
188
189 .ENDC
190
191
192 000306 012705 000000G MOV #$DEVHD,R5 ;GET ADDRESS OF FIRST DCB ADDRESS
193 000312 011505 20$: MOV (R5),R5 ;GET ADDRESS OF NEXT DCB
194 000314 001513 BEQ 80$ ;IF EQ NO MORE TO SCAN
195 000316 016504 000000G MOV D.UCB(R5),R4 ;POINT TO FIRST UCB
196 000322 032764 000000G 000000G BIT #DV.PSE,U.CW1(R4) ;PSEUDO DEVICE?
197 000330 001370 BNE 20$ ;IF NE YES
198 000332 116546 000000G MOVB D.UNIT(R5),-(SP) ;SET STARTING LOGICAL UNIT NUMBER
199 000336 116546 000001G MOVB D.UNIT+1(R5),-(SP) ;CALCULATE NUMBER OF UCB'S TO SCAN
200 000342 166516 000000G SUB D.UNIT(R5),(SP) ;
201 000346 105216 INCB (SP) ;
202 000350 105216 INCB (SP) ; ; TM105
203 000352 105316 30$: DECB (SP) ;ANY MORE UCB'S TO SCAN?
204 000354 001002 BNE 40$ ;IF NE YES ; TM105
205 000356 022626 CMP (SP)+,(SP)+ ;CLEAN STACK
206 000360 000754 BR 20$ ;GO AGAIN
207 000362 026765 000006G 000000G 40$: CMP $SYSIZ+6,D.NAM(R5) ;DEVICE NAMES MATCH?
208 000370 001010 BNE 45$ ;IF NE NO
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-4
209 000372 126766 000002G 000002 CMPB $SYSIZ+2,2(SP) ;UNIT NUMBERS MATCH?
210 000400 001004 BNE 45$ ;IF NE NO
211 000402 010467 000002G MOV R4,.SY0+2 ;REDIRECT SYSTEM DEVICE
212 000406 010467 000002G MOV R4,.LB0+2 ;REDIRECT LB: AS WELL ; BS004
213 000412 016402 000000G 45$: MOV U.SCB(R4),R2 ;GET ADDRESS OF SCB
214 000416 105266 000002 INCB 2(SP) ;UPDATE LOGICAL UNIT NUMBER
215 000422 105772 000000G TSTB @S.CSR(R2) ;DEVICE IN SYSTEM? ; TM105
216 000426 103043 BCC 60$ ;IF CC YES
217 000430 152764 000000G 000000G BISB #US.OFL,U.ST2(R4) ;SET DEVICE OFFLINE
218 000436 116567 000000G 177402 MOVB D.NAM(R5),DEVMG+12. ;INSERT GENERIC DEVICE NAME
219 000444 116567 000001G 177375 MOVB D.NAM+1(R5),DEVMG+13. ;
220 000452 010400 MOV R4,R0 ;COPY ADDRESS OF UCB
221 000454 166500 000000G SUB D.UCB(R5),R0 ;CALCULATE ADDRESS OFFSET TO UCB
222 000460 016501 000000G MOV D.UCBL(R5),R1 ;GET LENGTH OF UCB
223 000464 CALL $DIV ;CALCULATE RELATIVE UNIT NUMBER
224 000470 066500 000000G ADD D.UNIT(R5),R0 ;CALCULATE LOGICAL UNIT NUMBER
225 000474 042700 177400 BIC #177400,R0 ;CLEAR EXTRANEOUS BITS
226 000500 012701 000010 MOV #8.,R1 ;SET DIVISOR
227 000504 CALL $DIV ;CONVERT UNIT NUMBER TO 2 DIGITS
228 000510 062700 000060 ADD #'0,R0 ;ADD CHARACTER BIAS
229 000514 062701 000060 ADD #'0,R1 ;ADD CHARACTER BIAS
230 000520 110067 177324 MOVB R0,DEVMG+14. ;INSERT DEVICE UNIT NUMBER
231 000524 110167 177321 MOVB R1,DEVMG+15. ;
232 000530 004567 000302 JSR R5,OPMSG ;OUTPUT DEVICE MESSAGE
233 000534 000032' .WORD DEVMG ;
234 000536 066504 000000G 60$: ADD D.UCBL(R5),R4 ;CALCULATE ADDRESS OF NEXT UCB
235 000542 000703 BR 30$ ;GO AGAIN
236 000544 80$: ;REF LABEL
237
238
239 .IF DF P$$RTY
240
241 000544 012700 000000G MOV #$PARTB,R0 ;GET ADDRESS OF PARITY CSR ADDRESS TABLE
242 000550 010001 MOV R0,R1 ;COPY ADDRESS OF TABLE
243 000552 012721 000001 MOV #1,(R1)+ ;INSERT A ONE IN FIRST TABLE ENTRY
244 000556 012702 172076 MOV #MPAR-2,R2 ;GET ADDRESS OF FIRST PARITY REGISTER-2
245 000562 012703 000020 MOV #16.,R3 ;SET NUMBER OF PARITY REGISTERS
246 000566 062702 000002 90$: ADD #2,R2 ;ADVANCE TO NEXT PARITY CSR REGISTER
247 000572 010221 MOV R2,(R1)+ ;ASSUME PARITY REGISTER PRESENT
248 000574 005712 TST (R2) ;PARITY CSR REGISTER PRESENT?
249 000576 103002 BCC 100$ ;IF CC YES
250 000600 010061 177776 MOV R0,-2(R1) ;POINT TO FIRST WORD OF TABLE
251 000604 005303 100$: DEC R3 ;ANY MORE TO SCAN?
252 000606 003367 BGT 90$ ;IF GT YES
253 000610 011101 MOV (R1),R1 ;11/70 CACHE PARITY CSR SEARCH DONE?
254 000612 001405 BEQ 105$ ;IF EQ YES
255 000614 012702 177736 MOV #MPCSR-10,R2 ;POINT TO FIRST CSR ADDRESS - 2
256 000620 012703 000006 MOV #6,R3 ;SET COUNT OF REGISTERS
257 000624 000760 BR 90$ ;SEARCH FOR THEM
258 000626 105$: ;REF LABEL
259
260 .ENDC
261
262
263 .IF DF F$$LPP ; TM104
264 ; TM104
265 TST PIRQ ;IS THERE A PIRQ REGISTER? ; TM104
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-5
266 BCS 106$ ;IF CS NO ; TM104
267 MOV #$FPPRQ,@#240 ;SET UP PIRQ VECTOR ; TM104
268 MOV #$FPPR8,@#244 ;SET UP FLOATING POINT EXCEPTION VECTOR ; TM104
269 106$: ;REF LABEL ; TM104
270 ; TM104
271 .ENDC ; TM104
272 ; TM104
273 ; TM104
274 ;**-2
275
276 .IF DF L$$SI1
277
278 MOV #$CKINT,@#100 ;SET CLOCK INTERRUPT VECTOR
279
280 .IFF
281
282 000626 016700 000000G MOV $CKCSR,R0 ;GET ADDRESS OF CLOCK CSR
283 000632 005710 TST (R0) ;IS THE GENERATED CLOCK AVAILABLE?
284 000634 103032 BCC 110$ ;IF CC YES
285 000636 012700 172540 MOV #172540,R0 ;GET ADDRESS OF KW11-P CSR
286 000642 010067 000000G MOV R0,$CKCSR ;SETUP FOR KW11-P
287 000646 012767 172542 000000G MOV #172542,$CKCNT ;
288 000654 012767 000001 000000G MOV #K$$LDC,$CKLDC ;SET COUNT REGISTER LOAD COUNT ; TM103
289 000662 012767 000074 000000G MOV #K$$TPS,$TKPS ;SET TICKS PER SECOND ; TM103
290 000670 005710 TST (R0) ;KW11-P?
291 000672 103013 BCC 110$ ;IF CC YES
292 000674 012700 177546 MOV #177546,R0 ;GET ADDRESS OF KW11-L CSR
293 000700 010067 000000G MOV R0,$CKCSR ;SETUP FOR KW11-L
294 000704 010067 000000G MOV R0,$CKCNT ;
295 000710 005067 000000G CLR $CKLDC ;
296 000714 012767 000074 000000G MOV #H$$RTZ,$TKPS ;SET TICKS PER SECOND TO LINE FREQUENCY ; TM103
297 000722 012737 000000G 000100 110$: MOV #$NONSI,@#100 ;RESET KW11-L INTERRUPT VECTOR
298 000730 012767 000000G 000104 MOV #$CKINT,104 ;SETUP KW11-P VECTOR
299 000736 022700 172540 CMP #172540,R0 ;KW11-P?
300 000742 001406 BEQ 120$ ;IF EQ YES
301 000744 012767 000000G 000100 MOV #$CKINT,100 ;SETUP KW11-L VECTOR
302 000752 012767 000000G 000104 MOV #$NONSI,104 ;RESET KW11-P VECTOR
303 000760 016701 000000G 120$: MOV $CKCNT,R1 ;GET ADDRESS OF COUNT REGISTER
304 000764 016711 000000G MOV $CKLDC,(R1) ;SETUP CLOCK COUNT REGISTER
305 000770 012710 000115 MOV #K$$IEN,(R0) ;START CLOCK ; TM103
306
307 .ENDC
308
309
310 .IF DF M$$MGE
311
312 000774 012767 030340 177776 MOV #PMODE+PR7,PS ;MAKE SURE PS IS SETUP PROPERLY
313
314 .ENDC
315
316
317 001002 012700 000000' MOV #SYSMG,R0 ;SET ADDRESS OF BLOCK TO RELEASE
318 001006 066700 177776G ADD $CRAVL-2,R0 ;ROUND TO NEXT BOUNDARY ; TM103
319 001012 046700 177776G BIC $CRAVL-2,R0 ; ; TM103
320 001016 012701 001074 MOV #$SYBEG-SYSMG,R1 ;SET LENGTH OF BLOCK TO RELEASE
321 001022 CALL $DEACB ;DEALLOCATE INITIALIZATION CODE
322 001026 012637 000004 MOV (SP)+,@#4 ;RESTORE TRAP 4 ROUTINE ADDRESS
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-6
323 001032 000167 000000G JMP $DIRXT ;START UP THE SYSTEM
324
325 ;
326 ; SUBROUTINE TO OUTPUT A MESSAGE TO THE SYSTEM CONSOLE TERMINAL
327 ;
328
329 001036 012501 OPMSG: MOV (R5)+,R1 ;GET ADDRESS OF OUTPUT MESSAGE
330 001040 112100 10$: MOVB (R1)+,R0 ;GET NEXT BYTE TO OUTPUT
331 001042 001407 BEQ 30$ ;IF EQ DONE
332 001044 110067 177566 MOVB R0,TPS+2 ;LOAD BYTE IN OUTPUT BUFFER
333 001050 105767 177564 20$: TSTB TPS ;PRINTER BUSY?
334 001054 103402 BCS 30$ ;IF CS NO CONSOLE TERMINAL
335 001056 100374 BPL 20$ ;IF PL YES
336 001060 000767 BR 10$ ;GO AGAIN
337 001062 000205 30$: RTS R5 ;
338
339 ;
340 ; NONEX MEM TRAP ROUTINE
341 ;
342
343 001064 052766 000001 000002 TRPRT: BIS #1,2(SP) ;SET CARRY BIT
344 001072 000002 RTI ;
345
346 ;
347 ; END OF DYNAMIC STORAGE REGION
348 ;
349
350
351 .IF NE <.-SYSMG>&3
352
353 .BLKB <.-SYSMG>&3
354
355 .ENDC
356
357
358 ;
359 ; BEGINNING OF DYNAMIC STORAGE REGION
360 ;
361
362 001074 000000 $SYBEG::.WORD 0 ;LINK TO NEXT BLOCK IN FREE LIST
363 001076 004000 .WORD <<<C$$ORE*2>+3>&177774> ;LENGTH OF FREE BLOCK
364 001100 .BLKB <<<C$$ORE*2>+3>&177774>-4 ;ALLOCATE REMAINING STORAGE
365 005074 $SYTOP:: ;LAST ADDRESS IN EXECUTIVE
366
367 000102' .END $INITL
INITL MACRO M1110 22-AUG-79 07:06 PAGE 3-7
SYMBOL TABLE
A$$CHK= 000000 G$$TTK= 000000 M$$NT2= 000000 SYSMG 000000R V$$RSN= 000031
A$$CPS= 000000 H$$RTZ= 000074 N$$LDV= 000001 S$$YSZ= 001740 X$$DBT= 000000
A$$TRP= 000000 I$$RDN= 000000 OPMSG 001036R S.CSR = ****** GX $CKCNT= ****** GX
CMODE = 140000 KDSAR0= 172360 PIRQ = 177772 TPS = 177564 $CKCSR= ****** GX
C$$ORE= 002000 KDSDR0= 172320 PMODE = 030000 TRPRT 001064R $CKINT= ****** GX
DEVMG 000032R KISAR0= 172340 PR0 = 000000 UBMPR = 170200 $CKLDC= ****** GX
DV.PSE= ****** GX KISAR5= 172352 PR1 = 000040 UDSAR0= 177660 $CRAVL= ****** GX
D.NAM = ****** GX KISAR6= 172354 PR4 = 000200 UDSDR0= 177620 $DEACB= ****** GX
D.UCB = ****** GX KISAR7= 172356 PR5 = 000240 UISAR0= 177640 $DEVHD= ****** GX
D.UCBL= ****** GX KISDR0= 172300 PR6 = 000300 UISAR4= 177650 $DIRXT= ****** GX
D.UNIT= ****** GX KISDR6= 172314 PR7 = 000340 UISAR5= 177652 $DIV = ****** GX
FE.CAL= 000040 KISDR7= 172316 PS = 177776 UISAR6= 177654 $DNTYP= ****** GX
FE.CEX= 020000 K$$CNT= 177546 P$$RTY= 000000 UISAR7= 177656 $INITL 000102RG
FE.DRV= 000010 K$$CSR= 177546 P$$TPT= 000000 UISDR0= 177600 $NONSI= ****** GX
FE.EXP= 000200 K$$IEN= 000115 R$$DER= 000000 UISDR4= 177610 $PARTB= ****** GX
FE.EXT= 000001 K$$LDC= 000001 R$$EXV= 000000 UISDR5= 177612 $POOL 000000RG
FE.EXV= 000004 K$$TPS= 000074 R$$SND= 000000 UISDR6= 177614 $STACK= ****** GX
FE.LSI= 000400 L$$ASG= 000000 R$$11M= 000000 UISDR7= 177616 $SYBEG 001074RG
FE.MUP= 000002 L$$DRV= 000000 R$$11S= 000000 US.OFL= ****** GX $SYSIZ= ****** GX
FE.MXT= 040000 MPAR = 172100 SISDR0= 172200 U.CW1 = ****** GX $SYTOP 005074RG
FE.NLG= 100000 MPCSR = 177746 SR0 = 177572 U.SCB = ****** GX $TKPS = ****** GX
FE.PKT= 000100 M$$CRB= 000124 SR3 = 172516 U.ST2 = ****** GX .LB0 = ****** GX
FE.PLA= 000020 M$$MGE= 000000 SWR = 177570 V$$CTR= 001200 .SY0 = ****** GX
G$$TPP= 000000 M$$NET= 000000
. ABS. 000000 000
005074 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2319 WORDS ( 10 PAGES)
DYNAMIC MEMORY: 2980 WORDS ( 11 PAGES)
ELAPSED TIME: 00:00:21
[11,24]INITL,SY0:[11,34]INITL/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,INITL