Код:
000207 BR 000465
000465 CMPB @(R0)+, (R3)
000467 BICB @167013(R0), (R3)
000473 MOV -(R0), (R3)
000500 MOV #000120, R0
000504 MOV (R0)+, R1
000506 MOV (R0)+, R5
000510 MOVB (R1)+, R4
000512 MOVB (R1)+, R2
000514 MOV R2, (R5)
000516 SOB R4, 000512
000520 TST (R0)
000522 BMI 000506
000524 MOV #011642, R0
000530 MOV #060000, R1
000534 MOV #160000, SP
000540 MOV (R0), (R1)
000542 ROL (R1)
000544 ROL (R1)
000546 ROL (R1)
000550 ROL (R1)
000552 ROL (R1)
000554 ROL (R1)
000556 ROL (R1)
000560 ROL (R1)
000562 ROLB (R1)
000564 SWAB (R1)
000566 SUB (R0)+, (R1)+
000570 BNE 000632
000572 TST R1
000574 BPL 000540
000576 SUB #020000, R0
000602 SUB #020000, R1
000606 TST (R5)
000610 BNE 000616
000612 CALL @#007236
000616 CALL @#000676
000622 CMP #001740, (R5)
000626 BHIS 000540
000630 BR 000734
000676 MOV R0, -(SP)
000700 MOV (R5), R0
000702 ADD #000040, R0
000706 MOV R0, (R5)
000710 ASH R0, #177776
000714 BPL 000722
000716 SUB #163000, R0
000722 JSR R5, @#010104
000730 MOV (SP)+, R0
000732 RETURN
000734 MOV #001074, @#100066
000742 MOV #123456, R0
000746 CLR R2
000750 MOV R2, (R1)+
000752 MOV R2, (R1)+
000754 MOV R2, (R1)+
000756 MOV R2, (R1)+
000760 TST R1
000762 BPL 000750
000764 SUB #020000, R1
000770 MOV (R5), R4
000772 CALL @#000676
000776 BIT #037740, (R5)
001002 BEQ 001074
001004 MOV R0, (R1)
001006 CMP R0, (R1)
001010 BNE 001074
001012 COM R0
001014 COM (R1)
001016 CMP R0, (R1)
001020 BNE 001074
001022 COM R0
001024 BIT #017700, (R5)
001030 BEQ 001056
001032 CMP @#000300, @#040000
001040 BEQ 000750
001042 MOV #117740, (R5)
001046 TST @#161204
001052 BEQ 000750
001056 MOV #020000, @#161204
001064 MOV @#000300, @#040000
001072 BR 000750
001074 MOV R4, @#100002
001100 MOV #000636, R0
001104 MOV #161200, R1
001110 MOV #000020, R2
001114 MOV (R0)+, (R1)+
001116 SOB R2, 001114
001120 CALL @#011070
002160 MOV (R0)+, R3
002162 BEQ 002264
002164 BMI 002300
002166 CALL (R3)
002170 BR 002340
002214 MOV #100066, R0
002220 BR 002160
002340 MOV @#100016, SP
002344 MOV @#100022, R1
002350 ADD #000020, R1
002354 CMP SP, R1
002356 BEQ 002570
002360 ADD @#100574, 000060(SP)
002366 ADC 000062(SP)
007236 MOV #007704, @#154100
007244 MOV #007724, @#154102
007252 MOV #010010, @#154104
007260 MOV #000300, R2
007264 MOV #140000, R3
007270 MOV (R2)+, (R3)+
007272 MOV (R2)+, (R3)+
007274 CMP (R3)+, (R3)+
007276 MOV (R2)+, (R3)+
007300 CMP (R3)+, (R3)+
007302 MOV (R2)+, (R3)+
007304 ADD #000100, R3
007310 MOV #000011, R4
007314 MOV (R2)+, (R3)+
007316 CLR (R3)+
007320 SOB R4, 007314
007322 MOV #142300, R3
007326 MOV #000007, R4
007332 CLR (R3)+
007334 MOV #137020, (R3)+
007340 MOV (R2)+, (R3)+
007342 MOV #001000, (R3)+
007346 SOB R4, 007332
007350 MOV #000017, R4
007354 MOVB @#000015, R3
007360 CALL @#007372
007364 DEC R4
007366 MOVB @#000014, R3
007372 MOV R4, -(SP)
007374 ASL R4
007376 NEG R4
007400 ADD #142440, R4
007404 CLR (R4)
007406 CLR 000050(R4)
007412 CLR 000120(R4)
007416 CLR 000170(R4)
007422 CLR 000240(R4)
007426 CLR 000310(R4)
007432 CLR 000360(R4)
007436 BIT #000100, R3
007442 BEQ 007450
007444 MOV #177740, (R4)
007450 BIT #000002, R3
007454 BEQ 007464
007456 MOV #037770, 000170(R4)
007464 BIT #000040, R3
007470 BEQ 007500
007472 MOV #007776, 000360(R4)
007500 BIT #000004, R3
007504 BEQ 007514
007514 BIT #000010, R3
007520 BEQ 007550
007522 BIS #000140, (R4)
007526 BIS #000140, 000050(R4)
007534 BIS #000060, 000120(R4)
007542 BIS #000030, 000170(R4)
007550 BIT #000200, R3
007554 BEQ 007604
007556 BIS #140000, (R4)
007562 BIS #140000, 000050(R4)
007570 BIS #060000, 000120(R4)
007576 BIS #030000, 000170(R4)
007604 BIT #000020, R3
007610 BEQ 007642
007612 BIS #000030, 000170(R4)
007620 BIS #000030, 000240(R4)
007626 BIS #000014, 000310(R4)
007634 BIS #000006, 000360(R4)
007642 BIT #000001, R3
007646 BEQ 007700
007650 BIS #030000, 000170(R4)
007656 BIS #030000, 000240(R4)
007664 BIS #014000, 000310(R4)
007672 BIS #006000, 000360(R4)
007700 MOV (SP)+, R4
007702 RETURN
010024 MOV R0, R1
010026 MOV R0, R4
010030 BIC #177760, R4
010034 CLRB R1
010036 SWAB R1
010040 ASH R0, #177774
010044 BIC #177760, R0
010050 BNE 010056
010056 BEQ 010070
010060 CLR R2
010062 DIV R2, R1
010064 MOVB 000100(R3), R3
010070 CALL @#007372
010074 INC R4
010076 MOV R2, R3
010100 SOB R0, 010056
010102 RETURN
010104 MOV R1, -(SP)
010106 MOV R2, -(SP)
010110 MOV R3, -(SP)
010112 MOV R4, -(SP)
010114 MOV R0, R3
010116 MOV (R5)+, R0
010120 CALL @#010024
010124 MOV (SP)+, R4
010126 MOV (SP)+, R3
010130 MOV (SP)+, R2
010132 MOV (SP)+, R1
010134 RTS R5
011070 MOV #000001, @#137776
011076 MOV #011642, R5
011102 MOV #011574, R0
011106 MOV #000020, R1
011112 CALL (R0)
011114 MOV R2, R3
011116 ASL R3
011120 ADD #040000, R3
011124 MOV R3, -(SP)
011126 CALL (R0)
011130 ASL R2
011132 SUB R2, R3
011134 MOV R3, -(SP)
011136 CMP R3, 000002(SP)
011142 BHIS 011506
011144 MOV #000001, R1
011150 MOV R1, R4
011152 CALL (R0)
011154 BNE 011300
011156 CALL (R0)
011160 BNE 011170
011162 MOV #000020, R1
011166 BR 011200
011170 CALL (R0)
011172 BNE 011206
011174 MOV #000015, R1
011200 CALL (R0)
011202 MOV R2, (R3)+
011204 BR 011136
011206 CALL (R0)
011210 BEQ 011276
011212 MOV #000003, R1
011216 CALL (R0)
011220 ADD R2, R4
011222 INC R4
011224 CMP #000007, R4
011230 BHIS 011276
011232 BIC #177776, R2
011236 INC R1
011240 CALL @#011576
011244 MOV R2, R4
011246 ADD #000011, R4
011252 CMP #000044, R4
011256 BHIS 011300
011260 BIC #177774, R2
011264 CALL @#011576
011270 MOV R2, R4
011272 ADD #000044, R4
011276 INC R4
011300 MOV R4, -(SP)
011302 MOV #000003, R1
011306 CALL (R0)
011310 MOV R2, R4
011312 ASH R4, #000002
011316 ADD #011346, R4
011322 MOV (R4)+, R1
011324 CALL (R0)
011326 ADD (R4), R2
011330 COM R2
011332 ASL R2
011334 ADD R3, R2
011336 MOV (SP)+, R4
011340 MOV (R2)+, (R3)+
011342 SOB R4, 011340
011344 BR 011136
011406 MOV R4, -(SP)
011410 MOV #000003, R1
011414 CALL (R0)
011416 MOV R2, R4
011420 SUB #000004, R4
011424 BMI 011460
011460 CLC
011462 MOV (SP)+, R4
011464 RETURN
011506 MOV #040000, R4
011512 MOV (SP)+, R3
011514 CALL @#011406
011520 BLO 011536
011522 TST R2
011524 BEQ 011532
011532 INC R2
011534 BR 011560
011560 CLR (R4)+
011562 SOB R2, 011560
011574 CLR R2
011576 MOV R1, -(SP)
011600 MOV R0, -(SP)
011602 ASL R2
011604 BIT @#137776, (R5)
011610 BEQ 011614
011612 INC R2
011614 ASL @#137776
011620 BHIS 011630
011622 TST (R5)+
011624 INC @#137776
011630 SOB R1, 011602
011632 MOV (SP)+, R0
011634 MOV (SP)+, R1
011636 TST R2
011640 RETURN