Post Reply 
67FUN rom sent to Monte
11-25-2016, 09:24 PM (This post was last modified: 11-25-2016 11:32 PM by Gene.)
Post: #1
67FUN rom sent to Monte
First, thanks to all here for their patience as we have been working on this project. I'm surprised by the view counts of the threads and can't help but wonder if many have clicked on them to hope that we had finally finished. :-)

Thanks to Dieter, Robert and all for their help.

Here it is:

67 FUN mod file

67 FUN .rom file

Code:
28 FNCTIONS                XROM #     Description
FCT:  -HP67 FUN+        XROM 23,00    Rom Header
FCT:  "1130"            XROM 23,01    Game of 11-30    
FCT:  "2636"            XROM 23,02    Game of 26 or 36    
FCT:  "ART"             XROM 23,03    Artillery game    
FCT:  "BSP"             XROM 23,04    Battleship    
FCT:  "CH"              XROM 23,05    Chess    
FCT:  "CHK"             XROM 23,06    Chuck-a-luck    
FCT:  "GOLF"            XROM 23,07    Golf    
FCT:  "JT"              XROM 23,08    Jive Turkey    
FCT:  "ML"              XROM 23,09    Moon Lander    
FCT:  "OAB"             XROM 23,10    One Arm Bandit    
FCT:  "SPW"             XROM 23,11    SpaceWar    
FCT:  "ST"              XROM 23,12    Star Trek    
FCT:  "TTT"             XROM 23,13    Tic-tac-toe    
FCT:  "AOS"             XROM 23,14    Algebraic Operating System    
FCT:  "+"               XROM 23,15     -- functions in AOS Program    
FCT:  "-"               XROM 23,16     -- functions in AOS Program    
FCT:  "*"               XROM 23,17     -- functions in AOS Program    
FCT:  "/"               XROM 23,18     -- functions in AOS Program    
FCT:  "<"               XROM 23,19     -- functions in AOS Program    
FCT:  ">"               XROM 23,20     -- functions in AOS Program    
FCT:  "="               XROM 23,21     -- functions in AOS Program    
FCT:  "YX"              XROM 23,22     -- functions in AOS Program    
FCT:  "NEG"             XROM 23,23     -- functions in AOS Program    
FCT:  "SD"              XROM 23,24    Sum of Digits game    
FCT:  "S"               XROM 23,25    Seed? Prompt Store R00 subroutine    
FCT:  "R"               XROM 23,26    Random Number Generator subroutine    
FCT:  "RF"              XROM 23,27    Reset Flags from PPC ROM


More here later on how to play them.

Game of 1130: XROM 23,01

History: This is based on the HP-65 game of Eleven-Thirty written by John Rausch. It appeared in the V2N3P28 issue of PPC Journal (March 1975).

Object: The calculator generates two random numbers between 11 and 30 and displays them as XX.YY (for example, 15.22 could be displayed). The user then places a bet that the next number is equal to or between the two numbers displayed, endpoints inclusive. You win if it is and pay if it is not. Obviously, if 13.14 is displayed, then you should probably bet $0 and so that you will lose $0. If the numbers shown are 13.16 and you bet $0, the program will say you win if the next number is 14, but you won that $0 bet nothing more.

Play:
1) XEQ 1130.
2) At SEED? Prompt, enter a value between 0 and 1, preferably at least 6 decimal digits and press R/S.
3) At POT? Prompt, enter your starting monetary amount you are playing with in the game and press R/S.
4) Calculator displays numbers in the form of XX.YY and asks you to enter a bet. Enter a value for your bet that the next number is between XX and YY and press R/S.
5) Calculator displays WIN or PAY and shows the number generated and the XX.YY range previously.
6) Press R/S to try again.
7) To check your bank at any time, press E in USER mode. Display shows POT=$ZZZ. Press A to play again.

Example game:
See Key
1) XEQ ALPHA 1130 ALPHA
2) SEED? 0.123456789 R/S
3) POT? 50 R/S
4) 24.29 BET? 10 R/S
5) WIN 28–24.29 R/S
6) 13.14 BET? 0 R/S
7) WIN 14–13.14 R/S (Note: You won $0 here)
8) 16.24 BET? 50 R/S
9) PAY 14–16.24 etc.

Specifics:
1) Program is 130 bytes long.
2) Calls XROM 23,25 (Seed? Prompt) and XROM 23,26 (Random Number Generator)
3) Uses registers 00 – 05. SIZE 006 required.
a. 00 – random number seed
b. 01 – first two digit number (XX)
c. 02 – second two digit number (YY)
d. 03 – third two digit number to see if between XX.YY
e. 04 – amount of BET
f. 05 – amount of POT
4) Labels used
a. 01 – Random number routine. Calls XROM R (23,26)
b. 02 – You lost
c. 03 – Common label to display results
d. A – Starts a new game
e. E – Displays POT

Program Listing:

