luxferre/mu808
1
0
Fork 0
Code Actions Activity

updated blackjack example

Browse Source
This commit is contained in:
Luxferre
2025-04-30 13:52:31 +03:00
parent 538198a926
commit 350ab0ef17
2 changed files with 242 additions and 244 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/numjack.mu8a
+115 -116
View File
@@ -15,7 +15,6 @@
; Created by Luxferre in 2025, released into public domain
; constants section
set 1 0 50 ; set constant 1 to loc 50
set 10 0 51 ; set constant 10 to loc 51
set 100 0 52 ; set constant 100 to loc 52
set 13 0 53 ; upper RNG limit to loc 53
@@ -31,125 +30,125 @@ juc :main ; jump to the main code
; subroutines section (return address is in loc 99)
; random card pulling procedure (result is in loc 2, from 0 to 9)
:gcard rnd 50 53 1 ; set loc 1 to random integer between 1 and 13
div 1 51 2 ; divide it by 10 into loc 2
mdf 2 0 2 ; get the floor part of the result into the same loc 2
sub 50 2 2 ; subtract it from 1
fma 0 1 2 ; multiply by the random choice itself, result is in loc 2
iuc 99 ; jump to the return address in loc 99
:gcard rnd 127 53 1 ; set loc 1 to random integer between 1 and 13
div 1 51 2 ; divide it by 10 into loc 2
mdf 2 0 2 ; get the floor part of the result into the same loc 2
sub 127 2 2 ; subtract it from 1
mul 1 2 ; multiply by the random choice itself, result is in loc 2
iuc 99 ; jump to the return address in loc 99
; score evaluation procedure
; param is in loc 1, resulting scores are in locs 2 and 3
:score set 0 0 2 ; set score1 to 0
set 0 0 8 ; set aces to 0
:slp mdf 1 51 4 ; get the current digit n of val
div 1 51 1 ; divide val by 10
mdf 1 0 1 ; get the floor part into the same loc
jgt 4 :scn ; skip if n > 0
fma 51 50 4 ; add 10 to n
:scn fma 4 50 2 ; add n to score1 at loc 2
sub 4 50 5 ; subtract 1 from n to loc 5
jne 5 :sc2 ; skip if n != 1
fma 50 50 8 ; increment aces count at loc 8
:sc2 sub 1 50 5 ; subtract 1 from val to loc 5
jgt 5 :slp ; go to loop start if val > 1
cpy 1 2 3 ; assign score2 (at loc 3) = score1 (at loc 2)
sub 8 50 5 ; subtract 1 from aces (loc 8)
jne 5 :send ; go to procedure end if aces != 1
sub 2 56 5 ; subtract 12 from the score1 value
jge 5 :send ; go to procedure end if score1 >= 12
fma 51 50 3 ; add 10 to score2 if there was exactly one non-busting ace
:send iuc 99 ; jump to the return address in loc 99
:score set 0 0 2 ; set score1 to 0
set 0 0 8 ; set aces to 0
:slp mdf 1 51 4 ; get the current digit n of val
div 1 51 1 ; divide val by 10
mdf 1 0 1 ; get the floor part into the same loc
jgt 4 :scn ; skip if n > 0
fma 51 127 4 ; add 10 to n
:scn fma 4 127 2 ; add n to score1 at loc 2
sub 4 127 5 ; subtract 1 from n to loc 5
jne 5 :sc2 ; skip if n != 1
inc 8 ; increment aces count at loc 8
:sc2 sub 1 127 5 ; subtract 1 from val to loc 5
jgt 5 :slp ; go to loop start if val > 1
dva 2 3 ; assign score2 (at loc 3) = score1 (at loc 2)
sub 8 127 5 ; subtract 1 from aces (loc 8)
jne 5 :send ; go to procedure end if aces != 1
sub 2 56 5 ; subtract 12 from the score1 value
jge 5 :send ; go to procedure end if score1 >= 12
fma 51 127 3 ; add 10 to score2 if there was exactly one non-busting ace
:send iuc 99 ; jump to the return address in loc 99
; main code section
; variables:
; 60 - balance, 61 - bet, 62 - dealer's hand, 63 - player's hand, 64 - round
:main out 58 58 1 ; output the dollar sign (if supported)
out 60 60 0 ; output the current balance
jeq 60 :end ; game over if it's zero
inp 61 61 0 ; input your bet
sub 60 61 60 ; subtract the bet from the balance
jlt 60 :end ; game over if over balance
cpy 0 :r1 99 ; set the return address
juc :gcard ; call the card generation procedure
:r1 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2
cpy 1 2 62 ; copy the result into loc 62
cpy 0 :r2 99 ; set the return address
juc :gcard ; call the card generation procedure again (in loc 2)
:r2 fma 2 50 62 ; add this result into loc 62 (dealer's hand)
cpy 1 62 1 ; copy the dealer's hand as the proc parameter
cpy 0 :r3 99 ; set the return address
juc :score ; call the scoring procedure
:r3 sub 3 55 5 ; we only have to compare score 2 to 21
jeq 5 :main ; start the loop over if we have dealer's blackjack
cpy 0 :r4 99 ; set the return address
juc :gcard ; call the card generation procedure
:r4 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2
cpy 1 2 63 ; copy the result into loc 63 (player's hand)
cpy 0 :r5 99 ; set the return address
juc :gcard ; call the card generation procedure again (in loc 2)
:r5 fma 2 50 63 ; add this result into loc 63 (player's hand)
div 62 51 5 ; get the start of the dealer's hand by dividing it by 10...
mdf 5 0 5 ; and getting the floor part
out 5 5 0 ; display the start of the dealer's hand
set 0 0 64 ; set the round index to 0
set 0 0 9 ; set the stand flag to 0
:rnl out 63 63 0 ; start of the inner player loop, display the player's hand
inp 6 6 0 ; input the action into loc 6
jeq 6 :std ; jump to stand action if 0
sub 6 50 5 ; check if 1
jeq 5 :hit ; jump to hit action if 1
sub 5 50 5 ; check if 2
jeq 5 :dbl ; jump to double action if 2
juc :skp ; jump to skip otherwise
:dbl jne 64 :skp ; skip double if not the first round
sub 60 61 60 ; subtract more balance
fma 61 50 61 ; double the bet
set 1 0 9 ; set the stand flag, proceed to the hit section next
:hit cpy 0 :r6 99 ; set the return address
juc :gcard ; call the card generation procedure
:r6 fma 2 51 63 ; loc 63 <- loc 63 * 10 + card in loc 2
fma 50 50 64 ; increment the round index
juc :skp ; jump to skip afterwards
:std set 1 0 9 ; set the stand flag
fma 50 50 64 ; increment the round index
:skp cpy 1 63 1 ; copy the current player's hand to loc 1 as a parameter
cpy 0 :r7 99 ; set the return address
juc :score ; call the scoring procedure
:r7 sub 2 55 5 ; we only have to compare score 1 to 21
jle 5 :nob ; reloop to beginning if the player is bust
out 63 63 0 ; output the player's hand
juc :main ; reloop
:nob jeq 9 :rnl ; repeat the inner player loop if the stand flag is 0
cpy 1 3 72 ; copy the player score 2 to loc 72
set 0 0 9 ; set the stand flag to 0
:rnd cpy 1 62 1 ; start the inner dealer's loop, set the scoring procedure param
cpy 0 :r9 99 ; set the return address
juc :score ; call the scoring procedure
:r9 sub 2 55 5 ; we need to compare score 1 to 21 => loc 5
sub 3 54 6 ; we need to compare score 2 to 16 => loc 6
jgt 5 :s3 ; go to stand if score1 > 21
jgt 6 :s3 ; go to stand if score2 > 16
juc :s4 ; skip if neither
:s3 juc :s5 ; jump outside to stand
:s4 cpy 0 :r8 99 ; set the return address
juc :gcard ; call the card generation procedure
:r8 fma 2 51 62 ; loc 62 <- loc 62 * 10 + card in loc 2
jeq 9 :rnd ; repeat the inner dealer loop if the stand flag is 0
:s5 out 62 63 0 ; output both hands (dealer's first)
sub 63 80 1 ; compare player hand with 101
jeq 1 :bjk ; jump to the blackjack condition if equal
sub 63 81 1 ; compare player hand with 110
jeq 1 :bjk ; jump to the blackjack condition if equal
sub 3 72 1 ; compare dealer score 2 and player score 2
jeq 1 :push ; push condition
jlt 1 :win ; player win condition
sub 2 55 1 ; compare dealer score 1 with 21
jgt 1 :win ; player win condition
juc :main ; reloop to beginning
:bjk div 61 57 1 ; halve the bet
fma 1 50 60 ; add half the bet (for blackjack calc)
:win fma 61 50 60 ; add bet first time
:push fma 61 50 60 ; add bet second time
juc :main ; reloop to beginning
:end nop 0 0 0 ; just a nop label for the program end
:main out 58 58 1 ; output the dollar sign (if supported)
out 60 60 0 ; output the current balance
jeq 60 :end ; game over if it's zero
inp 61 61 0 ; input your bet
sub 60 61 60 ; subtract the bet from the balance
jlt 60 :end ; game over if over balance
dca :r1 99 ; set the return address
juc :gcard ; call the card generation procedure
:r1 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2
dva 2 62 ; copy the result into loc 62
dca :r2 99 ; set the return address
juc :gcard ; call the card generation procedure again (in loc 2)
:r2 fma 2 127 62 ; add this result into loc 62 (dealer's hand)
dva 62 1 ; copy the dealer's hand as the proc parameter
dca :r3 99 ; set the return address
juc :score ; call the scoring procedure
:r3 sub 3 55 5 ; we only have to compare score 2 to 21
jeq 5 :main ; start the loop over if we have dealer's blackjack
dca :r4 99 ; set the return address
juc :gcard ; call the card generation procedure
:r4 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2
dva 2 63 ; copy the result into loc 63 (player's hand)
dca :r5 99 ; set the return address
juc :gcard ; call the card generation procedure again (in loc 2)
:r5 fma 2 127 63 ; add this result into loc 63 (player's hand)
div 62 51 5 ; get the start of the dealer's hand by dividing it by 10...
mdf 5 0 5 ; and getting the floor part
out 5 5 0 ; display the start of the dealer's hand
set 0 0 64 ; set the round index to 0
set 0 0 9 ; set the stand flag to 0
:rnl out 63 63 0 ; start of the inner player loop, display the player's hand
inp 6 6 0 ; input the action into loc 6
jeq 6 :std ; jump to stand action if 0
sub 6 127 5 ; check if 1
jeq 5 :hit ; jump to hit action if 1
sub 5 127 5 ; check if 2
jeq 5 :dbl ; jump to double action if 2
juc :skp ; jump to skip otherwise
:dbl jne 64 :skp ; skip double if not the first round
sub 60 61 60 ; subtract more balance
mul 57 61 ; double the bet
set 1 0 9 ; set the stand flag, proceed to the hit section next
:hit dca :r6 99 ; set the return address
juc :gcard ; call the card generation procedure
:r6 fma 2 51 63 ; loc 63 <- loc 63 * 10 + card in loc 2
inc 64 ; increment the round index
juc :skp ; jump to skip afterwards
:std set 1 0 9 ; set the stand flag
inc 64 ; increment the round index
:skp dva 63 1 ; copy the current player's hand to loc 1 as a parameter
dca :r7 99 ; set the return address
juc :score ; call the scoring procedure
:r7 sub 2 55 5 ; we only have to compare score 1 to 21
jle 5 :nob ; reloop to beginning if the player is bust
out 63 63 0 ; output the player's hand
juc :main ; reloop
:nob jeq 9 :rnl ; repeat the inner player loop if the stand flag is 0
dva 3 72 ; copy the player score 2 to loc 72
set 0 0 9 ; set the stand flag to 0
:rnd dva 62 1 ; start the inner dealer's loop, set the scoring procedure param
dca :r9 99 ; set the return address
juc :score ; call the scoring procedure
:r9 sub 2 55 5 ; we need to compare score 1 to 21 => loc 5
sub 3 54 6 ; we need to compare score 2 to 16 => loc 6
jgt 5 :s3 ; go to stand if score1 > 21
jgt 6 :s3 ; go to stand if score2 > 16
juc :s4 ; skip if neither
:s3 juc :s5 ; jump outside to stand
:s4 dca :r8 99 ; set the return address
juc :gcard ; call the card generation procedure
:r8 fma 2 51 62 ; loc 62 <- loc 62 * 10 + card in loc 2
jeq 9 :rnd ; repeat the inner dealer loop if the stand flag is 0
:s5 out 62 63 0 ; output both hands (dealer's first)
sub 63 80 1 ; compare player hand with 101
jeq 1 :bjk ; jump to the blackjack condition if equal
sub 63 81 1 ; compare player hand with 110
jeq 1 :bjk ; jump to the blackjack condition if equal
sub 3 72 1 ; compare dealer score 2 and player score 2
jeq 1 :push ; push condition
jlt 1 :win ; player win condition
sub 2 55 1 ; compare dealer score 1 with 21
jgt 1 :win ; player win condition
juc :main ; reloop to beginning
:bjk div 61 57 1 ; halve the bet
fma 1 127 60 ; add half the bet (for blackjack calc)
:win fma 61 127 60 ; add bet first time
:push fma 61 127 60 ; add bet second time
juc :main ; reloop to beginning
:end nop 0 0 0 ; just a nop label for the program end