; 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