mirror of
https://git.k-space.ee/arti/vt1200.git
synced 2026-10-31 12:05:05 +02:00
88 lines
3.4 KiB
Plaintext
88 lines
3.4 KiB
Plaintext
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:53:46 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 1
|
|
|
|
0001 ; drawal.asm -- one-shot static VRAM draw at word-align
|
|
0002 ;
|
|
0003 ; Three solid-black 32x32 boxes:
|
|
0004 ; A (48,48) root weave, outside every window
|
|
0005 ; B (256,400) inside the Terminal Manager white body
|
|
0006 ; C (928,752) root weave, lower right
|
|
0007 ; All x are multiples of 16, which the TMS34010 16-bit
|
|
0008 ; Writes marker words, then `rets` so the rdebug sessio
|
|
0009 ;
|
|
0010 ; Linked at bit 01840000h by dwt/visual/build.sh.
|
|
0011
|
|
0012 00000000 .text
|
|
0013 00000000 _start:
|
|
0014 00000000 0550 setf 16, 0, 0
|
|
0015 00000010 0740 setf 32, 0, 1
|
|
0016 00000020 4400 sub a0, a0 ; 0000 = black
|
|
0017
|
|
0018 ; box A (48,48)
|
|
0019 00000030 09E2 movi 0400C030h, a2, L
|
|
00000040 0400C030
|
|
0020 00000060 09E3 movi 32, a3, L
|
|
00000070 00000020
|
|
0021 00000090 09E4 movi 2, a4, L
|
|
000000A0 00000002
|
|
0022 000000C0 rowA:
|
|
0023 000000C0 4C85 move a4, a5
|
|
0024 000000D0 wordA:
|
|
0025 000000D0 9002 move a0, *a2+, 0
|
|
0026 000000E0 3C45 dsjs a5, wordA
|
|
0027 000000F0 0B02 addi 03E0h, a2
|
|
00000100 03E0
|
|
0028 00000110 3CC3 dsjs a3, rowA
|
|
0029
|
|
0030 ; box B (256,400)
|
|
0031 00000120 09E2 movi 04064100h, a2, L
|
|
00000130 04064100
|
|
0032 00000150 09E3 movi 32, a3, L
|
|
00000160 00000020
|
|
0033 00000180 09E4 movi 2, a4, L
|
|
00000190 00000002
|
|
0034 000001B0 rowB:
|
|
0035 000001B0 4C85 move a4, a5
|
|
0036 000001C0 wordB:
|
|
0037 000001C0 9002 move a0, *a2+, 0
|
|
0038 000001D0 3C45 dsjs a5, wordB
|
|
0039 000001E0 0B02 addi 03E0h, a2
|
|
000001F0 03E0
|
|
0040 00000200 3CC3 dsjs a3, rowB
|
|
0041
|
|
0042 ; box C (928,752)
|
|
0043 00000210 09E2 movi 040BC3A0h, a2, L
|
|
00000220 040BC3A0
|
|
0044 00000240 09E3 movi 32, a3, L
|
|
00000250 00000020
|
|
0045 00000270 09E4 movi 2, a4, L
|
|
00000280 00000002
|
|
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:53:46 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 2
|
|
|
|
0046 000002A0 rowC:
|
|
0047 000002A0 4C85 move a4, a5
|
|
0048 000002B0 wordC:
|
|
0049 000002B0 9002 move a0, *a2+, 0
|
|
0050 000002C0 3C45 dsjs a5, wordC
|
|
0051 000002D0 0B02 addi 03E0h, a2
|
|
000002E0 03E0
|
|
0052 000002F0 3CC3 dsjs a3, rowC
|
|
0053
|
|
0054 00000300 09E0 movi 0D2A0h, a0, L
|
|
00000310 0000D2A0
|
|
0055 00000330 0580 move a0, @01850020h, 0 ; DRAW_MARK = D2A0
|
|
00000340 01850020
|
|
0056 00000360 09E0 movi 0B0C0h, a0, L
|
|
00000370 0000B0C0
|
|
0057 00000390 0580 move a0, @01850030h, 0 ; DRAW_MARK2 = B0C0
|
|
000003A0 01850030
|
|
0058 000003C0 0960 rets
|
|
0059 .end
|
|
|
|
No Errors, No Warnings
|