mirror of
https://git.k-space.ee/arti/vt1200.git
synced 2026-10-30 12:03:54 +02:00
172 lines
6.2 KiB
Plaintext
172 lines
6.2 KiB
Plaintext
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
|