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
2 5 10 0 51
3 5 100 0 52
4 5 13 0 53
5 5 16 0 54
6 5 21 0 55
7 5 12 0 56
8 5 1000 0 60
9 5 2 0 57
10 5 36 0 58
11 5 101 0 80
12 5 110 0 81
13 1 6 0 40
14 15 50 53 1
15 9 1 51 2
16 10 2 0 2
17 8 50 2 2
18 7 0 1 2
19 1 13 0 99
20 5 0 0 2
21 5 0 0 8
22 10 1 51 4
23 9 1 51 1
24 10 1 0 1
25 1 1 4 27
26 7 51 50 4
27 7 4 50 2
28 8 4 50 5
29 1 5 5 31
30 7 50 50 8
31 8 1 50 5
32 1 1 5 22
33 6 1 2 3
34 8 8 50 5
35 1 5 5 39
36 8 2 56 5
37 1 3 5 39
38 7 51 50 3
39 1 13 0 99
40 3 58 58 1
41 3 60 60 0
42 1 0 60 128
43 4 61 61 0
44 8 60 61 60
45 1 2 60 128
46 6 0 48 99
47 1 6 0 14
48 7 52 51 2
49 6 1 2 62
50 6 0 52 99
51 1 6 0 14
52 7 2 50 62
53 6 1 62 1
54 6 0 56 99
55 1 6 0 20
56 8 3 55 5
57 1 0 5 40
58 6 0 60 99
59 1 6 0 14
60 7 52 51 2
61 6 1 2 63
62 6 0 64 99
63 1 6 0 14
64 7 2 50 63
65 9 62 51 5
66 10 5 0 5
67 3 5 5 0
68 5 0 0 64
69 5 0 0 9
70 3 63 63 0
71 4 6 6 0
72 1 0 6 87
73 8 6 50 5
74 1 0 5 82
75 8 5 50 5
76 1 0 5 78
77 1 6 0 89
78 1 5 64 89
79 8 60 61 60
80 7 61 50 61
81 5 1 0 9
82 6 0 84 99
83 1 6 0 14
84 7 2 51 63
85 7 50 50 64
86 1 6 0 89
87 5 1 0 9
88 7 50 50 64
89 6 1 63 1
90 6 0 92 99
91 1 6 0 20
92 8 2 55 5
93 1 4 5 96
94 3 63 63 0
95 1 6 0 40
96 1 0 9 70
97 6 1 3 72
98 5 0 0 9
99 6 1 62 1
100 6 0 102 99
101 1 6 0 20
102 8 2 55 5
103 8 3 54 6
104 1 1 5 107
105 1 1 6 107
106 1 6 0 108
107 1 6 0 112
108 6 0 110 99
109 1 6 0 14
110 7 2 51 62
111 1 0 9 99
112 3 62 63 0
113 8 63 80 1
114 1 0 1 123
115 8 63 81 1
116 1 0 1 123
117 8 3 72 1
118 1 0 1 126
119 1 2 1 125
120 8 2 55 1
121 1 1 1 125
122 1 6 0 40
123 9 61 57 1
124 7 1 50 60
125 7 61 50 60
126 7 61 50 60
127 1 6 0 40
128 0 0 0 0
1 5 10 0 51
2 5 100 0 52
3 5 13 0 53
4 5 16 0 54
5 5 21 0 55
6 5 12 0 56
7 5 1000 0 60
8 5 2 0 57
9 5 36 0 58
10 5 101 0 80
11 5 110 0 81
12 1 6 0 39
13 15 127 53 1
14 9 1 51 2
15 10 2 0 2
16 8 127 2 2
17 7 0 1 2
18 1 13 0 99
19 5 0 0 2
20 5 0 0 8
21 10 1 51 4
22 9 1 51 1
23 10 1 0 1
24 1 1 4 26
25 7 51 127 4
26 7 4 127 2
27 8 4 127 5
28 1 5 5 30
29 7 127 127 8
30 8 1 127 5
31 1 1 5 21
32 6 1 2 3
33 8 8 127 5
34 1 5 5 38
35 8 2 56 5
36 1 3 5 38
37 7 51 127 3
38 1 13 0 99
39 3 58 58 1
40 3 60 60 0
41 1 0 60 127
42 4 61 61 0
43 8 60 61 60
44 1 2 60 127
45 6 0 47 99
46 1 6 0 13
47 7 52 51 2
48 6 1 2 62
49 6 0 51 99
50 1 6 0 13
51 7 2 127 62
52 6 1 62 1
53 6 0 55 99
54 1 6 0 19
55 8 3 55 5
56 1 0 5 39
57 6 0 59 99
58 1 6 0 13
59 7 52 51 2
60 6 1 2 63
61 6 0 63 99
62 1 6 0 13
63 7 2 127 63
64 9 62 51 5
65 10 5 0 5
66 3 5 5 0
67 5 0 0 64
68 5 0 0 9
69 3 63 63 0
70 4 6 6 0
71 1 0 6 86
72 8 6 127 5
73 1 0 5 81
74 8 5 127 5
75 1 0 5 77
76 1 6 0 88
77 1 5 64 88
78 8 60 61 60
79 7 0 57 61
80 5 1 0 9
81 6 0 83 99
82 1 6 0 13
83 7 2 51 63
84 7 127 127 64
85 1 6 0 88
86 5 1 0 9
87 7 127 127 64
88 6 1 63 1
89 6 0 91 99
90 1 6 0 19
91 8 2 55 5
92 1 4 5 95
93 3 63 63 0
94 1 6 0 39
95 1 0 9 69
96 6 1 3 72
97 5 0 0 9
98 6 1 62 1
99 6 0 101 99
100 1 6 0 19
101 8 2 55 5
102 8 3 54 6
103 1 1 5 106
104 1 1 6 106
105 1 6 0 107
106 1 6 0 111
107 6 0 109 99
108 1 6 0 13
109 7 2 51 62
110 1 0 9 98
111 3 62 63 0
112 8 63 80 1
113 1 0 1 122
114 8 63 81 1
115 1 0 1 122
116 8 3 72 1
117 1 0 1 125
118 1 2 1 124
119 8 2 55 1
120 1 1 1 124
121 1 6 0 39
122 9 61 57 1
123 7 1 127 60
124 7 61 127 60
125 7 61 127 60
126 1 6 0 39
127 0 0 0 0
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