Code:
01 LBL "1130" 
 02 XROM 23,25 
 03 "POT?" 
 04 PROMPT 
 05 STO 05 
 06 LBL A 
 07 XEQ 01 
 08 STO 01 
 09 XEQ 01 
 10 STO 02 
 11 RCL 01 
 12 X<=Y? 
 13 X<>Y 
 14 STO 02 
 15 X<>Y 
 16 STO 01 
 17 X<>Y 
 18  E2 
 19 / 
 20 + 
 21 CLA 
 22 FIX 02 
 23 ARCL X 
 24 >" BET?" 
 25 PROMPT 
 26 STO 04 
 27 FIX 00 
 28 CF 29 
 29 XEQ 01 
 30 STO 03 
 31 RCL 01 
 32 X>Y? 
 33 GTO 02 
 34 RDN 
 35 RCL 02 
 36 X<Y? 
 37 GTO 02 
 38 RCL 04 
 39 ST+ 05 
 40 "WIN " 
 41 GTO 03 
 42 LBL 02 
 43 RCL 04 
 44 ST- 05 
 45 "PAY " 
 46 LBL 03 
 47 ARCL 03 
 48 >"-" 
 49 ARCL 01 
 50 >"." 
 51 ARCL 02 
 52 PROMPT 
 53 GTO A 
 54 LBL 01 
 55 XROM 23,26 
 56 20 
 57 * 
 58 11 
 59 + 
 60 INT 
 61 RTN 
 62 LBL E 
 63 "POT=$" 
 64 ARCL 05 
 65 AVIEW 
 66 END


Game of 2636:

History: This is based on the game of Twenty-six or Thirty-six from the HP 67/97 Users’ Library Solutions Book Games of Chance, page 6. Originally written by Matthew Bishop.

Object:
Game of 26:
You choose a number from 1 to 6 as your number and pay $0.25 to play. The calculator then rolls 10 dice 13 times for a total of 130 numbers of 1 to 6. If your number appears 11 or fewer times, then you win a dollar. If it appears exactly 13 times, then you win $0.50. If it appears 26 or more times, you win $1. If it appears 33 or more times, you win $2. (Note: If your number appears 28 times, you win $1, if it appears 35 times, you win $2 total).

Game of 36: Place a bet (deducted from your account). Player continues to roll dice until he decides to stop or the sum or all numbers rolled exceeds 36 automatically losing. When the first player is done, if his total is 36 or less, the second rolls, following the same procedure. If the second player stops before his or its total exceeds 36, the totals are compared. Whoever comes closes to 36, wins. On a tie, you get your bet back. The calculator will match your bet (winner gets total bet by both players); it uses a simple strategy to decide when to stop rolling dice.

Play:
1) XEQ 2636.
2) At SEED? Prompt, enter a value between 0 and 1, preferably at least 6 decimal digits and press R/S.

3) To play 26, key in die you choose (1-6) and press A.
4) Display pauses and displays a sequence of 10 digit random numbers (13 times).
5) The number of times your number occurs is displayed, followed by the amount you won or lost, followed by your total monetary position. To play again, go back to step 3.

6) To play 36, decide if you wish to go first or you want the calculator to go first.
7) If you wish to go first, enter your bet and press B and the calculator will roll your dice. If you wish to let the calculator go first, enter your bet and press C.
8) The calculator will display your total points and show HP’s points.
9) Continue to let the program run until you wish to stop accumulating your points. If you do not stop before your total goes over 36, then you automatically lose.
10) When you wish to stop, press the decimal point and the calculator will begin accumulating points.
11) If the calculator goes over 36 before it stops, you automatically win.
12) If the calculator stops with its total under 36, the winner is whoever is closer to 36.
13) Go to step 6 to play again.


Example game of 26:
See Key
1) XEQ ALPHA 2636 ALPHA
2) SEED? 0.123456789 R/S
3) BANK=$0.00 6 A (Note: Choose the number 6 and play the game of 26)
4) 5662125224
6411215332

5136614123
27 TIMES
WIN $1.00
BANK=$0.75

5) WIN 28–24.29 R/S
6) 13.14 BET? 0 R/S
7) WIN 14–13.14 R/S (Note: You won $0 here)

Example game of 36:
See Key
1) XEQ ALPHA 2636 ALPHA
2) SEED? 0.123456789 R/S
3) BANK=$0.00 5 B (Note: Bet $5 and go first in a game of 36)
4) You-5 HP-0
You-11 HP-0
You-17 HP-0
You-19 HP-0
You-20 HP-0
You-22 HP-0
You-27 HP-0
You-29 HP-0
You-31 HP-0
You-35 HP-0 Press . quickly (The decimal point)
You-35 HP-6
You-35 HP-10
You-35 HP-11
You-35 HP-12
You-35 HP-14
You-35 HP-15
You-35 HP-20
You-35 HP-23
You-35 HP-26
You-35 HP-28
You-35 HP-30
You-35 HP-35
WIN $0 (Note:A tie game)
BANK=$0.00

