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
