000000: a7c5 MOVE -*A14,A5,1 000010: a7c6 MOVE -*A14,A6,1 000020: a7c3 MOVE -*A14,A3,1 000030: a7c4 MOVE -*A14,A4,1 000040: 4c61 MOVE A3,A1 000050: 4ca2 MOVE A5,A2 000060: 2583 SLL Ch,A3 000070: 2fc3 SRL 2h,A3 000080: 4c88 MOVE A4,A8 000090: ca03 JREQ D0h 0000a0: 2d48 SRL 16h,A8 0000b0: 5503 OR A8,A3 0000c0: 2544 SLL Ah,A4 0000d0: 2585 SLL Ch,A5 0000e0: 2fc5 SRL 2h,A5 0000f0: 4cc8 MOVE A6,A8 000100: ca03 JREQ 140h 000110: 2d48 SRL 16h,A8 000120: 5505 OR A8,A5 000130: 2546 SLL Ah,A6 000140: 2421 SLL 1h,A1 000150: 4600 SUBB A0,A0 000160: 2422 SLL 1h,A2 000170: 4708 SUBB A8,A8 000180: 2d61 SRL 15h,A1 000190: 2d62 SRL 15h,A2 0001a0: 09c7 07ff MOVI 7FFh,A7 0001c0: 48e1 CMP A7,A1 0001d0: ca00 0082 JREQ A10h 0001f0: 48e2 CMP A7,A2 000200: ca00 0084 JREQ A60h 000220: 4441 SUB A2,A1 000230: ca03 JREQ 270h 000240: c608 JRLE 2D0h 000250: 4022 ADD A1,A2 000260: c010 JR 370h 000270: 4865 CMP A3,A5 000280: c40e JRLT 370h 000290: c704 JRGT 2E0h 0002a0: 4886 CMP A4,A6 0002b0: c20b JRLS 370h 0002c0: c004 JR 310h 0002d0: 03a1 NEG A1 0002e0: 4c67 MOVE A3,A7 0002f0: 4ca3 MOVE A5,A3 000300: 4ce5 MOVE A7,A5 000310: 4c87 MOVE A4,A7 000320: 4cc4 MOVE A6,A4 000330: 4ce6 MOVE A7,A6 000340: 4c07 MOVE A0,A7 000350: 4d00 MOVE A8,A0 000360: 4ce8 MOVE A7,A8 000370: 4c21 MOVE A1,A1 000380: ca18 JREQ 510h 000390: 0b41 ffe1 CMPI 1Eh,A1 0003b0: c40e JRLT 4A0h 0003c0: 0b41 ffc2 CMPI 3Dh,A1 0003e0: c708 JRGT 470h 0003f0: 17c1 SUBK 1Eh,A1 000400: 2445 SLL 2h,A5 000410: 2c46 SRL 1Eh,A6 000420: 54a6 OR A5,A6 000430: 56a5 CLR A5 000440: 03a1 NEG A1 000450: 6626 SRL A1,A6 000460: c00a JR 510h 000470: 56a5 CLR A5 000480: 56c6 CLR A6 000490: c007 JR 510h 0004a0: 4ca7 MOVE A5,A7 0004b0: 03a1 NEG A1 0004c0: 6625 SRL A1,A5 0004d0: 6626 SRL A1,A6 0004e0: 1001 ADDK 20h,A1 0004f0: 6227 SLL A1,A7 000500: 54e6 OR A7,A6 000510: 4808 CMP A0,A8 000520: ca26 JREQ 790h 000530: 44c4 SUB A6,A4 000540: 46a3 SUBB A5,A3 000550: 6a67 LMO A3,A7 000560: ca0a JREQ 610h 000570: 1447 SUBK 2h,A7 000580: ca10 JREQ 690h 000590: 44e2 SUB A7,A2 0005a0: 62e3 SLL A7,A3 0005b0: 4c81 MOVE A4,A1 0005c0: 62e4 SLL A7,A4 0005d0: 1407 SUBK 20h,A7 0005e0: 66e1 SRL A7,A1 0005f0: 5423 OR A1,A3 000600: c008 JR 690h 000610: 6a87 LMO A4,A7 000620: ca3b JREQ 9E0h 000630: 17c2 SUBK 1Eh,A2 000640: 68e4 RL A7,A4 000650: 4c83 MOVE A4,A3 000660: 2fc3 SRL 2h,A3 000670: 27c4 SLL 1Eh,A4 000680: 44e2 SUB A7,A2 000690: 1ec4 BTST 9h,A4 0006a0: ca1a JREQ 850h 0006b0: 56e7 CLR A7 0006c0: 0b04 0400 ADDI 400h,A4 0006e0: 42e3 ADDC A7,A3 0006f0: 1c23 BTST 1Eh,A3 000700: ca14 JREQ 850h 000710: 1022 INC A2 000720: 2fe4 SRL 1h,A4 000730: 2fe3 SRL 1h,A3 000740: c910 JRNC 850h 000750: 0ba4 0000 8000 ORI 80000000h,A4 000780: c00c JR 850h 000790: 40c4 ADD A6,A4 0007a0: 42a3 ADDC A5,A3 0007b0: 1c23 BTST 1Eh,A3 0007c0: caec JREQ 690h 0007d0: 1022 INC A2 0007e0: 2fe4 SRL 1h,A4 0007f0: 2fe3 SRL 1h,A3 000800: c9e8 JRNC 690h 000810: 0ba4 0000 8000 ORI 80000000h,A4 000840: c0e4 JR 690h 000850: 4c42 MOVE A2,A2 000860: c433 JRLT BA0h 000870: cb05 JRNE 8D0h 000880: 4c63 MOVE A3,A3 000890: cb30 JRNE BA0h 0008a0: 4c84 MOVE A4,A4 0008b0: cb2e JRNE BA0h 0008c0: c011 JR 9E0h 0008d0: 0b42 f800 CMPI 7FFh,A2 0008f0: c524 JRGE B40h 000900: 4c68 MOVE A3,A8 000910: 2ec3 SRL Ah,A3 000920: 2ec4 SRL Ah,A4 000930: 26c8 SLL 16h,A8 000940: 5504 OR A8,A4 000950: 27e0 SLL 1Fh,A0 000960: 2682 SLL 14h,A2 000970: 5443 OR A2,A3 000980: 5403 OR A0,A3 000990: 928e MOVE A4,*A14+,1 0009a0: 926e MOVE A3,*A14+,1 0009b0: 09af 00ff MMFM SP,A0-A7 0009d0: 0960 RETS 0009e0: 5663 CLR A3 0009f0: 5684 CLR A4 000a00: c0f8 JR 990h 000a10: 48e2 CMP A7,A2 000a20: cb04 JRNE A70h 000a30: 4808 CMP A0,A8 000a40: cb0c JRNE B10h 000a50: c001 JR A70h 000a60: 4d00 MOVE A8,A0 000a70: 5621 CLR A1 000a80: 27e0 SLL 1Fh,A0 000a90: 0ba0 0000 7ff0 ORI 7FF00000h,A0 000ac0: 922e MOVE A1,*A14+,1 000ad0: 920e MOVE A0,*A14+,1 000ae0: 09af 00ff MMFM SP,A0-A7 000b00: 0960 RETS 000b10: 1887 MOVK 4h,A7 000b20: 5600 CLR A0 000b30: c008 JR BC0h 000b40: 18a7 MOVK 5h,A7 000b50: 27e0 SLL 1Fh,A0 000b60: 0ba0 0000 7ff0 ORI 7FF00000h,A0 000b90: c002 JR BC0h 000ba0: 1987 MOVK Ch,A7 000bb0: 5600 CLR A0