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 INIT LXI H,DATA ; HL points to blinken data
SHLD SAVE_HL SHLD SAVE_HL
@ -29,13 +29,14 @@ BLINK LDAX D
JMP GETD JMP GETD
; Halt if FF on sense switches. Some way to drop out. ; 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. ; Somewhere to save HL, since it will get clobbered by the delay routine.
SAVE_HL DW 0 SAVE_HL DW 0
; Put your pattern list here... this is just jiggy wiggy back forth here. ; Put your pattern list here... this is just jiggy wiggy back forth here.
DATA DB 00010001b DATA
DB 00010001b
DB 00100010b DB 00100010b
DB 01000100b DB 01000100b
DB 10001000b DB 10001000b