mirror of
https://git.k-space.ee/arti/vt1200.git
synced 2026-10-30 12:03:54 +02:00
44 lines
1.8 KiB
Plaintext
44 lines
1.8 KiB
Plaintext
GSP COFF Assembler, Version 2.00, 87.300 Sun Oct 18 02:53:14 2026
|
|
(c) Copyright 1985, 1987, Texas Instruments Inc.
|
|
|
|
PAGE 1
|
|
|
|
0001 ; boxalign.asm -- CONTROL: one word-aligned solid black
|
|
0002 ;
|
|
0003 ; Box at framebuffer (512,416): x is a multiple of 16 (
|
|
0004 ; what the TMS34010 16-bit field store needs. Inside t
|
|
0005 ; white body, so a black box is unmistakable.
|
|
0006 ;
|
|
0007 ; Linked at bit 01840000h by dwt/visual/build.sh.
|
|
0008
|
|
0009 00000000 .text
|
|
0010 00000000 _start:
|
|
0011 00000000 0550 setf 16, 0, 0
|
|
0012 00000010 0740 setf 32, 0, 1
|
|
0013 00000020 4400 sub a0, a0 ; pattern = 0000 (black)
|
|
0014 00000030 09E2 movi 04068200h, a2, L ; 04000000h + 416*1024 + 512
|
|
00000040 04068200
|
|
0015 00000060 09E3 movi 64, a3, L ; 64 rows
|
|
00000070 00000040
|
|
0016 00000090 09E4 movi 4, a4, L ; 4 words = 64 px
|
|
000000A0 00000004
|
|
0017 000000C0 row:
|
|
0018 000000C0 4C85 move a4, a5
|
|
0019 000000D0 word:
|
|
0020 000000D0 9002 move a0, *a2+, 0
|
|
0021 000000E0 3C45 dsjs a5, word
|
|
0022 000000F0 0B02 addi 03C0h, a2 ; 1024 - 64 bits
|
|
00000100 03C0
|
|
0023 00000110 3CC3 dsjs a3, row
|
|
0024 00000120 09E0 movi 0A11Ah, a0, L
|
|
00000130 0000A11A
|
|
0025 00000150 0580 move a0, @01850020h, 0 ; ALIGN_MARK = A11A
|
|
00000160 01850020
|
|
0026 00000180 0360 dint
|
|
0027 00000190 spin:
|
|
0028 00000190 0300 nop
|
|
0029 000001A0 C0FE jruc spin
|
|
0030 .end
|
|
|
|
No Errors, No Warnings
|