caranmegil/retrocoding
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update to blink it all

Browse Source
This commit is contained in:
William Moore 2023-12-23 16:41:50 -06:00
parent b1cca3dd57
commit be7709e040
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/altair8800/blinkenlights.asm
View File

@ -1,4 +1,4 @@
ORG 100H ; Starts on CP/M
ORG 100H
INIT LXI H,DATA ; HL points to blinken data
SHLD SAVE_HL
@ -29,13 +29,14 @@ BLINK LDAX D
JMP GETD
; Halt if FF on sense switches. Some way to drop out.
DONE JMP 0H ; Works now on CP/M
DONE HLT
; 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
DATA
DB 00010001b
DB 00100010b
DB 01000100b
DB 10001000b