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

Update to have some more hardcoding and differences

Browse Source
This commit is contained in:
William Moore 2023-12-28 09:36:39 -06:00
parent 811766af00
commit 6fb93429cc
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/altair8800/blinkenlights.asm
View File

@ -31,11 +31,9 @@ GETD LHLD SAVE_HL ; restore HL
INPDEL LXI H,0 ; Init HL to zero before starting the delay loop INPDEL LXI H,0 ; Init HL to zero before starting the delay loop
IN 0FFH IN 0FFH
CPI 0FFH ; All Sense switches on is a HALT. CPI 00H ; All Sense switches off finishes the program.
JZ DONE JZ DONE
ADI 1 LXI B,4H ; Hardcoded timer
MOV C,A ; sense switches to B
MVI B,0 ; BC = <sense>00
BLINK LDAX D BLINK LDAX D
LDAX D LDAX D
@ -46,7 +44,7 @@ BLINK LDAX D
JMP GETD JMP GETD
; Done with this loop go get the next D ; Done with this loop go get the next D
; Return to CP/M if FF on sense switches. Some way to drop out. ; Return to CP/M if 00 on sense switches. Some way to drop out.
DONE JMP 0H DONE JMP 0H
; 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