AORG >0800 0800 0BE0? 0802 0BE0? 0804 0BE0? 0806 0B1C? 0808 0B6E? 080A 0B80? 080C 0BE0? 080E 0AF6? 0810 0BE0? 0812 0BE0? 0814 C138 MOV *R8+, R4 0816 136D JEQ >08F2 0818 0224 AI R4, >8000 081A 8000 081C 1002 JMP >0822 081E C138 MOV *R8+, R4 0820 1368 JEQ >08F2 0822 C000 MOV R0, R0 0824 1603 JNE >082C 0826 C004 MOV R4, R0 0828 C058 MOV *R8, R1 082A 1063 JMP >08F2 082C 04C6 CLR R6 082E C158 MOV *R8, R5 0830 04C2 CLR R2 0832 C0C0 MOV R0, R3 0834 C1C4 MOV R4, R7 0836 7000 SB R0, R0 0838 7104 SB R4, R4 083A 0A13 SLA R3, 1 083C 1702 JNC >0842 083E 06A0 BL @>0AE6 0840 0AE6 0842 0993 SRL R3, 9 0844 0A17 SLA R7, 1 0846 1704 JNC >0850 0848 0544 INV R4 084A 0505 NEG R5 084C 1701 JNC >0850 084E 0584 INC R4 0850 0997 SRL R7, 9 0852 C247 MOV R7, R9 0854 6243 S R3, R9 0856 1319 JEQ >088A 0858 0289 CI R9, >0006 085A 0006 085C 110F JLT >087C 085E C0C7 MOV R7, R3 0860 04C0 CLR R0 0862 04C1 CLR R1 0864 1012 JMP >088A 0866 C085 MOV R5, R2 0868 0AC2 SLA R2, 12 086A 001C DATA >001C 086C 4104 SZC R4, R4 086E 0587 INC R7 0870 81C3 C R3, R7 0872 130B JEQ >088A 0874 15F8 JGT >0866 0876 06A0 BL @>0AD4 0878 0AD4 087A 10FA JMP >0870 087C 0509 NEG R9 087E 0289 CI R9, >0006 0880 0006 0882 11F6 JLT >0870 0884 C1C3 MOV R3, R7 0886 04C4 CLR R4 0888 04C5 CLR R5 088A C186 MOV R6, R6 088C 1307 JEQ >089C 088E 002A DATA >002A 0890 4004 SZC R4, R0 0892 02CA STST R10 0894 024A ANDI R10, >E000 0896 E000 0898 E3CA SOC R10, R15 089A 0380 RTWP 089C 002A DATA >002A 089E 4004 SZC R4, R0 08A0 1325 JEQ >08EC 08A2 1504 JGT >08AC 08A4 06A0 BL @>0AE6 08A6 0AE6 08A8 0263 ORI R3, >0080 08AA 0080 08AC D000 MOVB R0, R0 08AE 1302 JEQ >08B4 08B0 06A0 BL @>0AD4 08B2 0AD4 08B4 0280 CI R0, >000F 08B6 000F 08B8 1509 JGT >08CC 08BA 24E0 CZC @>0BD6, R3 08BC 0BD6 08BE 1378 JEQ >09B0 08C0 0603 DEC R3 08C2 001D DATA >001D 08C4 4100 SZC R0, R4 08C6 09C2 SRL R2, 12 08C8 A042 A R2, R1 08CA 10F4 JMP >08B4 08CC 06C3 SWPB R3 08CE D003 MOVB R3, R0 08D0 1071 JMP >09B4 08D2 C038 MOV *R8+, R0 08D4 C058 MOV *R8, R1 08D6 1002 JMP >08DC 08D8 CE00 MOV R0, *R8+ 08DA C601 MOV R1, *R8 08DC 0242 ANDI R2, >1800 08DE 1800 08E0 E3C2 SOC R2, R15 08E2 1068 JMP >09B4 08E4 0242 ANDI R2, >1800 08E6 1800 08E8 E3C2 SOC R2, R15 08EA C000 MOV R0, R0 08EC 135C JEQ >09A6 08EE 0220 AI R0, >8000 08F0 8000 08F2 1060 JMP >09B4 08F4 C138 MOV *R8+, R4 08F6 1357 JEQ >09A6 08F8 06A0 BL @>0A4C 08FA 0A4C 08FC A187 A R7, R6 08FE FFC0 SOCB R0, *R15+ 0900 C085 MOV R5, R2 0902 3881 MPY R1, R2 0904 C205 MOV R5, R8 0906 3A00 MPY R0, R8 0908 C284 MOV R4, R10 090A 3A81 MPY R1, R10 090C 3804 MPY R4, R0 090E 002A DATA >002A 0910 420A SZC R10, R8 0912 1701 JNC >0916 0914 0580 INC R0 0916 002A DATA >002A 0918 4048 SZC R8, R1 091A 1701 JNC >091E 091C 0580 INC R0 091E D186 MOVB R6, R6 0920 1607 JNE >0930 0922 D001 MOVB R1, R0 0924 06C0 SWPB R0 0926 D042 MOVB R2, R1 0928 06C1 SWPB R1 092A 06C2 SWPB R2 092C C0C6 MOV R6, R3 092E 10C2 JMP >08B4 0930 CDC0 MOV R0, *R7+ 0932 CDC1 MOV R1, *R7+ 0934 CDC2 MOV R2, *R7+ 0936 C5C3 MOV R3, *R7 0938 E001 SOC R1, R0 093A E002 SOC R2, R0 093C E003 SOC R3, R0 093E 1602 JNE >0944 0940 026F ORI R15, >2000 0942 2000 0944 0380 RTWP 0946 C138 MOV *R8+, R4 0948 1319 JEQ >097C 094A 06A0 BL @>0A4C 094C 0A4C 094E 6187 S R7, R6 0950 0040 DATA >0040 0952 8100 C R0, R4 0954 1107 JLT >0964 0956 1502 JGT >095C 0958 8141 C R1, R5 095A 1A04 JL >0964 095C 0586 INC R6 095E 25A0 CZC @>0BD6, R6 0960 0BD6 0962 130C JEQ >097C 0964 001D DATA >001D 0966 4100 SZC R0, R4 0968 001D DATA >001D 096A 4204 SZC R4, R8 096C 3C04 DIV R4, R0 096E 04C2 CLR R2 0970 3C44 DIV R4, R1 0972 C245 MOV R5, R9 0974 0949 SRL R9, 4 0976 04CA CLR R10 0978 3E44 DIV R4, R9 097A 1903 JNO >0982 097C 026F ORI R15, >1800 097E 1800 0980 1019 JMP >09B4 0982 3A40 MPY R0, R9 0984 04C8 CLR R8 0986 001D DATA >001D 0988 4108 SZC R8, R4 098A 09CA SRL R10, 12 098C A24A A R10, R9 098E 0029 DATA >0029 0990 4008 SZC R8, R0 0992 C200 MOV R0, R8 0994 09C8 SRL R8, 12 0996 1302 JEQ >099C 0998 001C DATA >001C 099A 4100 SZC R0, R4 099C 001C DATA >001C 099E 4100 SZC R0, R4 09A0 06C6 SWPB R6 09A2 D006 MOVB R6, R0 09A4 1007 JMP >09B4 09A6 04C0 CLR R0 09A8 04C1 CLR R1 09AA 026F ORI R15, >2000 09AC 2000 09AE 100B JMP >09C6 09B0 026F ORI R15, >0800 09B2 0800 09B4 C000 MOV R0, R0 09B6 1105 JLT >09C2 09B8 1602 JNE >09BE 09BA C041 MOV R1, R1 09BC 13F6 JEQ >09AA 09BE 026F ORI R15, >C000 09C0 C000 09C2 026F ORI R15, >8000 09C4 8000 09C6 C740 MOV R0, *R13 09C8 CB41 MOV R1, @>0002(R13) 09CA 0002 09CC 0380 RTWP 09CE 04C8 CLR R8 09D0 1001 JMP >09D4 09D2 0708 SETO R8 09D4 04C2 CLR R2 09D6 C1C0 MOV R0, R7 09D8 13E6 JEQ >09A6 09DA C180 MOV R0, R6 09DC 7000 SB R0, R0 09DE 06C6 SWPB R6 09E0 0246 ANDI R6, >007F 09E2 007F 09E4 0226 AI R6, >FFBF 09E6 FFBF 09E8 112D JLT >0A44 09EA 0506 NEG R6 09EC 0226 AI R6, >0009 09EE 0009 09F0 0606 DEC R6 09F2 1108 JLT >0A04 09F4 001C DATA >001C 09F6 4101 SZC R1, R4 09F8 0A41 SLA R1, 4 09FA 001C DATA >001C 09FC 4100 SZC R0, R4 09FE 0240 ANDI R0, >0FFF 0A00 0FFF 0A02 10F6 JMP >09F0 0A04 C100 MOV R0, R4 0A06 C208 MOV R8, R8 0A08 160D JNE >0A24 0A0A C002 MOV R2, R0 0A0C C1C7 MOV R7, R7 0A0E 1501 JGT >0A12 0A10 0500 NEG R0 0A12 0282 CI R2, >8000 0A14 8000 0A16 1302 JEQ >0A1C 0A18 C082 MOV R2, R2 0A1A 11B0 JLT >097C 0A1C E101 SOC R1, R4 0A1E 1314 JEQ >0A48 0A20 04C1 CLR R1 0A22 10AC JMP >097C 0A24 C001 MOV R1, R0 0A26 C1C7 MOV R7, R7 0A28 1504 JGT >0A32 0A2A 0540 INV R0 0A2C 0502 NEG R2 0A2E 1701 JNC >0A32 0A30 0580 INC R0 0A32 0281 CI R1, >8000 0A34 8000 0A36 1302 JEQ >0A3C 0A38 C041 MOV R1, R1 0A3A 1102 JLT >0A40 0A3C C104 MOV R4, R4 0A3E 1304 JEQ >0A48 0A40 C042 MOV R2, R1 0A42 10EF JMP >0A22 0A44 04C0 CLR R0 0A46 04C2 CLR R2 0A48 C042 MOV R2, R1 0A4A 10B4 JMP >09B4 0A4C C000 MOV R0, R0 0A4E 13C4 JEQ >09D8 0A50 C158 MOV *R8, R5 0A52 C180 MOV R0, R6 0A54 C1C4 MOV R4, R7 0A56 7000 SB R0, R0 0A58 7104 SB R4, R4 0A5A C207 MOV R7, R8 0A5C 2A06 XOR R6, R8 0A5E 06C6 SWPB R6 0A60 0246 ANDI R6, >007F 0A62 007F 0A64 06C7 SWPB R7 0A66 0247 ANDI R7, >007F 0A68 007F 0A6A 04BB X *R11+ 0A6C A1BB A *R11+, R6 0A6E 0286 CI R6, >007F 0A70 007F 0A72 15D7 JGT >0A22 0A74 1B9D JH >09B0 0A76 0A18 SLA R8, 1 0A78 1702 JNC >0A7E 0A7A 0226 AI R6, >0080 0A7C 0080 0A7E 045B RT 0A80 C018 MOV *R8, R0 0A82 C040 MOV R0, R1 0A84 08F0 SRA R0, 15 0A86 026F ORI R15, >1000 0A88 1000 0A8A C080 MOV R0, R2 0A8C E081 SOC R1, R2 0A8E 13A4 JEQ >09D8 0A90 C1C0 MOV R0, R7 0A92 0247 ANDI R7, >8000 0A94 8000 0A96 1304 JEQ >0AA0 0A98 0540 INV R0 0A9A 0501 NEG R1 0A9C 1701 JNC >0AA0 0A9E 0580 INC R0 0AA0 0206 LI R6, >0048 0AA2 0048 0AA4 C000 MOV R0, R0 0AA6 1604 JNE >0AB0 0AA8 C001 MOV R1, R0 0AAA 04C1 CLR R1 0AAC 0226 AI R6, >FFFC 0AAE FFFC 0AB0 D000 MOVB R0, R0 0AB2 1603 JNE >0ABA 0AB4 001D DATA >001D 0AB6 4200 SZC R0, R8 0AB8 0646 DECT R6 0ABA C080 MOV R0, R2 0ABC 0242 ANDI R2, >F000 0ABE F000 0AC0 1603 JNE >0AC8 0AC2 001D DATA >001D 0AC4 4100 SZC R0, R4 0AC6 0606 DEC R6 0AC8 06C6 SWPB R6 0ACA 001C DATA >001C 0ACC 4200 SZC R0, R8 0ACE D006 MOVB R6, R0 0AD0 E007 SOC R7, R0 0AD2 10BB JMP >0A4A 0AD4 C081 MOV R1, R2 0AD6 0AC2 SLA R2, 12 0AD8 001C DATA >001C 0ADA 4100 SZC R0, R4 0ADC 0583 INC R3 0ADE 24E0 CZC @>0BD6, R3 0AE0 0BD6 0AE2 139F JEQ >0A22 0AE4 045B RT 0AE6 0540 INV R0 0AE8 0541 INV R1 0AEA 0502 NEG R2 0AEC 1703 JNC >0AF4 0AEE 0581 INC R1 0AF0 1701 JNC >0AF4 0AF2 0580 INC R0 0AF4 045B RT 0AF6 2560 CZC @>0B18, R5 0AF8 0B18 0AFA 1672 JNE >0BE0 0AFC 27E0 CZC @>0B1A, R15 0AFE 0B1A 0B00 1303 JEQ >0B08 0B02 0300 LIMI >0000 0B04 0000 0B06 0380 RTWP 0B08 0283 CI R3, >C000 0B0A C000 0B0C 1303 JEQ >0B14 0B0E 0283 CI R3, >6000 0B10 6000 0B12 1601 JNE >0B16 0B14 C08E MOV R14, R2 0B16 0384 DATA >0384 0B18 F83F SOCB *R15+, @>0100 0B1A 0100 0B1C 0285 CI R5, >0302 0B1E 0302 0B20 155F JGT >0BE0 0B22 1301 JEQ >0B26 0B24 04C5 CLR R5 0B26 024F ANDI R15, >07FF 0B28 07FF 0B2A C0BE MOV *R14+, R2 0B2C 0206 LI R6, >0004 0B2E 0004 0B30 C042 MOV R2, R1 0B32 0241 ANDI R1, >003F 0B34 003F 0B36 0101 DATA >0101 0B38 1601 JNE >0B3C 0B3A A686 A R6, *R10 0B3C C008 MOV R8, R0 0B3E 0242 ANDI R2, >0FC0 0B40 0FC0 0B42 0102 DATA >0102 0B44 1B04 JH >0B4E 0B46 C145 MOV R5, R5 0B48 1301 JEQ >0B4C 0B4A 0A16 SLA R6, 1 0B4C A646 A R6, *R9 0B4E C085 MOV R5, R2 0B50 C200 MOV R0, R8 0B52 C038 MOV *R8+, R0 0B54 C058 MOV *R8, R1 0B56 C117 MOV *R7, R4 0B58 C167 MOV @>0002(R7), R5 0B5A 0002 0B5C 0706 SETO R6 0B5E C082 MOV R2, R2 0B60 1604 JNE >0B6A 0B62 0224 AI R4, >8000 0B64 8000 0B66 0460 B @>0830 0B68 0830 0B6A 0460 B @>0900 0B6C 0900 0B6E 0285 CI R5, >0C3F 0B70 0C3F 0B72 1506 JGT >0B80 0B74 2560 CZC @>0BD4, R5 0B76 0BD4 0B78 161C JNE >0BB2 0B7A 0245 ANDI R5, >0006 0B7C 0006 0B7E 1011 JMP >0BA2 0B80 C2C5 MOV R5, R11 0B82 0245 ANDI R5, >01FF 0B84 01FF 0B86 0105 DATA >0105 0B88 1609 JNE >0B9C 0B8A 024B ANDI R11, >FFC0 0B8C FFC0 0B8E 028B CI R11, >0C80 0B90 0C80 0B92 1602 JNE >0B98 0B94 05DA INCT *R10 0B96 1002 JMP >0B9C 0B98 A6A0 A @>0B2E, *R10 0B9A 0B2E 0B9C 0855 SRA R5, 5 0B9E 0225 AI R5, >0006 0BA0 0006 0BA2 C01D MOV *R13, R0 0BA4 C06D MOV @>0002(R13), R1 0BA6 0002 0BA8 C08F MOV R15, R2 0BAA 024F ANDI R15, >07FF 0BAC 07FF 0BAE 0165 DATA >0165 0BB0 0BBE SRC R14, 11 0BB2 C1C5 MOV R5, R7 0BB4 0917 SRL R7, 1 0BB6 0287 CI R7, >0607 0BB8 0607 0BBA 1612 JNE >0BE0 0BBC 0380 RTWP 0BBE 09CE SRL R14, 12 0BC0 08E4 SRA R4, 14 0BC2 09D2 SRL R2, 13 0BC4 0A86 SLA R6, 8 0BC6 081E SRA R14, 1 0BC8 0A80 SLA R0, 8 0BCA 0814 SRA R4, 1 0BCC 08F4 SRA R4, 15 0BCE 0946 SRL R6, 4 0BD0 08D2 SRA R2, 13 0BD2 08D8 SRA R8, 13 0BD4 0039 DATA >0039 0BD6 007F DATA >007F 0BD8 FFFF SOCB *R15+, *R15+ 0BDA FFFF SOCB *R15+, *R15+ 0BDC FFFF SOCB *R15+, *R15+ 0BDE FFFF SOCB *R15+, *R15+ 0BE0 C1E0 MOV @>1000, R7 0BE2 1000 0BE4 0287 CI R7, >AAAA 0BE6 AAAA 0BE8 1602 JNE >0BEE 0BEA 0460 B @>1002 0BEC 1002 0BEE 0382 DATA >0382 0BF0 FFFF SOCB *R15+, *R15+ 0BF2 FFFF SOCB *R15+, *R15+ 0BF4 FFFF SOCB *R15+, *R15+ 0BF6 FFFF SOCB *R15+, *R15+ 0BF8 FFFF SOCB *R15+, *R15+ 0BFA FFFF SOCB *R15+, *R15+ 0BFC FFFF SOCB *R15+, *R15+ 0BFE FFFF SOCB *R15+, *R15+