diff --git a/.gitignore b/.gitignore index d053652..041e2a2 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1,4 @@ *.hex -*.prn \ No newline at end of file +*.prn +*.lst +*.obj \ No newline at end of file diff --git a/src/altair8800/PokerDice.asm b/src/altair8800/PokerDice.asm index 277851b..d448310 100644 --- a/src/altair8800/PokerDice.asm +++ b/src/altair8800/PokerDice.asm @@ -66,16 +66,16 @@ ROLLTHEMBONES JNZ RTB1 CALL ROLL1 MOV M, C - INR 1 + INR L CALL ROLL2 MOV M, C - INR 1 + INR L CALL ROLL3 MOV M, C - INR 1 + INR L CALL ROLL4 MOV M, C - INR 1 + INR L CALL ROLL5 MOV M, C JMP RTBEND @@ -192,6 +192,11 @@ OUTPUT CALL PRINTS POP D + PUSH D + LXI D, TRANSLATION + CALL PRINTS + POP D + DCR L DCR L DCR L @@ -296,9 +301,10 @@ PRINTC SAVE_HL DW 0 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 HELD_DICE DB 0, 0, 0, 0, 0 -YOUROLLED DB "You rolled:", CR, LF, 0H NEWLINE DB CR, LF, 0H CR equ 0DH LF equ 0AH