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/assembled/numjack.mu8
+127 -128
View File
@@ -1,128 +1,127 @@
1 5 1 0 50 1 5 10 0 51
2 5 10 0 51 2 5 100 0 52
3 5 100 0 52 3 5 13 0 53
4 5 13 0 53 4 5 16 0 54
5 5 16 0 54 5 5 21 0 55
6 5 21 0 55 6 5 12 0 56
7 5 12 0 56 7 5 1000 0 60
8 5 1000 0 60 8 5 2 0 57
9 5 2 0 57 9 5 36 0 58
10 5 36 0 58 10 5 101 0 80
11 5 101 0 80 11 5 110 0 81
12 5 110 0 81 12 1 6 0 39
13 1 6 0 40 13 15 127 53 1
14 15 50 53 1 14 9 1 51 2
15 9 1 51 2 15 10 2 0 2
16 10 2 0 2 16 8 127 2 2
17 8 50 2 2 17 7 0 1 2
18 7 0 1 2 18 1 13 0 99
19 1 13 0 99 19 5 0 0 2
20 5 0 0 2 20 5 0 0 8
21 5 0 0 8 21 10 1 51 4
22 10 1 51 4 22 9 1 51 1
23 9 1 51 1 23 10 1 0 1
24 10 1 0 1 24 1 1 4 26
25 1 1 4 27 25 7 51 127 4
26 7 51 50 4 26 7 4 127 2
27 7 4 50 2 27 8 4 127 5
28 8 4 50 5 28 1 5 5 30
29 1 5 5 31 29 7 127 127 8
30 7 50 50 8 30 8 1 127 5
31 8 1 50 5 31 1 1 5 21
32 1 1 5 22 32 6 1 2 3
33 6 1 2 3 33 8 8 127 5
34 8 8 50 5 34 1 5 5 38
35 1 5 5 39 35 8 2 56 5
36 8 2 56 5 36 1 3 5 38
37 1 3 5 39 37 7 51 127 3
38 7 51 50 3 38 1 13 0 99
39 1 13 0 99 39 3 58 58 1
40 3 58 58 1 40 3 60 60 0
41 3 60 60 0 41 1 0 60 127
42 1 0 60 128 42 4 61 61 0
43 4 61 61 0 43 8 60 61 60
44 8 60 61 60 44 1 2 60 127
45 1 2 60 128 45 6 0 47 99
46 6 0 48 99 46 1 6 0 13
47 1 6 0 14 47 7 52 51 2
48 7 52 51 2 48 6 1 2 62
49 6 1 2 62 49 6 0 51 99
50 6 0 52 99 50 1 6 0 13
51 1 6 0 14 51 7 2 127 62
52 7 2 50 62 52 6 1 62 1
53 6 1 62 1 53 6 0 55 99
54 6 0 56 99 54 1 6 0 19
55 1 6 0 20 55 8 3 55 5
56 8 3 55 5 56 1 0 5 39
57 1 0 5 40 57 6 0 59 99
58 6 0 60 99 58 1 6 0 13
59 1 6 0 14 59 7 52 51 2
60 7 52 51 2 60 6 1 2 63
61 6 1 2 63 61 6 0 63 99
62 6 0 64 99 62 1 6 0 13
63 1 6 0 14 63 7 2 127 63
64 7 2 50 63 64 9 62 51 5
65 9 62 51 5 65 10 5 0 5
66 10 5 0 5 66 3 5 5 0
67 3 5 5 0 67 5 0 0 64
68 5 0 0 64 68 5 0 0 9
69 5 0 0 9 69 3 63 63 0
70 3 63 63 0 70 4 6 6 0
71 4 6 6 0 71 1 0 6 86
72 1 0 6 87 72 8 6 127 5
73 8 6 50 5 73 1 0 5 81
74 1 0 5 82 74 8 5 127 5
75 8 5 50 5 75 1 0 5 77
76 1 0 5 78 76 1 6 0 88
77 1 6 0 89 77 1 5 64 88
78 1 5 64 89 78 8 60 61 60
79 8 60 61 60 79 7 0 57 61
80 7 61 50 61 80 5 1 0 9
81 5 1 0 9 81 6 0 83 99
82 6 0 84 99 82 1 6 0 13
83 1 6 0 14 83 7 2 51 63
84 7 2 51 63 84 7 127 127 64
85 7 50 50 64 85 1 6 0 88
86 1 6 0 89 86 5 1 0 9
87 5 1 0 9 87 7 127 127 64
88 7 50 50 64 88 6 1 63 1
89 6 1 63 1 89 6 0 91 99
90 6 0 92 99 90 1 6 0 19
91 1 6 0 20 91 8 2 55 5
92 8 2 55 5 92 1 4 5 95
93 1 4 5 96 93 3 63 63 0
94 3 63 63 0 94 1 6 0 39
95 1 6 0 40 95 1 0 9 69
96 1 0 9 70 96 6 1 3 72
97 6 1 3 72 97 5 0 0 9
98 5 0 0 9 98 6 1 62 1
99 6 1 62 1 99 6 0 101 99
100 6 0 102 99 100 1 6 0 19
101 1 6 0 20 101 8 2 55 5
102 8 2 55 5 102 8 3 54 6
103 8 3 54 6 103 1 1 5 106
104 1 1 5 107 104 1 1 6 106
105 1 1 6 107 105 1 6 0 107
106 1 6 0 108 106 1 6 0 111
107 1 6 0 112 107 6 0 109 99
108 6 0 110 99 108 1 6 0 13
109 1 6 0 14 109 7 2 51 62
110 7 2 51 62 110 1 0 9 98
111 1 0 9 99 111 3 62 63 0
112 3 62 63 0 112 8 63 80 1
113 8 63 80 1 113 1 0 1 122
114 1 0 1 123 114 8 63 81 1
115 8 63 81 1 115 1 0 1 122
116 1 0 1 123 116 8 3 72 1
117 8 3 72 1 117 1 0 1 125
118 1 0 1 126 118 1 2 1 124
119 1 2 1 125 119 8 2 55 1
120 8 2 55 1 120 1 1 1 124
121 1 1 1 125 121 1 6 0 39
122 1 6 0 40 122 9 61 57 1
123 9 61 57 1 123 7 1 127 60
124 7 1 50 60 124 7 61 127 60
125 7 61 50 60 125 7 61 127 60
126 7 61 50 60 126 1 6 0 39
127 1 6 0 40 127 0 0 0 0
128 0 0 0 0
examples/numjack.mu8a
+115 -116
View File
@@ -15,7 +15,6 @@
; Created by Luxferre in 2025, released into public domain ; Created by Luxferre in 2025, released into public domain
; constants section ; constants section
set 1 0 50 ; set constant 1 to loc 50
set 10 0 51 ; set constant 10 to loc 51 set 10 0 51 ; set constant 10 to loc 51
set 100 0 52 ; set constant 100 to loc 52 set 100 0 52 ; set constant 100 to loc 52
set 13 0 53 ; upper RNG limit to loc 53 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) ; subroutines section (return address is in loc 99)
; random card pulling procedure (result is in loc 2, from 0 to 9) ; 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 :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 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 mdf 2 0 2 ; get the floor part of the result into the same loc 2
sub 50 2 2 ; subtract it from 1 sub 127 2 2 ; subtract it from 1
fma 0 1 2 ; multiply by the random choice itself, result is in loc 2 mul 1 2 ; multiply by the random choice itself, result is in loc 2
iuc 99 ; jump to the return address in loc 99 iuc 99 ; jump to the return address in loc 99
; score evaluation procedure ; score evaluation procedure
; param is in loc 1, resulting scores are in locs 2 and 3 ; param is in loc 1, resulting scores are in locs 2 and 3
:score set 0 0 2 ; set score1 to 0 :score set 0 0 2 ; set score1 to 0
set 0 0 8 ; set aces to 0 set 0 0 8 ; set aces to 0
:slp mdf 1 51 4 ; get the current digit n of val :slp mdf 1 51 4 ; get the current digit n of val
div 1 51 1 ; divide val by 10 div 1 51 1 ; divide val by 10
mdf 1 0 1 ; get the floor part into the same loc mdf 1 0 1 ; get the floor part into the same loc
jgt 4 :scn ; skip if n > 0 jgt 4 :scn ; skip if n > 0
fma 51 50 4 ; add 10 to n fma 51 127 4 ; add 10 to n
:scn fma 4 50 2 ; add n to score1 at loc 2 :scn fma 4 127 2 ; add n to score1 at loc 2
sub 4 50 5 ; subtract 1 from n to loc 5 sub 4 127 5 ; subtract 1 from n to loc 5
jne 5 :sc2 ; skip if n != 1 jne 5 :sc2 ; skip if n != 1
fma 50 50 8 ; increment aces count at loc 8 inc 8 ; increment aces count at loc 8
:sc2 sub 1 50 5 ; subtract 1 from val to loc 5 :sc2 sub 1 127 5 ; subtract 1 from val to loc 5
jgt 5 :slp ; go to loop start if val > 1 jgt 5 :slp ; go to loop start if val > 1
cpy 1 2 3 ; assign score2 (at loc 3) = score1 (at loc 2) dva 2 3 ; assign score2 (at loc 3) = score1 (at loc 2)
sub 8 50 5 ; subtract 1 from aces (loc 8) sub 8 127 5 ; subtract 1 from aces (loc 8)
jne 5 :send ; go to procedure end if aces != 1 jne 5 :send ; go to procedure end if aces != 1
sub 2 56 5 ; subtract 12 from the score1 value sub 2 56 5 ; subtract 12 from the score1 value
jge 5 :send ; go to procedure end if score1 >= 12 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 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 :send iuc 99 ; jump to the return address in loc 99
; main code section ; main code section
; variables: ; variables:
; 60 - balance, 61 - bet, 62 - dealer's hand, 63 - player's hand, 64 - round ; 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) :main out 58 58 1 ; output the dollar sign (if supported)
out 60 60 0 ; output the current balance out 60 60 0 ; output the current balance
jeq 60 :end ; game over if it's zero jeq 60 :end ; game over if it's zero
inp 61 61 0 ; input your bet inp 61 61 0 ; input your bet
sub 60 61 60 ; subtract the bet from the balance sub 60 61 60 ; subtract the bet from the balance
jlt 60 :end ; game over if over balance jlt 60 :end ; game over if over balance
cpy 0 :r1 99 ; set the return address dca :r1 99 ; set the return address
juc :gcard ; call the card generation procedure juc :gcard ; call the card generation procedure
:r1 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2 :r1 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2
cpy 1 2 62 ; copy the result into loc 62 dva 2 62 ; copy the result into loc 62
cpy 0 :r2 99 ; set the return address dca :r2 99 ; set the return address
juc :gcard ; call the card generation procedure again (in loc 2) 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) :r2 fma 2 127 62 ; add this result into loc 62 (dealer's hand)
cpy 1 62 1 ; copy the dealer's hand as the proc parameter dva 62 1 ; copy the dealer's hand as the proc parameter
cpy 0 :r3 99 ; set the return address dca :r3 99 ; set the return address
juc :score ; call the scoring procedure juc :score ; call the scoring procedure
:r3 sub 3 55 5 ; we only have to compare score 2 to 21 :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 jeq 5 :main ; start the loop over if we have dealer's blackjack
cpy 0 :r4 99 ; set the return address dca :r4 99 ; set the return address
juc :gcard ; call the card generation procedure juc :gcard ; call the card generation procedure
:r4 fma 52 51 2 ; loc 2 <- 100 + 10 * card in loc 2 :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) dva 2 63 ; copy the result into loc 63 (player's hand)
cpy 0 :r5 99 ; set the return address dca :r5 99 ; set the return address
juc :gcard ; call the card generation procedure again (in loc 2) 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) :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... 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 mdf 5 0 5 ; and getting the floor part
out 5 5 0 ; display the start of the dealer's hand 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 64 ; set the round index to 0
set 0 0 9 ; set the stand flag 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 :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 inp 6 6 0 ; input the action into loc 6
jeq 6 :std ; jump to stand action if 0 jeq 6 :std ; jump to stand action if 0
sub 6 50 5 ; check if 1 sub 6 127 5 ; check if 1
jeq 5 :hit ; jump to hit action if 1 jeq 5 :hit ; jump to hit action if 1
sub 5 50 5 ; check if 2 sub 5 127 5 ; check if 2
jeq 5 :dbl ; jump to double action if 2 jeq 5 :dbl ; jump to double action if 2
juc :skp ; jump to skip otherwise juc :skp ; jump to skip otherwise
:dbl jne 64 :skp ; skip double if not the first round :dbl jne 64 :skp ; skip double if not the first round
sub 60 61 60 ; subtract more balance sub 60 61 60 ; subtract more balance
fma 61 50 61 ; double the bet mul 57 61 ; double the bet
set 1 0 9 ; set the stand flag, proceed to the hit section next set 1 0 9 ; set the stand flag, proceed to the hit section next
:hit cpy 0 :r6 99 ; set the return address :hit dca :r6 99 ; set the return address
juc :gcard ; call the card generation procedure juc :gcard ; call the card generation procedure
:r6 fma 2 51 63 ; loc 63 <- loc 63 * 10 + card in loc 2 :r6 fma 2 51 63 ; loc 63 <- loc 63 * 10 + card in loc 2
fma 50 50 64 ; increment the round index inc 64 ; increment the round index
juc :skp ; jump to skip afterwards juc :skp ; jump to skip afterwards
:std set 1 0 9 ; set the stand flag :std set 1 0 9 ; set the stand flag
fma 50 50 64 ; increment the round index inc 64 ; increment the round index
:skp cpy 1 63 1 ; copy the current player's hand to loc 1 as a parameter :skp dva 63 1 ; copy the current player's hand to loc 1 as a parameter
cpy 0 :r7 99 ; set the return address dca :r7 99 ; set the return address
juc :score ; call the scoring procedure juc :score ; call the scoring procedure
:r7 sub 2 55 5 ; we only have to compare score 1 to 21 :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 jle 5 :nob ; reloop to beginning if the player is bust
out 63 63 0 ; output the player's hand out 63 63 0 ; output the player's hand
juc :main ; reloop juc :main ; reloop
:nob jeq 9 :rnl ; repeat the inner player loop if the stand flag is 0 :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 dva 3 72 ; copy the player score 2 to loc 72
set 0 0 9 ; set the stand flag to 0 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 :rnd dva 62 1 ; start the inner dealer's loop, set the scoring procedure param
cpy 0 :r9 99 ; set the return address dca :r9 99 ; set the return address
juc :score ; call the scoring procedure juc :score ; call the scoring procedure
:r9 sub 2 55 5 ; we need to compare score 1 to 21 => loc 5 :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 sub 3 54 6 ; we need to compare score 2 to 16 => loc 6
jgt 5 :s3 ; go to stand if score1 > 21 jgt 5 :s3 ; go to stand if score1 > 21
jgt 6 :s3 ; go to stand if score2 > 16 jgt 6 :s3 ; go to stand if score2 > 16
juc :s4 ; skip if neither juc :s4 ; skip if neither
:s3 juc :s5 ; jump outside to stand :s3 juc :s5 ; jump outside to stand
:s4 cpy 0 :r8 99 ; set the return address :s4 dca :r8 99 ; set the return address
juc :gcard ; call the card generation procedure juc :gcard ; call the card generation procedure
:r8 fma 2 51 62 ; loc 62 <- loc 62 * 10 + card in loc 2 :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 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) :s5 out 62 63 0 ; output both hands (dealer's first)
sub 63 80 1 ; compare player hand with 101 sub 63 80 1 ; compare player hand with 101
jeq 1 :bjk ; jump to the blackjack condition if equal jeq 1 :bjk ; jump to the blackjack condition if equal
sub 63 81 1 ; compare player hand with 110 sub 63 81 1 ; compare player hand with 110
jeq 1 :bjk ; jump to the blackjack condition if equal jeq 1 :bjk ; jump to the blackjack condition if equal
sub 3 72 1 ; compare dealer score 2 and player score 2 sub 3 72 1 ; compare dealer score 2 and player score 2
jeq 1 :push ; push condition jeq 1 :push ; push condition
jlt 1 :win ; player win condition jlt 1 :win ; player win condition
sub 2 55 1 ; compare dealer score 1 with 21 sub 2 55 1 ; compare dealer score 1 with 21
jgt 1 :win ; player win condition jgt 1 :win ; player win condition
juc :main ; reloop to beginning juc :main ; reloop to beginning
:bjk div 61 57 1 ; halve the bet :bjk div 61 57 1 ; halve the bet
fma 1 50 60 ; add half the bet (for blackjack calc) fma 1 127 60 ; add half the bet (for blackjack calc)
:win fma 61 50 60 ; add bet first time :win fma 61 127 60 ; add bet first time
:push fma 61 50 60 ; add bet second time :push fma 61 127 60 ; add bet second time
juc :main ; reloop to beginning juc :main ; reloop to beginning
:end nop 0 0 0 ; just a nop label for the program end :end nop 0 0 0 ; just a nop label for the program end