.NLIST .INCLUDE /ASCII.MAC/ .LIST .TITLE full .IDENT /01/ .ASECT .=^O<0> K00000: .BLKW .BLKW ^O<1> K00004: .BLKW .BLKW ^O<11> K00030: .BLKW K00032: .BLKW .BLKW ^O<2> K00040: .BLKB K00041: .BLKB K00042: .WORD 0 ; ÞÔÏ ÂÙ linker RT-11 ÎÅ ÐÉÓÁÌ ÓÀÄÁ ÓÌÕÖÅÂËÕ K00044: .BLKB K00045: .BLKB K00046: .BLKB K00047: .BLKB K00050: .BYTE 0 ; ÞÔÏ ÂÙ linker RT-11 ÎÅ ÐÉÓÁÌ ÓÀÄÁ ÓÌÕÖÅÂËÕ K00051: .BYTE 0 ; ÞÔÏ ÂÙ linker RT-11 ÎÅ ÐÉÓÁÌ ÓÀÄÁ ÓÌÕÖÅÂËÕ K00052: .BLKB K00053: .BLKB K00054: .BLKW K00056: .BLKW K00060: .BLKW K00062: .BLKW .BLKW ^O<6> K00100: .BLKW K00102: .BLKW .BLKW ^O<1> K00106: .BLKW .BLKW ^O<21> K00152: .BLKB K00153: .BLKB K00154: .BLKB K00155: .BLKB K00156: .BLKW K00160: .BLKW K00162: .BLKW K00164: .BLKW K00166: .BLKW K00170: .BLKW K00172: .BLKW K00174: .BLKW K00176: .BLKW K00200: .BLKW K00202: .BLKW K00204: .BLKW K00206: .BLKB K00207: .BLKB K00210: .BLKW K00212: .BLKW K00214: .BLKW K00216: .BLKW K00220: .BLKW K00222: .BLKW K00224: .BLKW .BLKW ^O<15> K00260: .BLKW K00262: .BLKW .BLKW ^O<2> K00270: .BLKW K00272: .BLKW K00274: .BLKW K00276: .BLKW .BLKW ^O<10> K00320: .BLKB K00321: .BLKB K00322: .BLKW K00324: .BLKW .BLKW ^O<7> .BLKB K00345: .BLKB .BLKW ^O<11> .BLKB K00371: .BLKB .BLKW ^O<203> K01000: .BLKB K01001: .BLKB K01002: .BLKW .BLKW ^O<1> K01006: .BLKW K01010: .BLKW K01012: .BLKW .BLKW ^O<1> K01016: .BLKW K01020: .BLKW K01022: .BLKW .BLKW ^O<1> K01026: .BLKB K01027: .BLKB K01030: .BLKB K01031: .BLKB K01032: .BLKB K01033: .BLKB K01034: .BLKB K01035: .BLKB K01036: .BLKB K01037: .BLKB K01040: .BLKB K01041: .BLKB K01042: .BLKB K01043: .BLKB .BLKW ^O<201> K01446: .BLKW K01450: .BLKW K01452: .BLKW .BLKW ^O<1> K01456: .BLKW K01460: .BLKW K01462: .BLKW K01464: .BLKW K01466: .BLKW K01470: .BLKW K01472: .BLKB K01473: .BLKB .BLKW ^O<1> K01476: .BLKW K01500: .BLKW K01502: .BLKB K01503: .BLKB K01504: .BLKB K01505: .BLKB .BLKW ^O<75> K01700: .BLKB K01701: .BLKB .BLKB K01703: .BLKB K01704: .BLKW K01706: .BLKB K01707: .BLKB .BLKB K01711: .BLKB K01712: .BLKW K01714: .BLKB K01715: .BLKB K01716: .BLKW K01720: .BLKB K01721: .BLKB .BLKW ^O<3> K01730: .BLKW .BLKW ^O<3> K01740: .BLKW .BLKW ^O<3> K01750: .BLKW .BLKW ^O<3> K01760: .BLKW .BLKW ^O<3> K01770: .BLKW .BLKW ^O<603> K03400: .BLKW .BLKW ^O<6617> K21040: .BLKW .BLKB K21043: .BLKB .BLKW ^O<20> K21104: .BLKB K21105: .BLKB K21106: .BLKW K21110: .BLKB K21111: .BLKB .BLKW ^O<4> K21122: .BLKW K21124: .BLKW .BLKW ^O<13> .BLKB K21155: .BLKB K21156: .BLKW .BLKW ^O<1> K21162: .BLKW .BLKW ^O<14> K21214: .BLKW .BLKW ^O<1> K21220: .BLKW K21222: .BLKW K21224: .BLKW .BLKW ^O<15> K21260: .BLKW K21262: .BLKW K21264: .BLKW K21266: .BLKW .BLKW ^O<11603> K44676: .BLKW .BLKW ^O<13777> K74676: .BLKW .BLKW ^O<1440> L00000: .BLKW .BLKW ^O<44> L00112: .BLKW .BLKW ^O<12> L00140: .BLKW .BLKW ^O<140> L00442: .BLKW .BLKW ^O<130> L00724: .BLKW .BLKW ^O<6> L00742: .BLKW .BLKW ^O<22> L01010: .BLKW .BLKW ^O<52> L01136: .BLKW .BLKW ^O<14> L01170: .BLKW .BLKW ^O<74> L01362: .BLKW .BLKW ^O<160> L01724: .BLKW .BLKW ^O<27> L02004: .BLKW .BLKW ^O<113> L02234: .BLKW .BLKW ^O<2036> .BLKB L06333: .BLKB .BLKW ^O<246> L07050: .BLKW .BLKW ^O<16> L07106: .BLKW .BLKW ^O<71> L07272: .BLKW .BLKW ^O<103> L07502: .BLKW .BLKW ^O<43> L07612: .BLKW .BLKW ^O<71> L07776: .BLKW .BLKW ^O<144> L10310: .BLKW .BLKW ^O<224> .BLKB L10763: .BLKB .BLKW ^O<2445> L16076: .BLKW .BLKW ^O<571> L17462: .BLKW .BLKW ^O<4> L17474: .BLKW .BLKW ^O<34> L17566: .BLKW .BLKW ^O<46> L17704: .BLKW .BLKW ^O<6> L17722: .BLKW .BLKW ^O<26> N20000: JMP N31750 .WORD L00742 .WORD L01010 .WORD L01724 .WORD L02004 .WORD L00140 .WORD L02234 .WORD L07050 .WORD L07106 .WORD L07272 .WORD L07502 .WORD L07612 .WORD L07776 .WORD L10310 .WORD L16076 .WORD L17462 .WORD L17474 .WORD L17566 .WORD L17704 .WORD L17722 .WORD N22234 .WORD N27776 .WORD N47456 .WORD N47624 .WORD L60020 .WORD L60024 .WORD L60030 .WORD L60034 .WORD L60040 .WORD L60044 .WORD L60050 .WORD L60054 .WORD L60060 .WORD L60064 .WORD L60070 .WORD L60074 MOV R5, -(SP) MOV 2(SP), R5 MOV -(R5), R5 BIC #177400, R5 MOV N20000(R5), R5 CALL (R5) MOV (SP)+, R5 RTI N20140: CLR R1 MOV #20, R2 N20146: MOV #L00000, (R1)+ SOB R2, N20146 MOV #L00442, @#K00004 MOV #L00112, @#K00030 MOV #200, @#K00032 MOV #120, R2 N20202: CLR (R1)+ SOB R2, N20202 EMT 4 INC K21162 INCB K21155 COM K21214 COM K21220 CALL N24730 CLR R0 EMT 40 CLR @#L77714 MOV #220, @#L77716 MTPS #0 RETURN N20260: MOV #1000, SP CALL N20140 CALL @#N20000 CALL N20140 N20300: MOV #100720, R3 CALL N20460 EMT 6 EMT 16 MOV R0, R4 CALL N20472 BIC #240, R4 CMP R4, #'M BNE N20342 CALL N20536 BR N20300 N20342: CMP R4, #'L BCS N20432 BNE L20360 CALL N20656 BR N20300 L20360: .WORD 177777 ;ðÏ ÉÄÅÅ, ÚÄÅÓØ ÄÏÌÖÎÏ ÂÙÔØ ÞÔÏ-ÔÏ ÔÉÐÁ ;020427 CMP #'?, R4 .WORD 170377 ;000??? BNE N20402 TST R5 BNE N20376 MOV K21264, R5 N20376: CALL (R5) BR N20300 N20402: CMP R4, #'T BNE N20416 CALL @#L60100 BR N20300 N20416: CMP R4, #'P BNE N20300 CALL @#N40000 BR N20300 N20432: CMP R4, #'@ BCC N20260 BR N20300 MOV #1000, SP MOV #220, @#L77716 EMT 4 BR N20300 N20460: MOVB (R3)+, R2 N20462: MOVB (R3)+, R0 EMT 16 SOB R2, N20462 RETURN N20472: CLR R5 ;÷×ÏÄ(?) ×ÏÓØÍÉÒÉÞÎÏÇÏ ÞÉÓÌÁ N20474: EMT 6 EMT 16 CMPB R0, #LF BEQ N20534 CMPB R0, #'7 BHI N20472 SUB #'0, R0 BMI N20472 ASL R5 ASL R5 ASL R5 ADD R0, R5 BR N20474 N20534: RETURN N20536: MOV #320, R1 MOV #3, (R1)+ MOV R5, (R1)+ CLR (R1)+ MOV #L00724, R3 CALL N20460 MOV #5020, R2 EMT 10 DEC R1 N20572: MOVB #40, (R1)+ DEC R2 BPL N20572 N20602: MOV #320, R1 EMT 36 MOVB 1(R1), R0 BEQ N20654 DEC R0 BNE N20644 ADD #32, R1 MOV #20, R2 EMT 20 MOV #12, R0 EMT 16 BR N20602 N20644: MOV #100732, R3 CALL N20460 N20654: RETURN N20656: EMT 44 EMT 42 MOV #264, R1 MOV #4, R2 EMT 50 TST R5 BEQ N20704 MOV R5, K21264 N20704: MOV K21264, R1 MOV K21266, R2 EMT 50 RETURN .BYTE 3 .ASCII |? | .BYTE 5 .ASCII |ëíñ? | .BYTE 7 .ASCII |ïûéâëá| MOV #L01136, @#K00060 MOV #200, R0 MOV R0, @#K00062 MOV #L01362, @#K00274 MOV R0, @#K00276 CLR K21260 CLR K21262 CLR @#L77660 RETURN MTPS #0 MOV @#L77662, R0 N21020: TSTB K21122 BEQ N21044 MOVB @K21124, R0 INC K21124 DECB K21122 BR N21134 N21044: TSTB K21111 BEQ N21064 MOV #40, R0 DECB K21111 BR N21134 N21064: TSTB K21110 BEQ N21114 MOV K21106, R0 SOB R0, . BIT #100, @#L77716 BEQ N21122 CLRB K21110 N21114: TSTB K21105 BEQ N21020 N21122: CLR R0 BISB K21104, R0 CLRB K21105 N21134: RETURN JSR R4, N30340 MOV R5, -(SP) CALL N22032 CMPB R0, #20 BHI N21304 MOV R0, R1 SUB #12, R1 BMI N21264 ASL R1 ADD R1, PC BR N21210 BR N21316 BR N21316 BR N21256 BR N21224 BR N21234 BR N21254 N21210: TST @#K00262 BEQ N21316 MOV #15, R0 BR N21316 N21224: MOVB #200, K21043 BR N21240 N21234: CLRB K21043 N21240: CLR R0 CLR K21222 CALL N30572 BR N21322 N21254: CLR R3 N21256: CALL N21332 BR N21322 N21264: TST R0 BNE N21316 N21270: TSTB @#L77660 BPL N21270 CALL N22032 BR N21322 N21304: CMPB R0, #77 ;'? BLOS N21316 BISB K21043, R0 N21316: CALL N22124 N21322: MOV (SP)+, R5 JSR R4, N30362 RTI N21332: CALL N22160 TST R3 BEQ N21350 BIS R0, 112(R1) BR N21354 N21350: BIC R0, 112(R1) N21354: CALL N31130 RETURN JSR R4, N30340 MOV R5, -(SP) CALL N22032 BISB #200, R0 CMPB R0, #277 BLOS N21420 BICB #100, R0 BISB #40, R0 BR N21622 N21420: CMPB R0, #257 BLOS N21474 CMPB R0, #271 BHI N21474 TSTB K21122 BNE N21626 BIC #177760, R0 ASL R0 MOV 126(R0), K21124 BEQ N21626 MOVB @K21124, K21122 INC K21124 BR N21626 N21474: CMPB R0, #237 BLOS N21540 BICB #40, R0 BISB #20, R0 CMPB R0, #232 BCS N21622 CMPB R0, #234 BEQ N21622 CMPB R0, #237 BEQ N21622 N21534: EMT 16 BR N21626 N21540: CMPB R0, #211 BCS N21556 BNE N21610 CALL N21636 BR N21626 N21556: CMPB R0, #204 BHI N21602 CMPB R0, #201 BHI N21534 BNE N21602 INCB K21110 BR N21626 N21602: BIS #20, R0 BR N21622 N21610: CMPB R0, #213 BNE N21622 MOV #231, R0 N21622: CALL N22124 N21626: MOV (SP)+, R5 JSR R4, N30362 RTI N21636: CALL N22160 MOVB #1, K21111 ASL R0 BCS N21672 N21654: BIT R0, 112(R1) BNE N21722 INCB K21111 ASL R0 BCC N21654 N21672: ADC R0 ADD #2, R1 CMP R1, #4 BCS N21654 TSTB K21040 BNE N21722 CMP R1, #10 BNE N21654 N21722: RETURN MOV R0, -(SP) MOV R2, R5 SWAB R5 BIC #177400, R2 MOV R2, -(SP) N21740: EMT 6 CMPB R0, #30 BNE N21764 CMP R2, (SP) BEQ N21740 DEC R1 ADD #2, R2 BR N21766 N21764: MOVB R0, (R1)+ N21766: EMT 16 CMPB R0, R5 BEQ N21776 SOB R2, N21740 N21776: MOV (SP)+, R0 MOV (SP)+, R0 RETURN TST R0 BLE N22030 CMP R0, #12 BHI N22030 BNE N22022 CLR R0 N22022: ASL R0 MOV R1, 126(R0) N22030: RETURN N22032: TST K21224 BEQ N22044 CALL N30536 N22044: MOV #177777, K21222 N22052: MOV #50, R2 MOV #100, R3 N22062: MOV #320, @#L77716 MOV R3, R0 SOB R0, . MOV #220, @#L77716 MOV R3, R0 SOB R0, . DEC R3 SOB R2, N22062 MOV @#L77716, R0 MOVB @#L77662, R0 RETURN N22124: MOV @#K00260, R5 BNE N22140 TSTB K21105 BNE N22156 N22140: MOVB R0, K21104 MOVB R0, K21105 TST R5 BEQ N22156 CALL (R5) N22156: RETURN N22160: MOV K21156, R1 BIC #177700, R1 TSTB K21040 BEQ N22200 ASR R1 N22200: MOV R1, R2 BIC #177760, R2 INC R2 CLR R0 SEC N22214: ROL R0 SOB R2, N22214 BIC #177717, R1 ASR R1 ASR R1 ASR R1 RETURN N22234: JSR R4, N30346 INC @#K00222 TSTB @#K00050 BEQ N22260 CALL N25670 BR N22362 N22260: BIC #177400, R0 CMPB R0, #177 BHI N22312 CMPB R0, #37 BLOS N22326 SUB #20, R0 N22304: CALL N22370 BR N22362 N22312: CMPB R0, #237 BLOS N22356 SUB #60, R0 BR N22304 N22326: CMPB R0, #21 BLOS N22342 N22334: CALL N23310 BR N22362 N22342: CMPB R0, #10 BEQ N22334 CALL N24130 BR N22362 N22356: CALL N24320 N22362: JSR R4, N30362 RETURN N22370: CALL N22746 ADD @#K00162, @#K00156 CALL N22414 CALL N23222 RETURN N22414: TSTB @#K00152 BNE N22432 BIT #77, @#K00156 BNE N22556 N22432: CLR R3 MOV @#K00156, R5 N22440: BPL N22454 INC R3 N22444: ADD #200, R5 BMI N22444 BR N22474 N22454: CMP R5, @#K00164 BCS N22500 N22462: SUB #200, R5 CMP R5, @#K00164 BCC N22462 N22474: CALL N22566 N22500: MOV R5, @#K00156 MOV R5, R4 BIC #177700, R4 BIC #77, R5 ASL R5 ADD R5, R4 ASL R5 ASL R5 ADD R5, R4 ADD @#K00204, R4 BIC #140000, R4 ADD @#K00202, R4 MOV R4, @#K00160 CLRB @#K00152 BR N22564 N22556: ADD @#K00162, @#K00160 N22564: RETURN N22566: TSTB @#K00042 BNE N22712 MOV #24, R4 TST R3 BEQ N22606 NEGB R4 N22606: NOP NOP MOV @#K00204, R1 MOV #20, R2 TST R3 BEQ N22664 SUB #2000, R1 BIC #140000, R1 ADD @#K00202, R1 CALL N31516 SUB #1200, @#K00204 BIC #140000, @#K00204 BR N22744 N22664: ADD @#K00202, R1 CALL N31616 ADD #1200, @#K00204 BIC #140000, @#K00204 BR N22744 N22712: MOV #36, R2 TST R3 BEQ N22734 MOV #75600, R1 CALL N31616 BR N22744 N22734: MOV #73200, R1 CALL N31516 N22744: RETURN N22746: ASL R0 MOV R0, R1 ASL R0 ASL R0 ADD R0, R1 ADD #112036, R1 MOV @#K00160, R3 MOV #11, R2 TSTB @#K00040 BNE N23066 CLR R0 TSTB @#K00045 BEQ N23014 COM R0 N23014: TST @#K00212 BEQ N23024 COM R0 N23024: MOVB (R1)+, (R3) TST R0 BEQ N23034 COMB (R3) N23034: CALL N31434 SOB R2, N23024 MOVB (R1)+, (R3) TST R0 BEQ N23052 COMB (R3) N23052: TSTB @#K00044 BEQ N23220 MOVB @#K00214, (R3) BR N23220 N23066: CLR -(SP) N23070: MOVB (R1)+, R5 BIC #177400, R5 MOV #20, R4 CLR R0 TSTB @#K00045 BEQ N23114 COMB R5 N23114: TSTB R5 BEQ N23144 N23120: ASR R5 BCC N23132 BEQ N23140 BIS 112004(R4), R0 N23132: SUB #2, R4 BNE N23120 N23140: BIS 112004(R4), R0 N23144: MOV @#K00212, R5 BIC R0, R5 MOV @#K00214, R4 COM R0 BIC R0, R4 BIS R5, R4 MOV R4, (R3) CALL N31434 SOB R2, N23070 TST (SP) BNE N23216 INC (SP) INC R2 TSTB @#K00044 BEQ N23070 MOV @#K00214, (R3) N23216: MOV (SP)+, R0 N23220: RETURN N23222: TSTB @#K00056 BNE N23306 MOV @#K00160, R3 MOV #12, R2 TSTB @#K00040 BNE N23264 MOV #377, R5 ASR R3 BCC N23260 SWAB R5 N23260: ASL R3 BR N23276 N23264: MOV @#K00214, R5 MOV @#K00212, R4 XOR R4, R5 N23276: XOR R5, (R3) CALL N31434 SOB R2, N23276 N23306: RETURN N23310: TSTB @#K00047 BEQ N23324 CALL N24244 BR N23542 N23324: MOV @#K00156, R1 MOV @#K00162, R2 MOV #100, R3 CMPB R0, #10 BNE N23352 SUB R2, R1 BR N23532 N23352: SUB #22, R0 ASL R0 ADD R0, PC BR N23416 BR N23422 BR N23430 BR N23436 BR N23446 BR N23454 BR N23462 BR N23470 BR N23474 BR N23500 BR N23504 BR N23512 BR N23520 BR N23526 N23416: CLR R1 BR N23532 N23422: CALL N23760 BR N23542 N23430: CALL N24020 BR N23542 N23436: ADD R3, R1 BIC #77, R1 BR N23532 N23446: CALL N23600 BR N23542 N23454: CALL N23700 BR N23542 N23462: CALL N23544 BR N23542 N23470: ADD R2, R1 BR N23532 N23474: SUB R3, R1 BR N23532 N23500: ADD R3, R1 BR N23532 N23504: SUB R3, R1 SUB R2, R1 BR N23532 N23512: SUB R3, R1 ADD R2, R1 BR N23532 N23520: ADD R3, R1 ADD R2, R1 BR N23532 N23526: ADD R3, R1 SUB R2, R1 N23532: MOV R1, K21156 CALL N31352 N23542: RETURN N23544: CALL N23222 SUB @#K00162, @#K00156 INCB @#K00152 CALL N22414 CALL N31374 CALL N23222 RETURN N23600: MOV @#K00160, R3 MOV R3, R4 BIS #76, R4 BIS @#K00162, R4 MOV #12, R2 N23622: MOV R3, R1 MOV R1, R5 ADD @#K00162, R5 N23632: BIT #77, R5 BEQ N23644 MOVB (R5)+, (R1)+ BR N23632 N23644: CALL N31434 SOB R2, N23622 MOV @#K00160, -(SP) MOV R4, @#K00160 CALL N31374 MOV (SP)+, @#K00160 CALL N23222 RETURN N23700: CALL N23222 MOV PC, R3 XOR R2, @-(R0) MOV #12, R2 N23714: MOV R3, R5 BIS #77, R5 INC R5 MOV R5, R1 SUB @#K00162, R1 N23732: MOVB -(R1), -(R5) CMP R5, R3 BNE N23732 CALL N31434 SOB R2, N23714 CALL N31374 CALL N23222 RETURN N23760: MOV @#K00160, R1 BIC #77, R1 ADD #1200, R1 BPL N24002 SUB @#K00206, R1 N24002: CALL N24066 CALL N31516 CALL N23222 RETURN N24020: CALL N23222 MOV @#K00204, R1 ADD @#K00210, R1 SUB #1200, R1 BIC #140000, R1 ADD @#K00202, R1 CALL N24066 CALL N31616 CALL N23222 RETURN N24066: MOV @#K00164, R3 MOV @#K00156, R2 BIS #77, R2 INC R2 SUB R2, R3 MOV #5, R2 N24112: ASR R3 SOB R2, N24112 MOV R3, R2 ASL R3 ASL R3 ADD R3, R2 RETURN N24130: CMPB R0, #12 BNE N24200 CALL N24236 BIT #77, @#K00156 BNE N24160 TSTB @#K00046 BNE N24316 N24160: BIS #77, @#K00156 INC @#K00156 CALL N31352 BR N24316 N24200: TSTB @#K00047 BNE N24236 CMPB R0, #14 BNE N24222 CALL N30376 BR N24316 N24222: CMPB R0, #7 BNE N24236 CALL N22052 BR N24316 N24236: TSTB @#K00046 BEQ N24316 N24244: SUB #20, R0 BMI N24260 N24252: CALL N22370 BR N24316 N24260: CMPB R0, #177770 BNE N24274 MOV #1, R0 BR N24252 N24274: ADD #100, R0 COMB @#K00045 CALL N22370 COMB @#K00045 BR N24316 N24316: RETURN N24320: CMPB R0, #202 BNE N24340 COMB @#K00046 MOV #3, R0 BR N24356 N24340: CMPB R0, #204 BNE N24360 COMB @#K00047 MOV #4, R0 N24356: BR N24706 N24360: CMPB R0, #214 BNE N24374 CALL N24722 BR N24720 N24374: MOVB @#K00050, R5 BNE N24410 TSTB @#K00047 BNE N24714 N24410: SUB #221, R0 BMI N24720 ASL R0 ADD R0, PC BR N24460 BR N24460 BR N24460 BR N24460 BR N24514 BR N24526 BR N24544 BR N24720 BR N24562 BR N24574 BR N24612 BR N24620 BR N24632 BR N24640 BR N24676 N24460: TSTB @#K00040 BEQ N24720 MOV 112026(R0), R0 CLRB @#K00041 CALL N31314 MOV R0, @#K00214 CALL N31314 BR N24720 N24514: CALL N25074 N24520: MOV #5, R0 BR N24706 N24526: TST R5 BEQ N24720 CLRB @#K00052 COMB @#K00051 BR N24520 N24544: TST R5 BEQ N24720 CLRB @#K00051 COMB @#K00052 BR N24520 N24562: TST R5 BNE N24720 CALL N25232 BR N24720 N24574: CALL N31314 COMB @#K00056 CALL N31314 BR N24720 N24612: CALL N25272 BR N24720 N24620: COMB @#K00045 MOV #2, R0 BR N24706 N24632: CALL N25500 BR N24720 N24640: MOV @#K00212, @#K00216 MOV @#K00214, @#K00220 MOV @#K00044, @#K00054 MOVB @#K00040, @#K00053 CALL N30470 BR N24720 N24676: COMB @#K00044 MOV #1, R0 N24706: CALL N30572 BR N24720 N24714: CALL N25564 N24720: RETURN N24722: COMB @#K00042 BNE N24770 N24730: MOV #40000, @#K00202 MOV #40000, @#K00206 MOV #36000, @#K00210 MOV #3000, @#K00164 MOV #1330, @#L77664 BR N25054 N24770: MOV #70000, @#K00202 MOV #10000, @#K00206 MOV #5000, @#K00210 MOV #400, @#K00164 MOV #230, @#L77664 MOV #77000, R3 MOV #340, R4 N25036: MOV @#K00216, (R3)+ SOB R4, N25036 MOV @#K00220, R1 CALL N31474 N25054: MOV #2000, @#K00204 CALL N30376 CALL N30470 RETURN N25074: CALL N31314 COMB @#K00050 BEQ N25160 MOVB @#K00155, @#K00154 CLR @#K00172 CLR @#K00174 MOV @#K00160, R0 MOV R0, @#K00170 SUB @#K00202, R0 SUB @#K00204, R0 BPL N25152 ADD @#K00206, R0 N25152: MOV R0, @#K00166 BR N25214 N25160: CLRB @#K00051 CLRB @#K00052 TSTB @#K00040 BEQ N25204 BIC #1, @#K00156 N25204: INCB @#K00152 CALL N22414 N25214: MOV #5, R0 CALL N30572 CALL N31314 RETURN N25232: MOV @#K00160, -(SP) N25236: BISB (R5)+, -(R0) JSR R1, @(R2)+ ADD @#K00162, @#K00160 BIT #77, @#K00160 BNE N25236 MOV #72674, PC CALL N23222 RETURN N25272: CALL N31314 COMB @#K00040 BNE N25356 DEC @#K00162 MOVB #1, @#K00155 BICB #252, @#K00154 CLR @#K00212 MOV #177777, @#K00214 TSTB @#K00041 BEQ N25466 COM @#K00212 COM @#K00214 BR N25466 N25356: INC @#K00162 INC @#K00156 BIC #1, @#K00156 INC @#K00152 CALL N22414 MOVB #3, @#K00155 BITB #252, @#K00154 BEQ N25454 ASLB @#K00154 BCC N25454 ADCB @#K00154 INC @#K00166 CMP @#K00166, @#K00210 BCS N25454 CLR @#K00166 N25454: MOVB @#K00154, R0 ASLB R0 BISB R0, @#K00154 N25466: CALL N31130 CALL N31314 RETURN N25500: COMB @#K00041 MOV @#K00214, R0 MOV @#K00212, @#K00214 MOV R0, @#K00212 MOV @#K00214, R5 XOR R5, R0 MOV @#K00204, R1 ADD @#K00202, R1 MOV @#K00210, R2 ASR R2 N25546: XOR R0, (R1)+ TST R1 BPL N25560 SUB @#K00206, R1 N25560: SOB R2, N25546 RETURN N25564: CMPB R0, #225 BNE N25600 MOV #267, R0 BR N25634 N25600: CMPB R0, #226 BNE N25614 MOV #312, R0 BR N25634 N25614: CMPB R0, #227 BNE N25630 MOV #303, R0 BR N25634 N25630: ADD #20, R0 N25634: COMB @#K00045 CALL N22746 COMB @#K00045 ADD @#K00162, @#K00156 CALL N22414 CALL N23222 RETURN N25670: CMPB R0, #37 BHI N25704 CALL N25744 BR N25736 N25704: BIC #177400, R0 CMPB R0, #71 BHI N25724 CALL N27012 BR L25742 N25724: CMPB R0, #237 BHI N25736 CALL N24320 N25736: CLR @#K00172 L25742: .WORD K00207 L25743 =: .-1 N25744: CALL N26564 CLR R1 CLR R2 MOV #100, R4 MOVB R0, R3 SUB #31, R3 BMI N26056 ASL R3 ADD R3, PC BR N26012 BR N26016 BR N26022 BR N26026 BR N26034 BR N26042 BR N26050 N26012: INC R1 BR N26122 N26016: SUB R4, R2 BR N26122 N26022: ADD R4, R2 BR N26122 N26026: SUB R4, R2 DEC R1 BR N26122 N26034: SUB R4, R2 INC R1 BR N26122 N26042: ADD R4, R2 INC R1 BR N26122 N26050: ADD R4, R2 DEC R1 BR N26122 N26056: CMPB R0, #10 BNE N26070 DEC R1 BR N26122 N26070: CMPB R0, #22 BNE N26106 CLR @#K00156 JMP N30442 N26106: CMPB R0, #14 BNE N26226 CALL N30376 RETURN N26122: MOV @#K00172, R4 BNE N26140 CLRB R0 SWAB R0 INC R0 MOV R0, R4 N26140: TSTB @#K00051 BEQ N26154 MOV @#K00214, R0 BR N26166 N26154: TSTB @#K00052 BEQ N26220 MOV @#K00212, R0 N26166: MOVB @#K00154, R5 BICB R5, @L01170 MOV R0, R3 COM R5 BIC R5, R3 BISB R3, @L01170 CALL N26234 SOB R4, N26166 BR N26226 N26220: CALL N26234 SOB R4, N26220 N26226: CALL N26564 RETURN N26234: MOV @#K00166, R5 ADD R2, R5 ADD R2, @#K00174 MOV @#K00154, -(SP) MOV #100, R3 TST R1 BEQ N26404 BMI N26330 ASLB (SP) BCC N26314 ADCB (SP) INC R5 INC @#K00156 BIT #77, R5 BNE N26314 SUB R3, R5 SUB R3, @#K00156 N26314: TSTB @#K00040 BEQ N26404 ASLB (SP) ADCB (SP) BR N26404 N26330: CLC RORB (SP) BCC N26364 BISB #200, (SP) BIT #77, R5 BNE N26356 ADD R3, R5 ADD R3, @#K00156 N26356: DEC @#K00156 DEC R5 N26364: TSTB @#K00040 BEQ N26404 CLC RORB (SP) BCC N26404 BISB #200, (SP) N26404: MOV (SP)+, @#K00154 MOV #1200, -(SP) TST @#K00174 BPL N26430 NEG R3 NEG (SP) BR N26436 N26430: CMP @#K00174, (SP) BCS N26506 N26436: SUB (SP), @#K00174 ADD R3, @#K00156 BMI N26460 CMP @#K00156, @#K00164 BCS N26506 N26460: SUB (SP), R5 MOV R5, -(SP) JSR R4, N30346 INC @#K00152 CALL N22414 JSR R4, N30362 MOV (SP)+, R5 N26506: MOV (SP)+, R3 TST R5 BPL N26522 ADD @#K00210, R5 BR N26536 N26522: CMP R5, @#K00210 BCS N26536 SUB @#K00210, R5 BR N26522 N26536: MOV R5, @#K00166 ADD @#K00204, R5 BIC #140000, R5 ADD @#K00202, R5 MOV R5, @#K00170 RETURN N26564: TSTB @#K00056 BNE N26770 MOV @#K00214, R4 MOV @#K00212, R5 XOR R5, R4 CLR R5 BISB @#K00154, R5 COM R5 BIC R5, R4 MOV @#K00170, R3 ASR R3 BCC N26630 SWAB R4 N26630: ASL R3 MOV R3, R1 SUB #400, R3 CMP R3, @#K00202 BHI N26652 ADD @#K00206, R3 N26652: MOV #5, R2 N26656: XOR R4, (R3) CALL N31434 SOB R2, N26656 MOV #3, R2 CLC MOVB @#K00040, R5 BEQ N26704 ASL R2 N26704: ROR R4 BCC N26714 DEC R1 ROR R4 N26714: SOB R2, N26704 BIC #1, R1 CMP R1, @#K00202 BHI N26734 ADD @#K00206, R1 N26734: MOV #7, R2 N26740: XOR R4, (R1) ROL R4 BCC N26752 CALL N26772 N26752: MOV R5, R5 BEQ N26766 ROL R4 BCC N26766 CALL N26772 N26766: SOB R2, N26740 N26770: RETURN N26772: ADD #2, R1 BPL N27004 SUB @#K00206, R1 N27004: SEC ROL R4 RETURN N27012: SUB #60, R0 BPL N27024 CLR R0 BR N27042 N27024: MOV @#K00172, R1 ASL R1 ADD R1, R0 ASL R1 ASL R1 ADD R1, R0 N27042: MOV R0, @#K00172 RETURN MOV R0, -(SP) MOV R3, -(SP) MOV R2, R3 SWAB R3 BIC #177400, R2 N27064: MOVB (R1)+, R0 CALL N22234 CMPB R0, R3 BEQ N27100 SOB R2, N27064 N27100: MOV (SP)+, R3 MOV (SP)+, R0 RETURN JSR R4, N30346 TST R0 BNE N27124 CALL N30470 BR N27172 N27124: CMPB R0, #177 BHI N27154 CMPB R0, #10 BNE N27144 MOV #21, R0 N27144: SUB #20, R0 BMI N27172 BR N27166 N27154: CMPB R0, #237 BLOS N27172 SUB #60, R0 N27166: CALL N27200 N27172: JSR R4, N30362 RETURN N27200: MOV R1, -(SP) MOV R2, -(SP) TSTB @#K00040 BEQ N27214 ASL R1 N27214: BIC #177700, R1 ADD @#K00204, R1 SUB #1700, R1 BIC #140000, R1 ADD @#K00202, R1 MOV @#K00160, -(SP) MOV R1, @#K00160 BIC #177400, R0 CALL N22746 MOV (SP)+, @#K00160 MOV (SP)+, R2 MOV (SP)+, R1 RETURN JSR R4, N30346 CALL N31314 MOV 2(SP), R1 MOV 4(SP), R2 TSTB @#K00040 BEQ N27322 ASL R1 N27322: MOV #6, R0 N27326: ASL R2 SOB R0, N27326 TSTB @#K00050 BNE N27400 BIC #177700, R1 N27344: SUB @#K00164, R2 BPL N27344 N27352: ADD @#K00164, R2 BMI N27352 ADD R1, R2 MOV R2, @#K00156 INC @#K00152 CALL N22414 BR N27470 N27400: BIC #177000, R1 MOV R1, R3 ASR R1 ASR R1 ASR R1 MOVB @#K00155, R0 BIC #177770, R3 BEQ N27432 N27426: ASL R0 SOB R3, N27426 N27432: MOVB R0, @#K00154 N27436: SUB @#K00210, R2 BPL N27436 N27444: ADD @#K00210, R2 BMI N27444 ADD R1, R2 MOV R2, @#K00166 CLR R1 CLR R2 CALL N26234 N27470: CALL N31314 JSR R4, N30362 RETURN MOV R0, -(SP) TSTB @#K00050 BNE N27526 MOV @#K00156, R1 MOV R1, R2 BIC #177700, R1 BR N27562 N27526: MOV @#K00166, R1 MOV R1, R2 BIC #177700, R1 ASL R1 ASL R1 ASL R1 MOVB @#K00154, R0 N27552: ASR R0 BCS N27562 INC R1 BR N27552 N27562: TSTB @#K00040 BEQ N27572 ASR R1 N27572: BIC #77, R2 MOV #6, R0 N27602: ASR R2 SOB R0, N27602 MOV (SP)+, R0 RETURN MOV R1, @#K00176 MOV R2, @#K00200 MOV R0, @#K00153 N27626: JSR R4, N30346 TSTB @#K00040 BEQ N27644 ASL R1 BCS N27770 N27644: CMP R1, #1000 BCC N27770 MOV #6, R0 N27656: ASL R2 BCS N27770 SOB R0, N27656 CMP R2, @#K00210 BCC N27770 MOV R1, R3 ASR R1 ASR R1 ASR R1 ADD R2, R1 ADD @#K00204, R1 BIC #140000, R1 ADD @#K00202, R1 MOVB @#K00155, R2 BIC #177770, R3 BEQ N27736 N27732: ASL R2 SOB R3, N27732 N27736: JMP N43254 N27742: MOV @#K00214, R3 TSTB @#K00153 BNE N27760 MOV @#K00212, R3 N27760: COM R2 BIC R2, R3 BISB R3, R0 MOVB R0, (R1) N27770: JSR R4, N30362 RETURN N27776: JSR R4, N30346 MOVB R0, @#K00153 MOV R1, R3 MOV R2, R4 MOV @#K00176, R1 MOV @#K00200, R2 MOV R3, @#K00176 MOV R4, @#K00200 CLR R0 SUB R1, R3 BMI N30046 BEQ N30052 INC R0 BR N30052 N30046: DEC R0 NEG R3 N30052: CLR R5 SUB R2, R4 BMI N30066 BEQ N30072 INC R5 BR N30072 N30066: DEC R5 NEG R4 N30072: CMP R4, R3 BHI N30114 MOV R5, -(SP) CLR -(SP) MOV R3, R5 MOV R4, R3 MOV R5, R4 CLR R5 BR N30122 N30114: CLR -(SP) MOV R0, -(SP) CLR R0 N30122: CLR -(SP) TST R3 BNE N30140 INC R3 SUB #12, SP BR N30250 N30140: SUB R3, R4 BMI N30150 INC (SP) BR N30140 N30150: ADD R3, R4 MOV R3, -(SP) MOV R3, -(SP) ASR (SP) MOV R4, -(SP) CLR -(SP) CLR -(SP) CLR R4 N30170: ADD 4(SP), 2(SP) BEQ N30220 CMP 2(SP), 6(SP) BLE N30220 INC R4 SUB 10(SP), 2(SP) N30220: ADD 12(SP), R4 MOV R4, (SP) ASR R4 SUB R4, (SP) CALL N30270 ADD 14(SP), R1 ADD 16(SP), R2 MOV (SP), R4 N30250: CALL N30270 SOB R3, N30170 ADD #20, SP JSR R4, N30362 RETURN N30270: TST R4 BEQ N30306 N30274: ADD R0, R1 ADD R5, R2 CALL N27626 SOB R4, N30274 N30306: RETURN MOV R1, -(SP) CLR R0 MOV #40, R1 N30320: SEC N30322: ROR R0 BCS N30334 TSTB (R1)+ BNE N30320 BR N30322 N30334: MOV (SP)+, R1 RETURN N30340: MOV #220, @#L77716 N30346: MOV R3, -(SP) MOV R2, -(SP) MOV R1, -(SP) MOV R0, -(SP) MOV R4, -(SP) RTS R4 N30362: MOV (SP)+, R0 MOV (SP)+, R0 MOV (SP)+, R1 MOV (SP)+, R2 MOV (SP)+, R3 RTS R4 N30376: CLR @#K00156 CALL N22414 MOV @#K00212, R0 MOV @#K00160, R3 MOV @#K00210, R2 ASR R2 N30424: MOV R0, (R3) ADD #2, R3 BPL N30440 SUB @#K00206, R3 N30440: SOB R2, N30424 N30442: CLR R5 CALL N26536 CLR @#K00174 MOVB @#K00155, @#K00154 CALL N31314 RETURN N30470: MOV @#K00216, R1 MOV @#K00204, R3 ADD @#K00202, R3 MOV #20, R4 N30510: CALL N31450 SOB R4, N30510 MOV @#K00220, R2 ADD #1400, R3 CALL N31474 CALL N31130 N30536: CLR R0 CLR @#K00222 MOV #6, R2 N30550: MOV R0, -(SP) MOV R2, -(SP) CALL N30572 MOV (SP)+, R2 MOV (SP)+, R0 INC R0 SOB R2, N30550 RETURN N30572: INC @#K00224 TST @#K00222 BNE N31126 CLR @#K00224 MOV #43, R1 ADD R0, R1 ASL R0 ADD R0, PC BR N30636 BR N30654 BR N30666 BR N30700 BR N30712 BR N30724 N30636: MOV #111734, R3 TSTB (R1) BEQ N30770 MOV #111740, R3 BR N30770 N30654: TSTB (R1) BEQ N30764 MOV #111744, R3 BR N30770 N30666: TSTB (R1) BEQ N30764 MOV #111750, R3 BR N30770 N30700: TSTB (R1) BEQ N30764 MOV #111754, R3 BR N30770 N30712: TSTB (R1) BEQ N30764 MOV #111760, R3 BR N30770 N30724: TSTB (R1) BEQ N30764 TSTB @#K00051 BEQ N30744 MOV #111770, R3 BR N30770 N30744: MOV #111764, R3 TSTB @#K00052 BEQ N30770 MOV #111774, R3 BR N30770 N30764: MOV #112000, R3 N30770: ASL R0 ADD #4, R0 MOV #100, R1 TSTB @#K00053 BEQ N31012 ASR R1 N31012: SUB R0, R1 MOV #4, R2 MOV @#K00212, -(SP) MOV @#K00214, -(SP) MOV @#K00040, -(SP) MOV @#K00044, -(SP) MOV @#K00216, @#K00212 MOV @#K00220, @#K00214 MOVB @#K00053, @#K00040 MOV @#K00054, @#K00044 N31070: MOVB (R3)+, R0 MOV R3, -(SP) CALL N27200 MOV (SP)+, R3 INC R1 SOB R2, N31070 MOV (SP)+, @#K00044 MOV (SP)+, @#K00040 MOV (SP)+, @#K00214 MOV (SP)+, @#K00212 N31126: RETURN N31130: MOV #100601, R5 MOV #20, R4 TSTB @#K00040 BEQ N31154 MOV #140003, R5 ASL R4 N31154: MOV @#K00216, R1 BIC R5, R1 COM R5 MOV @#K00220, R3 BIC R5, R3 BIS R3, R1 MOV @#K00204, R3 SUB #300, R3 BIC #140000, R3 ADD @#K00202, R3 MOV R3, R5 CALL N31474 CLR R3 N31224: CLR R2 MOV 112(R3), R0 N31232: ROR R0 BCS N31244 BEQ N31276 N31240: INC R2 BR N31232 N31244: MOV R2, R1 TSTB @#K00040 BNE N31264 ADD R5, R1 MOV @#K00220, (R1) BR N31240 N31264: ASL R1 ADD R5, R1 MOV @#K00220, (R4) BR N31240 N31276: ADD #2, R3 ADD R4, R5 BIT #77, R5 BNE N31224 RETURN N31314: TSTB @#K00050 BNE N31336 CALL N23222 MOV #20000, @#K00106 BR N31350 N31336: CALL N26564 MOV #2000, @#K00106 N31350: RETURN N31352: CALL N23222 INCB @#K00152 CALL N22414 CALL N23222 RETURN N31374: MOV @#K00212, R0 MOV @#K00160, R3 MOV #12, R2 N31410: TSTB @#K00040 BNE N31422 MOVB R0, (R3) BR N31424 N31422: MOV R0, (R3) N31424: CALL N31434 SOB R2, N31410 RETURN N31434: ADD #200, R3 BPL N31446 SUB @#K00206, R3 N31446: RETURN N31450: MOV #40, R2 CMP R3, @#K00202 BHI N31466 ADD @#K00206, R3 N31466: MOV R1, -(R3) SOB R2, N31466 RETURN N31474: MOV #40, R2 TST R3 BPL N31510 SUB @#K00206, R3 N31510: MOV R1, (R3)+ SOB R2, N31510 RETURN N31516: MOV R1, R3 SUB #1200, R3 CMP R3, @#K00202 BCC N31536 ADD @#K00206, R3 N31536: TST R2 BEQ N31576 N31542: MOV #40, R4 N31546: MOV (R1)+, (R3)+ SOB R4, N31546 TST R1 BPL N31564 SUB @#K00206, R1 BR N31574 N31564: TST R3 BPL N31574 SUB @#K00206, R3 N31574: SOB R2, N31542 N31576: MOV #12, R4 MOV @#K00212, R1 N31606: CALL N31474 SOB R4, N31606 RETURN N31616: MOV R1, R3 ADD #1200, R3 CMP R1, @#K00202 BHI N31636 ADD @#K00206, R1 N31636: CMP R3, #100000 BLOS N31650 SUB @#K00206, R3 N31650: TST R2 BEQ N31714 N31654: MOV #40, R4 N31660: MOV -(R1), -(R3) SOB R4, N31660 CMP R1, @#K00202 BHI N31700 ADD @#K00206, R1 BR N31712 N31700: CMP R3, @#K00202 BHI N31712 ADD @#K00206, R3 N31712: SOB R2, N31654 N31714: MOV #12, R4 MOV @#K00212, R1 N31724: CALL N31450 SOB R4, N31724 RETURN .WORD 136020 .WORD 142261 .WORD 141020 .WORD 141705 .WORD 137700 .WORD 150264 N31750: MOV #100000, @#K00004 MOV #100, R2 MOV #100, R3 CALL N32054 MOV #120, R2 MOV #60, R3 CALL N32054 MOV #140, R2 MOV #50, R3 CALL N32054 MOV #120, R2 MOV #60, R3 CALL N32054 MOV #130, R2 MOV #54, R3 CALL N32054 BR N32106 N32054: MOV R2, R1 N32056: MOV R3, R0 N32060: MOV #100, @#L77716 SOB R0, N32060 MOV R3, R0 N32072: MOV #0, @#L77716 SOB R0, N32072 SOB R1, N32056 RETURN N32106: CMPB @#K01026, #123 BEQ N32132 MOV #2000, R0 N32122: CLR (R0)+ CMP R0, #40000 BLT N32122 N32132: MOV #232, R0 EMT 16 MOV #1026, R1 MOV #132162, R0 N32150: MOV (R0)+, (R1)+ CMP R1, #1042 BLE N32150 BR N32200 .WORD 123 .WORD 10000 .WORD 0 .WORD 377 .WORD 17 .WORD 0 .WORD 0 N32200: MOV #1446, R1 MOV #L32222, R0 N32210: MOV (R0)+, (R1)+ CMP R1, #1476 BLE N32210 BR N32254 L32222: .WORD 0 .WORD 60 .WORD 100 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 1730 .WORD 0 .WORD 44515 .WORD 20116 N32254: CALL N36070 MOV #132302, R0 MOV #1700, R1 N32270: MOV (R0)+, (R1)+ CMP R1, #2000 BLT N32270 BR N32402 .ASCIZ |09:00 01.04.88 | .BYTE 200 .WORD 0 .WORD 40044 .WORD 36050 .WORD 100000 .WORD 0 .WORD 52044 .WORD 50050 .WORD 100000 .WORD 0 .WORD 64044 .WORD 62050 .WORD 100000 .WORD 0 .WORD 76044 .WORD 74050 .WORD 100000 .WORD 0 .WORD 110044 .WORD 106050 N32402: MOV #200, @#K01500 MOV #100, @#L77660 CLR @#K00062 CLR @#K00276 CLRB @#K01030 MOV #120112, @#K00030 MOV #1000, R0 N32444: CLR (R0)+ CMP R0, #1020 BNE N32444 CLR @#K00272 BIS #100200, @#K00272 MOV #0, @#K00032 MOV #200, @#K00102 MOV #132560, @#K00100 MOVB #377, @#K00053 MOV #233, R0 EMT 16 CLR @#K00050 CLR @#K00052 MOV #123, @#K01026 CALL N40522 MOV @#K00272, @#L77714 JMP N40302 N32560: CALL N40112 TST @#K01006 BEQ N32622 SUB #40000, @#K00272 MOV #2000, @#K00270 MOV #132624, @#K00100 MOV @#K00272, @#L77714 N32622: RTT MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) MOV #20, R1 MOV @#K00270, R5 MOV R5, R2 ADD #200, R2 MOV #177716, R4 MOV #177714, R3 N32664: BITB R1, (R4) BEQ N32664 N32670: BITB R1, (R4) BNE N32670 MOV (R3), (R5)+ CMP R2, R5 BNE N32664 MOV #200, R1 SUB R1, R5 MOV R5, R1 ADD #40100, R1 N32716: CLR R4 N32720: MOVB (R5)+, R3 BIC #177400, R3 ADD #1044, R3 MOVB (R3), R3 BIS R3, R4 SWAB R4 BITB #1, R5 BNE N32720 MOV R4, R3 ASR R3 ASR R3 ASR R3 ASR R3 BIS R4, R3 MOVB R3, (R1)+ CMP R2, R5 BNE N32716 DEC R1 DEC R1 BIC #170000, (R1) MOV R5, @#K00270 CMP #37576, R5 BGE N33102 MOV @#K00272, R4 BIC #140000, R4 BIS #100000, R4 BIS #177777, @#K01466 MOV R4, @#K00272 MOV R4, @#L77714 MOV #400, R4 BIC R4, @#K01730 BIC R4, @#K01740 BIC R4, @#K01750 BIC R4, @#K01760 BIC R4, @#K01770 MOV #133116, @#K00100 N33102: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 RTT MOV #N32560, @#K00100 RTT MOV @#K00156, R5 CMP #102, R5 BGE N33144 ADD #100, R5 N33144: CMP #2676, R5 BGT N33156 MOV #100, R5 N33156: CMP @#K01020, R5 BGE N33170 MOV #100, R5 N33170: BIC #177700, @#K01022 ADD @#K01022, R5 JMP N22440 N33206: EMT 26 MOV R5, -(SP) MOV R4, -(SP) MOV R3, -(SP) MOV R2, -(SP) MOV R0, -(SP) MOV R1, -(SP) BIS #177777, @#K01466 BR N33246 N33234: MOV (SP)+, R2 MOV (SP)+, R3 MOV (SP)+, R4 MOV (SP)+, R5 RETURN N33246: MOVB #377, @#K00053 TST @#K01016 BEQ N33266 JMP N42124 N33266: CMP R0, #37 BLE N33340 CMP R0, #132 BLE N33504 CMP R0, #237 BGT N33314 JMP N34274 N33314: CMP R0, #337 BGT N33326 JMP N34630 N33326: JMP N34640 N33332: EMT 52 JMP N33476 N33340: CMP R0, #12 BNE N33356 COM @#K01006 JMP N33476 N33356: TST @#K00050 BNE N33374 TSTB @#K00052 BNE N33374 BR N33404 N33374: CALL N34710 JMP N33476 N33404: TST #0 BEQ N33416 JMP N33476 N33416: TST @#K01002 BEQ N33434 CALL N36510 JMP N33476 N33434: TST @#K01010 BEQ N33452 CALL N40172 JMP N33476 N33452: TST @#K01464 BEQ N33470 CALL N42204 JMP N33476 N33470: CMP R0, #14 BEQ N33332 N33476: MOV (SP)+, R1 MOV (SP)+, R0 BR N33234 N33504: CMP R0, #110 BR N33522 NOP NOP JMP N34646 N33522: CMP R0, #107 BNE N33540 CALL N46656 JMP N34646 N33540: CMP R0, #101 BNE N33556 CALL N45276 JMP N34646 N33556: CMP R0, #112 BNE N33574 COM @#K01464 JMP N34646 N33574: CMP R0, #104 BNE N33612 COM @#K01002 JMP N34646 N33612: CMP R0, #124 BNE N33630 COM @#K01010 JMP N34646 N33630: CMP R0, #103 BNE N33660 MOV #20000, R1 XOR R1, @#K00272 N33646: MOV @#K00272, @#L77714 JMP N33476 N33660: CMP R0, #117 BNE N33776 CALL N33674 BR N33772 N33674: BIT #20000, @#K00272 BNE N33770 MOV #42000, R1 TST @#K00056 BNE N33722 CALL N35020 N33722: CLR (R1)+ BIT #76, R1 BNE N33722 ADD #100, R1 CMP #77776, R1 BCC N33722 N33744: TSTB @#K01027 BEQ N33770 MOV R0, -(SP) MOV #232, R0 EMT 52 MOV (SP)+, R0 CLRB @#K01027 N33770: RETURN N33772: JMP N34646 N33776: BR N34044 BNE N34044 TST @#K01006 BEQ N34136 BIT @#K03400, @#K00272 BNE N34032 BIC #3400, @#K00272 JMP N33646 N34032: ADD #400, @#K00272 JMP N33646 N34044: CMP R0, #73 BNE N34102 TST @#K01006 BEQ N34136 CMPB #377, @#K00272 BEQ N34136 ADD #1, @#K00272 JMP N33646 N34102: CMP R0, #55 BNE N34142 TST @#K01006 BEQ N34136 TSTB @#K00272 BEQ N34136 SUB #1, @#K00272 JMP N33646 N34136: JMP N34646 N34142: CMP R0, #111 BNE N34176 TST @#K00056 BNE N34162 CALL N35020 N34162: CALL N37256 CALL N33744 JMP N34646 N34176: CMP R0, #120 BNE N34214 CALL N51242 JMP N34646 N34214: CMP R0, #123 BNE N34250 CMP @#K01500, #377 BGE N34136 INC @#K01500 TST @#K00050 BEQ N34244 N34244: JMP N33476 N34250: CMP R0, #115 BNE N34270 TST @#K01500 BEQ N34136 DEC @#K01500 N34270: JMP N33476 N34274: CMP R0, #177 BNE N34320 N34302: TST @#K01016 BNE N34314 JMP N34646 N34314: JMP N33332 N34320: CMP R0, #201 BEQ N34302 CMP R0, #225 BNE N34344 CALL N34444 N34340: JMP N34646 N34344: CMP R0, #226 BNE N34356 JMP N42130 N34356: CMP R0, #232 BEQ N34314 CMP R0, #220 BNE N34270 TST @#K00050 BNE N34340 TST @#K01000 BNE N34414 COMB @#K01000 BR N34340 N34414: TSTB @#K01001 BNE N34430 COMB @#K01001 BR N34340 N34430: CLR @#K01000 CALL N37116 JMP N34646 N34444: TST @#K00050 BEQ N34510 MOV #232, R0 EMT 52 EMT 26 MOV R1, @#K01450 MOV R2, @#K01452 MOV #225, R0 EMT 16 MOV #236, R0 EMT 16 BR N34626 N34510: MOV #225, R0 EMT 16 CMPB #123, @#K01026 BEQ N34536 MOV #0, R3 MOV R3, R4 BR N34546 N34536: MOV @#K01450, R3 MOV @#K01452, R4 N34546: MOV #232, R0 EMT 52 N34554: EMT 26 CMP R3, R1 BEQ N34604 BLT N34572 MOV #31, R0 BR N34576 N34572: MOV #10, R0 N34576: EMT 52 EMT 52 BR N34554 N34604: CMP R4, R2 BEQ N34626 BLT N34620 MOV #33, R0 BR N34576 N34620: MOV #32, R0 BR N34576 N34626: RETURN N34630: BIC #200, R0 JMP N33504 N34640: SUB #40, R0 BR N34630 N34646: MOV #100, R1 N34652: MOV #100, R0 N34656: MOV #100, @#L77716 SOB R0, N34656 MOV #100, R0 N34672: MOV #0, @#L77716 SOB R0, N34672 SOB R1, N34652 JMP N33476 N34710: CMP #2, 6(SP) BGE N34750 CMP R0, #10 BEQ N35012 CMP R0, #34 BEQ N35012 CMP R0, #32 BEQ N35012 CMP R0, #35 BEQ N35012 N34750: CMP #354, 6(SP) BLE N35016 CMP R0, #37 BEQ N35012 CMP R0, #33 BEQ N35012 CMP R0, #36 BEQ N35012 CMP R0, #31 BEQ N35012 BR N35016 N35012: EMT 52 EMT 52 N35016: RETURN N35020: MOV R0, -(SP) MOV #232, R0 EMT 52 COMB @#K01027 MOV (SP)+, R0 RETURN N35040: CLRB @#K01040 CLRB @#K01033 CLRB @#K01034 MOV #1044, R0 N35060: TSTB (R0) BNE N35104 CMPB #377, @#K01040 BEQ N35154 INC R0 INCB @#K01040 BR N35060 N35104: MOVB @#K01040, @#K01033 MOVB @#K01040, @#K01034 N35120: CMPB (R0), #17 BEQ N35146 CMPB #377, @#K01040 BEQ N35146 INC R0 INCB @#K01040 BR N35120 N35146: MOVB @#K01040, @#K01034 N35154: MOV (SP)+, R0 RETURN N35160: TSTB @#K01037 BEQ N35170 RETURN N35170: CMPB @#K01031, #20 BLT N35210 MOVB #20, @#K01031 RETURN N35210: ASLB @#K01031 CALL N36070 RETURN N35222: TSTB @#K01037 BEQ N35232 RETURN N35232: CMPB @#K01031, #1 BNE N35244 RETURN N35244: ASRB @#K01031 CALL N36070 RETURN N35256: TSTB @#K01037 BEQ N35266 RETURN N35266: CMPB @#K01030, #357 BCS N35306 MOVB #357, @#K01030 RETURN N35306: INCB @#K01030 CALL N36070 RETURN N35320: TSTB @#K01037 BEQ N35330 RETURN N35330: TSTB @#K01030 BNE N35340 RETURN N35340: DECB @#K01030 CALL N36070 RETURN N35352: TSTB @#K01037 BEQ N35362 RETURN N35362: CMPB @#K01030, #347 BCS N35374 RETURN N35374: ADD #10, @#K01030 CALL N36070 RETURN N35410: TSTB @#K01037 BEQ N35420 RETURN N35420: CMPB @#K01030, #10 BHI N35432 RETURN N35432: SUB #10, @#K01030 CALL N36070 RETURN N35446: TSTB @#K01037 BEQ N35502 CLRB @#K01037 CLRB @#K01041 CLRB @#K01032 CLRB @#K01042 CALL N36070 RETURN N35502: INCB @#K01037 MOVB #1, @#K01041 CLRB @#K01032 CLR @#K01042 MOV R0, -(SP) MOV R1, -(SP) MOV #377, R1 MOV #1044, R0 N35540: MOVB #377, (R0)+ SOB R1, N35540 CALL N36334 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N35560: TSTB @#K01037 BNE N35570 RETURN N35570: CMPB @#K01043, #377 BNE N35602 RETURN N35602: MOV R0, -(SP) MOVB @#K01043, R0 BIC #177400, R0 ADD #1044, R0 MOVB @#K01032, (R0) INCB @#K01043 MOV (SP)+, R0 CALL N36334 RETURN N35640: TSTB @#K01037 BNE N35650 RETURN N35650: MOVB @#K01043, @#K01042 CMPB @#K01032, #17 BNE N35670 RETURN N35670: INCB @#K01032 CALL N36334 RETURN N35702: TSTB @#K01037 BNE N35502 RETURN N35712: TSTB @#K01037 BNE N35722 RETURN N35722: MOV R0, -(SP) N35724: CMPB @#K01043, #377 BEQ N35762 INCB @#K01043 MOVB @#K01043, R0 BIC #177400, R0 ADD #1044, R0 MOVB @#K01032, (R0) BR N35724 N35762: MOV (SP)+, R0 CLRB @#K01041 CALL N36334 CALL N37116 RETURN N36002: TSTB @#K01041 BEQ N36012 RETURN N36012: CMPB @#K01032, #17 BNE N36024 RETURN N36024: INCB @#K01032 CALL N36334 RETURN N36036: TSTB @#K01041 BEQ N36046 RETURN N36046: TSTB @#K01032 BNE N36056 RETURN N36056: DECB @#K01032 CALL N36334 RETURN N36070: MOV R0, -(SP) MOV R1, -(SP) MOV @#K01032, -(SP) CMPB @#K01031, #20 BNE N36116 CLRB @#K01030 BR N36170 N36116: MOVB @#K01031, R0 ASL R0 ASL R0 ASL R0 ASL R0 MOVB @#K01030, R1 BIC #177560, R1 ADD R0, R1 DEC R1 CMP R1, #377 BGT N36156 BR N36170 N36156: MOV #377, R1 SUB R0, R1 MOVB R1, @#K01030 N36170: CLRB @#K01032 CLRB @#K01040 MOV #1044, R0 N36204: CMPB @#K01040, @#K01030 BEQ N36224 CLRB (R0)+ INCB @#K01040 BR N36204 N36224: CLR R1 N36226: MOVB @#K01032, (R0)+ INC R1 INCB @#K01040 CMPB R1, @#K01031 BNE N36226 INCB @#K01032 CMPB @#K01032, #17 BNE N36224 N36262: CMPB @#K01040, #377 BEQ N36310 MOVB #17, (R0)+ MOVB #17, (R0) INCB @#K01040 BR N36262 N36310: MOV (SP)+, R1 MOVB R1, @#K01032 MOV (SP)+, R1 MOV (SP)+, R0 CALL N37116 CALL N36334 RETURN N36334: MOV R0, -(SP) CLRB @#K01040 MOV #1044, R0 CMPB @#K01032, (R0) BGE N36366 CLRB @#K01035 CLRB @#K01036 BR N36504 N36366: CMPB @#K01032, (R0) BEQ N36432 CMPB @#K01040, #377 BNE N36422 MOVB #377, @#K01035 MOVB #377, @#K01036 BR N36504 N36422: INCB @#K01040 INC R0 BR N36366 N36432: MOVB @#K01040, @#K01035 N36440: CMPB @#K01032, (R0) BEQ N36456 MOVB @#K01040, @#K01036 BR N36504 N36456: CMPB @#K01040, #377 BEQ N36476 INCB @#K01040 INC R0 BR N36440 N36476: MOVB #377, @#K01036 N36504: JMP N35040 N36510: CLR R1 CMPB @#K01031, #20 BNE N36524 INC R1 N36524: CMP R0, #10 BNE N36540 CALL N35160 BR N37010 N36540: CMP R0, #31 BNE N36554 CALL N35222 BR N37010 N36554: CMP R0, #32 BNE N36574 TST R1 BNE N37010 CALL N35256 BR N37010 N36574: CMP R0, #33 BNE N36614 TST R1 BNE N37010 CALL N35320 BR N37010 N36614: CMP R0, #34 BNE N36634 TST R1 BNE N37010 CALL N35352 BR N37010 N36634: CMP R0, #37 BNE N36654 TST R1 BNE N37010 CALL N35410 BR N37010 N36654: CMP R0, #24 BNE N36670 CALL N35446 BR N37010 N36670: CMP R0, #27 BNE N36704 CALL N35560 BR N37010 N36704: CMP R0, #26 BNE N36716 NOP BR N37010 N36716: CMP R0, #30 BNE N36732 CALL N35640 BR N37010 N36732: CMP R0, #22 BNE N36746 CALL N35702 BR N37010 N36746: CMP R0, #23 BNE N36762 CALL N35712 BR N37010 N36762: CMP R0, #35 BNE N36776 CALL N36002 BR N37010 N36776: CMP R0, #36 BNE N37010 CALL N36036 N37010: RETURN N37012: CMP R1, #100000 BCS N37026 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N37026: CLR (R1)+ INC R2 CMP R2, #40 BEQ N37042 BR N37012 N37042: ADD #100, R1 BR N37012 MOV R1, -(SP) MOV R2, -(SP) MOV #42000, R1 N37060: CLR R2 N37062: CMP R1, #100000 BCS N37076 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N37076: CLR (R1)+ CMP R2, #40 BEQ N37110 BR N37062 N37110: ADD #100, R1 BR N37060 N37116: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) MOV #2000, R1 MOV #42100, R0 N37142: CLR R5 N37144: CMP R0, #77577 BCC N37240 MOVB (R1)+, R2 BIC #177400, R2 ADD #1044, R2 MOVB (R2), R3 MOVB (R1)+, R2 BIC #177400, R2 ADD #1044, R2 MOVB (R2), R4 ASL R4 ASL R4 ASL R4 ASL R4 ADD R4, R3 MOVB R3, (R0)+ INC R5 CMP R5, #100 BNE N37144 BIC #170000, -(R0) ADD #102, R0 BR N37142 N37240: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N37256: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) MOV #42100, R1 MOV #42000, R2 MOVB @#K01032, R0 N37306: CMP R1, #77577 BCC N37410 CLR R4 MOV R5, R4 CLR R5 MOVB (R1), R3 BIC #177760, R3 CMPB R3, R0 BNE N37340 ADD #120, R4 N37340: MOVB (R1)+, R3 BIC #177417, R3 ASR R3 ASR R3 ASR R3 ASR R3 CMPB R3, R0 BNE N37366 MOV #5, R5 N37366: MOVB R4, (R2)+ BIT #77, R2 BNE N37306 ADD #100, R1 ADD #100, R2 BR N37306 N37410: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N37426: CMP R1, #40000 BCS N37442 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N37442: MOV R1, R2 ASL R2 MOVB R2, (R1)+ BR N37426 N37452: CMPB @#K01704, #71 BEQ N37470 INCB @#K01704 RETURN N37470: MOVB #60, @#K01704 N37476: CMPB @#K01703, #65 BEQ N37514 INCB @#K01703 RETURN N37514: MOVB #60, @#K01703 N37522: CMPB @#K01700, #62 BEQ N37564 CMPB @#K01701, #71 BEQ N37550 INCB @#K01701 RETURN N37550: MOVB #60, @#K01701 INCB @#K01700 RETURN N37564: CMPB @#K01701, #63 BEQ N37602 INCB @#K01701 RETURN N37602: MOVB #60, @#K01700 MOVB #60, @#K01701 RETURN N37620: CMPB @#K01706, #63 BEQ N37662 CMPB @#K01707, #71 BEQ N37646 INCB @#K01707 RETURN N37646: INCB @#K01706 MOVB #60, @#K01707 RETURN N37662: CMPB @#K01707, #61 BEQ N37700 INCB @#K01707 RETURN N37700: MOVB #61, @#K01707 MOVB #60, @#K01706 RETURN N37716: CMPB @#K01711, #61 BEQ N37760 CMPB @#K01712, #71 BEQ N37744 INCB @#K01712 RETURN N37744: INCB @#K01711 MOVB #60, @#K01712 RETURN N37760: CMPB @#K01712, #62 BEQ N37776 INCB @#K01712 RETURN N37776: N40000 =: .+2 MOVB #60, @#K01711 MOVB #61, @#K01712 RETURN N40014: CMPB @#K01714, #71 BEQ N40056 CMPB @#K01715, #71 BEQ N40042 INCB @#K01715 RETURN N40042: INCB @#K01714 MOVB #60, @#K01715 RETURN N40056: CMPB @#K01715, #71 BEQ N40074 INCB @#K01715 RETURN N40074: MOVB #70, @#K01715 MOVB #70, @#K01714 RETURN N40112: INCB @#K01472 BITB #1, @#K01473 BEQ N40140 CMPB @#K01472, #12 BGE N40152 RETURN N40140: CMPB @#K01472, #13 BGE N40152 RETURN N40152: CLRB @#K01472 COMB @#K01473 CALL N37452 RETURN .WORD 0 N40172: CMP R0, #10 BNE N40206 CALL N37452 RETURN N40206: CMP R0, #31 BNE N40222 CALL N37476 RETURN N40222: CMP R0, #32 BNE N40236 CALL N37522 RETURN N40236: CMP R0, #33 BNE N40252 CALL N37620 RETURN N40252: CMP R0, #34 BNE N40266 CALL N37716 RETURN N40266: CMP R0, #35 BNE N40300 CALL N40014 N40300: RETURN N40302: BIT #100, @#L77716 BEQ N40316 MOV #177777, R3 N40316: BIT #200, @#L77660 BEQ N40360 BIC #100, @#L77660 EMT 6 CALL N33206 MOV #20, R4 BR N40352 N40350: DEC R4 N40352: TST R4 BNE N40350 BR N40404 N40360: BIT #100, @#L77716 BNE N40404 BR N40374 N40372: DEC R3 N40374: TST R3 BNE N40372 CALL N33206 N40404: TST @#K01466 BEQ N40302 TST @#K01016 BNE N40462 TST @#K00050 BNE N40456 TST @#K01012 BNE N40462 TST @#K01002 BNE N40462 TST @#K01010 BNE N40462 TST @#K01464 BEQ N40462 N40456: TST R3 BEQ N40470 N40462: CALL N40522 BR N40302 N40470: CMP R0, #10 BEQ N40512 CMP R0, #31 BLT N40462 CMP R0, #37 BGT N40462 N40512: MOV #10000, R2 SOB R2, . BR N40302 N40522: MOV #100, @#L77660 CALL N41760 EMT 26 MOV @#K00056, -(SP) MOV @#K00050, -(SP) MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV #377, @#K00056 CLR @#K00050 MOV @#K01032, R2 MOV #6, R3 CLR R0 MOV #74576, R1 N40610: TSTB @#K01000 BEQ N40620 MOV R0, (R1) N40620: ADD #2, R1 SUB #102, R1 CLR (R1) TSTB @#K01000 BEQ N40646 BIS #20010, (R1) BR N40652 N40646: BIC #20010, (R1) N40652: SUB #100, R1 DEC R3 TST R3 BNE N40610 TSTB R2 BNE N40714 TSTB @#K01001 BEQ N40706 BIS #5240, 700(R1) BR N40714 N40706: BIC #5240, 700(R1) N40714: DEC R2 ADD #21, R0 MOV #6, R3 CMP R1, #45000 BGE N40610 TSTB @#K01000 BEQ N40760 BIS #25254, @#K74676 BIS #25254, @#K44676 BR N40774 N40760: BIC #25254, @#K74676 BIC #25254, @#K44676 N40774: MOV #34, R1 CLR R4 TSTB @#K01000 BNE N41012 COM R4 N41012: MOV #26, R2 MOVB @#K01033, R0 CALL N41470 MOV #0, R2 MOV #34, R1 MOVB @#K01034, R0 CALL N41470 MOV #26, R2 MOVB @#K01035, R0 CLR R1 CLR R4 TSTB @#K01001 BNE N41072 COM R4 N41072: CALL N41470 CLR R1 CLR R2 MOVB @#K01036, R0 CALL N41470 MOV @#K00050, -(SP) MOVB #377, @#K00050 EMT 26 CALL N42136 MOV (SP)+, @#K00050 CALL N41532 CLR R1 MOV #1502, R3 N41150: MOVB (R3)+, R0 TST 12(SP) BNE N41164 MOV #40, R0 N41164: EMT 22 INC R1 CMP #1506, R3 BGT N41150 INC R1 MOV #114, R0 INC R1 MOV #64, R0 TST @#K01016 BEQ N41230 MOV #47503, @#K01720 BR N41356 N41230: TST @#K01012 BEQ N41246 MOV #42522, @#K01720 BR N41356 N41246: TST @#K01002 BEQ N41300 MOV #44504, @#K01720 TSTB @#K01037 BEQ N41356 MOVB #123, @#K01721 BR N41356 N41300: TST @#K01010 BEQ N41316 MOV #44524, @#K01720 BR N41356 N41316: TST @#K01464 BEQ N41350 MOV #52123, @#K01720 TST @#K01446 BEQ N41356 MOVB #120, @#K01721 BR N41356 N41350: MOV #20040, @#K01720 N41356: TST @#K01006 BEQ N41374 MOV #25040, @#K01716 BR N41402 N41374: MOV #20040, @#K01716 N41402: CALL N43270 MOV #16, R1 MOV #1700, R2 N41416: MOVB (R2)+, R0 EMT 22 INC R1 CMP R1, #40 BLT N41416 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 EMT 24 MOV (SP)+, @#K00050 MOV (SP)+, @#K00056 CALL N42042 CLR @#K01466 RETURN N41470: EMT 24 BIC #177400, R0 CALL N41532 MOV #1502, R3 N41506: MOVB (R3)+, R0 TST R4 BEQ N41520 MOV #40, R0 N41520: EMT 52 CMP #1506, R3 BGT N41506 RETURN N41532: MOV R1, -(SP) BIC #177400, R0 ADD @#K01500, R0 SUB #200, R0 BGE N41606 MOVB #40, @#K01502 MOVB #74, @#K01503 MOVB #74, @#K01504 MOVB #40, @#K01505 MOV (SP)+, R1 RETURN N41606: CMP R0, #400 BLT N41650 MOVB #40, @#K01502 MOVB #76, @#K01503 MOVB #76, @#K01504 MOVB #40, @#K01505 MOV (SP)+, R1 RETURN N41650: ASL R0 ADD #144124, R0 MOV (R0), @#K01504 MOVB @#K01505, R1 ADD #60, R1 MOVB R1, @#K01502 MOVB @#K01504, R1 MOV R1, R0 BIC #177760, R1 ADD #60, R1 MOVB R1, @#K01505 MOVB R0, R1 BIC #177417, R1 ASR R1 ASR R1 ASR R1 ASR R1 ADD #60, R1 MOVB R1, @#K01503 MOVB #54, @#K01504 MOV (SP)+, R1 RETURN N41760: MOV #1550, R4 MOV @#K00106, -(R4) MOV @#K00152, -(R4) MOV @#K00156, -(R4) MOV @#K00160, -(R4) MOV @#K00162, -(R4) MOV @#K00164, -(R4) MOV @#K00202, -(R4) MOV @#K00204, -(R4) MOV @#K00212, -(R4) MOV @#K00214, -(R4) MOV @#K00222, -(R4) RETURN N42042: MOV #1522, R4 MOV (R4)+, @#K00222 MOV (R4)+, @#K00214 MOV (R4)+, @#K00212 MOV (R4)+, @#K00204 MOV (R4)+, @#K00202 MOV (R4)+, @#K00164 MOV (R4)+, @#K00162 MOV (R4)+, @#K00160 MOV (R4)+, @#K00156 MOV (R4)+, @#K00152 MOV (R4)+, @#K00106 RETURN N42124: JMP N33332 N42130: JMP N33476 RETURN N42136: MOV R1, -(SP) MOV R2, -(SP) ASR R1 BIC #177600, R1 SWAB R2 ASR R2 ASR R2 BIC #140177, R2 ADD R2, R1 ADD #1777, R1 MOVB (R1), R0 BIC #177400, R0 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N42204: CLR R2 MOV @#K01470, R3 CMP R0, #10 BNE N42224 MOV #40, R0 N42224: CMP #22, R0 BNE N42242 COM @#K01446 JMP N43252 N42242: CMP R0, #26 BGE N42254 JMP N43252 N42254: CMP R0, #27 BGE N42266 JMP N43134 N42266: CMP R0, #30 BGE N42300 JMP N43172 N42300: BNE N42306 JMP N43144 N42306: CMP R0, #40 BLE N42320 JMP N43252 N42320: BIT #100000, (R3) BNE N42332 JMP N43252 N42332: SUB #31, R0 ASL R0 TST @#K01446 BEQ N42352 ADD #20, R0 N42352: MOV R0, -(SP) CLR R0 CALL N43514 MOV (SP)+, @#K01456 MOVB 4(R3), R1 MOVB 5(R3), R2 MOVB 6(R3), R4 MOVB 7(R3), R5 MOV #177400, R3 BIC R3, R1 BIC R3, R2 BIC R3, R4 BIC R3, R5 MOV #2, R3 CLR R0 TST R1 BGT N42440 BIS #1, R0 N42440: TST R5 BGT N42450 BIS #2, R0 N42450: CMP R2, #354 BLT N42462 BIS #4, R0 N42462: CMP R4, #366 BLT N42474 BIS #10, R0 N42474: CMP R4, R1 BGT N42504 BIS #20, R0 N42504: CMP R2, R5 BGT N42514 BIS #40, R0 N42514: ADD @#K01456, PC BR N42560 BR N42574 BR N42610 BR N42624 BR N42644 BR N42664 BR N42704 BR N42724 BR N42740 BR N42752 BR N42764 BR N42776 BR N43012 BR N43026 BR N43042 BR N43056 N42560: BIT #10, R0 BNE N43076 ADD R3, R1 ADD R3, R4 BR N43066 N42574: BIT #2, R0 BNE N43076 SUB R3, R2 SUB R3, R5 BR N43066 N42610: BIT #4, R0 BNE N43076 ADD R3, R2 ADD R3, R5 BR N43066 N42624: BIT #3, R0 BNE N43076 SUB R3, R2 SUB R3, R5 SUB R3, R1 SUB R3, R4 BR N43066 N42644: BIT #12, R0 BNE N43076 SUB R3, R2 SUB R3, R5 ADD R3, R1 ADD R3, R4 BR N43066 N42664: BIT #14, R0 BNE N43076 ADD R3, R1 ADD R3, R2 ADD R3, R4 ADD R3, R5 BR N43066 N42704: BIT #5, R0 BNE N43076 ADD R3, R2 ADD R3, R5 SUB R3, R1 SUB R3, R4 BR N43066 N42724: BIT #1, R0 BNE N43076 SUB R3, R1 SUB R3, R4 BR N43066 N42740: BIT #10, R0 BNE N43076 ADD R3, R4 BR N43066 N42752: BIT #2, R0 BNE N43076 SUB R3, R5 BR N43066 N42764: BIT #40, R0 BNE N43076 ADD R3, R5 BR N43066 N42776: BIT #22, R0 BNE N43076 SUB R3, R4 SUB R3, R5 BR N43066 N43012: BIT #12, R0 BNE N43076 SUB R3, R5 ADD R3, R4 BR N43066 N43026: BIT #54, R0 BNE N43076 ADD R3, R4 ADD R3, R5 BR N43066 N43042: BIT #60, R0 BNE N43076 ADD R3, R5 SUB R3, R4 BR N43066 N43056: BIT #20, R0 BNE N43076 SUB R3, R4 N43066: MOV @#K01470, R3 BIC #400, (R3) N43076: MOV @#K01470, R3 MOVB R1, 4(R3) MOVB R2, 5(R3) MOVB R4, 6(R3) MOVB R5, 7(R3) MOV #1, R0 CALL N43514 BR N43252 N43134: MOV #100000, R2 XOR R2, (R3) BR N43252 N43144: ADD #10, @#K01470 CMP #1774, @#K01470 BGT N43170 MOV #1730, @#K01470 N43170: BR N43252 N43172: MOV #1474, R0 CMP 2(R0), #20116 BNE N43220 MOV #40515, (R0)+ MOV #20130, (R0) BR N43252 N43220: CMP 2(R0), #20130 BNE N43242 MOV #44515, (R0)+ MOV #42104, (R0) BR N43252 N43242: MOV #44515, (R0)+ MOV #20116, (R0) N43252: RETURN N43254: BIC #100, R1 MOVB (R1), R0 BICB R2, R0 JMP N27742 N43270: MOV #4, R2 CLR R1 EMT 24 N43300: MOVB 1474(R1), R0 TST @#K01464 BNE N43316 MOVB #40, R0 N43316: EMT 52 INC R1 CMP R1, #3 BLE N43300 MOV #1730, R3 N43334: MOV #377, R4 TST @#K01464 BEQ N43404 BIT #100000, (R3) BEQ N43370 BIT #400, (R3) BNE N43366 CALL N43656 N43366: CLR R4 N43370: CMP R3, @#K01470 BNE N43404 MOVB #377, @#K00045 N43404: MOV R3, R2 ASR R2 ASR R2 BIC #177740, R2 ADD #10, R2 CLR R1 MOVB (R3), R0 CMPB @#K01476, #130 BNE N43442 MOVB 3(R3), R0 N43442: CMPB @#K01476, #116 BNE N43456 MOVB 2(R3), R0 N43456: MOV R3, -(SP) CALL N41470 MOV (SP)+, R3 COM R4 MOV R4, R0 CALL N43514 BR N43622 N43500: BIC #177400, R1 BIC #177400, R2 EMT 54 RETURN N43514: MOV R3, R2 BIC #177700, R2 MOV R2, R1 ASL R2 ASR R1 ADD #10, R1 ADD R1, R2 MOV #40, R1 EMT 30 MOVB 4(R3), R1 MOVB 5(R3), R2 CALL N43500 MOVB 7(R3), R2 CALL N43500 MOVB 6(R3), R1 CALL N43500 MOVB 5(R3), R2 CALL N43500 MOVB 4(R3), R1 CALL N43500 RETURN N43622: TST @#K01464 BEQ N43642 CMP R3, @#K01470 BNE N43642 CLRB @#K00045 N43642: ADD #10, R3 CMP R3, #1770 BLE N43334 RETURN N43656: MOV #377, 2(R3) CLR @#K01456 CLR @#K01460 CLR @#K01462 CLRB (R3) MOVB 7(R3), R2 INC R2 BIC #177400, R2 N43714: MOVB 4(R3), R1 INC R1 BIC #177400, R1 N43726: CALL N42136 INC @#K01462 CMPB R0, 2(R3) BHI N43750 MOVB R0, 2(R3) N43750: CMPB R0, 3(R3) BLOS N43762 MOVB R0, 3(R3) N43762: ADD R0, @#K01456 ADC @#K01460 CLC INC R1 CMPB R1, 6(R3) BLOS N43726 INC R2 CMPB R2, 5(R3) BLOS N43714 NOP MOV #40, R2 CLR R1 CLR R4 N44026: ASL R4 ASL R1 ASL @#K01460 BCC N44042 INC R4 N44042: DEC R2 CMP @#K01462, R4 BHI N44060 INC R1 SUB @#K01462, R4 N44060: TST R2 BEQ N44102 CMP R2, #20 BNE N44026 MOV @#K01456, @#K01460 BR N44026 N44102: CMP #200, @#K01460 BGE N44114 INC R1 N44114: MOVB R1, (R3) BIS #400, (R3) RETURN .WORD 520 .WORD 522 .WORD 524 .WORD 526 .WORD 530 .WORD 540 .WORD 542 .WORD 544 .WORD 546 .WORD 550 .WORD 560 .WORD 562 .WORD 564 .WORD 566 .WORD 570 .WORD 600 .WORD 601 .WORD 603 .WORD 605 .WORD 607 .WORD 611 .WORD 621 .WORD 622 .WORD 624 .WORD 626 .WORD 630 .WORD 1000 .WORD 1002 .WORD 1003 .WORD 1005 .WORD 1007 .WORD 1011 .WORD 1021 .WORD 1023 .WORD 1024 .WORD 1026 .WORD 1030 .WORD 1040 .WORD 1041 .WORD 1043 .WORD 1045 .WORD 1047 .WORD 1051 .WORD 1060 .WORD 1062 .WORD 1064 .WORD 1066 .WORD 1067 .WORD 1071 .WORD 1101 .WORD 1102 .WORD 1104 .WORD 1106 .WORD 1110 .WORD 1111 .WORD 1121 .WORD 1123 .WORD 1124 .WORD 1126 .WORD 1130 .WORD 1131 .WORD 1141 .WORD 1143 .WORD 1144 .WORD 1146 .WORD 1147 .WORD 1151 .WORD 1161 .WORD 1162 .WORD 1164 .WORD 1166 .WORD 1167 .WORD 1171 .WORD 1200 .WORD 1202 .WORD 1204 .WORD 1205 .WORD 1207 .WORD 1210 .WORD 1220 .WORD 1221 .WORD 1223 .WORD 1225 .WORD 1226 .WORD 1230 .WORD 1231 .WORD 1400 .WORD 1402 .WORD 1404 .WORD 1405 .WORD 1407 .WORD 1410 .WORD 1420 .WORD 1421 .WORD 1423 .WORD 1424 .WORD 1426 .WORD 1427 .WORD 1431 .WORD 1440 .WORD 1442 .WORD 1443 .WORD 1445 .WORD 1446 .WORD 1450 .WORD 1451 .WORD 1460 .WORD 1462 .WORD 1463 .WORD 1465 .WORD 1466 .WORD 1470 .WORD 1471 .WORD 1500 .WORD 1502 .WORD 1503 .WORD 1505 .WORD 1506 .WORD 1507 .WORD 1511 .WORD 1520 .WORD 1522 .WORD 1523 .WORD 1524 .WORD 1526 .WORD 1527 .WORD 1530 .WORD 1540 .WORD 1541 .WORD 1542 .WORD 1544 .WORD 1545 .WORD 1546 .WORD 1550 .WORD 1551 .WORD 1560 .WORD 1562 .WORD 1563 .WORD 1564 .WORD 1566 .WORD 1567 .WORD 1570 .WORD 1600 .WORD 1601 .WORD 1602 .WORD 1603 .WORD 1605 .WORD 1606 .WORD 1607 .WORD 1610 .WORD 1620 .WORD 1621 .WORD 1622 .WORD 1623 .WORD 1625 .WORD 1626 .WORD 1627 .WORD 1630 .WORD 2000 .WORD 2001 .WORD 2002 .WORD 2003 .WORD 2005 .WORD 2006 .WORD 2007 .WORD 2010 .WORD 2022 .WORD 2023 .WORD 2024 .WORD 2025 .WORD 2027 .WORD 2030 .WORD 2031 .WORD 2040 .WORD 2041 .WORD 2042 .WORD 2044 .WORD 2045 .WORD 2046 .WORD 2047 .WORD 2050 .WORD 2051 .WORD 2060 .WORD 2062 .WORD 2063 .WORD 2064 .WORD 2065 .WORD 2066 .WORD 2067 .WORD 2070 .WORD 2071 .WORD 2100 .WORD 2102 .WORD 2103 .WORD 2104 .WORD 2105 .WORD 2106 .WORD 2107 .WORD 2110 .WORD 2111 .WORD 2120 .WORD 2121 .WORD 2122 .WORD 2123 .WORD 2125 .WORD 2126 .WORD 2127 .WORD 2130 .WORD 2131 .WORD 2140 .WORD 2141 .WORD 2142 .WORD 2143 .WORD 2144 .WORD 2145 .WORD 2146 .WORD 2147 .WORD 2150 .WORD 2151 .WORD 2160 .WORD 2161 .WORD 2162 .WORD 2163 .WORD 2164 .WORD 2165 .WORD 2166 .WORD 2167 .WORD 2170 .WORD 2171 .WORD 2200 .WORD 2201 .WORD 2202 .WORD 2203 .WORD 2204 .WORD 2205 .WORD 2206 .WORD 2207 .WORD 2210 .WORD 2211 .WORD 2220 .WORD 2221 .WORD 2222 .WORD 2223 .WORD 2224 .WORD 2225 .WORD 2226 .WORD 2227 .WORD 2230 .WORD 2230 .WORD 2231 .WORD 2400 .WORD 2401 .WORD 2402 .WORD 2403 .WORD 2404 .WORD 2405 N45124: CLR R5 BIT #20000, @#K00272 BNE N45142 CALL N45174 N45142: TSTB @#K00050 BEQ N45164 CALL N34444 CALL N41760 BIS #100000, R5 N45164: MOV #14, R0 EMT 16 RETURN N45174: MOV #20000, R1 XOR R1, @#K00272 MOV @#K00272, @#L77714 RETURN N45214: CALL N45174 CLR R0 EMT 22 CALL N37116 CALL N33674 BIT #100000, R5 BEQ N45260 CALL N42042 CALL N34444 MOV #236, R0 EMT 16 N45260: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N45276: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) CALL N45124 CALL N46412 MOV #100, R2 MOV #100, R3 CALL N32054 MOV #60, R2 MOV #140, R3 CALL N32054 MOV #100, R2 MOV #100, R3 CALL N32054 MOV #60, R2 MOV #140, R3 CALL N32054 MOV #130, R2 MOV #54, R3 CALL N32054 MOV #6, R1 MOV #4, R2 EMT 24 MOV #150602, R1 CLR R2 EMT 20 EMT 6 CMP R0, #372 BEQ N45476 CMP R0, #132 BEQ N45476 CMP R0, #376 BEQ N46010 CMP R0, #136 BEQ N46010 JMP N46436 N45476: CALL N45504 BR N45526 N45504: MOV #14, R0 EMT 16 MOV #6, R1 MOV #10, R2 EMT 24 RETURN N45526: MOV #150625, R1 CLR R2 EMT 20 CALL N45544 BR N45574 N45544: MOV #6, R1 MOV #11, R2 EMT 24 MOV #150652, R1 CLR R2 EMT 20 CALL N46514 RETURN N45574: CALL N46472 MOV #150625, R1 CLR R2 EMT 20 MOV #6, R1 MOV #13, R2 EMT 24 MOV #326, R1 MOV #17, R2 EMT 20 MOV #1000, @#K00322 MOV #1000, @#K00324 MOVB #61, @#K00345 MOV #2, @#K00320 MOV #320, R1 MOV @#K00032, -(SP) MOV #200, @#K00032 EMT 36 MOV (SP)+, @#K00032 MOVB @#K00321, R0 CMPB R0, #4 BNE N45726 JMP N46436 N45726: MOVB #62, @#K00345 MOV #2000, @#K00322 MOV #36000, @#K00324 MOV #4, R0 CALL N46606 MOV #320, R1 MOV @#K00032, -(SP) MOV #200, @#K00032 EMT 36 MOV (SP)+, @#K00032 JMP N46436 N46010: CALL N45504 MOV #150674, R1 CLR R2 EMT 20 CALL N45544 MOV #42000, @#K00322 MOVB #61, @#K00345 N46044: CALL N46472 MOV #150674, R1 CLR R2 EMT 20 MOV #6, R1 MOV #13, R2 EMT 24 MOV #326, R1 MOV #17, R2 EMT 20 N46104: MOVB #3, @#K00320 MOV #320, R1 MOV @#K00032, -(SP) MOV #200, @#K00032 EMT 36 MOV (SP)+, @#K00032 MOVB @#K00321, R0 CMPB R0, #4 BEQ N46436 CMPB R0, #2 BNE N46220 MOV #14, R0 EMT 16 CLR R1 MOV #12, R2 EMT 24 MOV #150721, R1 CLR R2 EMT 20 EMT 6 CMP R0, #40 BEQ N46044 JMP N46436 N46220: CMP R0, #1 BNE N46336 CALL N46472 CMPB #61, @#K00371 BNE N46302 MOV #150762, R1 N46246: CLR R2 EMT 20 MOV #6, R1 MOV #13, R2 EMT 24 MOV #352, R1 MOV #17, R2 EMT 20 JMP N46104 N46302: CMPB #62, @#K00371 BNE N46324 CALL N46472 MOV #151014, R1 BR N46246 N46324: CALL N46472 MOV #151032, R1 BR N46246 N46336: CMPB #62, @#K00345 BNE N46352 JMP N46436 N46352: MOV #42000, R0 MOV #1000, R1 N46362: MOV (R0)+, (R1)+ CMP R1, #2000 BLE N46362 MOVB #62, @#K00345 MOV #2000, @#K00322 JMP N46044 N46412: CLR R1 MOV #150541, R2 N46420: MOVB (R2)+, R0 EMT 22 INC R1 CMP R1, #40 BLT N46420 RETURN N46436: CLR @#K00320 MOV #320, R1 MOV @#K00032, -(SP) MOV #200, @#K00032 EMT 36 MOV (SP)+, @#K00032 JMP N45214 N46472: MOV #14, R0 EMT 16 N46500: MOV #6, R1 MOV #12, R2 EMT 24 RETURN N46514: CALL N46500 MOV #17, R1 MOV #137, R0 N46530: EMT 16 SOB R1, N46530 CALL N46500 CALL N46620 MOV #326, R1 MOV #5017, R2 EMT 10 MOV #326, R0 N46562: CMPB (R0), #12 BNE N46574 MOVB #40, (R0) N46574: INC R0 CMP R0, #344 BLE N46562 RETURN N46606: MOV #177777, R1 SOB R1, . SOB R0, N46606 RETURN N46620: MOV #326, R0 N46624: MOV #20040, (R0)+ CMP R0, #344 BLE N46624 RETURN CLR R2 EMT 20 INC R3 MOV R3, R2 CLR R1 EMT 24 RETURN N46656: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) CALL N45124 CALL N47312 MOV #50, R2 MOV #150, R3 CALL N32054 MOV #70, R2 MOV #130, R3 CALL N32054 MOV #110, R2 MOV #110, R3 CALL N32054 MOV #130, R2 MOV #70, R3 CALL N32054 MOV #150, R2 MOV #50, R3 CALL N32054 CALL N47004 BR N47026 N47004: MOV #14, R0 EMT 16 MOV #6, R1 MOV #10, R2 EMT 24 RETURN N47026: MOV @#K00004, R0 MOV SP, R1 MOV #147104, @#K00004 MOV @#L76560, R2 MOV @#L76562, R2 MOV @#L76564, R2 MOV @#L76566, R2 MOV R0, @#K00004 MOV #151123, R1 CLR R2 EMT 20 CALL N47146 BR N47176 MOV R1, SP MOV R0, @#K00004 MOV #151170, R1 CLR R2 EMT 20 MOV #4, R1 N47126: MOV #177777, R0 SOB R0, . SOB R1, N47126 CALL N50126 JMP N47336 N47146: MOV #6, R1 MOV #11, R2 EMT 24 MOV #151146, R1 CLR R2 EMT 20 CALL N47364 RETURN N47176: CALL N47342 MOV #151123, R1 CLR R2 EMT 20 MOV #6, R1 MOV #13, R2 EMT 24 MOV #326, R1 MOV #17, R2 EMT 20 MOV @#K00032, -(SP) MOV #200, @#K00032 EMT 56 MOV (SP)+, @#K00032 MOV #5, R0 CALL N46606 MOV @#K00032, -(SP) MOV #200, @#K00032 EMT 60 MOV (SP)+, @#K00032 JMP N47336 N47312: CLR R1 MOV #151062, R2 N47320: MOVB (R2)+, R0 EMT 22 INC R1 CMP R1, #40 BLT N47320 RETURN N47336: JMP N45214 N47342: MOV #14, R0 EMT 16 N47350: MOV #6, R1 MOV #12, R2 EMT 24 RETURN N47364: CALL N47350 MOV #10, R1 MOV #137, R0 N47400: EMT 16 SOB R1, N47400 CALL N47350 CALL N46620 MOV #326, R1 MOV #5010, R2 EMT 10 MOV #326, R0 N47432: CMPB (R0), #12 BNE N47444 MOVB #40, (R0) N47444: INC R0 CMP R0, #344 BLE N47432 RETURN N47456: MOV #151213, R0 MOV #12, R1 CALL N47524 MOV #326, R0 MOV #10010, R1 CALL N47524 MOV #151225, R0 MOV #15, R1 CALL N47524 RETURN N47524: BIS #10000, @#K00272 MOV @#K00272, @#L77714 N47540: BIT #200, @#L76564 BEQ N47540 BIT #10000, R1 BEQ N47572 CMPB (R0), #40 BLE N47576 CMPB (R0), #141 BGE N47576 N47572: MOVB (R0), @#L76566 N47576: INC R0 DEC R1 TSTB R1 BGT N47540 BIC #10000, @#K00272 MOV @#K00272, @#L77714 RETURN N47624: MOV #772, R0 BIS #10000, @#K00272 MOV @#K00272, @#L77714 N47644: CLR R2 MOV #7, R3 N47652: MOVB (R0)+, R1 BIT #200, R1 BEQ N47666 BIS #200, R2 N47666: ASR R2 BIC #200, R1 ADD #40, R1 CALL N50166 DEC R3 TST R3 BNE N47652 MOVB R2, R1 ADD #40, R1 CALL N50166 MOV R0, R4 BIC #777, R4 SWAB R4 ADD #70000, R4 BIS #177777, (R4) ADD #100, R4 BIS #177777, (R4) ADD #100, R4 BIS #177777, (R4) CMP R0, #40000 BLT N47644 N47772: BIT #200, @#L76564 BEQ N47772 MOVB #32, @#L76566 BIC #10000, @#K00272 MOV @#K00272, @#L77714 MOVB @#L76562, R0 MOV #12, R0 N50034: MOV #177777, R1 N50040: BIT #200, @#L76560 BEQ N50056 MOVB @#L76562, R3 BR N50062 N50056: SOB R1, N50040 SOB R0, N50034 N50062: MOV #2, R0 N50066: MOV #177777, R1 N50072: BIT #200, @#L76560 BEQ N50122 MOVB @#L76562, R3 CMPB R3, #117 BEQ N50164 CMPB R3, #105 BEQ N50126 N50122: SOB R1, N50072 SOB R0, N50066 N50126: MOV #14, R4 N50132: MOV #40000, R0 N50136: COM (R0)+ CMP R0, #77776 BLT N50136 MOV #100, R2 MOV #100, R3 CALL N32054 SOB R4, N50132 N50164: RETURN N50166: BIT #200, @#L76564 BEQ N50166 MOVB R1, @#L76566 RETURN .ASCII |îïíåò óôòáîéãù:(1-5),éîáþå-÷ùèïä| .ASCIZ |íåîà:| .WORD 160773 .WORD 171347 .WORD 172347 .WORD 161363 .WORD 41512 .WORD 44107 .WORD 11010 .WORD 25431 .WORD 16055 .WORD 16432 .WORD 50101 .WORD 42117 .WORD 15437 .WORD 51436 .WORD 44515 .WORD 13124 .WORD 13430 .ASCII |÷÷ïä| .ASCIZ |1.õðòá÷ìñàýéå ëìá÷éûé áôð-46| .ASCIZ |2.ðòåïòéôåôù òåöéíï÷ òáâïôù| .ASCIZ |3.òåöéíù òáâïôù é éè ÷ëìàþåîéå| .ASCIZ |4.÷îåûîéå õóôòïêóô÷á áôð-46| .ASCIZ |5.--------------------------| .ASCIZ | íáçîéôïæïî | .ASCIZ |þ-þôåîéå, ú-úáðéóø| .ASCIZ |úáðéóø îá íáçîéôïæïî| .ASCIZ |÷÷åäéôå éíñ æáêìá| .ASCIZ |þôåîéå ó íáçîéôïæïîá| .ASCIZ |ïûéâëá þôåîéñ,ðï÷ôïòéôø - ðòïâåì| .ASCIZ |ðòïþéôáî õðòá÷ìñàýéê æáêì| .ASCIZ |ðòïþéôáî ëáäò| .ASCIZ |ðòïþéôáî æáêì îå áôð-46| .ASCIZ | ó÷ñúø ó IBM | .ASCIZ |ðåòåóùìëá ÷ IBM/PC| .ASCIZ |÷÷åäéôå éíñ æáêìá| .ASCIZ |îåéóðòá÷îïóôø éòðó| .ASCII |COPY COM1 .ATP||ATPCOM|<32> N51242: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) BIC #777, @#K00272 BIS #377, @#K00272 MOV @#K00272, @#L77714 MOV PC, R0 ADD #206, R0 MOV #15, R1 CALL N51354 MOV #1700, R0 MOV #22, R1 CALL N51354 MOV PC, R0 ADD #171, R0 MOV #2, R1 CALL N51354 JMP N51530 N51354: ADD R0, R1 N51356: MOVB (R0)+, R2 BIC #177400, R2 BIC #777, @#K00272 BIS R2, @#K00272 MOV @#K00272, @#L77714 MOV #3, R2 SOB R2, . N51412: BIT #200, @#L77716 BEQ N51412 BIS #400, @#K00272 MOV @#K00272, @#L77714 MOV #7, R2 SOB R2, . BIC #400, @#K00272 MOV @#K00272, @#L77714 MOV #3, R2 SOB R2, . BIC #377, @#K00272 MOV @#K00272, @#L77714 CMP R0, R1 BNE N51356 RETURN .ASCIZ | | N51530: MOV #41700, R5 MOV PC, R0 ADD #512, R0 MOV #3, R1 CALL N51354 N51552: MOV PC, R0 ADD #477, R0 MOV #5, R1 CALL N51354 CLR R4 ADD #100, R5 N51576: CALL N51624 INC R4 CMP #100, R4 BNE N51576 CMP #77400, R5 BGT N51552 JMP N52660 N51624: MOV R5, R3 ADD #100, R3 MOVB (R5), R1 BIC #177774, R1 TST R1 BEQ N51704 CMP R1, #2 BLT N51672 BEQ N51676 CALL N52230 CALL N52202 N51664: CALL N52142 BR N51712 N51672: CLR R1 BR N51664 N51676: MOV #360, R1 BR N51664 N51704: CALL N52230 BR N51664 N51712: MOVB (R5), R1 BIC #177763, R1 TST R1 BEQ N51764 CMP R1, #10 BLT N51752 BEQ N51756 CALL N52230 CALL N52202 N51744: CALL N52160 BR N51772 N51752: CLR R1 BR N51744 N51756: MOV #360, R1 BR N51744 N51764: CALL N52230 BR N51744 N51772: MOVB (R5), R1 BIC #177717, R1 TST R1 BEQ N52040 CMP R1, #40 BLT N52026 BEQ N52032 CALL N52202 N52020: CALL N52142 BR N52044 N52026: CLR R1 BR N52020 N52032: MOV #360, R1 BR N52020 N52040: MOVB (R3), R1 BR N52020 N52044: MOVB (R5), R1 BIC #177477, R1 TST R1 BEQ N52112 CMP R1, #200 BLT N52100 BEQ N52104 CALL N52202 N52072: CALL N52160 BR N52116 N52100: CLR R1 BR N52072 N52104: MOV #360, R1 BR N52072 N52112: MOVB (R3), R1 BR N52072 N52116: INC R5 RETURN N52122: MOV PC, R0 ADD #134, R0 COMB R1 BIC #177417, R1 ADD R1, R0 RETURN N52142: CALL N52122 MOV #10, R1 CALL N51354 RETURN N52160: CALL N52122 ADD #10, R0 MOV #7, R1 CALL N51354 RETURN N52202: MOV (R3), R1 BIC #177417, R1 CMP R1, #200 BLT N52222 CLR R1 RETURN N52222: MOV #360, R1 RETURN N52230: MOVB (R3), R1 ASL R1 ASL R1 ASL R1 ASL R1 BIC #177417, R1 RETURN .WORD 31433 .WORD 5016 .WORD 55033 .WORD 3600 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 20000 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 50000 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 10 .WORD 0 .WORD 20000 .WORD 0 .WORD 100000 .WORD 0 .WORD 0 .WORD 0 .WORD 50000 .WORD 0 .WORD 0 .WORD 0 .WORD 50000 .WORD 0 .WORD 0 .WORD 100 .WORD 4000 .WORD 0 .WORD 20000 .WORD 0 .WORD 200 .WORD 10000 .WORD 0 .WORD 0 .WORD 110 .WORD 0 .WORD 50000 .WORD 0 .WORD 0 .WORD 220 .WORD 40 .WORD 250 .WORD 50000 .WORD 0 .WORD 100050 .WORD 0 .WORD 50000 .WORD 0 .WORD 50 .WORD 250 .WORD 50000 .WORD 100000 .WORD 100050 .WORD 20000 .WORD 50000 .WORD 0 .WORD 50 .WORD 0 .WORD 370 .WORD 0 .WORD 154000 .WORD 0 .WORD 0 .WORD 370 .WORD 0 .WORD 100000 .WORD 4040 .WORD 100020 .WORD 40040 .WORD 10010 .WORD 100100 .WORD 20020 .WORD 10 .WORD 100100 .WORD 4040 .WORD 100020 .WORD 40040 .WORD 10010 .WORD 100100 .WORD 20020 .WORD 10 .WORD 70370 .WORD 310 .WORD 174000 .WORD 20370 .WORD 0 .WORD 70370 .WORD 120 .WORD 0 .WORD 144210 .WORD 30340 .WORD 104070 .WORD 60310 .WORD 14160 .WORD 140230 .WORD 30340 .WORD 70 .WORD 110220 .WORD 44260 .WORD 54110 .WORD 120240 .WORD 50250 .WORD 150120 .WORD 24050 .WORD 150 .WORD 174370 .WORD 174370 .WORD 174370 .WORD 174370 .WORD 174370 .WORD 174370 .WORD 174370 .WORD 370 N52660: CLR R5 MOV PC, R0 ADD #316, R0 MOV #2, R1 CALL N51354 N52700: MOV PC, R0 ADD #250, R0 MOV #10, R1 CALL N51354 CLR R4 N52720: CLR R3 N52722: MOV R4, R1 ASL R1 ASL R1 ASL R1 ASL R1 CALL N52142 MOV R4, R1 ASL R1 ASL R1 ASL R1 ASL R1 CALL N52160 INC R3 CMP #10, R3 BNE N52722 INC R4 CMP #20, R4 BNE N52720 INC R5 CMP #10, R5 BNE N52700 MOV @#K01032, -(SP) CLR @#K01032 CLR R4 MOV PC, R0 ADD #140, R0 MOV #10, R1 CALL N51354 N53036: CALL N36334 MOVB @#K01036, R0 CALL N41532 MOV #1502, R0 MOV #4, R1 CALL N51354 MOV PC, R0 ADD #102, R0 MOV #2, R1 CALL N51354 INC @#K01032 INC R4 CMP #17, R4 BNE N53036 MOV PC, R0 ADD #52, R0 MOV #6, R1 CALL N51354 MOV (SP)+, @#K01032 CALL N36334 JMP N45260 .WORD 31433 .WORD 5016 .WORD 55033 .WORD 3600 .WORD 5015 .WORD 46433 .WORD 20040 .WORD 20040 .WORD 20040 .WORD 50033 .WORD 15415 .WORD 6062 .WORD 5012 .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 N53332: HALT .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 N53476: HALT .WORD 0 .WORD 0 N53504: HALT .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 N53646: HALT .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 N53744: HALT .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 1021 TST @#K01006 BEQ N54136 BIT @#K03400, @#K00272 BNE N54032 BIC #3400, @#K00272 JMP N53646 N54032: ADD #400, @#K00272 JMP N53646 CMP R0, #73 BNE N54102 TST @#K01006 BEQ N54136 CMPB #377, @#K00272 BEQ N54136 ADD #1, @#K00272 JMP N53646 N54102: CMP R0, #55 BNE N54142 TST @#K01006 BEQ N54136 TSTB @#K00272 BEQ N54136 SUB #1, @#K00272 JMP N53646 N54136: JMP N54646 N54142: CMP R0, #111 BNE N54176 TST @#K00056 BNE N54162 CALL N55020 N54162: CALL N57256 CALL N53744 JMP N54646 N54176: CMP R0, #120 BNE N54214 CALL L71242 JMP N54646 N54214: CMP R0, #123 BNE N54250 CMP @#K01500, #377 BGE N54136 INC @#K01500 TST @#K00050 BEQ N54244 N54244: JMP N53476 N54250: CMP R0, #115 BNE N54270 TST @#K01500 BEQ N54136 DEC @#K01500 N54270: JMP N53476 CMP R0, #177 BNE N54320 N54302: TST @#K01016 BNE N54314 JMP N54646 N54314: JMP N53332 N54320: CMP R0, #201 BEQ N54302 CMP R0, #225 BNE N54344 CALL N54444 N54340: JMP N54646 N54344: CMP R0, #226 BNE N54356 JMP L62130 N54356: CMP R0, #232 BEQ N54314 CMP R0, #220 BNE N54270 TST @#K00050 BNE N54340 TST @#K01000 BNE N54414 COMB @#K01000 BR N54340 N54414: TSTB @#K01001 BNE N54430 COMB @#K01001 BR N54340 N54430: CLR @#K01000 CALL N57116 JMP N54646 N54444: TST @#K00050 BEQ N54510 MOV #232, R0 EMT 52 EMT 26 MOV R1, @#K01450 MOV R2, @#K01452 MOV #225, R0 EMT 16 MOV #236, R0 EMT 16 BR N54626 N54510: MOV #225, R0 EMT 16 CMPB #123, @#K01026 BEQ N54536 MOV #0, R3 MOV R3, R4 BR N54546 N54536: MOV @#K01450, R3 MOV @#K01452, R4 N54546: MOV #232, R0 EMT 52 N54554: EMT 26 CMP R3, R1 BEQ N54604 BLT N54572 MOV #31, R0 BR N54576 N54572: MOV #10, R0 N54576: EMT 52 EMT 52 BR N54554 N54604: CMP R4, R2 BEQ N54626 BLT N54620 MOV #33, R0 BR N54576 N54620: MOV #32, R0 BR N54576 N54626: RETURN N54630: BIC #200, R0 JMP N53504 SUB #40, R0 BR N54630 N54646: MOV #100, R1 N54652: MOV #100, R0 N54656: MOV #100, @#L77716 SOB R0, N54656 MOV #100, R0 N54672: MOV #0, @#L77716 SOB R0, N54672 SOB R1, N54652 JMP N53476 CMP #2, 6(SP) BGE N54750 CMP R0, #10 BEQ N55012 CMP R0, #34 BEQ N55012 CMP R0, #32 BEQ N55012 CMP R0, #35 BEQ N55012 N54750: CMP #354, 6(SP) BLE N55016 CMP R0, #37 BEQ N55012 CMP R0, #33 BEQ N55012 CMP R0, #36 BEQ N55012 CMP R0, #31 BEQ N55012 BR N55016 N55012: EMT 52 EMT 52 N55016: RETURN N55020: MOV R0, -(SP) MOV #232, R0 EMT 52 COMB @#K01027 MOV (SP)+, R0 RETURN N55040: CLRB @#K01040 CLRB @#K01033 CLRB @#K01034 MOV #1044, R0 N55060: TSTB (R0) BNE N55104 CMPB #377, @#K01040 BEQ N55154 INC R0 INCB @#K01040 BR N55060 N55104: MOVB @#K01040, @#K01033 MOVB @#K01040, @#K01034 N55120: CMPB (R0), #17 BEQ N55146 CMPB #377, @#K01040 BEQ N55146 INC R0 INCB @#K01040 BR N55120 N55146: MOVB @#K01040, @#K01034 N55154: MOV (SP)+, R0 RETURN N55160: TSTB @#K01037 BEQ N55170 RETURN N55170: CMPB @#K01031, #20 BLT N55210 MOVB #20, @#K01031 RETURN N55210: ASLB @#K01031 CALL N56070 RETURN N55222: TSTB @#K01037 BEQ N55232 RETURN N55232: CMPB @#K01031, #1 BNE N55244 RETURN N55244: ASRB @#K01031 CALL N56070 RETURN N55256: TSTB @#K01037 BEQ N55266 RETURN N55266: CMPB @#K01030, #357 BCS N55306 MOVB #357, @#K01030 RETURN N55306: INCB @#K01030 CALL N56070 RETURN N55320: TSTB @#K01037 BEQ N55330 RETURN N55330: TSTB @#K01030 BNE N55340 RETURN N55340: DECB @#K01030 CALL N56070 RETURN N55352: TSTB @#K01037 BEQ N55362 RETURN N55362: CMPB @#K01030, #347 BCS N55374 RETURN N55374: ADD #10, @#K01030 CALL N56070 RETURN N55410: TSTB @#K01037 BEQ N55420 RETURN N55420: CMPB @#K01030, #10 BHI N55432 RETURN N55432: SUB #10, @#K01030 CALL N56070 RETURN N55446: TSTB @#K01037 BEQ N55502 CLRB @#K01037 CLRB @#K01041 CLRB @#K01032 CLRB @#K01042 CALL N56070 RETURN N55502: INCB @#K01037 MOVB #1, @#K01041 CLRB @#K01032 CLR @#K01042 MOV R0, -(SP) MOV R1, -(SP) MOV #377, R1 MOV #1044, R0 N55540: MOVB #377, (R0)+ SOB R1, N55540 CALL N56334 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N55560: TSTB @#K01037 BNE N55570 RETURN N55570: CMPB @#K01043, #377 BNE N55602 RETURN N55602: MOV R0, -(SP) MOVB @#K01043, R0 BIC #177400, R0 ADD #1044, R0 MOVB @#K01032, (R0) INCB @#K01043 MOV (SP)+, R0 CALL N56334 RETURN N55640: TSTB @#K01037 BNE N55650 RETURN N55650: MOVB @#K01043, @#K01042 CMPB @#K01032, #17 BNE N55670 RETURN N55670: INCB @#K01032 CALL N56334 RETURN N55702: TSTB @#K01037 BNE N55502 RETURN N55712: TSTB @#K01037 BNE N55722 RETURN N55722: MOV R0, -(SP) N55724: CMPB @#K01043, #377 BEQ N55762 INCB @#K01043 MOVB @#K01043, R0 BIC #177400, R0 ADD #1044, R0 MOVB @#K01032, (R0) BR N55724 N55762: MOV (SP)+, R0 CLRB @#K01041 CALL N56334 CALL N57116 RETURN N56002: TSTB @#K01041 BEQ N56012 RETURN N56012: CMPB @#K01032, #17 BNE N56024 RETURN N56024: INCB @#K01032 CALL N56334 RETURN N56036: TSTB @#K01041 BEQ N56046 RETURN N56046: TSTB @#K01032 BNE N56056 RETURN N56056: DECB @#K01032 CALL N56334 RETURN N56070: MOV R0, -(SP) MOV R1, -(SP) MOV @#K01032, -(SP) CMPB @#K01031, #20 BNE N56116 CLRB @#K01030 BR N56170 N56116: MOVB @#K01031, R0 ASL R0 ASL R0 ASL R0 ASL R0 MOVB @#K01030, R1 BIC #177560, R1 ADD R0, R1 DEC R1 CMP R1, #377 BGT N56156 BR N56170 N56156: MOV #377, R1 SUB R0, R1 MOVB R1, @#K01030 N56170: CLRB @#K01032 CLRB @#K01040 MOV #1044, R0 N56204: CMPB @#K01040, @#K01030 BEQ N56224 CLRB (R0)+ INCB @#K01040 BR N56204 N56224: CLR R1 N56226: MOVB @#K01032, (R0)+ INC R1 INCB @#K01040 CMPB R1, @#K01031 BNE N56226 INCB @#K01032 CMPB @#K01032, #17 BNE N56224 N56262: CMPB @#K01040, #377 BEQ N56310 MOVB #17, (R0)+ MOVB #17, (R0) INCB @#K01040 BR N56262 N56310: MOV (SP)+, R1 MOVB R1, @#K01032 MOV (SP)+, R1 MOV (SP)+, R0 CALL N57116 CALL N56334 RETURN N56334: MOV R0, -(SP) CLRB @#K01040 MOV #1044, R0 CMPB @#K01032, (R0) BGE N56366 CLRB @#K01035 CLRB @#K01036 BR N56504 N56366: CMPB @#K01032, (R0) BEQ N56432 CMPB @#K01040, #377 BNE N56422 MOVB #377, @#K01035 MOVB #377, @#K01036 BR N56504 N56422: INCB @#K01040 INC R0 BR N56366 N56432: MOVB @#K01040, @#K01035 N56440: CMPB @#K01032, (R0) BEQ N56456 MOVB @#K01040, @#K01036 BR N56504 N56456: CMPB @#K01040, #377 BEQ N56476 INCB @#K01040 INC R0 BR N56440 N56476: MOVB #377, @#K01036 N56504: JMP N55040 CLR R1 CMPB @#K01031, #20 BNE N56524 INC R1 N56524: CMP R0, #10 BNE N56540 CALL N55160 BR N57010 N56540: CMP R0, #31 BNE N56554 CALL N55222 BR N57010 N56554: CMP R0, #32 BNE N56574 TST R1 BNE N57010 CALL N55256 BR N57010 N56574: CMP R0, #33 BNE N56614 TST R1 BNE N57010 CALL N55320 BR N57010 N56614: CMP R0, #34 BNE N56634 TST R1 BNE N57010 CALL N55352 BR N57010 N56634: CMP R0, #37 BNE N56654 TST R1 BNE N57010 CALL N55410 BR N57010 N56654: CMP R0, #24 BNE N56670 CALL N55446 BR N57010 N56670: CMP R0, #27 BNE N56704 CALL N55560 BR N57010 N56704: CMP R0, #26 BNE N56716 NOP BR N57010 N56716: CMP R0, #30 BNE N56732 CALL N55640 BR N57010 N56732: CMP R0, #22 BNE N56746 CALL N55702 BR N57010 N56746: CMP R0, #23 BNE N56762 CALL N55712 BR N57010 N56762: CMP R0, #35 BNE N56776 CALL N56002 BR N57010 N56776: CMP R0, #36 BNE N57010 CALL N56036 N57010: RETURN N57012: CMP R1, #100000 BCS N57026 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N57026: CLR (R1)+ INC R2 CMP R2, #40 BEQ N57042 BR N57012 N57042: ADD #100, R1 BR N57012 MOV R1, -(SP) MOV R2, -(SP) MOV #42000, R1 N57060: CLR R2 N57062: CMP R1, #100000 BCS N57076 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N57076: CLR (R1)+ CMP R2, #40 BEQ N57110 BR N57062 N57110: ADD #100, R1 BR N57060 N57116: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) MOV #2000, R1 MOV #42100, R0 N57142: CLR R5 N57144: CMP R0, #77577 BCC N57240 MOVB (R1)+, R2 BIC #177400, R2 ADD #1044, R2 MOVB (R2), R3 MOVB (R1)+, R2 BIC #177400, R2 ADD #1044, R2 MOVB (R2), R4 ASL R4 ASL R4 ASL R4 ASL R4 ADD R4, R3 MOVB R3, (R0)+ INC R5 CMP R5, #100 BNE N57144 BIC #170000, -(R0) ADD #102, R0 BR N57142 N57240: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N57256: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) MOV #42100, R1 MOV #42000, R2 MOVB @#K01032, R0 N57306: CMP R1, #77577 BCC N57410 CLR R4 MOV R5, R4 CLR R5 MOVB (R1), R3 BIC #177760, R3 CMPB R3, R0 BNE N57340 ADD #120, R4 N57340: MOVB (R1)+, R3 BIC #177417, R3 ASR R3 ASR R3 ASR R3 ASR R3 CMPB R3, R0 BNE N57366 MOV #5, R5 N57366: MOVB R4, (R2)+ BIT #77, R2 BNE N57306 ADD #100, R1 ADD #100, R2 BR N57306 N57410: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 RETURN N57426: CMP R1, #40000 BCS N57442 MOV (SP)+, R2 MOV (SP)+, R1 RETURN N57442: MOV R1, R2 ASL R2 MOVB R2, (R1)+ BR N57426 CMPB @#K01704, #71 BEQ N57470 INCB @#K01704 RETURN N57470: MOVB #60, @#K01704 CMPB @#K01703, #65 BEQ N57514 INCB @#K01703 RETURN N57514: MOVB #60, @#K01703 CMPB @#K01700, #62 BEQ N57564 CMPB @#K01701, #71 BEQ N57550 INCB @#K01701 RETURN N57550: MOVB #60, @#K01701 INCB @#K01700 RETURN N57564: CMPB @#K01701, #63 BEQ N57602 INCB @#K01701 RETURN N57602: MOVB #60, @#K01700 MOVB #60, @#K01701 RETURN CMPB @#K01706, #63 BEQ N57662 CMPB @#K01707, #71 BEQ N57646 INCB @#K01707 RETURN N57646: INCB @#K01706 MOVB #60, @#K01707 RETURN N57662: CMPB @#K01707, #61 BEQ N57700 INCB @#K01707 RETURN N57700: MOVB #61, @#K01707 MOVB #60, @#K01706 RETURN CMPB @#K01711, #61 BEQ N57760 CMPB @#K01712, #71 BEQ N57744 INCB @#K01712 RETURN N57744: INCB @#K01711 MOVB #60, @#K01712 RETURN N57760: CMPB @#K01712, #62 BEQ L57776 INCB @#K01712 RETURN L57776: .WORD 112737 .BLKW ^O<10> L60020: .BLKW .BLKW ^O<1> L60024: .BLKW .BLKW ^O<1> L60030: .BLKW .BLKW ^O<1> L60034: .BLKW .BLKW ^O<1> L60040: .BLKW .BLKW ^O<1> L60044: .BLKW .BLKW ^O<1> L60050: .BLKW .BLKW ^O<1> L60054: .BLKW .BLKW ^O<1> L60060: .BLKW .BLKW ^O<1> L60064: .BLKW .BLKW ^O<1> L60070: .BLKW .BLKW ^O<1> L60074: .BLKW .BLKW ^O<1> L60100: .BLKW .BLKW ^O<1013> L62130: .BLKW .BLKW ^O<3444> L71242: .BLKW .BLKW ^O<2546> L76560: .BLKW L76562: .BLKW L76564: .BLKW L76566: .BLKW .BLKW ^O<434> L77660: .BLKW L77662: .BLKW L77664: .BLKW .BLKW ^O<13> L77714: .BLKW L77716: .BLKW .END