.TITLE 1801RE ;2-057 .IDENT /01/ .ASECT .=^O<0> K00000: .BLKW .BLKW ^O<27> K00060: .BLKW K00062: .BLKW .BLKW ^O<6> K00100: .BLKW K00102: .BLKW .BLKW ^O<135> K00376: .BLKW K00400: .BLKW .BLKW ^O<177> K01000: .BLKW K01002: .BLKW K01004: .BLKW K01006: .BLKW K01010: .BLKW K01012: .BLKW K01014: .BLKW K01016: .BLKW K01020: .BLKW K01022: .BLKW .BLKW ^O<1> K01026: .BLKW K01030: .BLKW K01032: .BLKW K01034: .BLKW K01036: .BLKW K01040: .BLKW K01042: .BLKW K01044: .BLKW K01046: .BLKW K01050: .BLKW K01052: .BLKW K01054: .BLKW K01056: .BLKW K01060: .BLKW K01062: .BLKW K01064: .BLKW K01066: .BLKW K01070: .BLKW K01072: .BLKW K01074: .BLKW K01076: .BLKW K01100: .BLKW K01102: .BLKW K01104: .BLKW K01106: .BLKW K01110: .BLKW K01112: .BLKW K01114: .BLKW K01116: .BLKW K01120: .BLKW K01122: .BLKW K01124: .BLKW K01126: .BLKW K01130: .BLKW K01132: .BLKW K01134: .BLKW K01136: .BLKW K01140: .BLKW K01142: .BLKW K01144: .BLKW K01146: .BLKW K01150: .BLKW K01152: .BLKW K01154: .BLKW K01156: .BLKW K01160: .BLKW K01162: .BLKW .BLKW ^O<3> K01172: .BLKW K01174: .BLKW K01176: .BLKW .BLKW ^O<1> K01202: .BLKW K01204: .BLKW .BLKW ^O<3> K01214: .BLKW .BLKW ^O<1> K01220: .BLKW K01222: .BLKW .BLKW ^O<14002> K31230: .BLKW .BLKW ^O<5> K31244: .BLKW .BLKW ^O<1> K31250: .BLKW K31252: .BLKW K31254: .BLKW .BLKW ^O<7> K31274: .BLKW .BLKW ^O<11> K31320: .BLKW K31322: .BLKW K31324: .BLKW K31326: .BLKW K31330: .BLKW K31332: .BLKW K31334: .BLKW K31336: .BLKW K31340: .BLKW K31342: .BLKW K31344: .BLKW K31346: .BLKW .BLKW ^O<5> K31362: .BLKW K31364: .BLKW K31366: .BLKW K31370: .BLKW .BLKW ^O<1> K31374: .BLKW K31376: .BLKW K31400: .BLKW .BLKW ^O<10> K31422: .BLKW K31424: .BLKW K31426: .BLKW K31430: .BLKW K31432: .BLKW K31434: .BLKW .BLKW ^O<1> K31440: .BLKW .BLKW ^O<2> K31446: .BLKW K31450: .BLKW .BLKW ^O<1> K31454: .BLKW K31456: .BLKW K31460: .BLKW K31462: .BLKW .BLKW ^O<32> K31550: .BLKW K31552: .BLKW .BLKW ^O<6> K31570: .BLKW K31572: .BLKW K31574: .BLKW .BLKW ^O<1> K31600: .BLKW .BLKW ^O<20> K31642: .BLKW K31644: .BLKW K31646: .BLKW K31650: .BLKW K31652: .BLKW .BLKW ^O<17> K31712: .BLKW .BLKW ^O<2> K31720: .BLKW .BLKW ^O<61> K32064: .BLKW .BLKW ^O<1> K32070: .BLKW K32072: .BLKW .BLKW ^O<1> K32076: .BLKW .BLKW ^O<1> K32102: .BLKW .BLKW ^O<4> K32114: .BLKW .BLKW ^O<1> K32120: .BLKW K32122: .BLKW K32124: .BLKW K32126: .BLKW K32130: .BLKW K32132: .BLKW .BLKW ^O<1> K32136: .BLKW .BLKW ^O<1> K32142: .BLKW .BLKW ^O<33135> L20436: ; 120436 .BLKW .BLKW ^O<26> L20514: .BLKW .BLKW ^O<106> L20732: .BLKW .BLKW ^O<134> L21224: .BLKW .BLKW ^O<14> L21256: .BLKW .BLKW ^O<7> L21276: .BLKW .BLKW ^O<4> L21310: .BLKW .BLKW ^O<46> L21426: .BLKW .BLKW ^O<75> L21622: .BLKW .BLKW ^O<445> L22736: .BLKW .BLKW ^O<150> L23260: .BLKW .BLKW ^O<247> L24000: .BLKW .BLKW ^O<1557> L27340: .BLKW .BLKW ^O<114> L27572: .BLKW .BLKW ^O<35> L27666: .BLKW .BLKW ^O<352> L30614: .BLKW .BLKW ^O<147> L31134: .BLKW .BLKW ^O<144> L31446: .BLKW .BLKW ^O<137> L31746: .BLKW L31750: .BLKW .BLKW ^O<1070> L34132: .BLKW .BLKW ^O<302> L34740: .BLKW .BLKW ^O<73> L35130: .BLKW .BLKW ^O<42> L35236: .BLKW .BLKW ^O<1136> L37534: .BLKW .BLKW ^O<41> L37640: .BLKW L37642: .BLKW L37644: .BLKW L37646: .BLKW L37650: .BLKW .BLKW ^O<53> START: ; 140000 MOV #770, SP MOV #N40354, @#K00100 MOV #340, @#K00102 CALL @#N56424 MOV #N40412, @#K00376 CLR @#K00400 BIC #2000, @L56452 CLR @#K32124 CALL @#N56322 BIS #4000, @#K32124 CALL @#N56322 CALL @#N42436 CALL @#N42042 CLR @#K32114 BIS #4000, @#K32124 CALL @#L35236 CALL @#N42010 MOV #1, @#K01000 CALL @#N43302 CALL @#N55024 N40136: BIS #2000, @L56452 MOV #N40354, @#K00100 MOV #4, R0 MOV #K01214, R1 N40162: MOV #11224, (R1)+ DEC R0 BNE N40162 ADD #20000, @#K01222 CLR @#K01160 CLR @#K01162 MOV #N40356, @#K00060 MOV #340, @#K00062 BIS #100, @L37640 N40232: TSTB @L37644 BPL N40232 MOV #21, @L37646 MOV #N40300, @#K00100 N40254: TST @#K01160 BEQ N40254 MOV #31230, R1 CALL @#L37534 CALL @#L34740 BR N40254 N40300: TST @L56436 BPL N40346 INC @#K01130 CMP #2000, @#K01130 BGE N40352 BIC #400, @#K31364 CALL @#N56342 BIC #4, @#K32124 CALL @#N56322 N40346: CLR @#K01130 N40352: RTI N40354: RTI N40356: MOV R1, -(SP) N40360: TSTB @L37640 BPL N40360 MOV @L37642, R1 BIC #177600, R1 TST R1 BEQ N40406 CALL @#L37650 N40406: MOV (SP)+, R1 RTI N40412: BIC #2000, @L56452 N40420: TSTB @L37644 BPL N40420 MOV #23, @L37646 BIC #2000, @#K32124 BIS #4000, @#K32124 CALL @#N56322 CLR @#K32114 CALL @#L35236 BIC #4000, @#K32124 BIS #2000, @#K32124 MOV #31340, R0 CALL @#N43204 N40510: TSTB @L37644 BPL N40510 MOV #21, @L37646 BIS #2000, @L56452 RTI N40534: MOV #1002, R0 CALL @#L34132 RETURN N40546: MOV #1202, R0 CALL @#L34132 MOV @#K01202, @#K01114 CALL @#N40724 MOV #1204, R0 CALL @#L34132 MOV @#K01204, @#K01116 CALL @#N40776 MOV #1010, R0 CALL @#L34132 MOV #1010, R1 MOV #31600, R0 CALL @#L21256 MOV #31600, R0 MOV #127252, R1 CALL @#L20732 MOV #31614, R0 MOV #31600, R1 CALL @#L21622 MOV #31600, R1 MOV #31606, R0 CALL @#L21426 MOV #31614, R0 MOV #31606, R1 CALL @#L20514 CLR @#K31712 RETURN N40724: CALL @#N51120 MOV #1202, R1 MOV #31600, R0 CALL @#L21256 MOV #L42002, R1 MOV #31600, R0 CALL @#L20514 MOV #31600, R1 MOV #1050, R0 CALL @#L21224 RETURN N40776: CALL @#N51062 MOV #1204, R1 MOV #31600, R0 CALL @#L21256 MOV #L41774, R1 MOV #31600, R0 CALL @#L20514 MOV #31600, R1 MOV #1042, R0 CALL @#L21224 RETURN N41050: MOV #1170, R0 CALL @#L34132 MOV #1170, R1 MOV #31600, R0 CALL @#L21256 MOV #31600, R0 MOV #127252, R1 CALL @#L20732 MOV #31600, R1 MOV #31632, R0 CALL @#L21426 MOV #31600, R1 MOV #1056, R0 CALL @#L21622 MOV #31714, R0 CALL @#N43204 MOV #1, @#K31720 RETURN N41160: MOV #1004, R0 CALL @#L34132 MOV #1006, R0 CALL @#L34132 MOV @#K01114, @#K01202 MOV #1202, R0 CALL @#N40724 MOV @#K01116, @#K01204 MOV #1204, R0 CALL @#N40776 MOV @#K01016, @#K01012 MOV #1012, R0 CALL @#N51062 MOV @#K01020, @#K01014 MOV #1014, R0 CALL @#N51120 MOV @#K01026, @#K01022 MOV #1022, R0 CALL @#N51062 RETURN N41310: MOV #1152, R0 CALL @#L34132 MOV #1154, R0 CALL @#L34132 RETURN N41332: MOV #1012, R0 CALL @#L34132 MOV @#K01012, @#K01016 CALL @#N51062 MOV #1014, R0 CALL @#L34132 MOV @#K01014, @#K01020 CALL @#N51120 RETURN N41400: MOV #1140, R0 CALL @#L34132 CMP #2, @#K01140 BGE N41424 CLR @#K01140 N41424: MOV #1022, R0 CALL @#L34132 MOV @#K01022, @#K01026 CALL @#N51062 MOV #1200, R0 CALL @#L34132 RETURN N41460: MOV #1174, R0 CALL @#L34132 TST @#K01174 BLE N41542 CMP #4, @#K01174 BLT N41542 DEC @#K01174 CLC ROL @#K01174 MOV #1030, R0 ADD @#K01174, R0 CALL @#L34132 CALL @#N51062 RETURN N41542: CALL @#N57440 TST (SP)+ JMP @#N40254 N41554: MOV #1174, R0 CALL @#L34132 CMPB #37, (R0) BGE N41600 CMPB #177, (R0) BGE N41612 N41600: CALL @#N57440 TST (SP)+ JMP @#N40254 N41612: MOV #6, R1 N41616: CLC ROL @#K01174 DEC R1 BNE N41616 SUB #4000, @#K01174 MOV @#K01174, R1 ADD #1224, R1 N41646: CALL @#L37534 CMPB (R1)+, #1 BNE N41646 RETURN MOV #31230, R1 CALL @#L37534 CALL @#N41736 RETURN B41700: .ASCIZ |FCDSOTLVG| L41712: .WORD N40534 ;F .WORD N40546 ;C .WORD N41050 ;D .WORD N41160 ;S .WORD N41310 ;O .WORD N41332 ;T .WORD N41400 ;L .WORD N41460 ;V .WORD N41554 ;G .WORD N57440 ;Иначе N41736: MOV #B41700, R0 MOV #L41712, R1 N41746: TSTB (R0) BEQ N41766 CMPB @#K31230, (R0)+ BEQ N41766 ADD #2, R1 BR N41746 N41766: CALL @0(R1) RETURN L41774: .WORD 0 .WORD 60000 .WORD 100003 L42002: .WORD 0 .WORD 60000 .WORD 100004 N42010: BIS #1000, @#K32124 CALL @#N56322 CALL @#N57516 BIC #1000, @#K32124 CALL @#N56322 RETURN N42042: MOV #1, @#K01000 MOV #1, @#K01002 MOV #1, @#K01004 MOV #1, @#K01006 MOV #132, @#K01010 MOV #24, @#K01012 MOV #24, @#K01014 MOV #24, @#K01016 MOV #24, @#K01020 MOV #620, @#K01022 MOV #620, @#K01026 MOV #37200, @#K01030 MOV #37200, @#K01032 MOV #37200, @#K01034 MOV #37200, @#K01036 MOV #360, @#K01040 MOV #125252, @#K01042 MOV #65252, @#K01044 MOV #100005, @#K01046 MOV #125252, @#K01050 MOV #65252, @#K01052 MOV #100005, @#K01054 CLR @#K01056 MOV #40000, @#K01060 MOV #100001, @#K01062 CLR @#K01064 CLR @#K01066 MOV #40640, @#K01070 MOV #27340, @#K01072 CLR @#K01074 CLR @#K01076 MOV #40640, @#K01100 MOV #27340, @#K01102 CLR @#K01104 CLR @#K01106 MOV #40640, @#K01110 MOV #27340, @#K01112 MOV #500, @#K01114 MOV #240, @#K01116 MOV #37200, @#K01120 CLR @#K01122 MOV #30000, @#K01124 MOV #1126, R0 MOV #14415, R1 N42426: CLR (R0)+ DEC R1 BNE N42426 RETURN N42436: CALL @#N46720 CALL @#N56402 MOV #10000, R0 CALL @#N56360 CLR @#K31362 CLR R0 CALL @#N56366 MOV #4042, @#K31364 CALL @#N56342 MOV #3200, R0 CALL @#N56352 CALL @#N56402 MOV #4011, @#K31364 CALL @#N56342 MOV #1400, R0 CALL @#N56352 CALL @#N56402 MOV #4005, @#K31364 CALL @#N56342 MOV #77777, R0 CALL @#N56352 N42566: MOV #32132, R0 CALL @#N56374 BIT #400, @#K32132 BNE N42566 MOV #4011, @#K31364 CALL @#N56342 MOV #310, R0 CALL @#N56352 CALL @#N56402 MOV #4005, @#K31364 CALL @#N56342 MOV #4000, R0 CALL @#N56360 MOV #77777, R0 CALL @#N56352 N42666: MOV #32132, R0 CALL @#N56374 BIT #400, @#K32132 BNE N42666 MOV #4011, @#K31364 CALL @#N56342 MOV #10000, R0 CALL @#N56360 MOV #120, R0 CALL @#N56352 CALL @#N56402 MOV #4022, @#K31364 CALL @#N56342 MOV #77777, R0 CALL @#N56352 N42766: MOV #32132, R0 CALL @#N56374 BIT #1000, @#K32132 BNE N42766 MOV #4042, @#K31364 CALL @#N56342 MOV #310, R0 CALL @#N56352 CALL @#N56402 MOV #4022, @#K31364 CALL @#N56342 MOV #4000, R0 CALL @#N56360 MOV #77777, R0 CALL @#N56352 N43066: MOV #32132, R0 CALL @#N56374 BIT #1000, @#K32132 BNE N43066 MOV #4042, @#K31364 CALL @#N56342 MOV #10000, R0 CALL @#N56360 MOV #31620, R0 CALL @#N56352 CALL @#N56402 MOV #4011, @#K31364 CALL @#N56342 MOV #40640, R0 CALL @#N56352 CALL @#N56402 CALL @#N56412 CALL @#N46674 RETURN N43204: MOV @L56456, (R0) MOV @L56460, 2(R0) RETURN MOV #1000, R0 CALL @#L34132 TST @#K01000 BLT N43270 CMP #4, @#K01000 BLT N43270 BIC #2000, @L56452 CALL @#N43302 BIS #2000, @L56452 RETURN N43270: CALL @#N57440 TST (SP)+ JMP @#N40254 N43302: MOV @#K01126, @#K31320 CALL @#N46720 CLR @#K32120 CMP #3, @#K01000 BGT N43352 BEQ N43342 MOV #10, @#K31254 BR N43360 N43342: MOV #4, @#K31254 BR N43360 N43352: MOV @#K01000, @#K31254 N43360: CLR @#K01126 MOV #1142, R0 CALL @#N43204 MOV @#K01142, @#K01146 MOV @#K01144, @#K01150 TST @#K31254 BEQ N43724 CMP @#K31254, @#K01132 BEQ N43710 TST @#K01132 BEQ N43544 N43434: MOV @#K01132, R0 CALL @#N43744 MOV @#K31250, @#K01146 MOV @#L44022, @#K01150 N43460: MOV #32132, R0 CALL @#N56374 BIT @#K32132, @#K01132 BNE N43506 CALL @#N57516 BR N43460 N43506: CALL @#N44044 MOV #32132, R0 CALL @#N56374 BIT @#K32132, @#K01132 BNE N43506 CLR @#K01132 TST @#K32120 BNE N43654 N43544: MOV @#K31254, R0 CALL @#N43744 MOV #32132, R0 CALL @#N56374 BIT @#K32132, @#K31254 BEQ N43642 CALL @#N57464 MOV @#K31250, @#K01146 MOV @#L44022, @#K01150 MOV #32132, R0 CALL @#N56374 BIT @#K32132, @#K31254 BEQ N43642 CLR @#K01132 BR N43654 N43642: CALL @#N44044 MOV @#K31254, @#K01132 N43654: MOV @#K01142, @#K01134 MOV @#K01144, @#K01136 SUB @#K31250, @#K01134 SUB @#L44022, @#K01136 CALL @#N44474 N43710: MOV @#K31320, @#K01126 CALL @#N46674 RETURN N43724: MOV #32132, R0 CALL @#N56374 MOV #1, @#K32120 BR N43434 N43744: DEC R0 CLC ROL R0 MOV #144024, R1 ADD R0, R1 MOV (R1), @#K31250 MOV @#K31250, @#K01134 MOV @#L44022, @#K01136 SUB @#K01146, @#K01134 SUB @#K01150, @#K01136 CALL @#N44474 RETURN L44022: .WORD 26340 .WORD 21140 .WORD 25060 .WORD 0 .WORD 31000 .WORD 0 .WORD 0 .WORD 0 .WORD 34720 N44044: MOV @#K01126, -(SP) CLR @#K01126 CLR @#K01134 MOV @#L44136, @#K01136 CALL @#N44474 MOV #50000, @#K32072 N44100: DEC @#K32072 BNE N44100 CLR @#K01134 MOV @#L44136, @#K01136 NEG @#K01136 CALL @#N44474 MOV (SP)+, @#K01126 RETURN L44136: .WORD 3140 N44140: MOV @#K01134, @#K31376 MOV @#K01136, @#K31400 MOV @#K31340, @#K31334 MOV @#K31342, @#K31336 MOV @#K31334, @#K31340 MOV @#K31336, @#K31342 ADD @#K01134, @#K31340 ADD @#K01136, @#K31342 BR N44302 N44222: MOV @#K31340, @#K31334 MOV @#K31342, @#K31336 MOV @#K01134, @#K31340 MOV @#K01136, @#K31342 MOV @#K01134, @#K31376 MOV @#K01136, @#K31400 SUB @#K31334, @#K31376 SUB @#K31336, @#K31400 N44302: MOV @#K31340, -(SP) MOV @#K31342, -(SP) MOV #31344, R0 CALL @#N43204 MOV @#K31334, @#K01142 MOV @#K31336, @#K01144 TST @#K01126 BEQ N44456 MOV #400, @#K31364 TST @#K01140 BEQ N44432 MOV #6, R4 MOV #31276, R5 N44370: CLR (R5)+ DEC R4 BNE N44370 CMP #1, @#K01140 BNE N44414 CALL @#N44544 BR N44420 N44414: CALL @#L31750 N44420: MOV (SP)+, @#K31342 MOV (SP)+, @#K31340 RETURN N44432: CLR @#K01156 CALL @#N45412 TST @#K31374 BNE N44420 CALL @#L31134 BR N44420 N44456: CLR @#K01156 CLR @#K31364 CALL @#N45412 BR N44420 N44474: CALL @#N46720 MOV #1134, R0 TST @#K01126 BEQ N44522 MOV #400, @#K31364 BR N44526 N44522: CLR @#K31364 N44526: CALL @#N47500 CALL @#N50024 CALL @#N46674 RETURN N44544: CALL @#N46720 MOV @#K01022, @#K31332 SUB @#L31746, @#K31332 CALL @#L27666 CALL @#L31446 MOV #6, R1 MOV #31276, R2 N44604: CLR (R2)+ DEC R1 BNE N44604 TST @#K01156 BEQ N45042 CMP @#K31550, @#K01156 BLT N44634 JMP @#N45236 N44634: MOV @#K01156, @#K31552 SUB @#K31574, @#K31552 CMP @#K31550, @#K31552 BGT N44704 MOV #31376, R0 CALL @#L27572 N44670: SUB @#K31550, @#K01156 N44676: CALL @#N46674 RETURN N44704: TST @#K31552 BLE N45004 MOV #31552, R1 MOV #31560, R0 CALL @#L30614 CALL @#L27572 BIC #400, @#K31364 SUB @#K31552, @#K31550 MOV #31550, R1 MOV #31560, R0 CALL @#L30614 CALL @#L27572 BIS #400, @#K31364 SUB @#K31552, @#K01156 BR N44670 N45004: MOV #31550, R1 MOV #31560, R0 CALL @#L30614 BIC #400, @#K31364 CALL @#L27572 BIS #400, @#K31364 BR N44670 N45042: TST @#K31550 BEQ N44676 CMP @#K31550, @#K31570 BGT N45120 CMP @#K31550, @#K31572 BGT N45134 MOV #31550, R1 MOV #31560, R0 CALL @#L30614 CALL @#L27572 MOV @#K31570, @#K01156 BR N44670 N45120: CALL @#L27340 SUB @#K31570, @#K31550 BR N45042 N45134: MOV #31572, R1 MOV #31560, R0 CALL @#L30614 CALL @#L27572 SUB @#K31572, @#K31550 MOV #31550, R1 MOV #31560, R0 CALL @#L30614 BIC #400, @#K31364 CALL @#L27572 BIS #400, @#K31364 MOV @#K31574, @#K01156 SUB @#K31550, @#K01156 JMP @#N44676 N45236: CMP @#K01156, @#K31574 BLE N45340 MOV @#K01156, @#K31552 SUB @#K31574, @#K31552 MOV #31552, R1 MOV #31560, R0 CALL @#L30614 CALL @#L27572 MOV #31574, R1 MOV #31560, R0 CALL @#L30614 BIC #400, @#K31364 CALL @#L27572 BIS #400, @#K31364 BR N45374 N45340: MOV #1156, R1 MOV #31560, R0 CALL @#L30614 BIC #400, @#K31364 CALL @#L27572 BIS #400, @#K31364 N45374: SUB @#K01156, @#K31550 CLR @#K01156 JMP @#N45042 N45412: MOV R0, -(SP) MOV #31334, R0 MOV #1104, R1 MOV #31402, R2 CALL @#N45470 MOV (SP)+, R0 MOV #31560, R0 CALL @#N47214 TST @#K31374 BEQ N45456 BR N45466 N45456: CALL @#N47500 CALL @#N50024 N45466: RETURN N45470: CALL @#N46720 MOV R2, @#K01174 MOV (R0), @#K31322 MOV 2(R0), @#K31324 MOV #31322, R3 MOV 4(R0), @#K31326 MOV 6(R0), @#K31330 MOV #31326, R4 CLR @#K31422 CLR @#K31424 CLR @#K31374 MOV R3, R5 CALL @#N46740 MOV @#K31434, @#K31430 MOV R4, R5 CALL @#N46740 MOV @#K31434, @#K31432 N45602: TST @#K31430 BEQ N45616 INC @#K31424 BR N45676 N45616: TST @#K31424 BNE N45636 MOV (R0), (R2)+ MOV 2(R0), (R2)+ INC @#K31424 N45636: TST @#K31432 BNE N45676 TST @#K31422 BEQ N45664 N45652: CALL @#N46674 MOV @#K01174, R2 RETURN N45664: MOV 4(R0), (R2)+ MOV 6(R0), (R2)+ BR N45652 N45676: MOV @#K31432, R5 CALL @#N47040 TST @#K31426 BEQ N45722 INC @#K31374 BR N45652 N45722: TST @#K31430 BNE N46020 INC @#K31422 MOV #1, @#K31424 MOV @#K31430, @#K01176 MOV @#K31432, @#K31430 MOV @#K01176, @#K31432 MOV (R3), @#K01176 MOV (R4), (R3) MOV @#K01176, (R4) MOV 2(R3), @#K01176 MOV 2(R4), 2(R3) MOV @#K01176, 2(R4) N46020: MOV #1, R5 CALL @#N47040 TST @#K31426 BEQ N46116 MOV (R1), @#K31440 CALL @#N47114 ADD @#K31450, 2(R3) MOV (R1), (R3) MOV R3, R5 N46060: MOV (R3), (R2)+ MOV 2(R3), (R2)+ CALL @#N46740 MOV @#K31434, @#K31430 TST @#K31430 BEQ N45602 TST -(R2) TST -(R2) JMP @#N45602 N46116: MOV #10, R5 CALL @#N47040 TST @#K31426 BEQ N46166 MOV 4(R1), @#K31440 CALL @#N47114 ADD @#K31450, 2(R3) MOV R3, R5 MOV 4(R1), (R3) JMP @#N46060 N46166: MOV #100, R5 CALL @#N47040 TST @#K31426 BEQ N46236 MOV 2(R1), @#K31440 CALL @#N47056 ADD @#K31450, (R3) MOV 2(R1), 2(R3) MOV R3, R5 JMP @#N46060 N46236: MOV #1000, R5 CALL @#N47040 TST @#K31426 BEQ N46060 MOV 6(R1), @#K31440 CALL @#N47056 ADD @#K31450, (R3) MOV 6(R1), 2(R3) MOV R3, R5 JMP @#N46060 N46306: MOV (R0), R5 MOV (R1), R1 CLR R3 CLR R4 TST R5 BGE N46326 NEG R5 INC R3 N46326: TST R1 BGE N46336 NEG R1 DEC R3 N46336: MOV #21, R2 N46342: CLC ROR R4 ROR R5 BCC N46354 ADD R1, R4 N46354: DEC R2 BGT N46342 TST R3 BEQ N46372 NEG R4 NEG R5 SBC R4 N46372: MOV R4, (R0)+ MOV R5, (R0) RETURN N46400: CALL @#N46720 CLR (R3) CLR 2(R3) CLR R5 TST (R1) BGE N46432 NEG (R1) NEG 2(R1) SBC (R1) INC R5 N46432: TST (R2) BGE N46442 NEG (R2) DEC R5 N46442: CMP #0, (R2) BEQ N46652 MOV #20, R4 N46454: MOV (R1), R0 BIT #20000, R0 BNE N46514 CLC ROL 2(R1) ROL (R1) DEC R4 MOV R4, R0 ADD #15, R0 CMP R0, #0 BGE N46454 BR N46652 N46514: MOV R2, R0 BIT #40000, (R0) BNE N46534 CLC ROL (R2) INC R4 BR N46514 N46534: CMP R4, #0 BLT N46652 N46542: CLC ROL 2(R3) ROL (R3) CLC ROL 2(R1) ROL (R1) SUB (R2), (R1) CMP (R1), #0 BLT N46604 ADD #1, 2(R3) ADC (R3) BR N46606 N46604: ADD (R2), (R1) N46606: CMP #0, R4 BEQ N46620 DEC R4 BR N46542 N46620: MOV 2(R3), R0 BIT #1, R0 BEQ N46642 ADD #1, 2(R3) ADC (R3) N46642: CLC ROR (R3) ROR 2(R3) N46652: TST R5 BEQ N46666 NEG (R3) NEG 2(R3) SBC (R3) N46666: CALL @#N46674 RETURN N46674: MOV (SP), 16(SP) TST (SP)+ MOV (SP)+, R0 MOV (SP)+, R1 MOV (SP)+, R2 MOV (SP)+, R3 MOV (SP)+, R4 MOV (SP)+, R5 RETURN N46720: MOV R5, -(SP) MOV R4, -(SP) MOV R3, -(SP) MOV R2, -(SP) MOV R1, -(SP) MOV R0, -(SP) MOV 14(SP), PC N46740: CMP (R5), (R1) BGE N46754 MOV #1, @#K31434 BR N47000 N46754: CMP (R5), 4(R1) BLE N46772 MOV #10, @#K31434 BR N47000 N46772: MOV #0, @#K31434 N47000: CMP 2(R5), 2(R1) BGE N47020 ADD #100, @#K31434 N47016: RETURN N47020: CMP 2(R5), 6(R1) BLE N47016 ADD #1000, @#K31434 BR N47016 N47040: MOV @#K31430, @#K31426 COM R5 BIC R5, @#K31426 RETURN N47056: MOV (R4), @#K01176 SUB (R3), @#K01176 SUB 2(R3), @#K31440 MOV 2(R4), @#K31454 SUB 2(R3), @#K31454 JMP @#N47144 N47114: MOV 2(R4), @#K01176 SUB 2(R3), @#K01176 SUB (R3), @#K31440 MOV (R4), @#K31454 SUB (R3), @#K31454 N47144: CALL @#N46720 MOV #31440, R0 MOV #1176, R1 CALL @#N46306 SUB #2, R0 MOV R0, R1 MOV #31454, R2 MOV #31446, R3 CALL @#N46400 CALL @#N46674 RETURN N47214: CALL @#N46720 TST @#K31374 BEQ N47304 TST @#K32122 BNE N47250 BIS #20, @#K32124 CALL @#N56322 BR N47262 N47250: BIS #22, @#K32124 CALL @#N56322 N47262: MOV @#K31340, @#K01142 MOV @#K31342, @#K01144 N47276: CALL @#N46674 RETURN N47304: CMP (R2), @#K01142 BNE N47362 CMP 2(R2), @#K01144 BNE N47362 N47322: MOV 4(R2), (R0) SUB @#K01142, (R0) MOV 6(R2), 2(R0) SUB @#K01144, 2(R0) ADD (R0), @#K01142 ADD 2(R0), @#K01144 BR N47276 N47362: MOV (R2), (R0) SUB @#K31344, (R0) MOV 2(R2), 2(R0) SUB @#K31346, 2(R0) MOV (R2), @#K01142 MOV 2(R2), @#K01144 MOV @#K01142, @#K31344 MOV @#K01144, @#K31346 MOV @#K31364, R1 BIT #400, R1 BIC #400, @#K31364 BIC #22, @#K32124 CALL @#N56322 CALL @#N47500 CALL @#N50024 BIS R1, @#K31364 BR N47322 N47500: CALL @#N46720 BIC #77, @#K31364 MOV (R0), @#K31322 CLR @#K31324 MOV 2(R0), @#K31326 CLR @#K31330 CMP (R0), #0 BGE N47556 BIS #10, @#K31364 NEG @#K31322 BR N47564 N47556: BIS #4, @#K31364 N47564: CMP 2(R0), #0 BGE N47610 BIS #40, @#K31364 NEG @#K31326 BR N47616 N47610: BIS #20, @#K31364 N47616: CMP @#K31322, @#K31326 BEQ N47706 BGT N47716 MOV #31322, R1 MOV #31326, R2 MOV #1174, R3 CALL @#N46400 CLC ROR 2(R3) MOV 2(R3), @#K31362 N47664: BIS #2, @#K31364 MOV (R0), @#K31370 MOV 2(R0), @#K31366 BR N47772 N47706: MOV #100000, @#K31362 BR N47664 N47716: MOV #31326, R1 MOV #31322, R2 MOV #1174, R3 CALL @#N46400 CLC ROR 2(R3) MOV 2(R3), @#K31362 BIS #1, @#K31364 MOV 2(R0), @#K31370 MOV (R0), @#K31366 N47772: TST @#K31366 BGT N50004 NEG @#K31366 N50004: TST @#K31370 BGT N50016 NEG @#K31370 N50016: CALL @#N46674 RETURN N50024: CALL @#N46720 MOV @L56452, @#K32136 BIC #175777, @#K32136 BIC #2000, @L56452 TST @#K31366 BNE N50064 JMP @#N50512 N50064: BIS #4000, @#K31364 CMP #1, @#K31366 BNE N50106 JMP @#N50540 N50106: MOV @#K01124, R0 CALL @#N56366 BIT #400, @#K31364 BNE N50150 BIC #4, @#K32124 CALL @#N56322 MOV #37200, @#K01120 BR N50166 N50150: BIS #4, @#K32124 CALL @#N56322 CALL @#N50576 N50166: CALL @#N50654 CALL @#N56332 TST @#K32076 BEQ N50526 TST @#K32102 BMI N50364 CMP @#K31366, @#K32102 BLE N50364 MOV @#K31366, @#K32070 SUB @#K32076, @#K32070 SUB @#K32076, @#K32070 BIS #100, @#K31364 CALL @#N56342 CLR R0 CALL @#N56360 MOV @#K32076, R0 CALL @#N56352 CALL @#N56402 BIC #100, @#K31364 CALL @#N56342 MOV @#K32070, R0 CALL @#N56352 CALL @#N56402 BIS #200, @#K31364 CALL @#N56342 MOV @#K32076, R0 CALL @#N56352 CALL @#N56402 BIC #200, @#K31364 BR N50510 N50364: MOV @#K31366, @#K32070 CLC ROR @#K32070 MOV @#K32070, @#K32072 ADC @#K32072 BIS #100, @#K31364 CALL @#N56342 CLR R0 CALL @#N56360 MOV @#K32072, R0 CALL @#N56352 BIC #100, @#K31364 CALL @#N56402 BIS #200, @#K31364 CALL @#N56342 MOV @#K32070, R0 CALL @#N56352 CALL @#N56402 BIC #200, @#K31364 N50510: NOP N50512: BIS @#K32136, @L56452 CALL @#N46674 RETURN N50526: CALL @#N56342 MOV @#K01120, R0 BR N50554 N50540: CALL @#N56332 CALL @#N56342 MOV #10000, R0 N50554: CALL @#N56360 MOV @#K31366, R0 CALL @#N56352 CALL @#N56402 BR N50510 N50576: CALL @#N46720 TST @#K01132 BNE N50620 MOV #37200, @#K01120 BR N50646 N50620: MOV @#K01132, R1 CLC ROL R1 SUB #2, R1 MOV #1030, R2 ADD R1, R2 MOV (R2), @#K01120 N50646: CALL @#N46674 RETURN N50654: CALL @#N46720 MOV #1120, R1 MOV #31600, R0 CALL @#L21276 MOV #32060, R1 MOV #31606, R0 CALL @#L21276 MOV #31600, R0 MOV #31606, R1 CALL @#L20436 MOV #31600, R1 MOV #31600, R0 CALL @#L20732 MOV #L51056, R1 MOV #31606, R0 CALL @#L21276 MOV #31600, R1 MOV #32106, R0 CALL @#L21224 MOV #32106, R0 MOV #31606, R1 CALL @#L20514 MOV #32106, R1 MOV #32102, R0 CALL @#L21310 MOV #32106, R0 MOV #127260, R1 CALL @#L20514 MOV #32106, R1 MOV #32076, R0 CALL @#L21310 CALL @#N46674 RETURN L51056: .WORD 66720 .WORD 1 N51062: N51063 =: .+1 CALL @#N46720 CMP @#K01004, #1 BLE N51112 MOV @#K01004, R1 MOV (R0), R2 CALL @#N51152 MOV R2, (R0) N51112: CALL @#N46674 RETURN N51120: CALL @#N46720 CMP @#K01006, #1 BLE N51112 MOV @#K01006, R1 MOV (R0), R2 CALL @#N51152 MOV R2, (R0) BR N51112 N51152: MOV R2, R3 DEC R1 N51156: ADD R3, R2 BVC N51166 JMP @#N57440 N51166: DEC R1 BNE N51156 RETURN MOV @#K01140, -(SP) MOV @#K01126, -(SP) CLR @#K01140 CLR @#K31712 N51214: TST @#K01160 BEQ N51214 MOV #31230, R1 CALL @#L37534 CMPB #3, @#K31230 BNE N51254 MOV (SP)+, @#K01126 MOV (SP)+, @#K01140 RETURN N51254: CALL @#N51364 TST @#K31244 BNE N51214 CMPB #40, @#K31230 BGT N51214 CMPB #177, @#K31230 BLT N51214 TST @#K01002 BEQ N51352 TST @#K01172 BEQ N51340 CMPB #77, @#K31230 BGE N51340 N51332: ADD #100, @#K31230 N51340: MOV #31230, R0 CALL @#L22736 BR N51214 N51352: CMPB #137, @#K31230 BLT N51332 BR N51340 N51364: CLR @#K31244 MOV #151432, R0 MOV #151444, R1 N51400: TSTB (R0) BEQ N51430 CMPB (R0)+, @#K31230 BEQ N51420 ADD #2, R1 BR N51400 N51420: CALL @0(R1) INC @#K31244 N51430: RETURN .WORD 6412 .WORD 4013 .WORD 77425 .WORD 7416 .WORD 11 .WORD 124354 .WORD 124174 .WORD 124610 .WORD 124450 .WORD 124022 .WORD 124112 .WORD 124534 .WORD 124554 .WORD 124154 .WORD 12122 .WORD 31661 .WORD 35670 .WORD 16064 .WORD 10023 .WORD 52120 .WORD 35670 .WORD 16064 .WORD 10023 .WORD 51520 .WORD 42114 .WORD 50073 .WORD 110524 .WORD 51501 .WORD 12525 .WORD 10210 .WORD 7026 .WORD 10224 .WORD 52120 .WORD 30263 .WORD 150102 .WORD 53073 .WORD 11723 .WORD 13304 .WORD 50710 .WORD 46123 .WORD 35504 .WORD 16064 .WORD 10423 .WORD 50030 .WORD 12324 .WORD 42220 .WORD 152120 .WORD 110024 .WORD 160504 .WORD 61532 .WORD 152120 .WORD 34460 .WORD 10424 .WORD 52523 .WORD 50025 .WORD 53073 .WORD 50026 .WORD 12324 .WORD 32260 .WORD 44230 .WORD 51521 .WORD 16114 .WORD 10423 .WORD 50030 .WORD 12124 .WORD 51520 .WORD 32114 .WORD 24053 .WORD 11634 .WORD 14021 .WORD 50510 .WORD 46123 .WORD 51222 .WORD 52320 .WORD 16023 .WORD 150124 .WORD 24460 .WORD 111454 .WORD 52523 .WORD 27116 .WORD 20445 .WORD 44050 .WORD 51521 .WORD 150124 .WORD 50024 .WORD 12324 .WORD 12620 .WORD 112015 .WORD 150124 .WORD 30470 .WORD 150064 .WORD 13020 .WORD 151526 .WORD 150023 .WORD 13420 .WORD 111417 .WORD 153123 .WORD 150026 .WORD 10521 .WORD 16424 .WORD 36065 .WORD 150071 .WORD 11420 .WORD 32034 .WORD 34073 .WORD 13326 .WORD 10320 .WORD 16023 .WORD 35464 .WORD 144070 .WORD 51521 .WORD 16114 .WORD 10423 .WORD 130430 .WORD 50064 .WORD 31260 .WORD 51512 .WORD 47125 .WORD 12436 .WORD 15023 .WORD 25462 .WORD 24454 .WORD 44060 .WORD 52121 .WORD 50024 .WORD 46123 .WORD 11434 .WORD 50020 .WORD 130124 .WORD 131063 .WORD 16064 .WORD 10423 .WORD 44030 .WORD 51521 .WORD 110514 .WORD 111023 .WORD 150522 .WORD 114123 .WORD 11021 .WORD 51433 .WORD 52322 .WORD 10320 .WORD 50024 .WORD 52024 .WORD 44230 .WORD 51521 .WORD 16114 .WORD 10423 .WORD 121030 .WORD 50024 .WORD 46123 .WORD 25464 .WORD 24450 .WORD 114024 .WORD 11421 .WORD 26034 .WORD 30463 .WORD 44070 .WORD 51521 .WORD 150114 .WORD 10430 .WORD 16023 .WORD 150124 .WORD 52022 .WORD 11320 .WORD 12073 .WORD 150126 .WORD 53063 .WORD 11663 .WORD 52320 .WORD 12020 .WORD 44230 .WORD 51521 .WORD 16114 .WORD 10423 .WORD 46030 .WORD 111024 .WORD 40122 .WORD 50710 .WORD 46123 .WORD 14074 .WORD 12020 .WORD 52320 .WORD 35471 .WORD 16064 .WORD 10423 .WORD 152030 .WORD 22040 .WORD 11653 .WORD 16023 .WORD 35464 .WORD 50070 .WORD 146124 .WORD 50523 .WORD 14110 .WORD 11421 .WORD 32034 .WORD 34473 .WORD 52060 .WORD 134520 .WORD 14060 .WORD 11421 .WORD 32034 .WORD 34473 .WORD 44100 .WORD 51521 .WORD 42114 .WORD 114073 .WORD 11421 .WORD 46034 .WORD 50523 .WORD 30110 .WORD 25451 .WORD 116064 .WORD 41474 .WORD 34101 .WORD 10430 .WORD 16023 .WORD 136025 .WORD 141504 .WORD 34101 .WORD 10430 .WORD 16023 .WORD 50474 .WORD 134124 .WORD 51112 .WORD 44121 .WORD 10430 .WORD 16023 .WORD 41474 .WORD 134101 .WORD 41501 .WORD 32074 .WORD 24453 .WORD 14040 .WORD 11421 .WORD 136034 .WORD 40503 .WORD 14070 .WORD 11421 .WORD 46034 .WORD 50523 .WORD 26250 .WORD 41474 .WORD 34101 .WORD 10430 .WORD 16023 .WORD 140106 .WORD 111426 .WORD 134103 .WORD 41501 .WORD 32074 .WORD 22053 .WORD 11434 .WORD 14021 .WORD 14300 .WORD 11421 .WORD 12434 .WORD 42034 .WORD 14300 .WORD 11421 .WORD 12434 .WORD 42034 .WORD 45321 .WORD 40123 .WORD 20304 .WORD 12051 .WORD 30421 .WORD 42103 .WORD 40024 .WORD 43053 .WORD 40026 .WORD 12304 .WORD 26250 .WORD 10630 .WORD 16023 .WORD 41474 .WORD 34101 .WORD 40030 .WORD 40470 .WORD 36103 .WORD 100024 .WORD 34100 .WORD 41501 .WORD 16074 .WORD 10423 .WORD 136030 .WORD 40503 .WORD 14070 .WORD 11421 .WORD 40034 .WORD 40470 .WORD 35502 .WORD 135423 .WORD 42504 .WORD 13076 .WORD 14300 .WORD 11421 .WORD 142034 .WORD 1414 .WORD 101400 .WORD 35503 .WORD 40502 .WORD 14070 .WORD 11021 .WORD 12033 .WORD 17025 .WORD 42476 .WORD 35504 .WORD 140104 .WORD 140024 .WORD 10430 .WORD 16023 .WORD 116104 .WORD 6425 .WORD 30300 .WORD 26051 .WORD 12304 .WORD 14300 .WORD 11021 .WORD 41433 .WORD 12233 .WORD 17025 .WORD 117106 .WORD 140027 .WORD 10430 .WORD 15422 .WORD 115503 .WORD 12424 .WORD 43036 .WORD 13636 .WORD 140017 .WORD 10501 .WORD 16424 .WORD 32055 .WORD 140061 .WORD 11420 .WORD 26034 .WORD 30063 .WORD 13306 .WORD 10300 .WORD 16023 .WORD 31454 .WORD 134060 .WORD 41501 .WORD 16074 .WORD 10423 .WORD 124430 .WORD 40054 .WORD 25250 .WORD 41472 .WORD 37105 .WORD 12436 .WORD 15023 .WORD 21052 .WORD 20644 .WORD 34050 .WORD 42101 .WORD 134024 .WORD 41501 .WORD 16074 .WORD 10423 .WORD 50030 .WORD 16225 .WORD 10423 .WORD 34030 .WORD 41501 .WORD 16074 .WORD 111124 .WORD 51512 .WORD 134524 .WORD 116073 .WORD 10423 .WORD 34030 .WORD 41501 .WORD 42074 .WORD 1414 .WORD 50000 .WORD 40470 .WORD 36103 .WORD 150424 .WORD 140521 .WORD 11031 .WORD 151423 .WORD 141523 .WORD 1013 .WORD 50001 .WORD 20273 .WORD 12051 .WORD 14721 .WORD 11422 .WORD 11634 .WORD 14021 .WORD 40470 .WORD 36103 .WORD 2104 .WORD 34100 .WORD 41501 .WORD 114074 .WORD 11421 .WORD 22034 .WORD 24453 .WORD 34060 .WORD 41501 .WORD 140074 .WORD 150502 .WORD 11031 .WORD 140023 .WORD 42022 .WORD 11300 .WORD 12063 .WORD 140106 .WORD 10104 .WORD 120424 .WORD 26043 .WORD 41474 .WORD 34101 .WORD 20450 .WORD 121430 .WORD 140434 .WORD 141510 .WORD 130114 .WORD 130064 .WORD 141064 .WORD 134042 .WORD 124074 .WORD 134054 .WORD 124074 .WORD 120454 .WORD 141501 .WORD 52043 .WORD 150124 .WORD 41122 .WORD 50100 .WORD 21222 .WORD 12044 .WORD 150022 .WORD 151424 .WORD 20501 .WORD 150423 .WORD 21503 .WORD 151421 .WORD 10521 .WORD 150423 .WORD 11523 .WORD 151421 .WORD 35112 .WORD 25061 .WORD 11432 .WORD 45321 .WORD 31472 .WORD 15052 .WORD 112421 .WORD 44070 .WORD 51121 .WORD 41513 .WORD 14050 .WORD 11421 .WORD 26034 .WORD 42240 .WORD 22300 .WORD 41242 .WORD 32260 .WORD 11221 .WORD 51242 .WORD 50710 .WORD 46123 .WORD 25074 .WORD 110442 .WORD 141422 .WORD 11450 .WORD 26301 .WORD 126021 .WORD 41474 .WORD 34502 .WORD 21051 .WORD 26043 .WORD 27045 .WORD 52516 .WORD 44121 .WORD 10430 .WORD 140025 .WORD 50511 .WORD 45723 .WORD 140502 .WORD 51112 .WORD 15221 .WORD 114442 .WORD 134432 .WORD 120472 .WORD 134442 .WORD 121072 .WORD 10432 .WORD 51300 .WORD 100104 .WORD 150004 .WORD 150524 .WORD 111103 .WORD 122 .ASCII | !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~|<200> .BYTE 201 .WORD 101602 .WORD 102604 .WORD 103606 .WORD 104610 .WORD 105612 .WORD 106614 .WORD 107616 .WORD 110620 .WORD 111622 .WORD 112624 .WORD 113626 .WORD 114630 .WORD 115632 .WORD 116634 .WORD 117636 .WORD 120640 .WORD 121642 .WORD 122644 .WORD 123646 .WORD 124650 .WORD 125652 .WORD 126654 .WORD 127656 .WORD 130660 .WORD 131662 .WORD 132664 .WORD 133666 .WORD 134670 .WORD 135672 .WORD 136674 .WORD 137676 .WORD 0 .WORD 21602 .WORD 31647 .WORD 41471 .WORD 101437 .WORD 55502 .WORD 65555 .WORD 15655 .WORD 21517 .WORD 21523 .WORD 41572 .WORD 21461 .WORD 15660 .WORD 11457 .WORD 11663 .WORD 5501 .WORD 50472 .WORD 20504 .WORD 40510 .WORD 44520 .WORD 24531 .WORD 34536 .WORD 60545 .WORD 10561 .WORD 100563 .WORD 60603 .WORD 21665 .WORD 25671 .WORD 15617 .WORD 21465 .WORD 15622 .WORD 45606 .WORD 111625 .WORD 20000 .WORD 54014 .WORD 40154 .WORD 30335 .WORD 30042 .WORD 20343 .WORD 50347 .WORD 24125 .WORD 30361 .WORD 34367 .WORD 24110 .WORD 14376 .WORD 20121 .WORD 14401 .WORD 44132 .WORD 30146 .WORD 54404 .WORD 40417 .WORD 60427 .WORD 20164 .WORD 30443 .WORD 14451 .WORD 24454 .WORD 14212 .WORD 24461 .WORD 20466 .WORD 21527 .WORD 11515 .WORD 21533 .WORD 15676 .WORD 11701 .WORD 11705 .WORD 60617 .WORD 45261 .WORD 41041 .WORD 55272 .WORD 50710 .WORD 31305 .WORD 61313 .WORD 31327 .WORD 31335 .WORD 31343 .WORD 25351 .WORD 21356 .WORD 55051 .WORD 31021 .WORD 45010 .WORD 51027 .WORD 51362 .WORD 25374 .WORD 61401 .WORD 31415 .WORD 40742 .WORD 15423 .WORD 25426 .WORD 15116 .WORD 45064 .WORD 21433 .WORD 35537 .WORD 11707 .WORD 35546 .WORD 11703 .WORD 0 .WORD 61235 .WORD 60617 .WORD 50633 .WORD 45121 .WORD 54675 .WORD 50710 .WORD 105075 .WORD 60661 .WORD 15116 .WORD 40742 .WORD 54752 .WORD 24765 .WORD 24772 .WORD 20777 .WORD 25003 .WORD 45010 .WORD 31021 .WORD 41251 .WORD 51027 .WORD 41041 .WORD 55051 .WORD 45064 .WORD 24722 .WORD 60645 .WORD 35214 .WORD 45203 .WORD 54727 .WORD 65140 .WORD 51223 .WORD 71155 .WORD 31132 .WORD 41173 .WORD 60311 .WORD 20000 .WORD 40004 .WORD 30215 .WORD 44031 .WORD 30042 .WORD 54177 .WORD 10027 .WORD 14212 .WORD 24073 .WORD 40100 .WORD 24110 .WORD 20115 .WORD 20121 .WORD 24125 .WORD 44132 .WORD 14143 .WORD 40325 .WORD 30146 .WORD 40154 .WORD 20164 .WORD 34170 .WORD 40050 .WORD 54014 .WORD 34270 .WORD 44257 .WORD 54060 .WORD 30231 .WORD 50277 .WORD 40237 .WORD 30223 .WORD 40247 N54340: CALL @#N46720 MOV @#K01126, -(SP) MOV @#K01140, -(SP) CLR @#K01140 MOV #3, @#K31650 MOV #3, @#K31652 CLR R3 CLR R1 MOV #6, @#K31642 MOVB (R0)+, R3 N54410: DEC @#K31642 BLT N54624 MOVB (R0)+, R1 MOV R1, @#K31644 BIC #177770, @#K31644 MOV R1, @#K31646 BIC #177607, @#K31646 CLC ROR @#K31646 ROR @#K31646 ROR @#K31646 BIT #200, R1 BNE N54500 MOV #1, @#K01126 BR N54504 N54500: CLR @#K01126 N54504: MOV @#K31644, R4 MOV @#K31646, R5 SUB @#K31650, @#K31644 SUB @#K31652, @#K31646 MOV R4, @#K31650 MOV R5, @#K31652 TST R3 BEQ N54562 MOV R0, -(SP) MOV R3, -(SP) CALL @#L23260 MOV (SP)+, R3 MOV (SP)+, R0 BR N54410 N54562: CLC ROL @#K31644 ROL @#K31644 CLC ROL @#K31646 ROL @#K31646 MOV R3, -(SP) MOV R0, -(SP) CALL @#L24000 MOV (SP)+, R0 MOV (SP)+, R3 BR N54410 N54624: MOV (SP)+, @#K01140 MOV (SP)+, @#K01126 CALL @#N46674 RETURN N54642: CALL @#N46720 MOV #7, R2 MOV #154742, R0 MOV #1, R3 N54662: MOV @#K31230, @#K31600 BIC #177776, @#K31600 BNE N54714 ADD R2, R0 BR N54722 N54704: CLC ROR @#K31230 BR N54662 N54714: CALL @#N54340 ADD R2, R0 N54722: INC R3 CMP #6, R3 BEQ N54734 BR N54704 N54734: CALL @#N46674 RETURN .WORD 100000 .WORD 33060 .WORD 6 .WORD 633 .WORD 33200 .WORD 15660 .WORD 115406 .WORD 114002 .WORD 131436 .WORD 1433 .WORD 1633 .WORD 14203 .WORD 17063 .WORD 115403 .WORD 100004 .WORD 33060 .WORD 6 .WORD 233 CALL @#N55024 CALL @#N55302 CLR @#K32122 RETURN N55024: CALL @#N46720 BIS #400, @#K32124 CALL @#N56322 MOV #1, @#K32114 CALL @#L35236 MOV #1142, R0 CALL @#N43204 TST @#K01142 BPL N55076 CLR @#K01142 N55076: MOV @#K01142, @#K01064 TST @#K01144 BPL N55116 CLR @#K01144 N55116: MOV @#K01144, @#K01066 MOV @#K01142, @#K01104 MOV @#K01144, @#K01106 BIC #400, @#K32124 CALL @#N56322 BIS #200, @#K32124 CALL @#N56322 N55164: MOV #1, @#K32114 CALL @#L35236 MOV #1142, R0 CALL @#N43204 CMP @#K01064, @#K01142 BGE N55164 CMP @#K01066, @#K01144 BGE N55164 BIC #200, @#K32124 CALL @#N56322 MOV @#K01142, @#K01070 MOV @#K01144, @#K01072 MOV @#K01142, @#K01110 MOV @#K01144, @#K01112 CALL @#N55344 CALL @#N46674 RETURN N55302: MOV @#K01064, @#K01142 MOV @#K01066, @#K01144 CALL @#N55776 MOV @#K01070, @#K01142 MOV @#K01072, @#K01144 CALL @#N55776 RETURN N55344: CALL @#N46720 MOV @#K01126, -(SP) MOV #1142, R0 CALL @#N43204 CLR @#K01126 MOV @#K01104, @#K31430 SUB @#K01142, @#K31430 MOV @#K01106, @#K31432 SUB @#K01144, @#K31432 MOV @#K31430, @#K01134 MOV @#K31432, @#K01136 CALL @#N44474 MOV (SP)+, @#K01126 MOV @#K01112, @#K31430 SUB @#K01106, @#K31430 MOV @#K31430, @#K31422 CLR @#K01134 MOV @#K31430, @#K01136 CALL @#N44474 MOV @#K01110, @#K31430 SUB @#K01104, @#K31430 MOV @#K31430, @#K31424 MOV @#K31430, @#K01134 CLR @#K01136 CALL @#N44474 NEG @#K31422 CLR @#K01134 MOV @#K31422, @#K01136 CALL @#N44474 NEG @#K31424 MOV @#K31424, @#K01134 CLR @#K01136 CALL @#N44474 MOV @#K01104, @#K31340 MOV @#K01106, @#K31342 CALL @#N46674 RETURN BIS #100, @#K32124 CALL @#N56322 MOV #1, @#K32130 MOV #1, @#K32114 BIC #2000, @L56452 CALL @#L35236 BIS #2000, @L56452 BIC #100, @#K32124 CALL @#N56322 CALL @#N55720 RETURN N55720: MOV #1142, R0 CALL @#N43204 TST @#K01142 BPL N55742 CLR @#K01142 N55742: TST @#K01144 BPL N55754 CLR @#K01144 N55754: MOV #31340, R0 CALL @#N43204 CALL @#N55776 CALL @#N56140 RETURN N55776: MOV @#K01142, @#K31324 CLR @#K31322 MOV @#K01004, @#K31446 MOV #31322, R1 MOV #31446, R2 MOV #31436, R3 CALL @#N46400 MOV #31440, R1 MOV #31456, R0 CALL @#L35130 CALL @#N56264 MOV @#K01144, @#K31324 CLR @#K31322 MOV @#K01006, @#K31446 MOV #31322, R1 MOV #31446, R2 MOV #31436, R3 CALL @#N46400 MOV #31440, R1 MOV #31456, R0 CALL @#L35130 CALL @#N56264 RETURN N56140: MOV @#K01126, @#K31456 ADD #260, @#K31456 MOV #15, @#K31460 MOV #12, @#K31462 MOV #31456, R0 CALL @#N56264 TST @#K32142 BEQ N56222 CLR @#K32142 MOV @#K32126, @#K31456 BR N56230 N56222: MOV @#K01000, @#K31456 N56230: ADD #260, @#K31456 MOV #15, @#K31460 MOV #12, @#K31462 MOV #31456, R0 CALL @#N56264 RETURN N56264: TSTB @L37644 BPL N56264 MOVB (R0), @L37646 CMPB #12, (R0)+ BNE N56264 RETURN N56306: MOV @L56452, (R0) RETURN MOV @L56454, (R0) RETURN N56322: MOV @#K32124, @L56456 RETURN N56332: MOV @#K31362, @L56446 RETURN N56342: MOV @#K31364, @L56440 RETURN N56352: MOV R0, @L56450 RETURN N56360: MOV R0, @L56444 RETURN N56366: MOV R0, @L56442 RETURN N56374: MOV @L56436, (R0) RETURN N56402: TST @L56436 BPL N56402 RETURN N56412: CLR @L56454 CLR @L56460 RETURN N56424: CLR -(SP) MOV #156434, -(SP) RTI RETURN L56436: .WORD 167300 L56440: .WORD 167301 L56442: .WORD 167302 L56444: .WORD 167303 L56446: .WORD 167304 L56450: .WORD 167305 L56452: .WORD 167400 L56454: .WORD 167402 L56456: .WORD 167404 L56460: .WORD 167406 MOV #31230, R0 CALL @#L34132 MOV #1, @#K31274 N56500: TSTB @L37644 BPL N56500 MOV #23, @L37646 MOV #7000, @#K32070 N56522: DEC @#K32070 BNE N56522 CMP #37, @#K31230 BLT N56606 CALL @#N54642 BR N56562 N56546: MOV (SP)+, @#K01214 MOV (SP)+, @#K01160 MOV (SP)+, @#K01220 N56562: TST @#K01162 BNE N56604 N56570: TSTB @L37644 BPL N56570 MOV #21, @L37646 N56604: RETURN N56606: MOV @#K01220, -(SP) MOV @#K01160, -(SP) MOV @#K01214, -(SP) CMP #177, @#K31230 BLT N56546 CALL @#N57026 MOV #20000, @#K01160 MOV #1224, @#K01220 N56652: MOV @#K01214, R3 MOVB (R3)+, @#K31230 MOV R3, @#K01214 CMPB #1, @#K31230 BNE N56712 DEC @#K31274 BEQ N56546 MOV (SP)+, @#K01214 BR N56652 N56712: CMPB #107, @#K31230 BEQ N56730 CALL @#L34740 BR N56652 N56730: MOV #31230, R0 CALL @#L34132 MOV @#K01214, -(SP) CMP #37, @#K31230 BLT N56764 CALL @#N54642 N56760: TST (SP)+ BR N56652 N56764: CMP #177, @#K31230 BLT N56760 INC @#K31274 CALL @#N57026 CMP #40, @#K31274 BGE N56652 CALL @#N57440 TST (SP)+ JMP @#N40136 N57026: MOV #6, R1 N57032: CLC ROL @#K31230 DEC R1 BNE N57032 SUB #4000, @#K31230 MOV @#K31230, @#K01214 ADD #1224, @#K01214 RETURN MOV R0, -(SP) MOV #157130, R0 MOV #12, @#K31252 N57104: TSTB @L37644 BPL N57104 MOVB (R0)+, @L37646 DEC @#K31252 BNE N57104 MOV (SP)+, R0 RETURN .ASCIZ |EM7042AM | BIC #4777, @#K31364 CALL @#N56342 CLR @#K01126 BIC #4, @#K32124 CALL @#N56322 RETURN BIC #4777, @#K31364 BIS #400, @#K31364 CALL @#N56342 MOV #1, @#K01126 BIS #4, @#K32124 CALL @#N56322 RETURN MOV R0, -(SP) MOV #1134, R0 CALL @#L34132 CALL @#N51062 MOV #1136, R0 CALL @#L34132 CALL @#N51120 MOV @#K01152, @#K31550 MOV #31550, R0 CALL @#N51062 ADD @#K31550, @#K01134 ADD @#K01064, @#K01134 ADD @#K01066, @#K01136 MOV @#K01154, @#K31550 CALL @#N51120 ADD @#K31550, @#K01136 CALL @#N44222 MOV (SP)+, R0 RETURN MOV R0, -(SP) MOV #1134, R0 CALL @#L34132 CALL @#N51062 MOV #1136, R0 CALL @#L34132 CALL @#N51120 CALL @#N44140 MOV (SP)+, R0 RETURN N57424: BIS #40, @#K32124 CALL @#N56322 RETURN N57440: CALL @#N57424 CALL @#N57516 BIC #40, @#K32124 CALL @#N56322 RETURN N57464: BIS #10, @#K32124 CALL @#N56322 CALL @#N57516 BIC #10, @#K32124 CALL @#N56322 RETURN N57516: MOV #32064, R0 CALL @#N56306 BIT #200, @#K32064 BNE N57516 RETURN .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .END START