Update to add blinkenlights
This commit is contained in:
parent
b0dd3f4f72
commit
a1ec1bb9e8
20
src/altair8800/blinkenlights.asm
Normal file
20
src/altair8800/blinkenlights.asm
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user