mirror of
https://git.k-space.ee/arti/vt1200.git
synced 2026-10-30 12:03:54 +02:00
31 lines
735 B
NASM
31 lines
735 B
NASM
; boxalign.asm -- CONTROL: one word-aligned solid black 64x64 box, then spin.
|
|
;
|
|
; Box at framebuffer (512,416): x is a multiple of 16 (word-aligned), which is
|
|
; what the TMS34010 16-bit field store needs. Inside the Terminal Manager's
|
|
; white body, so a black box is unmistakable.
|
|
;
|
|
; Linked at bit 01840000h by dwt/visual/build.sh.
|
|
|
|
.text
|
|
_start:
|
|
setf 16, 0, 0
|
|
setf 32, 0, 1
|
|
sub a0, a0 ; pattern = 0000 (black)
|
|
movi 04068200h, a2, L ; 04000000h + 416*1024 + 512
|
|
movi 64, a3, L ; 64 rows
|
|
movi 4, a4, L ; 4 words = 64 px
|
|
row:
|
|
move a4, a5
|
|
word:
|
|
move a0, *a2+, 0
|
|
dsjs a5, word
|
|
addi 03C0h, a2 ; 1024 - 64 bits
|
|
dsjs a3, row
|
|
movi 0A11Ah, a0, L
|
|
move a0, @01850020h, 0 ; ALIGN_MARK = A11A
|
|
dint
|
|
spin:
|
|
nop
|
|
jruc spin
|
|
.end
|