mirror of
https://git.k-space.ee/arti/vt1200.git
synced 2026-10-30 12:03:54 +02:00
86 lines
3.2 KiB
Plaintext
86 lines
3.2 KiB
Plaintext
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:51:11 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 1
|
|
|
|
0001 ; draw_spin.asm -- CONTROL payload: draw the same three
|
|
0002 ;
|
|
0003 ; It proves the coordinates and the renderer mapping (t
|
|
0004 ; next dumped frame). It deliberately does NOT return,
|
|
0005 ; this point. Compare with draw_box.asm, which returns
|
|
0006 ; and whose boxes are gone by the next dumped frame: th
|
|
0007 ;
|
|
0008 ; Linked at bit 01840000h by dwt/visual/build.sh.
|
|
0009
|
|
0010 00000000 .text
|
|
0011 00000000 _start:
|
|
0012 00000000 0550 setf 16, 0, 0
|
|
0013 00000010 0740 setf 32, 0, 1
|
|
0014 00000020 09E0 movi 0FFFFh, a0, L
|
|
00000030 0000FFFF
|
|
0015
|
|
0016 ; box A (50,50)
|
|
0017 00000050 09E2 movi 0400C832h, a2, L
|
|
00000060 0400C832
|
|
0018 00000080 09E3 movi 32, a3, L
|
|
00000090 00000020
|
|
0019 000000B0 09E4 movi 2, a4, L
|
|
000000C0 00000002
|
|
0020 000000E0 rowA:
|
|
0021 000000E0 4C85 move a4, a5
|
|
0022 000000F0 wordA:
|
|
0023 000000F0 9002 move a0, *a2+, 0
|
|
0024 00000100 3C45 dsjs a5, wordA
|
|
0025 00000110 0B02 addi 03E0h, a2
|
|
00000120 03E0
|
|
0026 00000130 3CC3 dsjs a3, rowA
|
|
0027
|
|
0028 ; box B (250,400)
|
|
0029 00000140 09E2 movi 040640FAh, a2, L
|
|
00000150 040640FA
|
|
0030 00000170 09E3 movi 32, a3, L
|
|
00000180 00000020
|
|
0031 000001A0 09E4 movi 2, a4, L
|
|
000001B0 00000002
|
|
0032 000001D0 rowB:
|
|
0033 000001D0 4C85 move a4, a5
|
|
0034 000001E0 wordB:
|
|
0035 000001E0 9002 move a0, *a2+, 0
|
|
0036 000001F0 3C45 dsjs a5, wordB
|
|
0037 00000200 0B02 addi 03E0h, a2
|
|
00000210 03E0
|
|
0038 00000220 3CC3 dsjs a3, rowB
|
|
0039
|
|
0040 ; box C (930,750)
|
|
0041 00000230 09E2 movi 040BBBA2h, a2, L
|
|
00000240 040BBBA2
|
|
0042 00000260 09E3 movi 32, a3, L
|
|
00000270 00000020
|
|
0043 00000290 09E4 movi 2, a4, L
|
|
000002A0 00000002
|
|
0044 000002C0 rowC:
|
|
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:51:11 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 2
|
|
|
|
0045 000002C0 4C85 move a4, a5
|
|
0046 000002D0 wordC:
|
|
0047 000002D0 9002 move a0, *a2+, 0
|
|
0048 000002E0 3C45 dsjs a5, wordC
|
|
0049 000002F0 0B02 addi 03E0h, a2
|
|
00000300 03E0
|
|
0050 00000310 3CC3 dsjs a3, rowC
|
|
0051
|
|
0052 00000320 09E0 movi 05B5Bh, a0, L
|
|
00000330 00005B5B
|
|
0053 00000350 0580 move a0, @01850020h, 0 ; SPIN_MARK = 5B5B
|
|
00000360 01850020
|
|
0054 00000380 0360 dint
|
|
0055 00000390 spin:
|
|
0056 00000390 0300 nop
|
|
0057 000003A0 C0FE jruc spin
|
|
0058 .end
|
|
|
|
No Errors, No Warnings
|