NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 1 1 .TITLE NABMAC.MAC 2 3 .ENABL LC 4 .IDENT \FORV02\ 5 .NLIST BEX 6 7 ; This MACRO program generates binary code identical to that generated 8 ; by the following "do nothing" FORTRAN program: 9 ; 10 ; PROGRAM NAB 11 ; END 12 ; 13 ; This MACRO code was obtained by disassembling the .SAV image produced 14 ; by compiling (with threaded code) and linking (with the no hardware 15 ; OTS library) the above FORTRAN program. The link map of the original 16 ; compiled and linked .SAV image was used to locate the globals that 17 ; were then edited into the MACRO source. Additional information was 18 ; obtained from the FORTRAN Users Guide (RT-11) and the incomplete OTS 19 ; internals document on the Fall 80 RT-11 Tape. 20 ; 21 ; N. A. Bourgeois, Jr. 22 ; Sandia National Laboratories 23 ; Systems Engineering Division 9238 24 ; P. O. Box 5800 25 ; Albuquerque, NM 87185 26 ; (505) 844-8088 27 ; 28 ; 4-Feb-83 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 2 1 .MCALL .EXIT 2 .MCALL .GVAL 3 .MCALL .PRINT 4 .MCALL .RCTRLO 5 .MCALL .SETTOP 6 .MCALL .TRPSET 7 .MCALL .TTOUTR 8 9 000000 .ASECT 10 11 000034 . = 34 12 000034 001044' .WORD TRPHND 13 14 000000 $USRSW == 0 15 000000 $RF2A1 == 0 16 000000 $HRDWR == 0 17 000000 .VIR == 0 18 000006 $NLCHN == 6 19 000152 $WASIZ == 152 20 000210 $LRECL == 210 21 004737 $TRACE == 4737 22 23 000150 L1 = 150 24 000165 L2 = 165 25 005001 L6 = 5001 26 000042 L11 = 42 27 000020 L15 = 20 28 000022 L16 = 22 29 000002 L17 = 2 30 170000 L23 = 170000 31 000036 L24 = 36 32 160000 L27 = 160000 33 000046 L31 = 46 34 000010 L40 = 10 35 000053 L41 = 53 36 000324 L42 = 324 37 000001 L44 = 1 38 000120 L50 = 120 39 000164 L52 = 164 40 000004 L54 = 4 41 000166 L55 = 166 42 000170 L56 = 170 43 000106 L57 = 106 44 000154 L60 = 154 45 000012 L61 = 12 46 000043 L63 = 43 47 000014 L65 = 14 48 000024 L67 = 24 49 100000 L70 = 100000 50 000174 L71 = 174 51 000172 L72 = 172 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 2-1 52 000040 L75 = 40 53 020000 L76 = 20000 54 000044 L77 = 44 55 177600 L123 = 177600 56 000162 L127 = 162 57 177777 L140 = 177777 58 000016 L151 = 16 59 000077 L164 = 77 60 000075 L170 = 75 61 000030 L174 = 30 62 000206 L176 = 206 63 000051 L202 = 51 64 000072 L206 = 72 65 000050 L212 = 50 66 000003 L214 = 3 67 000240 L220 = 240 68 000242 L221 = 242 69 000241 L222 = 241 70 177760 L223 = 177760 71 000226 L225 = 226 72 000500 L227 = 500 73 000021 L261 = 21 74 000144 L266 = 144 75 177776 L270 = 177776 76 000104 L272 = 104 77 000176 L274 = 176 78 000160 L275 = 160 79 000130 L276 = 130 80 000156 L341 = 156 81 040000 L501 = 40000 82 000146 L535 = 146 83 000026 L556 = 26 84 000400 L557 = 400 85 000032 L562 = 32 86 000034 L602 = 34 87 000777 L623 = 777 88 000776 L625 = 776 89 000143 L631 = 143 90 000100 L641 = 100 91 104220 L644 = 104220 92 104200 L654 = 104200 93 104240 L657 = 104240 94 100002 L661 = 100002 95 000052 L663 = 52 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 3 1 ; .ASCII .RAD50 2 3 000000 .PSECT OTS$I RW,I,LCL,REL,CON 4 5 000000 000240 $$OTSI::NOP ;001000 000240 D 6 000002 016703 000000' L74: MOV $AOTS,R3 ;001002 016703,010600 D0SB2 7 000006 016304 000150 MOV L1(R3),R4 ;001006 016304,000150 h DXD BX 8 000012 116301 000165 MOVB L2(R3),R1 ;001012 116301,000165 u YCI B7 9 000016 016367 000152 000710 MOV $WASIZ(R3),L4 ;001016 016367,000152,000710 j BDYO BZ KP 10 000024 000402 BR L5 ;001024 000402 FR 11 12 000030' $$OTI==.+2 13 14 000026 012701 005001 $OTI:: MOV #L6,R1 ;001026 012701,005001 CSIAXA 15 000032 016700 000046' L5: MOV L7,R0 ;001032 016700,010510 H D0PB0X 16 000036 001401 BEQ L10 ;001036 001401 SI 17 000040 004710 JSR PC,(R0) ;001040 004710 AVX 18 000042 013706 000042 L10: MOV @#L11,SP ;001042 013706,000042 " C2F 4 19 000046 010446 MOV R4,-(SP) ;001046 010446 & B/0 20 000050 012700 002020' MOV #L12,R0 ;001050 012700,003020 CSH 82 21 000054 .TRPSET 22 000056 016705 000652 MOV L4,R5 ;001056 016705,000652 D0U JZ 23 000062 001475 BEQ L13 ;001062 001475 = T/ 24 000064 010546 MOV R5,-(SP) ;001064 010546 f B1N 25 000066 005046 CLR -(SP) ;001066 005046 & AX8 26 000070 012746 007000' MOV #L14,-(SP) ;001070 012746,010000 CTFBVP 27 000074 010600 MOV SP,R0 ;001074 010600 B2 28 000076 162706 000020 SUB #L15,SP ;001076 162706,000020 60V P 29 000102 010666 000022 MOV SP,L16(SP) ;001102 010666,000022 B3N R 30 000106 104375 EMT 375 ;.GTJB 31 000110 016604 000002 MOV L17(SP),R4 ;001110 016604,000002 D.6 B 32 000114 005767 000046' TST L7 ;001114 005767,010426 A6WB/N 33 000120 001047 BNE $SETOP ;001120 001047 ' M1 34 000122 012700 001034' MOV #L21,R0 ;001122 012700,002034 CSH ZL 35 000126 .GVAL 36 000130 032700 007000' BIT #L14,R0 ;001130 032700,010000 5 HX BVP 37 000134 001414 BEQ L22 ;001134 001414 ST 38 000136 012737 170000 000036 MOV #L23,@#L24 ;001136 012737,170000,000036 CS98P 0 39 000144 005767 000050' TST L25 ;001144 005767,010400 A6WB.2 40 000150 001406 BEQ L22 ;001150 001406 SN 41 000152 005004 CLR R4 ;001152 005004 AXD 42 000154 005767 000052' TST L26 ;001154 005767,010372 A6WB.Z 43 000160 001402 BEQ L22 ;001160 001402 SJ 44 000162 012704 160000 MOV #L27,R4 ;001162 012704,160000 CSL53X 45 000166 032700 000000' L22: BIT #$$OTSI,R0 ;001166 032700,001000 5 HX L2 46 000172 001022 BNE $SETOP ;001172 001022 MJ 47 000174 012737 000000' 000046 MOV #$$OTSI,@#L31 ;001174 012737,001000,000046 & CS9 L2 8 48 000202 005767 000002' TST L32 ;001202 005767,010374 A6WB.. 49 000206 001414 BEQ $SETOP ;001206 001414 ST 50 000210 005716 TST (SP) ;001210 005716 A5V 51 000212 001404 BEQ L33 ;001212 001404 SL NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 4 1 ; .ASCII .RAD50 2 3 000214 .PRINT #ERR59 4 000222 000406 BR $SETOP ;001222 000406 FV 5 6 000224 012700 001040' L33: MOV #L35,R0 ;001224 012700,002040 CSH ZP 7 000230 .GVAL 8 000232 010004 MOV R0,R4 ;001232 010004 BVT 9 000234 005037 000046 CLR @#L31 ;001234 005037,000046 & AX1 8 10 000240 162704 000002 $SETOP::SUB #L17,R4 ;001240 162704,000002 60T B 11 000244 .SETTOP R4 12 000250 010004 MOV R0,R4 ;001250 010004 BVT 13 000252 020405 CMP R4,R5 ;001252 020405 ! EKM 14 000254 101007 BHI L36 ;001254 101007 T2G 15 000256 L13: .PRINT #ERR62 16 000264 152737 000010 000053 BISB #L40,@#L41 ;001264 152737,000010,000053 + 4H1 H AC 17 000272 .EXIT 18 19 000274 162704 000324 L36: SUB #L42,R4 ;001274 162704,000324 60T EL 20 000300 010467 000000' MOV R4,$AOTS ;001300 010467,010302 7 B0GB$J 21 000304 010403 MOV R4,R3 ;001304 010403 B.5 22 000306 166704 000000' SUB L43,R4 ;001306 166704,010266 8A.BZ8 23 000312 042704 000001 BIC #L44,R4 ;001312 042704,000001 E KFT A 24 000316 010446 MOV R4,-(SP) ;001316 010446 & B/0 25 000320 016702 000004' MOV NHCLN$,R2 ;001320 016702,010260 D0RBZ2 26 000324 001754 BEQ L13 ;001324 001754 YD 27 000326 160204 SUB R2,R4 ;001326 160204 566 28 000330 010446 MOV R4,-(SP) ;001330 010446 & B/0 29 000332 042704 000001 BIC #L44,R4 ;001332 042704,000001 E KFT A 30 000336 162704 000042 L46: SUB #L11,R4 ;001336 162704,000042 " 60T 4 31 000342 005302 DEC R2 ;001342 005302 A.4 32 000344 001374 BNE L46 ;001344 001374 SD 33 000346 010446 MOV R4,-(SP) ;001346 010446 & B/0 34 000350 016746 000050' MOV L25,-(SP) ;001350 016746,010174 | D1NBYT 35 000354 001003 BNE L47 ;001354 001003 L5 36 000356 162704 000120 SUB #L50,R4 ;001356 162704,000120 P 60T B 37 000362 010416 MOV R4,(SP) ;001362 010416 B/F 38 000364 020405 L47: CMP R4,R5 ;001364 020405 ! EKM 39 000366 101733 BLOS L13 ;001366 101733 UC5 40 000370 010302 MOV R3,R2 ;001370 010302 B$J 41 000372 062702 000324 ADD #L42,R2 ;001372 062702,000324 e PKJ EL 42 000376 005042 L51: CLR -(R2) ;001376 005042 " AX4 43 000400 020204 L600: CMP R2,R4 ;001400 020204 EHD 44 000402 101375 BHI L51 ;001402 101375 T8M 45 000404 110163 000164 MOVB R1,L52(R3) ;001404 110163,000164 s t WDS B6 46 000410 110163 000165 MOVB R1,L2(R3) ;001410 110163,000165 s u WDS B7 47 000414 012663 000010 MOV (SP)+,L40(R3) ;001414 012663,000010 CR5 H 48 000420 012663 000006 MOV (SP)+,$NLCHN(R3) ;001420 012663,000006 CR5 F 49 000424 012663 000004 MOV (SP)+,L54(R3) ;001424 012663,000004 CR5 D 50 000430 012663 000002 MOV (SP)+,L17(R3) ;001430 012663,000002 CR5 B 51 000434 016663 000002 000166 MOV L17(SP),L55(R3) ;001434 016663,000002,000166 v D0C B B8 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 5 1 ; .ASCII .RAD50 2 3 000442 016663 000004 000170 MOV L54(SP),L56(R3) ;001442 016663,000004,000170 x D0C D C 4 000450 162704 000106 SUB #L57,R4 ;001450 162704,000106 F 60T A0 5 000454 010463 000154 MOV R4,L60(R3) ;001454 010463,000154 3 l B0C B. 6 000460 010463 000012 MOV R4,L61(R3) ;001460 010463,000012 3 B0C J 7 000464 010401 MOV R4,R1 ;001464 010401 B.3 8 000466 012700 002720' MOV #$ERRTB,R0 ;001466 012700,003720 CSHAJ 9 000472 012702 000043 MOV #L63,R2 ;001472 012702,000043 # CSJ 5 10 000476 012021 L64: MOV (R0)+,(R1)+ ;001476 012021 CHQ 11 000500 005302 DEC R2 ;001500 005302 A.4 12 000502 001375 BNE L64 ;001502 001375 SE 13 000504 010563 000014 MOV R5,L65(R3) ;001504 010563,000014 s B1$ L 14 000510 020405 CMP R4,R5 ;001510 020405 ! EKM 15 000512 101661 BLOS L13 ;001512 101661 UB3 16 000514 005767 000046' TST L7 ;001514 005767,010026 A6WBV8 17 000520 001017 BNE L66 ;001520 001017 MG 18 000522 012700 001034' MOV #L21,R0 ;001522 012700,002034 CSH ZL 19 000526 .GVAL 20 000530 032700 000000' BIT #$$OTSI,R0 ;001530 032700,001000 5 HX L2 21 000534 001011 BNE L66 ;001534 001011 MA 22 000536 021667 000002' CMP (SP),L32 ;001536 021667,010040 # E.WBWH 23 000542 103406 BCS L66 ;001542 103406 UXF 24 000544 013702 000042 MOV @#L11,R2 ;001544 013702,000042 " C2B 4 25 000550 062702 007000' ADD #L14,R2 ;001550 062702,010000 e PKJBVP 26 000554 020402 CMP R4,R2 ;001554 020402 ! EKJ 27 000556 101637 BLOS L13 ;001556 101637 UBO 28 000560 062706 000024 L66: ADD #L67,SP ;001560 062706,000024 e PKN T 29 000564 012763 100000 000020 MOV #L70,L15(R3) ;001564 012763,100000,000020 CTSTSH P 30 000572 010363 000120 MOV R3,L50(R3) ;001572 010363,000120 P B.S B 31 000576 062763 000042 000120 ADD #L11,L50(R3) ;001576 062763,000042,000120 e" P PLS 4 B 32 000604 012663 000152 MOV (SP)+,$WASIZ(R3) ;001604 012663,000152 j CR5 BZ 33 000610 012604 MOV (SP)+,R4 ;001610 012604 CQ. 34 000612 010463 000150 MOV R4,L1(R3) ;001612 010463,000150 3 h B0C BX 35 000616 012400 MOV (R4)+,R0 ;001616 012400 CNP 36 000620 012063 000174 MOV (R0)+,L71(R3) ;001620 012063,000174 3 | CIK CD 37 000624 011063 000172 MOV (R0),L72(R3) ;001624 011063,000172 3 z B6S CB 38 000630 005767 000046' TST L7 ;001630 005767,007712 A6WBUB 39 000634 001006 BNE L73 ;001634 001006 L8 40 000636 012737 000002' 000040 MOV #L74,@#L75 ;001636 012737,001002,000040 CS9 L4 2 41 000644 052737 020000 000044 BIS #L76,@#L77 ;001644 052737,020000,000044 U $ M/WED2 6 42 000652 004767 006066 L73: JSR PC,$VRINT ;001652 004767,006066 6 AW1A8F 43 000656 005737 000046 TST @#L31 ;001656 005737,000046 & A59 8 44 000662 001415 BEQ L101 ;001662 001415 SU 45 000664 012701 000730' MOV #L102,R1 ;001664 012701,001730 CSI XX 46 000670 012746 003636' MOV #L103,-(SP) ;001670 012746,004636 CTFAUV 47 000674 014146 L104: MOV -(R1),-(SP) ;001674 014146 f C6F 48 000676 020127 000716' CMP R1,#L101 ;001676 020127,001716 W EF9 XN 49 000702 001374 BNE L104 ;001702 001374 SD 50 000704 004716 JSR PC,(SP) ;001704 004716 AV0 51 000706 105763 000165 L106: TSTB L2(R3) ;001706 105763,000165 u VO$ B7 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 6 1 ; .ASCII .RAD50 2 3 000712 001442 BEQ L105 ;001712 001442 " TB 4 000714 000134 JMP @(R4)+ ;001714 000134 \ BL 5 6 000716 016346 000010 L101: MOV L40(R3),-(SP) ;001716 016346,000010 DX8 H 7 000722 012700 000004 MOV #L54,R0 ;001722 012700,000004 CSH D 8 000726 104353 EMT 353 ;.QSET 9 000730 000766 L102: BR L106 ;001730 000766 LV 10 11 000732 000000' .WORD $$OTSI 12 000734 000000' L4: .WORD FINIS 13 14 000736 077 105 162 ERR59: .ASCIZ \?Err 59 USR not locked\ 15 000765 077 105 162 ERR62: .ASCIZ \?Err 62 FORTRAN start fail\ 16 .EVEN 17 18 001020 012746 006574' L105: MOV #STP$,-(SP) ;002020 012746,007574 | CTFBSD 19 001024 000114 JMP (R4) ;002024 000114 L A6 20 21 001026 016400 000000 000000 .WORD 16400,0,0 22 001034 016000 000300 L21: .WORD 16000,300 23 001040 016000 000266 L35: .WORD 16000,266 24 25 001044 010146 TRPHND: MOV R1,-(SP) ;002044 010146 f BX8 26 001046 016601 000002 MOV L17(SP),R1 ;002046 016601,000002 D.3 B 27 001052 010046 MOV R0,-(SP) ;002052 010046 & BWN 28 001054 010246 MOV R2,-(SP) ;002054 010246 BZV 29 001056 010346 MOV R3,-(SP) ;002056 010346 B.F 30 001060 014101 MOV -(R1),R1 ;002060 014101 A C5I 31 001062 042701 177600 BIC #L123,R1 ;002062 042701,177600 E KFQ??? 32 001066 016703 000000' MOV $AOTS,R3 ;002066 016703,007514 L D0SBQ6 33 001072 010100 MOV R1,R0 ;002072 010100 @ BX 34 001074 004767 000612 JSR PC,$$SET ;002074 004767,000612 AW1 I4 35 001100 016302 000154 MOV L60(R3),R2 ;002100 016302,000154 l DXB B. 36 001104 060102 ADD R1,R2 ;002104 060102 B` OPB 37 001106 111246 MOVB (R2),-(SP) ;002106 111246 WRV 38 001110 100451 BMI L125 ;002110 100451 ) TZY 39 001112 001414 BEQ L126 ;002112 001414 ST 40 001114 005763 000162 TST L127(R3) ;002114 005763,000162 r A6S B4 41 001120 001404 BEQ L130 ;002120 001404 SL 42 001122 016304 000162 MOV L127(R3),R4 ;002122 016304,000162 r DXD B4 43 001126 000167 001366 JMP $IOEXI ;002126 000167,001366 w B9 R8 44 45 001132 105212 L130: INCB (R2) ;002132 105212 VFZ 46 001134 111216 MOVB (R2),(SP) ;002134 111216 WQ8 47 001136 100001 BPL L132 ;002136 100001 TSI 48 001140 105312 DECB (R2) ;002140 105312 VHJ 49 001142 L132: .RCTRLO 50 001144 012702 003025' L126: MOV #$ERRS,R2 ;002144 012702,004025 CSJAK/ 51 001150 112200 L137: MOVB (R2)+,R0 ;002150 112200 W0P NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 7 1 ; .ASCII .RAD50 2 3 001152 001405 BEQ L134 ;002152 001405 SM 4 001154 120100 CMPB R1,R0 ;002154 120100 @ YYX 5 001156 001405 BEQ L135 ;002156 001405 SM 6 001160 105722 L136: TSTB (R2)+ ;002160 105722 VN4 7 001162 001376 BNE L136 ;002162 001376 SF 8 001164 000771 BR L137 ;002164 000771 LY 9 10 001166 012716 177777 L134: MOV #L140,(SP) ;002166 012716,177777 CSV??? 11 001172 012703 002167' L135: MOV #L141,R3 ;002172 012703,003167 w CSKAAO 12 001176 .PRINT #L142 13 001204 004767 000136 JSR PC,L143 ;002204 004767,000136 ^ AW1 BN 14 001210 .PRINT R2 15 001214 012703 002132' MOV #L144,R3 ;002214 012703,003132 Z CSKA Z 16 001220 004767 000122 JSR PC,L143 ;002220 004767,000122 R AW1 BB 17 001224 004767 000130 JSR PC,L145 ;002224 004767,000130 X AW1 BH 18 001230 105716 TSTB (SP) ;002230 105716 VN0 19 001232 100414 BMI L146 ;002232 100414 TY6 20 001234 005726 L125: TST (SP)+ ;002234 005726 A50 21 001236 005767 000046' TST L7 ;002236 005767,007304 A6WBNT 22 001242 001003 BNE L147 ;002242 001003 L5 23 001244 152737 000002 000053 BISB #L17,@#L41 ;002244 152737,000002,000053 + 4H1 B AC 24 001252 012603 L147: MOV (SP)+,R3 ;002252 012603 CQ$ 25 001254 012602 MOV (SP)+,R2 ;002254 012602 CQZ 26 001256 012600 MOV (SP)+,R0 ;002256 012600 CQX 27 001260 012601 MOV (SP)+,R1 ;002260 012601 CQY 28 001262 000002 RTI ;002262 000002 B 29 30 001264 005767 000046' L146: TST L7 ;002264 005767,007256 A6WBM8 31 001270 001003 BNE L150 ;002270 001003 L5 32 001272 152737 000004 000053 BISB #L54,@#L41 ;002272 152737,000004,000053 + 4H1 D AC 33 001300 016703 000000' L150: MOV $AOTS,R3 ;002300 016703,007302 D0SBNR 34 001304 016302 000016 MOV L151(R3),R2 ;002304 016302,000016 DXB N 35 001310 001414 BEQ L152 ;002310 001414 ST 36 001312 016263 000006 000016 MOV $NLCHN(R2),L151(R3) ;002312 016263,000006,000016 DW$ F N 37 001320 016213 000004 MOV L54(R2),(R3) ;002320 016213,000004 DV$ D 38 001324 012703 002125' MOV #L153,R3 ;002324 012703,003125 U CSKA U 39 001330 004767 000012 JSR PC,L143 ;002330 004767,000012 AW1 J 40 001334 004767 000020 JSR PC,L145 ;002334 004767,000020 AW1 P 41 001340 000757 BR L150 ;002340 000757 LO 42 43 001342 000167 005252 L152: JMP $EXIT ;002342 000167,005252 w B9A.J 44 45 001346 112300 L143: MOVB (R3)+,R0 ;002346 112300 W2 46 001350 001506 BEQ L155 ;002350 001506 F T8 47 001352 L156: .TTOUTR 48 001354 103776 BCS L156 ;002354 103776 U0N 49 001356 000773 BR L143 ;002356 000773 L$ 50 51 001360 012703 002142' L145: MOV #L157,R3 ;002360 012703,003142 b CSKA 4 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 8 1 ; .ASCII .RAD50 2 3 001364 004767 177756 JSR PC,L143 ;002364 004767,177756 AW1??? 4 001370 016703 000000' MOV $AOTS,R3 ;002370 016703,007212 D0SBMB 5 001374 016346 000172 MOV L72(R3),-(SP) ;002374 016346,000172 z DX8 CB 6 001400 016300 000174 MOV L71(R3),R0 ;002400 016300,000174 | DX CD 7 001404 016303 000016 MOV L151(R3),R3 ;002404 016303,000016 DXC N 8 001410 001402 BEQ L160 ;002410 001402 SJ 9 001412 012316 MOV (R3)+,(SP) ;002412 012316 CMF 10 001414 011300 MOV (R3),R0 ;002414 011300 C 11 001416 004767 000224 L160: JSR PC,L161 ;002416 004767,000224 AW1 C. 12 001422 012600 MOV (SP)+,R0 ;002422 012600 CQX 13 001424 004767 000216 JSR PC,L161 ;002424 004767,000216 AW1 CV 14 001430 012703 002155' MOV #L162,R3 ;002430 012703,003155 m CSKAAE 15 001434 004767 177706 JSR PC,L143 ;002434 004767,177706 AW1??? 16 001440 017700 000000' MOV @$AOTS,R0 ;002440 017700,007142 b ECHBLB 17 001444 001005 BNE L163 ;002444 001005 L7 18 001446 112700 000077 MOVB #L164,R0 ;002446 112700,000077 ? W8P AW 19 001452 L165: .TTOUTR 20 001454 103776 BCS L165 ;002454 103776 U0N 21 001456 000402 BR L166 ;002456 000402 FR 22 23 001460 004767 000104 L163: JSR PC,L167 ;002460 004767,000104 D AW1 A. 24 001464 120127 000075 L166: CMPB R1,#L170 ;002464 120127,000075 W = YZG AU 25 001470 001403 BEQ L171 ;002470 001403 SK 26 001472 120127 000077 CMPB R1,#L164 ;002472 120127,000077 W ? YZG AW 27 001476 001030 BNE L172 ;002476 001030 MP 28 001500 012703 002177' L171: MOV #L173,R3 ;002500 012703,003177 CSKAAW 29 001504 004767 177636 JSR PC,L143 ;002504 004767,177636 AW1??? 30 001510 016601 000020 MOV L15(SP),R1 ;002510 016601,000020 D.3 P 31 001514 000261 SEC ;002514 000261 DQ 32 001516 112700 000030 MOVB #L174,R0 ;002516 112700,000030 W8P X 33 001522 006101 L201: ROL R1 ;002522 006101 A A8Q 34 001524 106100 ROLB R0 ;002524 106100 @ VQX 35 001526 L175: .TTOUTR 36 001530 103776 BCS L175 ;002530 103776 U0N 37 001532 112700 000206 MOVB #L176,R0 ;002532 112700,000206 W8P CN 38 001536 006301 L200: ASL R1 ;002536 006301 BAY 39 001540 001403 BEQ L177 ;002540 001403 SK 40 001542 106100 ROLB R0 ;002542 106100 @ VQX 41 001544 103774 BCS L200 ;002544 103774 U0L 42 001546 000765 BR L201 ;002546 000765 LU 43 44 001550 112700 000051 L177: MOVB #L202,R0 ;002550 112700,000051 ) W8P AA 45 001554 L203: .TTOUTR 46 001556 103776 BCS L203 ;002556 103776 U0N 47 001560 L172: .PRINT #L204 48 001566 000207 L155: RTS PC ;002566 000207 CO 49 50 001570 010046 L167: MOV R0,-(SP) ;002570 010046 & BWN 51 001572 005000 CLR R0 ;002572 005000 AX NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 9 1 ; .ASCII .RAD50 2 3 001574 005200 L205: INC R0 ;002574 005200 A$H 4 001576 162716 000012 SUB #L61,(SP) ;002576 162716,000012 600 J 5 001602 002374 BGE L205 ;002602 002374 16 6 001604 062716 000072 ADD #L206,(SP) ;002604 062716,000072 e: PKV AR 7 001610 005300 DEC R0 ;002610 005300 A.2 8 001612 001402 BEQ L207 ;002612 001402 SJ 9 001614 004767 177750 JSR PC,L167 ;002614 004767,177750 AW1??? 10 001620 112600 L207: MOVB (SP)+,R0 ;002620 112600 W62 11 001622 L210: .TTOUTR 12 001624 103776 BCS L210 ;002624 103776 U0N 13 001626 000207 RTS PC ;002626 000207 CO 14 15 001630 010003 L213: MOV R0,R3 ;002630 010003 BVS 16 001632 005000 CLR R0 ;002632 005000 AX 17 001634 020203 L211: CMP R2,R3 ;002634 020203 EHC 18 001636 101353 BHI L155 ;002636 101353 T75 19 001640 160203 SUB R2,R3 ;002640 160203 565 20 001642 005200 INC R0 ;002642 005200 A$H 21 001644 000773 BR L211 ;002644 000773 L$ 22 23 001646 012702 000050 L161: MOV #L212,R2 ;002646 012702,000050 ( CSJ A 24 001652 004767 177752 JSR PC,L213 ;002652 004767,177752 AW1??? 25 001656 010346 MOV R3,-(SP) ;002656 010346 B.F 26 001660 004767 177744 JSR PC,L213 ;002660 004767,177744 AW1??? 27 001664 010346 MOV R3,-(SP) ;002664 010346 B.F 28 001666 012703 000003 MOV #L214,R3 ;002666 012703,000003 CSK C 29 001672 116000 002055' L217: MOVB CHRLST(R0),R0 ;002672 116000,003055 - X8P 9U 30 001676 L216: .TTOUTR 31 001700 103776 BCS L216 ;002700 103776 U0N 32 001702 005303 DEC R3 ;002702 005303 A.5 33 001704 001730 BEQ L155 ;002704 001730 XX 34 001706 012600 MOV (SP)+,R0 ;002706 012600 CQX 35 001710 000770 BR L217 ;002710 000770 LX 36 37 001712 110063 000240 $$SET:: MOVB R0,L220(R3) ;002712 110063,000240 3 WB5 D 38 001716 116363 000242 000241 MOVB L221(R3),L222(R3) ;002716 116363,000242,000241 YDS DB DA 39 001724 010002 MOV R0,R2 ;002724 010002 BVR 40 001726 006200 ASR R0 ;002726 006200 B 41 001730 006200 ASR R0 ;002730 006200 B 42 001732 006200 L247: ASR R0 ;002732 006200 B 43 001734 042700 000001 BIC #L44,R0 ;002734 042700,000001 E KFP A 44 001740 060300 ADD R3,R0 ;002740 060300 ` OSH 45 001742 042702 177760 BIC #L223,R2 ;002742 042702,177760 E KFR??? 46 001746 005046 CLR -(SP) ;002746 005046 & AX8 47 001750 000261 SEC ;002750 000261 DQ 48 001752 006116 L224: ROL (SP) ;002752 006116 N A80 49 001754 005302 DEC R2 ;002754 005302 A.4 50 001756 100375 BPL L224 ;002756 100375 TYU 51 001760 052660 000226 BIS (SP)+,L225(R0) ;002760 052660,000226 U M.P C0 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 10 1 ; .ASCII .RAD50 2 3 001764 000207 RTS PC ;002764 000207 CO 4 5 001766 104677 L226: TRAP 277 ;002766 104677 VAW 6 001770 103776 TRP410: BCS L226 ;002770 103776 U0N 7 001772 022706 000500 CMP #L227,SP ;002772 022706,000500 %@ FA0 H 8 001776 103001 BCC L230 ;002776 103001 UQY 9 002000 104675 L576: TRAP 275 ;003000 104675 VAU 10 002002 013706 000042 L230: MOV @#L11,SP ;003002 013706,000042 " C2F 4 11 002006 .PRINT #ERR60 12 002014 000167 004600 JMP $EXIT ;003014 000167,004600 w B9AT2 13 14 002020 001400 001770' L12: .WORD 1400,TRP410 15 16 002024 077 105 162 ERR60: .ASCIZ \?Err 60 stack overflowed\ 17 002055 040 101 102 CHRLST: .ASCII \ ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789\ 18 002125 146 162 157 L153: .ASCIZ \from\ 19 002132 151 156 040 L144: .ASCIZ \in \ 20 002137 015 012 000 L204: .BYTE 15,12,0 21 002142 040 162 157 L157: .ASCIZ \ routine "\ 22 002155 042 040 040 L162: .ASCIZ \" line \ 23 002166 200 L142: .BYTE 200 24 002167 015 012 077 L141: .ASCIZ <15><12>\?Err \ 25 002177 040 050 120 L173: .ASCIZ \ (PC=\ 26 .EVEN 27 28 002206 005277 000000' ISN$:: INC @$AOTS ;003206 005277,006374 A.1BCD 29 002212 000134 $ISNTR::JMP @(R4)+ ;003212 000134 \ BL 30 31 002214 003246 BGT L247 ;003214 003246 ABV 32 002216 .PRINT #L250 33 002224 000134 JMP @(R4)+ ;003224 000134 \ BL 34 35 002226 012477 000000' LSN$:: MOV (R4)+,@$AOTS ;003226 012477,006354 ? CO9BB. 36 002232 000134 $LSNTR::JMP @(R4)+ ;003232 000134 \ BL 37 38 002234 003246 BGT L224 ;003234 003246 ABV 39 002236 .PRINT #L250 40 002244 000134 JMP @(R4)+ ;003244 000134 \ BL 41 42 002246 017700 000000' MOV @$AOTS,R0 ;003246 017700,006334 ECHBBL 43 002252 012701 002360' MOV #L251,R1 ;003252 012701,003360 CSIADP 44 002256 005046 CLR -(SP) ;003256 005046 & AX8 45 002260 000412 BR L252 ;003260 000412 FZ 46 47 002262 010046 L255: MOV R0,-(SP) ;003262 010046 & BWN 48 002264 005000 CLR R0 ;003264 005000 AX 49 002266 005200 L253: INC R0 ;003266 005200 A$H 50 002270 162716 000012 SUB #L61,(SP) ;003270 162716,000012 600 J 51 002274 002374 BGE L253 ;003274 002374 16 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 11 1 ; .ASCII .RAD50 2 3 002276 062716 000072 ADD #L206,(SP) ;003276 062716,000072 e: PKV AR 4 002302 005300 DEC R0 ;003302 005300 A.2 5 002304 001402 BEQ L254 ;003304 001402 SJ 6 002306 004767 177750 L252: JSR PC,L255 ;003306 004767,177750 AW1??? 7 002312 112621 L254: MOVB (SP)+,(R1)+ ;003312 112621 W7I 8 002314 000207 RTS PC ;003314 000207 CO 9 10 002316 040 040 040 L250: .ASCII \ STMT \ 11 002360 L251: .BLKB 6 12 .EVEN 13 14 002366 113400 RET$L:: MOVB @(R4)+,R0 ;003366 113400 XFP 15 002370 000404 BR RET$ ;003370 000404 FT 16 17 002372 011403 RET$F:: MOV (R4),R3 ;003372 011403 CA$ 18 002374 016301 000002 MOV L17(R3),R1 ;003374 016301,000002 DXA B 19 002400 013400 RET$I:: MOV @(R4)+,R0 ;003400 013400 C$H 20 002402 016703 000000' RET$:: MOV $AOTS,R3 ;003402 016703,006200 D0SB 21 002406 005763 000016 TST L151(R3) ;003406 005763,000016 A6S N 22 002412 001407 BEQ L260 ;003412 001407 SO 23 002414 022626 CMP (SP)+,(SP)+ ;003414 022626 % F V 24 002416 012613 MOV (SP)+,(R3) ;003416 012613 CQ5 25 002420 012663 000016 MOV (SP)+,L151(R3) ;003420 012663,000016 CR5 N 26 002424 112663 000164 MOVB (SP)+,L52(R3) ;003424 112663,000164 t W8C B6 27 002430 000207 RTS PC ;003430 000207 CO 28 29 002432 000167 004136 L260: JMP STP$ ;003432 000167,004136 w ^ B9AMV 30 31 002436 016300 000024 $OPNER::MOV L67(R3),R0 ;003436 016300,000024 DX T 32 002442 116001 000021 MOVB L261(R0),R1 ;003442 116001,000021 X8Q Q 33 002446 005000 CLR R0 ;003446 005000 AX 34 002450 000261 SEC ;003450 000261 DQ 35 002452 006100 L262: ROL R0 ;003452 006100 @ A8P 36 002454 005301 DEC R1 ;003454 005301 A.3 37 002456 100375 BPL L262 ;003456 100375 TYU 38 002460 040063 000020 BIC R0,L15(R3) ;003460 040063,000020 3@ JJ5 P 39 002464 116302 000242 MOVB L221(R3),R2 ;003464 116302,000242 YCJ DB 40 002470 004767 004262 JSR PC,$CLOSE ;003470 004767,004262 AW1AOZ 41 002474 000167 000204 $CHKER::JMP L264 ;003474 000167,000204 w B9 CL 42 43 002500 001001 L277: BNE L265 ;003500 001001 L3 44 002502 000205 RTS R5 ;003502 000205 CM 45 46 002504 010004 L265: MOV R0,R4 ;003504 010004 BVT 47 002506 011500 MOV (R5),R0 ;003506 011500 @ CCH 48 002510 042700 177600 BIC #L123,R0 ;003510 042700,177600 E KFP??? 49 002514 004767 177172 JSR PC,$$SET ;003514 004767,177172 z AW1??? 50 002520 016306 000144 $IOEXI::MOV L266(R3),SP ;003520 016306,000144 d DXF BT 51 002524 012746 002702' MOV #L267,-(SP) ;003524 012746,003702 CTFAIZ NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 12 1 ; .ASCII .RAD50 2 3 002530 016605 177776 MOV L270(SP),R5 ;003530 016605,177776 D.7??? 4 002534 010346 MOV R3,-(SP) ;003534 010346 B.F 5 002536 105763 000164 TSTB L52(R3) ;003536 105763,000164 t VO$ B6 6 002542 001042 BNE L271 ;003542 001042 " MZ 7 002544 010466 000002 MOV R4,L17(SP) ;003544 010466,000002 6 B0F B 8 002550 010600 MOV SP,R0 ;003550 010600 B2 9 002552 014004 MOV -(R0),R4 ;003552 014004 C3. 10 002554 014016 MOV -(R0),(SP) ;003554 014016 C38 11 002556 014002 MOV -(R0),R2 ;003556 014002 C3Z 12 002560 014001 MOV -(R0),R1 ;003560 014001 C3Y 13 002562 014000 MOV -(R0),R0 ;003562 014000 C3X 14 002564 000431 BR L271 ;003564 000431 GA 15 16 002566 010346 $EOL:: MOV R3,-(SP) ;003566 010346 B.F 17 002570 016703 000000' EOL$:: MOV $AOTS,R3 ;003570 016703,006012 D0SA7B 18 002574 005063 000104 CLR L272(R3) ;003574 005063,000104 3 D AYK A. 19 002600 105763 000164 TSTB L52(R3) ;003600 105763,000164 t VO$ B6 20 002604 001005 BNE L273 ;003604 001005 L7 21 002606 016663 000002 000176 MOV L17(SP),L274(R3) ;003606 016663,000002,000176 ~ D0C B CF 22 002614 012603 MOV (SP)+,R3 ;003614 012603 CQ$ 23 002616 005726 TST (SP)+ ;003616 005726 A50 24 002620 004736 L273: JSR PC,@(SP)+ ;003620 004736 AWF 25 002622 012746 002702' MOV #L267,-(SP) ;003622 012746,003702 CTFAIZ 26 002626 010346 MOV R3,-(SP) ;003626 010346 B.F 27 002630 016703 000000' MOV $AOTS,R3 ;003630 016703,005752 D0SA6J 28 002634 105763 000164 TSTB L52(R3) ;003634 105763,000164 t VO$ B6 29 002640 001003 BNE L271 ;003640 001003 L5 30 002642 016366 000176 000002 MOV L274(R3),L17(SP) ;003642 016366,000176,000002 ~ DYN CF B 31 002650 005063 000162 L271: CLR L127(R3) ;003650 005063,000162 3 r AYK B4 32 002654 005063 000160 CLR L275(R3) ;003654 005063,000160 3 p AYK B2 33 002660 005063 000024 CLR L67(R3) ;003660 005063,000024 3 AYK T 34 002664 016363 000130 000014 MOV L276(R3),L65(R3) ;003664 016363,000130,000014 X DYK BH L 35 002672 105063 000242 CLRB L221(R3) ;003672 105063,000242 3 VDS DB 36 002676 012603 MOV (SP)+,R3 ;003676 012603 CQ$ 37 002700 000207 RTS PC ;003700 000207 CO 38 39 002702 000134 L267: JMP @(R4)+ ;003702 000134 \ BL 40 41 002704 110263 000242 L264: MOVB R2,L221(R3) ;003704 110263,000242 WFC DB 42 002710 016300 000162 MOV L127(R3),R0 ;003710 016300,000162 r DX B4 43 002714 000167 177560 JMP L277 ;003714 000167,177560 w p B9??? 44 45 002720 077577 $ERRTB::.WORD 77577 ;003720 077577 TO9 46 002722 077577 .WORD 77577 ;003722 077577 TO9 47 002724 076000 .WORD 76000 ;003724 076000 | S3X 48 002726 077777 .WORD 77777 ;003726 077777 TSG 49 002730 077577 .WORD 77577 ;003730 077577 TO9 50 002732 177574 .WORD 177574 ;003732 177574 | ??? 51 002734 076177 .WORD 76177 ;003734 076177 | S61 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 13 1 ; .ASCII .RAD50 2 3 002736 077577 .WORD 77577 ;003736 077577 TO9 4 002740 077577 .WORD 77577 ;003740 077577 TO9 5 002742 077577 .WORD 77577 ;003742 077577 TO9 6 002744 077577 .WORD 77577 ;003744 077577 TO9 7 002746 077577 .WORD 77577 ;003746 077577 TO9 8 002750 077577 .WORD 77577 ;003750 077577 TO9 9 002752 077577 .WORD 77577 ;003752 077577 TO9 10 002754 077577 .WORD 77577 ;003754 077577 TO9 11 002756 077577 .WORD 77577 ;003756 077577 TO9 12 002760 077577 .WORD 77577 ;003760 077577 TO9 13 002762 077577 .WORD 77577 ;003762 077577 TO9 14 002764 077577 .WORD 77577 ;003764 077577 TO9 15 002766 077577 .WORD 77577 ;003766 077577 TO9 16 002770 077577 .WORD 77577 ;003770 077577 TO9 17 002772 077577 .WORD 77577 ;003772 077577 TO9 18 002774 077577 .WORD 77577 ;003774 077577 TO9 19 002776 077577 .WORD 77577 ;003776 077577 TO9 20 003000 077577 L543: .WORD 77577 ;004000 077577 TO9 21 003002 077577 .WORD 77577 ;004002 077577 TO9 22 003004 000000 .WORD 0 23 003006 077577 .WORD 77577 ;004006 077577 TO9 24 003010 077577 .WORD 77577 ;004010 077577 TO9 25 003012 077577 .WORD 77577 ;004012 077577 TO9 26 003014 077577 .WORD 77577 ;004014 077577 TO9 27 003016 077577 .WORD 77577 ;004016 077577 TO9 28 003020 077577 .WORD 77577 ;004020 077577 TO9 29 003022 000177 .WORD 177 30 31 003024 177 .BYTE 177 32 003025 013 $ERRS:: .BYTE 13 33 003026 061 061 040 .ASCIZ \11 Floating underflow\ 34 003054 006 .BYTE 6 35 003055 066 040 117 .ASCIZ \6 Output conversion error\ 36 003107 004 .BYTE 4 37 003110 064 040 103 .ASCIZ \4 Computed goto out of range\ 38 003145 014 .BYTE 14 39 003146 061 062 040 .ASCIZ \12 Floating zero divide\ 40 003176 002 .BYTE 2 41 003177 062 040 111 .ASCIZ \2 Integer zero divide\ 42 003225 003 .BYTE 3 43 003226 063 040 103 .ASCIZ \3 Compiler generated error\ 44 003261 020 .BYTE 20 45 003262 061 066 040 .ASCIZ \16 Wrong number of arguments\ 46 003317 015 .BYTE 15 47 003320 061 063 040 .ASCIZ \13 Sqrt of negative number\ 48 003353 001 .BYTE 1 49 003354 061 040 111 .ASCIZ \1 Integer overflow\ 50 003377 012 .BYTE 12 51 003400 061 060 040 .ASCIZ \10 Floating overflow\ NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 14 1 ; .ASCII .RAD50 2 3 003425 005 .BYTE 5 4 003426 065 040 111 .ASCIZ \5 Input conversion error\ 5 003457 016 .BYTE 16 6 003460 061 064 040 .ASCIZ \14 Undefined exponentiation operation\ 7 003526 017 .BYTE 17 8 003527 061 065 040 .ASCIZ \15 Log of zero or negative number\ 9 003571 007 .BYTE 7 10 003572 067 040 111 .ASCIZ \7 Incompatible object modules\ 11 003630 065 .BYTE 65 12 003631 065 063 040 .ASCII \53 Li\ 13 003636 163 164 040 L103: .ASCIZ \st directed I/O syntax error\ 14 003673 075 .BYTE 75 15 003674 066 061 040 .ASCIZ \61 Illegal memory reference\ 16 003730 024 .BYTE 24 17 003731 062 060 040 .ASCIZ \20 Invalid logical unit number\ 18 003770 025 .BYTE 25 19 003771 062 061 040 .ASCIZ \21 Out of available logical unitS\ 20 004033 026 .BYTE 26 21 004034 062 062 040 .ASCIZ \22 Input record too long\ 22 004065 027 .BYTE 27 23 004066 062 063 040 .ASCIZ \23 Hardware I/O error\ 24 004114 077 .BYTE 77 25 004115 066 063 040 .ASCIZ \63 Illegal instruction trap\ 26 004151 030 .BYTE 30 27 004152 062 064 040 .ASCIZ \24 Attempt to read/write past end of file\ 28 004224 031 .BYTE 31 29 004225 062 065 040 .ASCIZ \25 Attempt to read after write\ 30 004264 032 .BYTE 32 31 004265 062 066 040 .ASCIZ \26 Recursive I/O not allowed\ 32 004322 055 .BYTE 55 33 004323 064 065 040 .ASCIZ \45 Incompatible variable and format types\ 34 004375 033 .BYTE 33 35 004376 062 067 040 .ASCIZ \27 Attempt to use device not in system\ 36 004445 037 .BYTE 37 37 004446 063 061 040 .ASCIZ \31 No available I/O channel\ 38 004502 034 .BYTE 34 39 004503 062 070 040 .ASCIZ \28 Open failed for file\ 40 004533 035 .BYTE 35 41 004534 062 071 040 .ASCIZ \29 No room for device handler\ 42 004572 044 .BYTE 44 43 004573 063 066 040 .ASCIZ \36 Bad file specification string\ 44 004634 054 .BYTE 54 45 004635 064 064 040 .ASCIZ \44 2nd record request in ENCODE/DECODE\ 46 004704 040 .BYTE 40 47 004705 063 062 040 .ASCIZ \32 Fmtd-unfmtd-random I/O to same file\ 48 004754 041 .BYTE 41 49 004755 063 063 040 .ASCIZ \33 Attempt to read past end of record\ 50 005023 042 .BYTE 42 51 005024 063 064 040 .ASCIZ \34 Unfmtd I/O to TT or LP\ NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 15 1 ; .ASCII .RAD50 2 3 005056 045 .BYTE 45 4 005057 063 067 040 .ASCIZ \37 Random access read/write before define file\ 5 005136 046 .BYTE 46 6 005137 063 070 040 .ASCIZ \38 Random I/O not allowed to TT or LP\ 7 005205 047 .BYTE 47 8 005206 063 071 040 .ASCIZ \39 Record larger than record size in define file\ 9 005267 050 .BYTE 50 10 005270 064 060 040 .ASCIZ \40 Request for block larger than 65535\ 11 005337 051 .BYTE 51 12 005340 064 061 040 .ASCIZ \41 Define file attempted on open unit\ 13 005406 043 .BYTE 43 14 005407 063 065 040 .ASCIZ \35 Attempt to output to read only file\ 15 005456 036 .BYTE 36 16 005457 063 060 040 .ASCIZ \30 No room for buffers\ 17 005506 052 .BYTE 52 18 005507 064 062 040 .ASCIZ \42 Memory overflow compiling object time format\ 19 005567 056 .BYTE 56 20 005570 064 066 040 .ASCIZ \46 Infinite format loop\ 21 005620 053 .BYTE 53 22 005621 064 063 040 .ASCIZ \43 Syntax error in object time format\ 23 005667 061 .BYTE 61 24 005670 064 071 040 .ASCIZ \49 Endfile on random file\ 25 005722 057 .BYTE 57 26 005723 064 067 040 .ASCIZ \47 Attempt to store outside partition\ 27 005771 060 .BYTE 60 28 005772 064 070 040 .ASCIZ \48 Unit already open\ 29 006017 100 .BYTE 100 30 006020 066 064 040 .ASCIZ \64 Virtual array initialization failure\ 31 006070 101 .BYTE 101 32 006071 066 065 040 .ASCIZ \65 Virtual array mapping error\ 33 006130 102 .BYTE 102 34 006131 066 066 040 .ASCIZ \66 Unsupported OPEN/CLOSE keyword or option\ 35 006205 103 .BYTE 103 36 006206 066 067 040 .ASCIZ \67 Unsupported OPEN/CLOSE keyword or option\ 37 006262 063 .BYTE 63 38 006263 065 061 040 .ASCIZ \51 Inconsistent OPEN/CLOSE statement specifications\ 39 006347 064 .BYTE 64 40 006350 065 062 040 .ASCIZ \52 Attempt to delete a protected file\ 41 006416 062 .BYTE 62 42 006417 065 060 040 .ASCIZ \50 Keyword value error in OPEN statement\ 43 006470 104 .BYTE 104 44 006471 066 070 040 .ASCIZ \68 Direct access record size error\ 45 006534 000 .BYTE 0 46 006535 060 040 116 .ASCIZ \0 Non-FORTRAN error call\ 47 .EVEN 48 49 006566 005726 $STPS:: TST (SP)+ ;007566 005726 A50 50 006570 010604 MOV SP,R4 ;007570 010604 B2D 51 006572 000402 BR FOO$ ;007572 000402 FR NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 16 1 ; .ASCII .RAD50 2 3 006574 STP$:: 4 006574 012704 006726' $STP:: MOV #L532,R4 ;007574 012704,007726 CSLBUN 5 006600 FOO$:: .PRINT #L533 6 006606 .PRINT #L534 7 006614 .PRINT (R4)+ 8 006620 152737 000001 000053 $EXIT:: BISB #L44,@#L41 ;007620 152737,000001,000053 + 4H1 A AC 9 006626 016703 000000' MOV $AOTS,R3 ;007626 016703,001754 D0S YD 10 006632 005263 000146 INC L535(R3) ;007632 005263,000146 f A.S BV 11 006636 016304 000004 MOV L54(R3),R4 ;007636 016304,000004 DXD D 12 006642 020463 000002 L537: CMP R4,L17(R3) ;007642 020463,000002 3! ELS B 13 006646 103015 BCC L536 ;007646 103015 UQ7 14 006650 112402 MOVB (R4)+,R2 ;007650 112402 W3Z 15 006652 001773 BEQ L537 ;007652 001773 YS 16 006654 026327 000146 000002 CMP L535(R3),#L17 ;007654 026327,000146,000002 ,f GF9 BV B 17 006662 001004 BNE L540 ;007662 001004 L6 18 006664 105044 CLRB -(R4) ;007664 105044 $ VDD 19 006666 005363 000146 DEC L535(R3) ;007666 005363,000146 f A0C BV 20 006672 000763 BR L537 ;007672 000763 LS 21 22 006674 004777 000044' L540: JSR PC,@L541 ;007674 004777,001644 AW9 WL 23 006700 000760 BR L537 ;007700 000760 LP 24 25 006702 016300 000156 L536: MOV L341(R3),R0 ;007702 016300,000156 n DX B0 26 006706 001401 BEQ L542 ;007706 001401 SI 27 006710 000110 JMP (R0) ;007710 000110 H A2 28 29 006712 032737 003000' 000044 L542: BIT #L543,@#L77 ;007712 032737,004000,000044 5 $ HX1AKH 6 30 006720 001001 BNE L544 ;007720 001001 L3 31 006722 005200 INC R0 ;007722 005200 A$H 32 006724 L544: .EXIT 33 34 006726 006730' L532: .WORD .+2 35 006730 000000 L533: .WORD 0 36 37 006732 123 124 117 L534: .ASCII \STOP -- \<200> 38 .EVEN 39 40 006744 005767 000052' $VRINT::TST L26 ;007744 005767,001602 A6W VR 41 006750 001401 BEQ L546 ;007750 001401 SI 42 006752 104700 TRAP 300 ;007752 104700 VAX 43 006754 000207 L546: RTS PC ;007754 000207 CO 44 45 006756 010546 $CLOSE::MOV R5,-(SP) ;007756 010546 f B1N 46 006760 010446 MOV R4,-(SP) ;007760 010446 & B/0 47 006762 010246 MOV R2,-(SP) ;007762 010246 BZV 48 006764 016703 000000' MOV $AOTS,R3 ;007764 016703,001616 D0S V0 49 006770 110263 000242 MOVB R2,L221(R3) ;007770 110263,000242 WFC DB 50 006774 004767 000704 JSR PC,$FCHNL ;007774 004767,000704 AW1 KL 51 007000 010063 000024 L14: MOV R0,L67(R3) ;010000 010063,000024 3 BW$ T NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 17 1 ; .ASCII .RAD50 2 3 007004 032710 003000' BIT #L543,(R0) ;010004 032710,004000 5 HXHAKH 4 007010 001002 BNE L550 ;010010 001002 L4 5 007012 000167 000442 JMP L551 ;010012 000167,000442 w " B9 GJ 6 7 007016 105710 L550: TSTB (R0) ;010016 105710 VNX 8 007020 100002 BPL L552 ;010020 100002 TSJ 9 007022 000167 000476 JMP L553 ;010022 000167,000476 w > B9 G8 10 11 007026 004767 000502 L552: JSR PC,$DUMPL ;010026 004767,000502 B AW1 HB 12 007032 032714 000000' BIT #$$OTSI,(R4) ;010032 032714,001000 5 HXL L2 13 007036 001454 BEQ L555 ;010036 001454 , TL 14 007040 016464 000030 000026 MOV L174(R4),L556(R4) ;010040 016464,000030,000026 4 DZ6 X V 15 007046 001450 BEQ L555 ;010046 001450 ( TH 16 007050 016402 000002 MOV L17(R4),R2 ;010050 016402,000002 DYZ B 17 007054 012705 000400 MOV #L557,R5 ;010054 012705,000400 CSM FP 18 007060 005022 L560: CLR (R2)+ ;010060 005022 AXR 19 007062 005305 DEC R5 ;010062 005305 A.7 20 007064 001375 BNE L560 ;010064 001375 SE 21 007066 032714 000400 BIT #L557,(R4) ;010066 032714,000400 5 HXL FP 22 007072 001007 BNE L561 ;010072 001007 L9 23 007074 026464 000026 000032 L564: CMP L556(R4),L562(R4) ;010074 026464,000026,000032 4- GIL V Z 24 007102 101032 BHI L555 ;010102 101032 T2Z 25 007104 004767 000676 JSR PC,$PUTBL ;010104 004767,000676 AW1 KF 26 007110 000771 BR L564 ;010110 000771 LY 27 28 007112 012763 007156' 000160 L561: MOV #L565,L275(R3) ;010112 012763,010156,000160 n p CTSBYF B2 29 007120 105763 000164 TSTB L52(R3) ;010120 105763,000164 t VO$ B6 30 007124 001403 BEQ L566 ;010124 001403 SK 31 007126 012763 007154' 000160 MOV #L567,L275(R3) ;010126 012763,010154,000160 l p CTSBYD B2 32 007134 010446 L566: MOV R4,-(SP) ;010134 010446 & B/0 33 007136 116346 000242 MOVB L221(R3),-(SP) ;010136 116346,000242 YDF DB 34 007142 010663 000144 MOV SP,L266(R3) ;010142 010663,000144 d B3K BT 35 007146 004767 000634 L570: JSR PC,$PUTBL ;010146 004767,000634 AW1 JL 36 007152 000775 BR L570 ;010152 000775 L/ 37 38 007154 010156 L567: MOV R1,@-(SP) ;010154 010156 n BYF 39 007156 012663 000242 L565: MOV (SP)+,L221(R3) ;010156 012663,000242 CR5 DB 40 007162 012604 MOV (SP)+,R4 ;010162 012604 CQ. 41 007164 010463 000024 MOV R4,L67(R3) ;010164 010463,000024 3 B0C T 42 007170 005737 000046 L555: TST @#L31 ;010170 005737,000046 & A59 8 43 007174 001403 BEQ L571 ;010174 001403 SK 44 007176 004767 001234 JSR PC,$WAIT ;010176 004767,001234 AW1 P. 45 007202 000404 BR L573 ;010202 000404 FT 46 47 007204 005000 L571: CLR R0 ;010204 005000 AX 48 007206 156400 000021 BISB L261(R4),R0 ;010206 156400,000021 5NP Q 49 007212 104374 EMT 374 ;010212 104374 U6. 50 007214 016405 000004 L573: MOV L54(R4),R5 ;010214 016405,000004 DY/ D 51 007220 006305 ASL R5 ;010220 006305 BA/ NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 18 1 ; .ASCII .RAD50 2 3 007222 016402 000002 MOV L17(R4),R2 ;010222 016402,000002 DYZ B 4 007226 032714 000001 BIT #L44,(R4) ;010226 032714,000001 5 HXL A 5 007232 001402 BEQ L574 ;010232 001402 SJ 6 007234 162702 000000' SUB #$$OTSI,R2 ;010234 162702,001000 60R L2 7 007240 010246 L574: MOV R2,-(SP) ;010240 010246 BZV 8 007242 010200 MOV R2,R0 ;010242 010200 BYX 9 007244 060500 ADD R5,R0 ;010244 060500 @a OVP 10 007246 012022 L575: MOV (R0)+,(R2)+ ;010246 012022 CHR 11 007250 020063 000014 CMP R0,L65(R3) ;010250 020063,000014 3 EFC L 12 007254 103774 BCS L575 ;010254 103774 U0L 13 007256 160563 000014 SUB R5,L65(R3) ;010256 160563,000014 s 6B5 L 14 007262 012700 002000' MOV #L576,R0 ;010262 012700,003000 CSH 8P 15 007266 032714 000004 BIT #L54,(R4) ;010266 032714,000004 5 HXL D 16 007272 001402 BEQ L577 ;010272 001402 SJ 17 007274 012700 000400' MOV #L600,R0 ;010274 012700,001400 CSH SH 18 007300 116401 000021 L577: MOVB L261(R4),R1 ;010300 116401,000021 YD3 Q 19 007304 150100 BISB R1,R0 ;010304 150100 @ 3L2 20 007306 104374 EMT 374 ;010306 104374 U6. 21 007310 103422 BCS L601 ;010310 103422 UXR 22 007312 032764 000020 000034 BIT #L15,L602(R4) ;010312 032764,000020,000034 5 HYL P . 23 007320 001422 BEQ L603 ;010320 001422 SZ 24 007322 032714 000004 BIT #L54,(R4) ;010322 032714,000004 5 HXL D 25 007326 001017 BNE L603 ;010326 001017 MG 26 007330 010602 MOV SP,R2 ;010330 010602 B2B 27 007332 005046 CLR -(SP) ;010332 005046 & AX8 28 007334 010446 MOV R4,-(SP) ;010334 010446 & B/0 29 007336 062716 000006 ADD #$NLCHN,(SP) ;010336 062716,000006 e PKV F 30 007342 005046 CLR -(SP) ;010342 005046 & AX8 31 007344 156416 000021 BISB L261(R4),(SP) ;010344 156416,000021 5N0 Q 32 007350 010600 MOV SP,R0 ;010350 010600 B2 33 007352 104375 EMT 375 ;010352 104375 U6/ 34 007354 103003 BCC L604 ;010354 103003 UQ$ 35 007356 004567 173112 L601: JSR R5,$CHKER ;010356 004567,173112 w J ATW9PJ 36 007362 104664 TRAP 264 ;010362 104664 VAL 37 007364 010206 L604: MOV R2,SP ;010364 010206 BY0 38 007366 005000 L603: CLR R0 ;010366 005000 AX 39 007370 000261 SEC ;010370 000261 DQ 40 007372 006100 L606: ROL R0 ;010372 006100 @ A8P 41 007374 005301 DEC R1 ;010374 005301 A.3 42 007376 100375 BPL L606 ;010376 100375 TYU 43 007400 040063 000020 BIC R0,L15(R3) ;010400 040063,000020 3@ JJ5 P 44 007404 005063 000162 L613: CLR L127(R3) ;010404 005063,000162 3 r AYK B4 45 007410 005063 000160 CLR L275(R3) ;010410 005063,000160 3 p AYK B2 46 007414 016304 000004 MOV L54(R3),R4 ;010414 016304,000004 DXD D 47 007420 020463 000002 L610: CMP R4,L17(R3) ;010420 020463,000002 3! ELS B 48 007424 103012 BCC L607 ;010424 103012 UQ4 49 007426 112402 MOVB (R4)+,R2 ;010426 112402 W3Z 50 007430 001773 BEQ L610 ;010430 001773 YS 51 007432 004767 000246 JSR PC,$FCHNL ;010432 004767,000246 AW1 DF NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 19 1 ; .ASCII .RAD50 2 3 007436 021660 000002 CMP (SP),L17(R0) ;010436 021660,000002 # E.P B 4 007442 103366 BCC L610 ;010442 103366 UW0 5 007444 160560 000002 SUB R5,L17(R0) ;010444 160560,000002 p 6B2 B 6 007450 000763 BR L610 ;010450 000763 LS 7 8 007452 005726 L607: TST (SP)+ ;010452 005726 A50 9 007454 016300 000024 MOV L67(R3),R0 ;010454 016300,000024 DX T 10 007460 012704 000021 L551: MOV #L261,R4 ;010460 012704,000021 CSL Q 11 007464 005020 L611: CLR (R0)+ ;010464 005020 AXP 12 007466 005304 DEC R4 ;010466 005304 A.6 13 007470 001375 BNE L611 ;010470 001375 SE 14 007472 016300 000004 MOV L54(R3),R0 ;010472 016300,000004 DX D 15 007476 012602 MOV (SP)+,R2 ;010476 012602 CQZ 16 007500 122002 L612: CMPB (R0)+,R2 ;010500 122002 ZIZ 17 007502 001376 BNE L612 ;010502 001376 SF 18 007504 105040 CLRB -(R0) ;010504 105040 VD 19 007506 005063 000024 CLR L67(R3) ;010506 005063,000024 3 AYK T 20 007512 105063 000242 CLRB L221(R3) ;010512 105063,000242 3 VDS DB 21 007516 012604 MOV (SP)+,R4 ;010516 012604 CQ. 22 007520 012605 MOV (SP)+,R5 ;010520 012605 CQ/ 23 007522 000207 RTS PC ;010522 000207 CO 24 25 007524 010004 L553: MOV R0,R4 ;010524 010004 BVT 26 007526 012746 177777 MOV #L140,-(SP) ;010526 012746,177777 CTF??? 27 007532 000724 BR L613 ;010532 000724 K. 28 29 007534 010004 $DUMPL::MOV R0,R4 ;010534 010004 BVT 30 007536 032710 040000 BIT #L501,(R0) ;010536 032710,040000 5 @ HXHJIX 31 007542 001406 BEQ L614 ;010542 001406 SN 32 007544 032710 000002 BIT #L17,(R0) ;010544 032710,000002 5 HXH B 33 007550 001443 BEQ L615 ;010550 001443 # TC 34 007552 042710 000002 BIC #L17,(R0) ;010552 042710,000002 E KFX B 35 007556 000436 BR L616 ;010556 000436 GF 36 37 007560 005714 L614: TST (R4) ;010560 005714 A5T 38 007562 100036 BPL L615 ;010562 100036 TS8 39 007564 032714 000000' BIT #$$OTSI,(R4) ;010564 032714,001000 5 HXL L2 40 007570 001423 BEQ L617 ;010570 001423 S$ 41 007572 000167 000064 JMP L620 ;010572 000167,000064 w 4 B9 AL 42 43 007576 010201 L627: MOV R2,R1 ;010576 010201 BYY 44 007600 066402 000002 ADD L17(R4),R2 ;010600 066402,000002 m QQZ B 45 007604 032710 020000 BIT #L76,(R0) ;010604 032710,020000 5 HXHED2 46 007610 001402 BEQ L621 ;010610 001402 SJ 47 007612 105022 CLRB (R2)+ ;010612 105022 VCZ 48 007614 000402 BR L622 ;010614 000402 FR 49 50 007616 112722 000012 L621: MOVB #L61,(R2)+ ;010616 112722,000012 W84 J 51 007622 162701 000777 L622: SUB #L623,R1 ;010622 162701,000777 60Q L1 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 20 1 ; .ASCII .RAD50 2 3 007626 001412 BEQ L616 ;010626 001412 SR 4 007630 105022 L624: CLRB (R2)+ ;010630 105022 VCZ 5 007632 005201 INC R1 ;010632 005201 A$I 6 007634 100775 BMI L624 ;010634 100775 T17 7 007636 000406 BR L616 ;010636 000406 FV 8 9 007640 012702 000776 L617: MOV #L625,R2 ;010640 012702,000776 CSJ L0 10 007644 066402 000002 ADD L17(R4),R2 ;010644 066402,000002 m QQZ B 11 007650 052712 100000 BIS #L70,(R2) ;010650 052712,100000 U M/BTSH 12 007654 004767 000126 L616: JSR PC,$PUTBL ;010654 004767,000126 V AW1 BF 13 007660 000207 L615: RTS PC ;010660 000207 CO 14 15 007662 005764 000016 L620: TST L151(R4) ;010662 005764,000016 A6T N 16 007666 001002 BNE L626 ;010666 001002 L4 17 007670 000167 177764 JMP L615 ;010670 000167,177764 w B9??? 18 19 007674 016402 000016 L626: MOV L151(R4),R2 ;010674 016402,000016 DYZ N 20 007700 000167 177672 JMP L627 ;010700 000167,177672 w B9??? 21 22 007704 005702 $FCHNL::TST R2 ;010704 005702 A5J 23 007706 003403 BLE L630 ;010706 003403 AD5 24 007710 022702 000143 CMP #L631,R2 ;010710 022702,000143 %c FAZ BS 25 007714 002001 BGE L632 ;010714 002001 YY 26 007716 104624 L630: TRAP 224 ;010716 104624 V T 27 007720 016346 000004 L632: MOV L54(R3),-(SP) ;010720 016346,000004 DX8 D 28 007724 011601 MOV (SP),R1 ;010724 011601 CD3 29 007726 120221 L634: CMPB R2,(R1)+ ;010726 120221 Y$Y 30 007730 001414 BEQ L633 ;010730 001414 ST 31 007732 016300 000004 MOV L54(R3),R0 ;010732 016300,000004 DX D 32 007736 066700 000004' ADD NHCLN$,R0 ;010736 066700,000642 m QVP JR 33 007742 020100 CMP R1,R0 ;010742 020100 @ EFP 34 007744 103770 BCS L634 ;010744 103770 U0H 35 007746 011601 MOV (SP),R1 ;010746 011601 CD3 36 007750 105721 L635: TSTB (R1)+ ;010750 105721 VN3 37 007752 001403 BEQ L633 ;010752 001403 SK 38 007754 020100 CMP R1,R0 ;010754 020100 @ EFP 39 007756 103774 BCS L635 ;010756 103774 U0L 40 007760 104625 TRAP 225 ;010760 104625 V U 41 007762 110241 L633: MOVB R2,-(R1) ;010762 110241 WEY 42 007764 016300 000006 MOV $NLCHN(R3),R0 ;010764 016300,000006 DX F 43 007770 162601 SUB (SP)+,R1 ;010770 162601 6.3 44 007772 001404 BEQ L636 ;010772 001404 SL 45 007774 062700 000042 L637: ADD #L11,R0 ;010774 062700,000042 e" PKH 4 46 010000 005301 DEC R1 ;011000 005301 A.3 47 010002 001374 BNE L637 ;011002 001374 SD 48 010004 000207 L636: RTS PC ;011004 000207 CO 49 50 010006 010046 $PUTBL::MOV R0,-(SP) ;011006 010046 & BWN 51 010010 016464 000026 000030 MOV L556(R4),L174(R4) ;011010 016464,000026,000030 4 DZ6 V X NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 21 1 ; .ASCII .RAD50 2 3 010016 005264 000030 INC L174(R4) ;011016 005264,000030 A.T X 4 010022 026464 000026 000032 CMP L556(R4),L562(R4) ;011022 026464,000026,000032 4- GIL V Z 5 010030 103403 BCS L640 ;011030 103403 UXC 6 010032 016464 000026 000032 MOV L556(R4),L562(R4) ;011032 016464,000026,000032 4 DZ6 V Z 7 010040 032714 000100 L640: BIT #L641,(R4) ;011040 032714,000100 5@ HXL AX 8 010044 001405 BEQ L642 ;011044 001405 SM 9 010046 042714 100000 BIC #L70,(R4) ;011046 042714,100000 E KF.TSH 10 010052 005064 000030 CLR L174(R4) ;011052 005064,000030 4 AYL X 11 010056 104643 TRAP 243 ;011056 104643 V 5 12 010060 004767 000234 L642: JSR PC,L643 ;011060 004767,000234 AW1 C6 13 010064 012746 003636' MOV #L103,-(SP) ;011064 012746,004636 CTFAUV 14 010070 012746 104220 MOV #L644,-(SP) ;011070 012746,104220 CTFU4 15 010074 156416 000021 BISB L261(R4),(SP) ;011074 156416,000021 5N0 Q 16 010100 012746 010130' MOV #L645,-(SP) ;011100 012746,011130 X CTFB7P 17 010104 012746 000001 MOV #L44,-(SP) ;011104 012746,000001 CTF A 18 010110 012746 000400 MOV #L557,-(SP) ;011110 012746,000400 CTF FP 19 010114 016446 000002 MOV L17(R4),-(SP) ;011114 016446,000002 & DZV B 20 010120 016400 000026 MOV L556(R4),R0 ;011120 016400,000026 DYX V 21 010124 000166 000010 JMP L40(SP) ;011124 000166,000010 v B8 H 22 23 010130 103503 L645: BCS L646 ;011130 103503 C UY$ 24 010132 122764 000001 000020 CMPB #L44,L15(R4) ;011132 122764,000001,000020 ZVD A P 25 010140 001003 BNE L647 ;011140 001003 L5 26 010142 004767 000152 JSR PC,L643 ;011142 004767,000152 j AW1 BZ 27 010146 000416 BR L650 ;011146 000416 F0 28 29 010150 032714 000001 L647: BIT #L44,(R4) ;011150 032714,000001 5 HXL A 30 010154 001406 BEQ L651 ;011154 001406 SN 31 010156 042714 000001 BIC #L44,(R4) ;011156 042714,000001 E KF. A 32 010162 162764 000000' 000002 SUB #$$OTSI,L17(R4) ;011162 162764,001000,000002 61. L2 B 33 010170 000405 BR L650 ;011170 000405 FU 34 35 010172 052714 000001 L651: BIS #L44,(R4) ;011172 052714,000001 U M/D A 36 010176 062764 000000' 000002 ADD #$$OTSI,L17(R4) ;011176 062764,001000,000002 e PLT L2 B 37 010204 005264 000026 L650: INC L556(R4) ;011204 005264,000026 A.T V 38 010210 005002 CLR R2 ;011210 005002 AXB 39 010212 012600 MOV (SP)+,R0 ;011212 012600 CQX 40 010214 000207 RTS PC ;011214 000207 CO 41 42 010216 010046 $GETBL::MOV R0,-(SP) ;011216 010046 & BWN 43 010220 005764 000030 TST L174(R4) ;011220 005764,000030 A6T X 44 010224 001404 BEQ L652 ;011224 001404 SL 45 010226 026464 000026 000030 CMP L556(R4),L174(R4) ;011226 026464,000026,000030 4- GIL V X 46 010234 103062 BCC $EOFIL ;011234 103062 2 UR4 47 010236 004767 000056 L652: JSR PC,L643 ;011236 004767,000056 . AW1 AF 48 010242 012746 003636' MOV #L103,-(SP) ;011242 012746,004636 CTFAUV 49 010246 012746 104200 MOV #L654,-(SP) ;011246 012746,104200 CTFU3X 50 010252 156416 000021 BISB L261(R4),(SP) ;011252 156416,000021 5N0 Q 51 010256 012746 010304' MOV #L655,-(SP) ;011256 012746,011304 CTFC D NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 22 1 ; .ASCII .RAD50 2 3 010262 005046 CLR -(SP) ;011262 005046 & AX8 4 010264 012746 000400 MOV #L557,-(SP) ;011264 012746,000400 CTF FP 5 010270 016446 000002 MOV L17(R4),-(SP) ;011270 016446,000002 & DZV B 6 010274 016400 000026 MOV L556(R4),R0 ;011274 016400,000026 DYX V 7 010300 000166 000010 JMP L40(SP) ;011300 000166,000010 v B8 H 8 9 010304 103417 L655: BCS L656 ;011304 103417 UXO 10 010306 005264 000026 L665: INC L556(R4) ;011306 005264,000026 A.T V 11 010312 005002 CLR R2 ;011312 005002 AXB 12 010314 012600 MOV (SP)+,R0 ;011314 012600 CQX 13 010316 000207 L660: RTS PC ;011316 000207 CO 14 15 010320 012746 003636' L643: MOV #L103,-(SP) ;011320 012746,004636 CTFAUV 16 010324 012746 104240 MOV #L657,-(SP) ;011324 012746,104240 CTFU4P 17 010330 156416 000021 BISB L261(R4),(SP) ;011330 156416,000021 5N0 Q 18 010334 004716 JSR PC,(SP) ;011334 004716 AV0 19 010336 103367 BCC L660 ;011336 103367 UW1 20 010340 042714 100002 L646: BIC #L661,(R4) ;011340 042714,100002 E KF.TSJ 21 010344 032714 040000 L656: BIT #L501,(R4) ;011344 032714,040000 5 @ HXLJIX 22 010350 001403 BEQ L662 ;011350 001403 SK 23 010352 012764 177777 000026 MOV #L140,L556(R4) ;011352 012764,177777,000026 CTT??? V 24 010360 105737 000052 L662: TSTB @#L663 ;011360 105737,000052 * VOG AB 25 010364 001406 BEQ $EOFIL ;011364 001406 SN 26 010366 005063 000160 CLR L275(R3) ;011366 005063,000160 3 p AYK B2 27 010372 016304 000162 MOV L127(R3),R4 ;011372 016304,000162 r DXD B4 28 010376 001015 BNE L664 ;011376 001015 ME 29 010400 104627 TRAP 227 ;011400 104627 V W 30 010402 032764 000010 000034 $EOFIL::BIT #L40,L602(R4) ;011402 032764,000010,000034 5 HYL H . 31 010410 001336 BNE L665 ;011410 001336 RN 32 010412 052714 007000' BIS #L14,(R4) ;011412 052714,010000 U M/DBVP 33 010416 005063 000162 $EOF2:: CLR L127(R3) ;011416 005063,000162 3 r AYK B4 34 010422 016304 000160 MOV L275(R3),R4 ;011422 016304,000160 p DXD B2 35 010426 001001 BNE L664 ;011426 001001 L3 36 010430 104630 TRAP 230 ;011430 104630 V X 37 010432 000167 172062 L664: JMP $IOEXI ;011432 000167,172062 w 2 B99B4 38 39 010436 104240 $WAIT:: EMT 240 ;011436 104240 U4P 40 010440 104241 EMT 241 ;011440 104241 U4Q 41 010442 104242 EMT 242 ;011442 104242 U4R 42 010444 104243 EMT 243 ;011444 104243 U4S 43 010446 104244 EMT 244 ;011446 104244 U4T 44 010450 104245 EMT 245 ;011450 104245 U4U 45 010452 104246 EMT 246 ;011452 104246 U4V 46 010454 104247 EMT 247 ;011454 104247 U4W 47 010456 104250 EMT 250 ;011456 104250 U4X 48 010460 104251 EMT 251 ;011460 104251 U4Y 49 010462 104252 EMT 252 ;011462 104252 U4Z 50 010464 104253 EMT 253 ;011464 104253 U4$ 51 010466 104254 EMT 254 ;011466 104254 U4. NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 23 1 ; .ASCII .RAD50 2 3 010470 104255 EMT 255 ;011470 104255 U4/ 4 010472 104256 EMT 256 ;011472 104256 U40 5 010474 104257 EMT 257 ;011474 104257 U41 6 010476 000207 RTS PC ;011476 000207 CO 7 8 000000 .PSECT OTS$P RW,D,GBL,REL,OVR 9 10 000000 .BLKW 22 11 000044 006756' L541: .WORD $CLOSE 12 000046 000000 L7: .WORD 0 13 000050 000000 L25: .WORD 0 14 000052 000000 L26: .WORD 0 15 16 000000 .PSECT SYS$I RW,I,LCL,REL,CON 17 18 000000 .PSECT USER$I RW,I,LCL,REL,CON 19 20 000000 .PSECT $CODE RW,I,LCL,REL,CON 21 22 000000 004467 000026' $$OTSC::JSR R4,$OTI ;011554 004467,167246 7 AR98GN 23 24 000004 000000' .WORD NAMPTR 25 000006 002226' .WORD LSN$ 26 000010 000002 .WORD 2 27 000012 002402' .WORD RET$ 28 29 000000 .PSECT OTS$O RW,I,LCL,REL,CON 30 31 000000 $$OTSO:: 32 33 000000 .PSECT SYS$O RW,I,LCL,REL,CON 34 35 000000 .PSECT $DATAP RW,D,LCL,REL,CON 36 37 000000 053652 023752 NAMPTR: .RAD50 \NABFOR\ 38 000004 000000 .WORD 0 39 000006 000002' .WORD $AOTS+2 40 41 000000 .PSECT OTS$D RW,D,LCL,REL,CON 42 43 000000 000210 L43: .WORD $LRECL 44 000002 000000 L32: .WORD 0 45 000004 000006 NHCLN$::.WORD $NLCHN 46 47 000000 .PSECT OTS$S RW,D,LCL,REL,CON 48 49 000000 000000 $AOTS:: .WORD 0 50 51 000000 .PSECT SYS$S RW,D,LCL,REL,CON NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 24 1 ; .ASCII .RAD50 2 3 000000 .PSECT $DATA RW,D,LCL,REL,CON 4 5 000000 .PSECT USER$D RW,D,LCL,REL,CON 6 7 000000 .PSECT .$$$$. RW,D,GBL,REL,OVR 8 9 000000 000000' FINIS: .END $$OTSC NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 24-1 SYMBOL TABLE CHRLST 002055R 002 L163 001460R 002 L26 000052R 003 L551 007460R 002 L632 007720R 002 EOL$ 002570RG 002 L164 = 000077 L260 002432R 002 L552 007026R 002 L633 007762R 002 ERR59 000736R 002 L165 001452R 002 L261 = 000021 L553 007524R 002 L634 007726R 002 ERR60 002024R 002 L166 001464R 002 L262 002452R 002 L555 007170R 002 L635 007750R 002 ERR62 000765R 002 L167 001570R 002 L264 002704R 002 L556 = 000026 L636 010004R 002 FINIS 000000R 017 L17 = 000002 L265 002504R 002 L557 = 000400 L637 007774R 002 FOO$ 006600RG 002 L170 = 000075 L266 = 000144 L56 = 000170 L64 000476R 002 ISN$ 002206RG 002 L171 001500R 002 L267 002702R 002 L560 007060R 002 L640 010040R 002 LSN$ 002226RG 002 L172 001560R 002 L27 = 160000 L561 007112R 002 L641 = 000100 L1 = 000150 L173 002177R 002 L270 = 177776 L562 = 000032 L642 010060R 002 L10 000042R 002 L174 = 000030 L271 002650R 002 L564 007074R 002 L643 010320R 002 L101 000716R 002 L175 001526R 002 L272 = 000104 L565 007156R 002 L644 = 104220 L102 000730R 002 L176 = 000206 L273 002620R 002 L566 007134R 002 L645 010130R 002 L103 003636R 002 L177 001550R 002 L274 = 000176 L567 007154R 002 L646 010340R 002 L104 000674R 002 L2 = 000165 L275 = 000160 L57 = 000106 L647 010150R 002 L105 001020R 002 L200 001536R 002 L276 = 000130 L570 007146R 002 L65 = 000014 L106 000706R 002 L201 001522R 002 L277 002500R 002 L571 007204R 002 L650 010204R 002 L11 = 000042 L202 = 000051 L31 = 000046 L573 007214R 002 L651 010172R 002 L12 002020R 002 L203 001554R 002 L32 000002R 012 L574 007240R 002 L652 010236R 002 L123 = 177600 L204 002137R 002 L33 000224R 002 L575 007246R 002 L654 = 104200 L125 001234R 002 L205 001574R 002 L341 = 000156 L576 002000R 002 L655 010304R 002 L126 001144R 002 L206 = 000072 L35 001040R 002 L577 007300R 002 L656 010344R 002 L127 = 000162 L207 001620R 002 L36 000274R 002 L6 = 005001 L657 = 104240 L13 000256R 002 L21 001034R 002 L4 000734R 002 L60 = 000154 L66 000560R 002 L130 001132R 002 L210 001622R 002 L40 = 000010 L600 000400R 002 L660 010316R 002 L132 001142R 002 L211 001634R 002 L41 = 000053 L601 007356R 002 L661 = 100002 L134 001166R 002 L212 = 000050 L42 = 000324 L602 = 000034 L662 010360R 002 L135 001172R 002 L213 001630R 002 L43 000000R 012 L603 007366R 002 L663 = 000052 L136 001160R 002 L214 = 000003 L44 = 000001 L604 007364R 002 L664 010432R 002 L137 001150R 002 L216 001676R 002 L46 000336R 002 L606 007372R 002 L665 010306R 002 L14 007000R 002 L217 001672R 002 L47 000364R 002 L607 007452R 002 L67 = 000024 L140 = 177777 L22 000166R 002 L5 000032R 002 L61 = 000012 L7 000046R 003 L141 002167R 002 L220 = 000240 L50 = 000120 L610 007420R 002 L70 = 100000 L142 002166R 002 L221 = 000242 L501 = 040000 L611 007464R 002 L71 = 000174 L143 001346R 002 L222 = 000241 L51 000376R 002 L612 007500R 002 L72 = 000172 L144 002132R 002 L223 = 177760 L52 = 000164 L613 007404R 002 L73 000652R 002 L145 001360R 002 L224 001752R 002 L532 006726R 002 L614 007560R 002 L74 000002R 002 L146 001264R 002 L225 = 000226 L533 006730R 002 L615 007660R 002 L75 = 000040 L147 001252R 002 L226 001766R 002 L534 006732R 002 L616 007654R 002 L76 = 020000 L15 = 000020 L227 = 000500 L535 = 000146 L617 007640R 002 L77 = 000044 L150 001300R 002 L23 = 170000 L536 006702R 002 L620 007662R 002 NAMPTR 000000R 011 L151 = 000016 L230 002002R 002 L537 006642R 002 L621 007616R 002 NHCLN$ 000004RG 012 L152 001342R 002 L24 = 000036 L54 = 000004 L622 007622R 002 RET$ 002402RG 002 L153 002125R 002 L247 001732R 002 L540 006674R 002 L623 = 000777 RET$F 002372RG 002 L155 001566R 002 L25 000050R 003 L541 000044R 003 L624 007630R 002 RET$I 002400RG 002 L156 001352R 002 L250 002316R 002 L542 006712R 002 L625 = 000776 RET$L 002366RG 002 L157 002142R 002 L251 002360R 002 L543 003000R 002 L626 007674R 002 STP$ 006574RG 002 L16 = 000022 L252 002306R 002 L544 006724R 002 L627 007576R 002 TRPHND 001044R 002 L160 001416R 002 L253 002266R 002 L546 006754R 002 L63 = 000043 TRP410 001770R 002 L161 001646R 002 L254 002312R 002 L55 = 000166 L630 007716R 002 $AOTS 000000RG 013 L162 002155R 002 L255 002262R 002 L550 007016R 002 L631 = 000143 $CHKER 002474RG 002 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE 24-2 SYMBOL TABLE $CLOSE 006756RG 002 $EXIT 006620RG 002 $LSNTR 002232RG 002 $STP 006574RG 002 $$OTI = 000030RG 002 $DUMPL 007534RG 002 $FCHNL 007704RG 002 $NLCHN= 000006 G $STPS 006566RG 002 $$OTSC 000000RG 006 $EOFIL 010402RG 002 $GETBL 010216RG 002 $OPNER 002436RG 002 $TRACE= 004737 G $$OTSI 000000RG 002 $EOF2 010416RG 002 $HRDWR= 000000 G $OTI 000026RG 002 $USRSW= 000000 G $$OTSO 000000RG 007 $EOL 002566RG 002 $IOEXI 002520RG 002 $PUTBL 010006RG 002 $VRINT 006744RG 002 $$SET 001712RG 002 $ERRS 003025RG 002 $ISNTR 002212RG 002 $RF2A1= 000000 G $WAIT 010436RG 002 .VIR = 000000 G $ERRTB 002720RG 002 $LRECL= 000210 G $SETOP 000240RG 002 $WASIZ= 000152 G ...V1 = 000003 . ABS. 000036 000 000000 001 OTS$I 010500 002 OTS$P 000054 003 SYS$I 000000 004 USER$I 000000 005 $CODE 000014 006 OTS$O 000000 007 SYS$O 000000 010 $DATAP 000010 011 OTS$D 000006 012 OTS$S 000002 013 SYS$S 000000 014 $DATA 000000 015 USER$D 000000 016 .$$$$. 000000 017 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 9472 WORDS ( 37 PAGES) DYNAMIC MEMORY AVAILABLE FOR 54 PAGES NABMAC,NABMAC/C=NABMAC NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE S-1 CROSS REFERENCE TABLE (CREF V04.00 ) $$OTI 3-12# $$OTSC 23-22# 24-9 $$OTSI 3-5# 3-45 3-47 5-20 6-11 17-12 18-6 19-39 21-32 21-36 $$OTSO 23-31# $$SET 6-34 9-37# 11-49 $AOTS 3-6 4-20* 6-32 7-33 8-4 8-16 10-28* 10-35* 10-42 11-20 12-17 12-27 16-9 16-48 23-39 23-49# $CHKER 11-41# 18-35 $CLOSE 11-40 16-45# 23-11 $DUMPL 17-11 19-29# $EOF2 22-33# $EOFIL 21-46 22-25 22-30# $EOL 12-16# $ERRS 6-50 13-32# $ERRTB 5-8 12-45# $EXIT 7-43 10-12 16-8# $FCHNL 16-50 18-51 20-22# $GETBL 21-42# $HRDWR 2-16# $IOEXI 6-43 11-50# 22-37 $ISNTR 10-29# $LRECL 2-20# 23-43 $LSNTR 10-36# $NLCHN 2-18# 4-48* 7-36 18-29 20-42 23-45 $OPNER 11-31# $OTI 3-14# 23-22 $PUTBL 17-25 17-35 20-12 20-50# $RF2A1 2-15# $SETOP 3-33 3-46 3-49 4-4 4-10# $STP 16-4# $STPS 15-49# $TRACE 2-21# $USRSW 2-14# $VRINT 5-42 16-40# $WAIT 17-44 22-39# $WASIZ 2-19# 3-9 5-32* ...V1 3-21 3-35 4-7 4-11 5-19 .VIR 2-17# CHRLST 9-29 10-17# EOL$ 12-17# ERR59 4-3 6-14# ERR60 10-11 10-16# ERR62 4-15 6-15# FINIS 6-12 24-9# FOO$ 15-51 16-5# ISN$ 10-28# L1 2-23# 3-7 5-34* L10 3-16 3-18# L101 5-44 5-48 6-6# L102 5-45 6-9# NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE S-2 CROSS REFERENCE TABLE (CREF V04.00 ) L103 5-46 14-13# 21-13 21-48 22-15 L104 5-47# 5-49 L105 6-3 6-18# L106 5-51# 6-9 L11 2-26# 3-18 4-30 5-24 5-31 10-10 20-45 L12 3-20 10-14# L123 2-55# 6-31 11-48 L125 6-38 7-20# L126 6-39 6-50# L127 2-56# 6-40 6-42 12-31* 12-42 18-44* 22-27 22-33* L13 3-23 4-15# 4-26 4-39 5-15 5-27 L130 6-41 6-45# L132 6-47 6-49# L134 7-3 7-10# L135 7-5 7-11# L136 7-6# 7-7 L137 6-51# 7-8 L14 3-26 3-36 5-25 16-51# 22-32 L140 2-57# 7-10 19-26 22-23 L141 7-11 10-24# L142 7-12 10-23# L143 7-13 7-16 7-39 7-45# 7-49 8-3 8-15 8-29 L144 7-15 10-19# L145 7-17 7-40 7-51# L146 7-19 7-30# L147 7-22 7-24# L15 2-27# 3-28 5-29* 8-30 11-38* 18-22 18-43* 21-24 L150 7-31 7-33# 7-41 L151 2-58# 7-34 7-36* 8-7 11-21 11-25* 20-15 20-19 L152 7-35 7-43# L153 7-38 10-18# L155 7-46 8-48# 9-18 9-33 L156 7-47# 7-48 L157 7-51 10-21# L16 2-28# 3-29* L160 8-8 8-11# L161 8-11 8-13 9-23# L162 8-14 10-22# L163 8-17 8-23# L164 2-59# 8-18 8-26 L165 8-19# 8-20 L166 8-21 8-24# L167 8-23 8-50# 9-9 L17 2-29# 3-31 4-10 4-50* 4-51 6-26 7-23 11-18 12-7* 12-21 12-30* 16-12 16-16 17-16 18-3 18-47 19-3 19-5* 19-32 19-34 19-44 20-10 21-19 21-32* 21-36* 22-5 L170 2-60# 8-24 L171 8-25 8-28# L172 8-27 8-47# L173 8-28 10-25# L174 2-61# 8-32 17-14 20-51* 21-3* 21-10* 21-43 21-45 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE S-3 CROSS REFERENCE TABLE (CREF V04.00 ) L175 8-35# 8-36 L176 2-62# 8-37 L177 8-39 8-44# L2 2-24# 3-8 4-46* 5-51 L200 8-38# 8-41 L201 8-33# 8-42 L202 2-63# 8-44 L203 8-45# 8-46 L204 8-47 10-20# L205 9-3# 9-5 L206 2-64# 9-6 11-3 L207 9-8 9-10# L21 3-34 5-18 6-22# L210 9-11# 9-12 L211 9-17# 9-21 L212 2-65# 9-23 L213 9-15# 9-24 9-26 L214 2-66# 9-28 L216 9-30# 9-31 L217 9-29# 9-35 L22 3-37 3-40 3-43 3-45# L220 2-67# 9-37* L221 2-68# 9-38 11-39 12-35* 12-41* 16-49* 17-33 17-39* 19-20* L222 2-69# 9-38* L223 2-70# 9-45 L224 9-48# 9-50 10-38 L225 2-71# 9-51* L226 10-5# 10-6 L227 2-72# 10-7 L23 2-30# 3-38 L230 10-8 10-10# L24 2-31# 3-38* L247 9-42# 10-31 L25 3-39 4-34 23-13# L250 10-32 10-39 11-10# L251 10-43 11-11# L252 10-45 11-6# L253 10-49# 10-51 L254 11-5 11-7# L255 10-47# 11-6 L26 3-42 16-40 23-14# L260 11-22 11-29# L261 2-73# 11-32 17-48 18-18 18-31 19-10 21-15 21-50 22-17 L262 11-35# 11-37 L264 11-41 12-41# L265 11-43 11-46# L266 2-74# 11-50 17-34* L267 11-51 12-25 12-39# L27 2-32# 3-44 L270 2-75# 12-3 NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE S-4 CROSS REFERENCE TABLE (CREF V04.00 ) L271 12-6 12-14 12-29 12-31# L272 2-76# 12-18* L273 12-20 12-24# L274 2-77# 12-21* 12-30 L275 2-78# 12-32* 17-28* 17-31* 18-45* 22-26* 22-34 L276 2-79# 12-34 L277 11-43# 12-43 L31 2-33# 3-47* 4-9* 5-43 17-42 L32 3-48 5-22 23-44# L33 3-51 4-6# L341 2-80# 16-25 L35 4-6 6-23# L36 4-14 4-19# L4 3-9* 3-22 6-12# L40 2-34# 4-16 4-47* 6-6 21-21 22-7 22-30 L41 2-35# 4-16* 7-23* 7-32* 16-8* L42 2-36# 4-19 4-41 L43 4-22 23-43# L44 2-37# 4-23 4-29 9-43 16-8 18-4 21-17 21-24 21-29 21-31 21-35 L46 4-30# 4-32 L47 4-35 4-38# L5 3-10 3-15# L50 2-38# 4-36 5-30* 5-31* L501 2-81# 19-30 22-21 L51 4-42# 4-44 L52 2-39# 4-45* 11-26* 12-5 12-19 12-28 17-29 L532 16-4 16-34# L533 16-5 16-35# L534 16-6 16-37# L535 2-82# 16-10* 16-16 16-19* L536 16-13 16-25# L537 16-12# 16-15 16-20 16-23 L54 2-40# 4-49* 5-3 6-7 7-32 7-37 16-11 17-50 18-15 18-24 18-46 19-14 20-27 20-31 L540 16-17 16-22# L541 16-22 23-11# L542 16-26 16-29# L543 13-20# 16-29 17-3 L544 16-30 16-32# L546 16-41 16-43# L55 2-41# 4-51* L550 17-4 17-7# L551 17-5 19-10# L552 17-8 17-11# L553 17-9 19-25# L555 17-13 17-15 17-24 17-42# L556 2-83# 17-14* 17-23 20-51 21-4 21-6 21-20 21-37* 21-45 22-6 22-10* 22-23* L557 2-84# 17-17 17-21 21-18 22-4 L56 2-42# 5-3* L560 17-18# 17-20 L561 17-22 17-28# NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE S-5 CROSS REFERENCE TABLE (CREF V04.00 ) L562 2-85# 17-23 21-4 21-6* L564 17-23# 17-26 L565 17-28 17-39# L566 17-30 17-32# L567 17-31 17-38# L57 2-43# 5-4 L570 17-35# 17-36 L571 17-43 17-47# L573 17-45 17-50# L574 18-5 18-7# L575 18-10# 18-12 L576 10-9# 18-14 L577 18-16 18-18# L6 2-25# 3-14 L60 2-44# 5-5* 6-35 L600 4-43# 18-17 L601 18-21 18-35# L602 2-86# 18-22 22-30 L603 18-23 18-25 18-38# L604 18-34 18-37# L606 18-40# 18-42 L607 18-48 19-8# L61 2-45# 5-6* 9-4 10-50 19-50 L610 18-47# 18-50 19-4 19-6 L611 19-11# 19-13 L612 19-16# 19-17 L613 18-44# 19-27 L614 19-31 19-37# L615 19-33 19-38 20-13# 20-17 L616 19-35 20-3 20-7 20-12# L617 19-40 20-9# L620 19-41 20-15# L621 19-46 19-50# L622 19-48 19-51# L623 2-87# 19-51 L624 20-4# 20-6 L625 2-88# 20-9 L626 20-16 20-19# L627 19-43# 20-20 L63 2-46# 5-9 L630 20-23 20-26# L631 2-89# 20-24 L632 20-25 20-27# L633 20-30 20-37 20-41# L634 20-29# 20-34 L635 20-36# 20-39 L636 20-44 20-48# L637 20-45# 20-47 L64 5-10# 5-12 L640 21-5 21-7# NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE S-6 CROSS REFERENCE TABLE (CREF V04.00 ) L641 2-90# 21-7 L642 21-8 21-12# L643 21-12 21-26 21-47 22-15# L644 2-91# 21-14 L645 21-16 21-23# L646 21-23 22-20# L647 21-25 21-29# L65 2-47# 5-13* 12-34* 18-11 18-13* L650 21-27 21-33 21-37# L651 21-30 21-35# L652 21-44 21-47# L654 2-92# 21-49 L655 21-51 22-9# L656 22-9 22-21# L657 2-93# 22-16 L66 5-17 5-21 5-23 5-28# L660 22-13# 22-19 L661 2-94# 22-20 L662 22-22 22-24# L663 2-95# 22-24 L664 22-28 22-35 22-37# L665 22-10# 22-31 L67 2-48# 5-28 11-31 12-33* 16-51* 17-41* 19-9 19-19* L7 3-15 3-32 5-16 5-38 7-21 7-30 23-12# L70 2-49# 5-29 20-11 21-9 L71 2-50# 5-36* 8-6 L72 2-51# 5-37* 8-5 L73 5-39 5-42# L74 3-6# 5-40 L75 2-52# 5-40* L76 2-53# 5-41 19-45 L77 2-54# 5-41* 16-29 LSN$ 10-35# 23-25 NAMPTR 23-24 23-37# NHCLN$ 4-25 20-32 23-45# RET$ 11-15 11-20# 23-27 RET$F 11-17# RET$I 11-19# RET$L 11-14# STP$ 6-18 11-29 16-3# TRP410 10-6# 10-14 TRPHND 2-12 6-25# NABMAC.MAC MACRO V04.00 9-FEB-83 22:06:52 PAGE M-1 CROSS REFERENCE TABLE (CREF V04.00 ) ...CM2 3-21 3-35 4-7 5-19 ...CM5 3-21 3-35 4-7 4-11 5-19 ...CM6 3-21 3-35 4-7 5-19 .EXIT 2-1# 4-17 16-32 .GVAL 2-2# 3-35 4-7 5-19 .PRINT 2-3# 4-3 4-15 7-12 7-14 8-47 10-11 10-32 10-39 16-5 16-6 16-7 .RCTRL 2-4# 6-49 .SETTO 2-5# 4-11 .TRPSE 2-6# 3-21 .TTOUT 2-7# 7-47 8-19 8-35 8-45 9-11 9-30