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

Updates

Browse Source
This commit is contained in:
William Moore 2023-10-20 13:31:24 -05:00
parent c483f5b192
commit 865232fffc
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored
View File

@ -1,2 +1,4 @@
*.hex *.hex
*.prn *.prn
*.lst
*.obj

16
src/altair8800/PokerDice.asm
View File

@ -66,16 +66,16 @@ ROLLTHEMBONES
JNZ RTB1 JNZ RTB1
CALL ROLL1 CALL ROLL1
MOV M, C MOV M, C
INR 1 INR L
CALL ROLL2 CALL ROLL2
MOV M, C MOV M, C
INR 1 INR L
CALL ROLL3 CALL ROLL3
MOV M, C MOV M, C
INR 1 INR L
CALL ROLL4 CALL ROLL4
MOV M, C MOV M, C
INR 1 INR L
CALL ROLL5 CALL ROLL5
MOV M, C MOV M, C
JMP RTBEND JMP RTBEND
@ -192,6 +192,11 @@ OUTPUT
CALL PRINTS CALL PRINTS
POP D POP D
PUSH D
LXI D, TRANSLATION
CALL PRINTS
POP D
DCR L DCR L
DCR L DCR L
DCR L DCR L
@ -296,9 +301,10 @@ PRINTC
SAVE_HL DW 0 SAVE_HL DW 0
WELCOME DB "Welcome to the gambling halls of Mooreheim!", 0H WELCOME DB "Welcome to the gambling halls of Mooreheim!", 0H
YOUROLLED DB "You rolled:", CR, LF, 0H
TRANSLATION DB "Poker dice translations: 1: 9, 2: 10, 3: J, 4: Q, 5: K, 6: A", CR, LF, 0H
DICE DB 0, 0, 0, 0, 0 DICE DB 0, 0, 0, 0, 0
HELD_DICE DB 0, 0, 0, 0, 0 HELD_DICE DB 0, 0, 0, 0, 0
YOUROLLED DB "You rolled:", CR, LF, 0H
NEWLINE DB CR, LF, 0H NEWLINE DB CR, LF, 0H
CR equ 0DH CR equ 0DH
LF equ 0AH LF equ 0AH