Update to add blinkenlights

2023-10-10 11:26:42 -05:00 · 2023-10-10 11:26:42 -05:00 · a1ec1bb9e8
commit a1ec1bb9e8
parent b0dd3f4f72
1 changed files with 20 additions and 0 deletions
--- a/src/altair8800/blinkenlights.asm
+++ b/src/altair8800/blinkenlights.asm
@ -0,0 +1,20 @@
+	org	100h
+	lxi	h, 0
+	mvi	d, 080h
+	lxi	b, 0eh
+beg:	ldax	d
+	ldax	d
+	ldax	d
+	ldax	d
+	dad	b
+	jnc	beg
+	in	0ffh
+	cpi	0ffh
+	jz	endp
+	xra	d
+	rrc
+	mov	d, a
+	jmp	beg
+
+endp: nop
+	end