Specifics:
1) Program is 297 bytes long.
2) Calls XROM 23,25 (Seed? Prompt) and XROM 23,26 (Random Number Generator)
3) Uses registers 00 – 05. SIZE 006 required.
a. 00 – random number seed
b. 01 – Bank $
c. 02 – times your die occurred in game of 26.
d. 03 – Your score in 36.
e. 04 – HP’s score in 36.
f. 05 – amount of BET
4) Labels used
a. 00 –
b. 01 – Random number routine. Calls XROM R (23,26)
c. 02 – You lost
d. 03 – Common label to display results
e. 06
f. 07
g. 08
h. 09
i. 77
j. 88
k. 99 – Random number generator
l. A – Starts a new game of 26
m. B – Starts a new game of 36 – human first
n. C – Starts a new game of 36 – HP first
o. D – Displays BANK amount.

Program Listing:
Code:
 01 LBL "2636" 
 02 XROM 23,25 
 03 CLX 
 04 STO 01 
 05 GTO D 
 06 LBL 01 
 07 10 
 08 STO 04 
 09 CLX 
 10 LBL 02 
 11 10 
 12 * 
 13 XEQ 99 
 14 RCL 05 
 15 X=Y? 
 16 ISG 02 
 17 LBL 00 
 18 RDN 
 19 + 
 20 DSE 04 
 21 GTO 02 
 22 FIX 00 
 23 CF 29 
 24 VIEW X 
 25 DSE 03 
 26 GTO 01 
 27 PSE 
 28 PSE 
 29 " " 
 30 ARCL 02 
 31 >" TIMES" 
 32 AVIEW 
 33 PSE 
 34 1 
 35 STO 05 
 36 15 
 37 RCL 02 
 38 11 
 39 - 
 40 X<Y? 
 41 X<=0? 
 42 GTO 03 
 43 2 
 44 - 
 45 ABS 
 46 .5 
 47 X<Y? 
 48 INT 
 49 STO 05 
 50 GTO 88 
 51 LBL 03 
 52 22 
 53 X<=Y? 
 54 ISG 05 
 55 LBL 88 
 56 RCL 05 
 57 ST+ 01 
 58 FIX 02 
 59 "WIN $" 
 60 X<0? 
 61 "PAY $" 
 62 ABS 
 63 ARCL X 
 64 AVIEW 
 65 PSE 
 66 LBL D 
 67 CF 01 
 68 SF 27 
 69 FIX 02 
 70 RCL 01 
 71 "BANK=$" 
 72 ARCL 01 
 73 AVIEW 
 74 RTN 
 75 LBL A 
 76 STO 05 
 77 .25 
 78 ST- 01 
 79 13 
 80 STO 03 
 81 CLX 
 82 STO 02 
 83 GTO 01 
 84 LBL B 
 85 SF 01 
 86 CHS 
 87 GTO 07 
 88 LBL C 
 89 CF 01 
 90 LBL 07 
 91 STO 05 
 92 CLX 
 93 STO 04 
 94 STO 03 
 95 9 
 96 STO 02 
 97 FS? 01 
 98 DSE 02 
 99 CF 00 
100 FIX 00 
101 CF 29 
102 XEQ IND 02 
103 FS?C 00 
104 GTO 88 
105 17 
106 ST- 02 
107 XEQ IND 02 
108 RCL 05 
109 CHS 
110 STO 05 
111 FS?C 00 
112 GTO 88 
113 RCL 03 
114 RCL 04 
115 - 
116 X!=0? 
117 SIGN 
118 RCL 05 
119 ABS 
120 * 
121 STO 05 
122 GTO 88 
123 LBL 08 
124 3 
125 XEQ 77 
126 X>0? 
127 FS? 00 
128 RTN 
129 GTO 08 
130 LBL 09 
131 4 
132 XEQ 77 
133 FS? 00 
134 RTN 
135 RCL 03 
136 RCL 04 
137 FS? 01 
138 X=Y? 
139 GTO 06 
140 X<Y? 
141 GTO 09 
142 RTN 
143 LBL 06 
144 33 
145 RCL 04 
146 X<=Y? 
147 GTO 09 
148 RTN 
149 LBL 77 
150 XEQ 99 
151 ST+ IND Y 
152 36 
153 RCL IND Z 
154 X>Y? 
155 SF 00 
156 "YOU-" 
157 ARCL 03 
158 >" HP-" 
159 ARCL 04 
160 AVIEW 
161 PSE 
162 RTN 
163 LBL 99 
164 XROM 23,26 
165 6 
166 * 
167 INT 
168 1 
169 + 
170 END
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
67FUN rom sent to Monte - Gene - 11-25-2016 09:24 PM
RE: 67FUN rom sent to Monte - Dieter - 11-27-2016, 07:43 PM
RE: 67FUN rom sent to Monte - Gene - 11-27-2016, 09:45 PM
RE: 67FUN rom sent to Monte - Dieter - 11-28-2016, 07:27 PM
RE: 67FUN rom sent to Monte - Gene - 11-28-2016, 07:34 PM
RE: 67FUN rom sent to Monte - Dieter - 11-28-2016, 08:29 PM



User(s) browsing this thread: 1 Guest(s)