; 3-APR-81 15:34:38 >MCRDEC=MCRDEC .TITLE RSX11D .IDENT /V42 / .PSECT . ABS.,OVL,RW,LCL,D ;MAX LEN = 000000 .GLOBL A.TD .GLOBL A.TI .GLOBL DSABL .GLOBL HNNRE .GLOBL IO.RPR .GLOBL IO.WLB .GLOBL IS.TMO .GLOBL NTINS .GLOBL PLSLO .GLOBL TACTI .GLOBL TF.TMO .GLOBL UNKDI .GLOBL UT.LG .GLOBL U.TF .GLOBL U.UI .GLOBL $CAT5 .GLOBL $DSW .GLOBL .ATLLH .GLOBL .CRTSK .GLOBL .MCRTO .PSECT ,CON,RW,GBL,I ;MAX LEN = 000000 .PSECT PURE ,CON,RO,GBL,I ;MAX LEN = 001076 .PSECT IMPURE,CON,RW,GBL,I ;MAX LEN = 000266 ;TRANSFER ADDRESS IN PSECT "PURE " OFFSET = 000000 ; .PSECT PURE 000000 016700 000000 MOV .CRTSK,R0 ; @ D0P 000004 012701 000000 MOV #.ATLLH,R1 ; A CSI 000010 011101 MOV (R1),R1 ; A B63 000012 020001 CMP R0,R1 ; ED3 000014 001775 BEQ 10 ; YU 000016 020167 000002 CMP R1,.ATLLH+2 ; EG1 B 000022 001412 BEQ 50 ; SR 000024 026061 000000 000000 CMP A.TD(R0),A.TD(R1) ; 1, GB3 000032 001366 BNE 10 ; R8 000034 026061 000000 000000 CMP A.TI(R0),A.TI(R1) ; 1, GB3 000042 001362 BNE 10 ; R4 000044 000167 000660 JMP 730 ; 0 B9 J2 000050 016005 000000 MOV A.TI(R0),R5 ; DSM 000054 016567 000000 000132 MOV U.TF(R5),'IMPURE+132 ; Z D.W BJ 000062 016700 000000 MOV .CRTSK,R0 ; @ D0P 000066 016000 000000 MOV A.TI(R0),R0 ; DSH 000072 016067 000000 000114 MOV U.UI(R0),'IMPURE+114 ; 7 L DTW A6 000100 016703 000000 MOV .MCRTO,R3 ; C D0S 000104 005002 CLR R2 ; AXB 000106 071227 000012 DIV #12,R2 ; RMO J 000112 010267 000046 MOV R2,'IMPURE+46 ; 7 & BZ9 8 000116 012746 000026 MOV #'IMPURE+26,-(SP) ; CTF V 000122 104377 EMT 377 ; U61 000124 126727 000136 000000 CMPB 'IMPURE+136,#IS.TMO ; W-^ $2W BN 000132 001406 BEQ 150 ; SN 000134 105767 000136 TSTB 'IMPURE+136 ; ^ VO1 BN 000140 100403 BMI 150 ; TY$ 000142 005767 000140 TST 'IMPURE+140 ; A6W BP ; 3-APR-81 15:34:38 >MCRDEC=MCRDEC 000146 001004 BNE 160 ; L6 000150 000167 000534 JMP 710 ; \ B9 H. 000154 000167 000340 JMP 520 ; B9 EX 000160 005003 CLR R3 ; AXC 000162 012704 000146 MOV #'IMPURE+146,R4 ; D CSL BV 000166 010405 MOV R4,R5 ; B.7 000170 010401 MOV R4,R1 ; B.3 000172 010402 MOV R4,R2 ; B.4 000174 066705 000140 ADD 'IMPURE+140,R5 ; E QVU BP 000200 122712 000011 CMPB #11,(R2) ; J% ZUB I 000204 001002 BNE 212 ; L4 000206 112712 000040 MOVB #40,(R2) ; J W8Z 2 000212 122722 000040 CMPB #40,(R2)+ ; R% ZUJ 2 000216 001006 BNE 234 ; L8 000220 122761 000040 177777 CMPB #40,177777(R1) ; % ZVA 2 8O 000226 001002 BNE 234 ; L4 000230 005203 INC R3 ; A$K 000232 000402 BR 240 ; FR 000234 116221 177777 MOVB 177777(R2),(R1)+ ; YBA 8O 000240 020205 CMP R2,R5 ; EHE 000242 001356 BNE 200 ; R0 000244 160305 SUB R3,R5 ; E 58U 000246 160367 000140 SUB R3,'IMPURE+140 ; 591 BP 000252 012767 000100 000134 MOV #'IMPURE+100,'IMPURE+134 ; @ \ CTW AX BL 000260 126727 000137 000015 CMPB 'IMPURE+137,#15 ; W- $2W BO M 000266 001003 BNE 276 ; L5 000270 012767 000076 000134 MOV #'IMPURE+76,'IMPURE+134 ; > \ CTW AV BL 000276 010400 MOV R4,R0 ; B.2 000300 121427 000141 CMPB (R4),#141 ; # ZC1 BQ 000304 103405 BCS 320 ; UXE 000306 121427 000172 CMPB (R4),#172 ; # ZC1 CB 000312 101002 BHI 320 ; T2B 000314 142714 000040 BICB #40,(R4) ; LE 1Y6 2 000320 122427 000040 CMPB (R4)+,#40 ; % ZPW 2 000324 101365 BHI 300 ; T8E 000326 010004 MOV R0,R4 ; BVT 000330 004767 000000 JSR PC,$CAT5 ; AW1 000334 032767 000000 000132 BIT #UT.LG,'IMPURE+132 ; 5 Z HYO BJ 000342 001006 BNE 360 ; L8 000344 022701 031324 CMP #31324,R1 ; A%T2 FAYHEL 000350 001422 BEQ 416 ; SZ 000352 012704 000000 MOV #PLSLO,R4 ; D CSL 000356 000504 BR 570 ; D HD 000360 122714 000100 CMPB #100,(R4) ; L%@ ZUD AX 000364 001003 BNE 374 ; L5 000366 012701 004574 MOV #4574,R1 ; A CSIAT. 000372 000423 BR 442 ; F5 000374 022701 046537 CMP #46537,R1 ; A% M FAYLOG 000400 001534 BEQ 672 ; \ UT 000402 122714 000073 CMPB #73,(R4) ; L%; ZUD AS 000406 001531 BEQ 672 ; Y UQ 000410 122714 000041 CMPB #41,(R4) ; L%! ZUD 3 000414 001526 BEQ 672 ; V UN 000416 012705 000010 MOV #10,R5 ; E CSM H 000422 012704 001056 MOV #$$$$ST+1056,R4 ; D . CSL M8 000426 012767 051104 000104 MOV #51104,'IMPURE+104 ; DRD CTWMFT A. 000434 020124 CMP R1,(R4)+ ; T EF6 000436 001403 BEQ 446 ; SK 000440 077503 SOB R5,434 ; C TNS ; 3-APR-81 15:34:38 >MCRDEC=MCRDEC 000442 010167 000104 MOV R1,'IMPURE+104 ; D BYO A. 000446 012767 131574 000102 MOV #131574,'IMPURE+102 ; 3B CTW... AZ 000454 016767 000140 000126 MOV 'IMPURE+140,'IMPURE+126 ; V D11 BP BF 000462 016746 000134 MOV 'IMPURE+134,-(SP) ; \ D1N BL 000466 104377 EMT 377 ; U61 000470 103103 BCC 700 ; C USK 000472 022767 177776 000000 CMP #177776,$DSW ; % FB9 8N 000500 001007 BNE 520 ; L9 000502 012767 126423 000102 MOV #126423,'IMPURE+102 ; -B CTW$$$ AZ 000510 016746 000134 MOV 'IMPURE+134,-(SP) ; \ D1N BL 000514 104377 EMT 377 ; U61 000516 103070 BCC 700 ; 8 US 000520 012767 000760 000070 MOV #$$$$ST+760,'IMPURE+70 ; 8 CTW LP AP 000526 012767 000056 000072 MOV #56,'IMPURE+72 ; . : CTW AF AR 000534 022767 177777 000000 CMP #177777,$DSW ; % FB9 8O 000542 001444 BEQ 654 ; $ TD 000544 012705 001036 MOV #$$$$ST+1036,R5 ; E CSM MV 000550 012767 050712 000004 MOV #50712,'IMPURE+4 ; JQ CTWMCR D 000556 112504 MOVB (R5)+,R4 ; D W5L 000560 001403 BEQ 570 ; SK 000562 122567 000000 CMPB (R5)+,$DSW ; % ZR9 000566 001373 BNE 556 ; SC 000570 110467 000000 MOVB R4,'IMPURE+0 ; 7 WIO 000574 116767 000140 000001 MOVB 'IMPURE+140,'IMPURE+1 ; YJ9 BP A 000602 001415 BEQ 636 ; SU 000604 016703 000140 MOV 'IMPURE+140,R3 ; C D0S BP 000610 022703 000022 CMP #22,R3 ; C% FA$ R 000614 002002 BGE 622 ; YZ 000616 012703 000022 MOV #22,R3 ; C CSK R 000622 012705 000146 MOV #'IMPURE+146,R5 ; E CSM BV 000626 012704 000010 MOV #'IMPURE+10,R4 ; D CSL H 000632 112524 MOVB (R5)+,(R4)+ ; T W5. 000634 077302 SOB R3,632 ; B TKJ 000636 012767 131574 000002 MOV #131574,'IMPURE+2 ; 3 CTW... B 000644 012746 000736 MOV #$$$$ST+736,-(SP) ; ^ CTF K8 000650 104377 EMT 377 ; U61 000652 000416 BR 710 ; F0 000654 012746 000054 MOV #'IMPURE+54,-(SP) ; , CTF AD 000660 104377 EMT 377 ; U61 000662 103412 BCS 710 ; UXJ 000664 105767 000136 TSTB 'IMPURE+136 ; ^ VO1 BN 000670 100407 BMI 710 ; TY1 000672 011604 MOV (SP),R4 ; CD6 000674 000167 177200 JMP 100 ; B9 .2 000700 122767 000015 000137 CMPB #15,'IMPURE+137 ; % ZVG M BO 000706 001410 BEQ 730 ; SP 000710 012767 000001 000072 MOV #1,'IMPURE+72 ; : CTW A AR 000716 005067 000074 CLR 'IMPURE+74 ; 7 < AYO AT 000722 012746 000054 MOV #'IMPURE+54,-(SP) ; , CTF AD 000726 104377 EMT 377 ; U61 000730 012746 000463 MOV #463,-(SP) ; 3 CTF G$ 000734 104377 EMT 377 ; U61 000736 004511 JSR R5,(R1) ; I ASQ 000740 050712 BIS PC,(R2) ; JQ MCR 000742 021042 CMP (R0),-(R2) ; "" ERR 000744 000000 .WORD 0 ; 000746 000000 .WORD 0 ; 000750 000000 .WORD 0 ; 000752 000000 .WORD 0 ; ; 3-APR-81 15:34:38 >MCRDEC=MCRDEC 000754 000000 .WORD 'IMPURE+0 ; 000756 000000 .WORD 0 ; 000760 005015 CLR (R5) ; AXM 000762 041515 BIC (R5),(R5) ; MC J0/ 000764 020122 CMP R1,(R2)+ ; R EF4 000766 026455 047040 CMP 47040(R4),@-(R5) ; -- N GIELT 000772 052117 BIS (R1)+,(PC) ; OT MSW 000774 042440 BIC (R4)+,-(R0) ; E KBP 000776 047516 043525 BIC @43525(R5),(SP) ; NOUG L$VKPU 001002 020110 CMP R1,(R0) ; H EFX 001004 047516 042504 BIC @42504(R5),(SP) ; NODE L$VKCL 001010 020123 CMP R1,(R3)+ ; S EF5 001012 047524 051440 BIC @51440(R5),(R4)+ ; TO S L$.ML 001016 051105 BIS (R1),R5 ; ER MFU 001020 044526 BIC -(R5),(SP)+ ; VI K/N 001022 042503 BIC (R5)+,R3 ; CE KCK 001024 051040 BIS (R0),-(R0) ; R MEX 001026 050505 BIS R5,R5 ; EQ M E 001030 042525 BIC (R5)+,(R5)+ ; UE KC/ 001032 052123 BIS (R1)+,(R3)+ ; ST MS$ 001034 005015 CLR (R5) ; AXM 001036 000 .BYTE NTINS ; 001037 376 .BYTE 376 ; 001040 000 .BYTE HNNRE ; 001041 372 .BYTE 372 ; 001042 000 .BYTE TACTI ; 001043 371 .BYTE 371 ; 001044 000 .BYTE DSABL ; 001045 370 .BYTE 370 ; 001046 000 .BYTE UNKDI ; 001047 000 .BYTE 000 ; 001050 005015 CLR (R5) ; AXM 001052 041515 BIC (R5),(R5) ; MC J0/ 001054 037122 003237 BIT @3237(R1),(R2)+ ; R> I84ABO 001060 004064 011366 JSR R0,11366(R4) ; 4 ALTCAN 001064 015173 020561 MOV @-(R1),@20561(R3) ; ! DISENA 001070 023400 CMP @(R4)+,R0 ; ' FIX 001072 070533 MUL @(R3)+,R5 ; [ RES 001074 102566 BVS 1452 ; UNF .PSECT IMPURE 000026 005403 NEG R3 ; A0S 000030 000000 .WORD IO.RPR!TF.TMO ; 000032 000001 .WORD 1 ; A 000034 000001 .WORD 1 ; A 000036 000136 .WORD $$$$ST+136 ; ^ BN 000040 000000 .WORD 0 ; 000042 000146 .WORD $$$$ST+146 ; BV 000044 000120 JMP (R0)+ ; P B 000046 000000 .WORD 0 ; 000050 001050 .WORD 'PURE+1050 ; ( M2 000052 000006 .WORD 6 ; F 000054 004403 JSR R4,R3 ; AQ$ 000056 000000 .WORD IO.WLB ; 000060 000001 .WORD 1 ; A 000062 000001 .WORD 1 ; A 000064 000000 .WORD 0 ; 000066 000000 .WORD 0 ; 000070 001050 .WORD 'PURE+1050 ; ( M2 000072 000006 .WORD 6 ; F ; 3-APR-81 15:34:38 >MCRDEC=MCRDEC 000074 000000 .WORD 0 ; 000076 177777 006413 LDCDF @6515,AC3 ; 8OBCS 000102 076473 .WORD 76473 ; ; TAS 000104 042300 BIC (R3)+,R0 ; @D K 000106 000000 .WORD 0 ; 000110 000000 .WORD 0 ; 000112 000000 .WORD 0 ; 000114 000000 .WORD 0 ; 000116 000000 .WORD 0 ; 000120 000000 .WORD 0 ; 000122 000000 .WORD 0 ; 000124 000146 .WORD $$$$ST+146 ; BV 000126 000000 .WORD 0 ; 000130 000000 .WORD 0 ; 000132 000000 .WORD 0 ; 000134 000000 .WORD 0 ; .END 000000