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

Update for Mooreheim

Browse Source
This commit is contained in:
William Moore 2023-10-19 05:56:38 -05:00
parent 7756386d95
commit 83dd75d73d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/altair8800/Mooreheim.asm
View File

@ -22,12 +22,14 @@
; ;
; Toggle switches 6 and 7 when you want to move on to the next roll ; Toggle switches 6 and 7 when you want to move on to the next roll
; or continue holding the dice. ; or continue holding the dice.
; Once switches 6 and 7 are togged to position 1, the game end and ; Once switches 6 and 7 are togged to position 1, the game ends and
; your "hand" is displayed. ; your "hand" is displayed.
ORG 100H ORG 100H
; Driver logic ; Driver logic
LXI SP, 4000h
PUSH D PUSH D
LXI D, WELCOME LXI D, WELCOME
CALL PRINTS CALL PRINTS
@ -47,14 +49,18 @@ CHECKSWITCH6
IN 0FFH IN 0FFH
ANI 32 ANI 32
CNZ ROLLTHEMBONES CNZ ROLLTHEMBONES
JMP CHECKSWITCH6 IN 0FFH
ANI 32
JZ CHECKSWITCH6
CALL OUTPUT CALL OUTPUT
CHECKSWITCH7 CHECKSWITCH7
IN OFFH IN 0FFH
ANI 64 ANI 64
CNZ ROLLTHEMBONES CNZ ROLLTHEMBONES
JMP CHECKSWITCH7 IN 0FFH
ANI 64
JZ CHECKSWITCH7
CALL OUTPUT CALL OUTPUT
JMP 0h JMP 0h