mirror of
https://git.k-space.ee/arti/vt1200.git
synced 2026-10-31 12:05:05 +02:00
91 lines
3.7 KiB
Plaintext
91 lines
3.7 KiB
Plaintext
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:49:28 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 1
|
|
|
|
0001 ; draw_box.asm -- one-shot static VRAM injection, then
|
|
0002 ;
|
|
0003 ; Draws three 32x32 solid-white boxes at framebuffer (x
|
|
0004 ; A (50,50) -- root weave, outside every window
|
|
0005 ; B (250,400) -- inside the Terminal Manager window b
|
|
0006 ; C (930,750) -- root weave, lower right
|
|
0007 ; Writes marker words and returns with `rets`, so the r
|
|
0008 ;
|
|
0009 ; Framebuffer model (harness/mame/RENDER_REPORT.md): ba
|
|
0010 ; 1024 bits per row, bit 0 = leftmost pixel, LSB-first
|
|
0011 ;
|
|
0012 ; Linked at bit 01840000h by dwt/visual/build.sh.
|
|
0013
|
|
0014 00000000 .text
|
|
0015 00000000 _start:
|
|
0016 00000000 0550 setf 16, 0, 0
|
|
0017 00000010 0740 setf 32, 0, 1
|
|
0018 00000020 09E0 movi 0FFFFh, a0, L ; pattern
|
|
00000030 0000FFFF
|
|
0019
|
|
0020 ; ---- box A: (50,50), 32 rows x 2 words = 32x32 px --
|
|
0021 00000050 09E2 movi 0400C832h, a2, L ; 04000000h + 50*1024 + 50
|
|
00000060 0400C832
|
|
0022 00000080 09E3 movi 32, a3, L
|
|
00000090 00000020
|
|
0023 000000B0 09E4 movi 2, a4, L
|
|
000000C0 00000002
|
|
0024 000000E0 rowA:
|
|
0025 000000E0 4C85 move a4, a5
|
|
0026 000000F0 wordA:
|
|
0027 000000F0 9002 move a0, *a2+, 0
|
|
0028 00000100 3C45 dsjs a5, wordA
|
|
0029 00000110 0B02 addi 03E0h, a2 ; 1024 - 32 bits
|
|
00000120 03E0
|
|
0030 00000130 3CC3 dsjs a3, rowA
|
|
0031
|
|
0032 ; ---- box B: (250,400) ------------------------------
|
|
0033 00000140 09E2 movi 040640FAh, a2, L ; 04000000h + 400*1024 + 250
|
|
00000150 040640FA
|
|
0034 00000170 09E3 movi 32, a3, L
|
|
00000180 00000020
|
|
0035 000001A0 09E4 movi 2, a4, L
|
|
000001B0 00000002
|
|
0036 000001D0 rowB:
|
|
0037 000001D0 4C85 move a4, a5
|
|
0038 000001E0 wordB:
|
|
0039 000001E0 9002 move a0, *a2+, 0
|
|
0040 000001F0 3C45 dsjs a5, wordB
|
|
0041 00000200 0B02 addi 03E0h, a2
|
|
00000210 03E0
|
|
0042 00000220 3CC3 dsjs a3, rowB
|
|
0043
|
|
0044 ; ---- box C: (930,750) ------------------------------
|
|
0045 00000230 09E2 movi 040BBBA2h, a2, L ; 04000000h + 750*1024 + 930
|
|
00000240 040BBBA2
|
|
0046 00000260 09E3 movi 32, a3, L
|
|
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:49:28 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 2
|
|
|
|
00000270 00000020
|
|
0047 00000290 09E4 movi 2, a4, L
|
|
000002A0 00000002
|
|
0048 000002C0 rowC:
|
|
0049 000002C0 4C85 move a4, a5
|
|
0050 000002D0 wordC:
|
|
0051 000002D0 9002 move a0, *a2+, 0
|
|
0052 000002E0 3C45 dsjs a5, wordC
|
|
0053 000002F0 0B02 addi 03E0h, a2
|
|
00000300 03E0
|
|
0054 00000310 3CC3 dsjs a3, rowC
|
|
0055
|
|
0056 00000320 09E0 movi 0D2A0h, a0, L
|
|
00000330 0000D2A0
|
|
0057 00000350 0580 move a0, @01850020h, 0 ; DRAW_MARK = D2A0
|
|
00000360 01850020
|
|
0058 00000380 09E0 movi 0B0C0h, a0, L
|
|
00000390 0000B0C0
|
|
0059 000003B0 0580 move a0, @01850030h, 0 ; DRAW_MARK2 = B0C0
|
|
000003C0 01850030
|
|
0060 000003E0 0960 rets
|
|
0061 .end
|
|
|
|
No Errors, No Warnings
|