Yams for the HP-41CX

Overview
 

-This program allows you to play "Yams" with - but not against - your HP-41CX.
-"Yams" is a kind of Yahtzee game:
-"Yams" = 5 of a kind.

-You roll 5 dice, then, if need be, you can roll again some of these dice - at most 2 times at each turn - and you try to get one of the 13 combinations below.
-Then, you choose one of these combinations, which cannot be chosen again in the next rounds.

-If - for instance - you get several times  2  2  2  2  2, it may be registered as yams, full, 4 of a kind, 3 of a kind ...
-After 13 turns, the HP-41 displays your score, and the object is to get the highest score.
 

  COMBINATION            SCORING

  3 of a kind                Sum of all dice  +  10 points
  4 of a kind                Sum of all dice  +  20 points
  Full-house                 Sum of all dice  +  30 points
  Straight                     Sum of all dice  +  40 points
  5 of a kind = yams    Sum of all dice  +  50 points
  "+" combination        Sum of all dice  S                       any combination            if you press "+"  with  4 3 6 5 1  ( S = 19 )
  "-" combination         Sum of all dice  S'                      provided  S > S'           and then "-" with  4 4 6 5 1 ( S' = 20 ), you will receive 19 pts but not 20 pts.

  The ones                  Sum of the ones
  The twos                  Sum of the twos
  The threes                Sum of the threes
  The fours                 Sum of the fours
  The fives                  Sum of the fives
  The sixes                 Sum of the sixes

  If the sum of these last 6 sums reaches 60 points or more, you get a bonus of 30 points.

-There are many variants and the following program may be modified according to your preferences.
 

Instructions for Use:
 

0-  Initialize a random seed in register R00

1-  XEQ "YAMS"  the HP-41 displays  the 5 dice followed by  + - BCFYS         All the flag indicators:  user  0 1 2 3 4  are set
    -If you want to throw again the dice - say n° 1 2 4 ( as seen from the left )  press  1  2  4  ENTER^
    -Then if you want to roll again the dice 1 4 , press  1  4  ENTER^
    -The screen is displayed twice, then choose a combination ( if you have a "yams" , press  Y )
    -The corresponding indicator ( flag indicator or a character in the alpha register ) will have disappeared on the next round.

2-  Continue to throw again the dice if need be until the 13 rounds are over. The Hp-41 will display your score, preceeded by "BONUS",
      if you've got at least 60 points with the ones, the twos, ........ , the sixes.

Warning:

-If you get a satisfying combination before the 3rd attempt - i-e after rolling the dice only 1 or 2 times -
  press R/S  ( the display will blink ) and only then, press the key corresponding to your combination.

-You have 41 seconds to decide which dice you want to throw, but only 10 seconds to decide which combination to choose.
 

Program Listing
 

-We need indicators to show what combinations are still available:

-For the ones, I've choosen flag F01 , for the twos, F02 , for the thres, F03 , for the fours F04.
-Unfortunately, the state of flags F05 & F06 doesn't appear in the display.
-So, I've used F00 for the fives and F27 ( which is the "user mode" flag ) for the sixes.

-The seven other combinations appear as  +  -  B  C  F  Y  S   for  "+"  "-"  "3 of a kind"  "4 of a kind"  "Full-house"  "Yams"  "Straight"  respectively.

-I've chosen  B  because  "3 of a kind" = Brelan in French and  C because   "4 of a kind" = Carré in French
-Other choices are clearly possible...
 

Data Registers:           •  R00 = random seed                                ( Register R00 is to be initialized before executing "YAMS" )

                                          R01 = dice n°1         R06 = Full                R11 = 3 of akind          R16 = the fours
                                          R02 = dice n°2         R07 = Straight          R12 = 4 of a kind         R17 = the fives
                                          R03 = dice n°3         R08 = +                   R13 =  the ones            R18 = the sixes
                                          R04 = dice n°4         R09 = -                    R14 = the twos            R19 = 13 , 12 , .......... , 1 , 0
                                          R05 = dice n°5         R10 = Yams             R15 = the threes          R20 =  3 , 2 , 1 , 0

Flags:                               F01 = the 1's             F04 = the 4's
                                          F02 = the 2's            F00 = the 5's
                                          F03 = the 3's            F27 = the 6's
Subroutines: /

-The append character is denoted  ~
-Lines 73-82-306 are three-byte GTO's
 
 

 
        ( 501 bytes / SIZE 021 )
 
 

 
Example:    With the random seed   41  in register R00

                             MOVES                                                                   HP-41  DISPLAYS

              41  STO 00   XEQ "YAMS"    >>>>                                         34264+-BCFYS         All the indicators:  user  0 1 2 3 4  are set

If you try to get a maximum number of 4
you roll again the dice n° 1 3 4                     1  3  4   ENTER^                  24144+-BCFYS
you roll again the dice n°  1 3                         1  3     ENTER^                  44644+-BCFYS         the display blinks
You have a "4 of a kind", so you press  C                     C                          35266+-BFYS           C has disappeared

If you seek for a straight                                 5       ENTER^                    35265+-BFYS
Same move                                                    5       ENTER^                    35261+-BFYS          the display blinks
There are not a lot of points so we can choose "-"         -                            45144+BFYS           "-"  has disappeared

Suppose you roll again the dice n° 2 & 3       2  3    ENTER^                     46644+BFYS
You have a full-house, press  R/S   F
( Since you've got the combination
  before the 3rd throw, you must press  R/S
  before the corresponding key )                      R/S      F                              65416+BYS            F is no longer displayed

You roll again the dice 2  3  4                      2  3  4   ENTER^                    65416+BYS
same move:                                                 2  3  4   ENTER^                    66566+BYS
You can choose a 3 of a kind                                      B                             66312+YS               B has disappeared

Rolling again the dice  3  4  5                       3  4  5   ENTER^                    66411+YS
Same move                                                 3  4  5   ENTER^                    66663+YS
We can choose the sixes                                              6                            35166+YS                F27 ( user )  is cleared

Choosing to roll the dice  1  2  3                  1  2  3   ENTER^                    16666+YS
You roll the 1st dice only                                 1       ENTER^                    66666+YS
A Yams:                                                                      Y                            36464+S                   Y has disappeared

If you keep the fours                                   1  2  4   ENTER^                     52424+S
Same move                                                 1  2  4   ENTER^                    64434+S
We can choose the 3 fours                                           4                             43553+S                   F04 is clear

If you keep the fives                                    1  2  5   ENTER^                     13555+S
Same strategy                                               1  2     ENTER^                     63555+S
You save the fives                                                        5                             24212+S                  F00 is clear now

The twos,                                                     2  4     ENTER^                      22252+S
same strategy                                                 4       ENTER^                      22262+S
we count the twos                                                        2                             61663+S                  F02 is cleared

If we keep the 6                                           2  5     ENTER^                     64662+S
again                                                            2  5     ENTER^                     65664+S
The sixes has already been choosen
above, but we still have the "+"                                     +                             62131S                    "+"  has been removed

Keeping the ones                                      1  2  4   ENTER^                       44131S
again                                                        1  2  4   ENTER^                       32161S
Only 2 ones, but no better choice                                 1                             43334S                     F01 is clear

You keep the threes                                   1  5     ENTER^                        23335S
Again                                                         1  5     ENTER^                        13336S
Choosing the threes                                                     3                              13432S                    F03 is clear

Seeking for a straight                                    4        ENTER^                       13452S
Only 2 throws, so R/S first                          R/S           S                              BONUS

And the final display                                                                                    414 PTS

>>>>  Simply press  R/S  to continue the game...
 

Notes:

-The maximum score is 492 points - highly improbable !

-In this example, all the combinations have been found.
-Of course, it will not be always the case, and you'll often have to choose a combination that is not satisfied ( for example "yams" ) which will give zero point.
-The HP-41 always checks if the combination corresponds to the selected one and places a negative number in the corresponding register in that case.
-But these negative numbers are not added at the end ( lines 329-330 )

-I've chosen the letter B for "three of a kind" and C for "four of a kind" ( "Brelan" and "Carré" in French ).
-But if you prefer other letters, replace them in lines 57 and 60, but change also the corresponding LBL's:

-For example, if you want to use the letter "H" instead of "B" , replace line 57 by "~H" but replace also line 217  LBL 12  by  LBL 23
  because the letter "H" is at the 2nd row 3rd column on the HP-41 keyboard.

Variants:

-This game has many different rules !
-For instance, the bonus may be 35 points but if the sum is at least 63.
-If you prefer this rule, replace lines 319 & 334 by 63 and line 325 by 35.

-According to other rules, the sum of the dice is not counted for the yams.
-In this case, delete lines 208 & 206. ( XEQ 08 calculates the sum of the dice faces ).

-Using F00 for the fives & F27 for the sixes is not perfect, but if you have a better idea...