From b1cca3dd577f1e733eb44051b1625fae31082c8f Mon Sep 17 00:00:00 2001
From: William Moore <caranmegil@gmail.com>
Date: Sat, 21 Oct 2023 20:06:57 -0500
Subject: [PATCH] Update to blinkenlights

---
 src/altair8800/blinkenlights.asm | 102 +++++++++++++++++++++++++------
 1 file changed, 82 insertions(+), 20 deletions(-)

diff --git a/src/altair8800/blinkenlights.asm b/src/altair8800/blinkenlights.asm
index df55d18..ac4be85 100644
--- a/src/altair8800/blinkenlights.asm
+++ b/src/altair8800/blinkenlights.asm
@@ -1,20 +1,82 @@
-	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
+	ORG 100H ; Starts on CP/M
+INIT	LXI H,DATA   ;  HL points to blinken data
+	SHLD SAVE_HL
+
+GETD	LHLD SAVE_HL   ;  restore HL
+	MOV A,M     ;  get data @ HL
+	CPI EOF       ;  End of the data list?
+	JZ INIT     ;  Yes, reset HL pointer.
+	MOV D,A     ;  No, put in D register for the display pattern.
+	INR L       ;  HL++
+	SHLD SAVE_HL   ;  Save data
+
+
+INPDEL	LXI H,0     ;  Init HL to zero before starting the delay loop
+	IN 0ffh
+	CPI 0ffh    ;  All Sense switches on is a HALT.
+	JZ DONE
+	ADI 1
+	MOV C,A     ;  sense switches to B
+	MVI B,0     ;  BC = <sense>00
+
+BLINK	LDAX D
+	LDAX D
+	LDAX D
+	LDAX D
+	DAD B
+	JNC BLINK
+	;  Done with this loop go get the next D
+	JMP GETD
+
+	; Halt if FF on sense switches. Some way to drop out.
+DONE	JMP 0H ; Works now on CP/M
+
+	; Somewhere to save HL, since it will get clobbered by the delay routine.
+SAVE_HL	DW 0
+	;  Put your pattern list here... this is just jiggy wiggy back forth here.
+
+DATA	DB 00010001b
+	DB 00100010b
+	DB 01000100b
+	DB 10001000b
+	db 00010001b
+	db 00100010b
+	DB 01000100b
+	db 10001000b
+	db 00010000b
+	db 00100000b
+	db 01000000b
+	db 10000000b
+	db 00000000b
+	db 10000000b
+	db 11000000b
+	db 01100000b
+	db 00110000b
+	db 00011000b
+	db 00001100b
+	db 00000110b
+	db 00000011b
+	db 00000001b
+	db 00000000b
+	db 00000001b
+	db 00000011b
+	db 00000111b
+	db 00001111b
+	db 00011111b
+	db 00111111b
+	db 01111111b
+	db 11111111b
+	db 11111110b
+	db 11111100b
+	db 11111000b
+	db 11110000b
+	db 11100000b
+	db 11000000b
+	db 10000000b
+	db 00000000b
+
+	DB EOF
+
+
+EOF	EQU 042  ; end of data
+	END
\ No newline at end of file