Raw files for these HP 67 program listings ?

[Dieter]

(09-05-2016 04:26 PM)RobertM Wrote:  I'm going to take a swing at the One Armed Bandit next. It's a holiday today, so I may not get to it until tomorrow.

Here's my attempt at this program. It includes a lot of streamlining which makes the program more compact, it also uses less registers:

In the original program registers A to E hold some constants that are only used once (!) in the program, reg. A is even not used at all. So instead of a RCL the constants have been inserted directly into the code. Also registers 3 and 5 remained unused, so I replaced reg. E with R05 (R03 still is not used). This way the 41 program is shorter and requires significantly less registers than the original 67 version.

The attached zip file contains a listing (.TXT) and a .RAW file. Maybe someone can do some tests and compare this version with the original one. If you find errors, please report here.

Dieter

  OABANDIT.zip (Size: 1.17 KB / Downloads: 5)

[Dieter]

(09-06-2016 10:35 PM)RobertM Wrote:  I agree with all of your comments here. I removed the use of the I reg, and changed the random number generator to generate between 1 and 9.
(...)
Agreed. I also found only clearing 00 and 02 were needed, and I left it in the init routine (LBL e) instead of the "preamble". I changed RegA-E into R10-14. Technically, we could shave off a couple more registers, since R03 and R05 aren't used, but I left it as is, so only SIZE 015 is required.

Great. Please see my post that I seem to have written while you wrote yours. ;-)

(09-06-2016 10:35 PM)RobertM Wrote:  Love to! I've included my fully commented version in the zip.

Hmmm... I do not see any zip file. ?!?

(09-06-2016 10:35 PM)RobertM Wrote:  Love to see what you did the same/differently.

I did some similar changes and added some others (e.g. removing register A...E completely since the are only called once). But you seem to have analyzed the code more thoroughly so that even a bugfix was applied.

Maybe we can make an optimized version from the two individual ones. ;-)

(09-06-2016 10:35 PM)RobertM Wrote:  Here is a list of my changes for the "OB" version:
- added preamble
- translated 7xxx calls into 41C calls (no card reader required)
- translated A-E storage registers to 10-14, removed need for I (SIZE 015)

This can be reduced to SIZE 010, or even 009 if in my version R9 is replaced with the last unused register 03.

(09-06-2016 10:35 PM)RobertM Wrote:  - fixed bug: original program left out a multiply at line 68 (otherwise not holding
digit 1 when there are other holds will always result in a 1 being the first digit)

I knew there was something wrong but I didn't know what. #-)

EDIT: I see you now added the zip file. Let me add these remarks on OB_commented.txt:

- The init routine at LBL e sets the constants 0.11, 111 and 123. On the other hand at LBL 9 where these constants are used the comment says 0.111 and 0.123. ?!?
BTW the "1000" in R10 is never recalled, so it can be removed completely.

- The CF 3 at LBL D resets flag 3 simply because it has been set automatically when the user entered the payment (flag 3 on the 67 does the same as flag 22 on the 41, it's the data entry flag).

- Clearing all flags on startup at LBL"OB" is fine, but not required since the init routine at LBL e already does this: it calls LBL b which clears all flags.

Dieter

[RobertM]

(09-06-2016 10:59 PM)Dieter Wrote:  I did some similar changes and added some others (e.g. removing register A...E completely since the are only called once). But you seem to have analyzed the code more thoroughly so that even a bugfix was applied.

Maybe we can make an optimized version from the two individual ones. ;-)

Great idea! See below...

Quote:- The init routine at LBL e sets the constants 0.11, 111 and 123. On the other hand at LBL 9 where these constants are used the comment says 0.111 and 0.123. ?!?

Bad comments. Typos with extra heavy on the '.' key.

Quote:BTW the "1000" in R10 is never recalled, so it can be removed completely.

Had that in the back of my mind, but forgot to do anything about it. Good idea.

Quote:- The CF 3 at LBL D resets flag 3 simply because it has been set automatically when the user entered the payment (flag 3 on the 67 does the same as flag 22 on the 41, it's the data entry flag).

Thanks, I'd forgotten that. Which means that the CF 03 can be removed, because on the 41, it doesn't get set with data entry (and it isn't being tested, so don't need to change it to a flag 22 test).

Quote:- Clearing all flags on startup at LBL"OB" is fine, but not required since the init routine at LBL e already does this: it calls LBL b which clears all flags.

Nice catch. Didn't notice.

So I've incorporated an "optimized" version of your comments/changes and mine. I moved the "constants" what were only being used once from register to direct in the program. I changed the constant 100 to use R05 instead of R10, and I moved R09 into R03, so now SIZE 009 is all that is required. Also, incorporated all of your other suggestions and things I noticed from your code (*4 instead of /.25, etc.). I think I captured everything.

Enclosed in this OB.zip is the optimized version (.RAW, .txt, and _commented.txt).

This version requires only 9 registers, and is down to 260 bytes, but still "feels" the same. Thanks for all the help. Let me know if you see something else.

[Ángel Martin]

(09-07-2016 04:11 AM)RobertM Wrote:  Enclosed in this OB.zip is the optimized version (.RAW, .txt, and _commented.txt).
This version requires only 9 registers, and is down to 260 bytes, but still "feels" the same. Thanks for all the help. Let me know if you see something else.

Got it, will try to squeeze it in the module but it's looking very full...

[Dieter]

(09-07-2016 05:16 AM)Ángel Martin Wrote:  Got it, will try to squeeze it in the module but it's looking very full...

Here is a shorter version with some improvements and maybe even a bugfix:

- I think there is a bug in the original program: if there are any holds the user can pull the lever even if there are no no more pulls available. This is tested right *after* checking for holds, while the test should be *before* this. I changed this in the attached version. If this is not the way the program is supposed to work, please correct.

- XEQ b is called only once by the init routine so LBL b can be placed there and requires no separate call.

- R05 (=100) is recalled three times. Replacing this with R04^2 saves two bytes in the init routine and requires three more bytes in the code. At the same time it frees up another register for the cost of just one single byte. This way registers 6...8 move down to 5...7 and SIZE 008 is sufficient.

- The only jump to LBL 03 is done after testing flag 0, so the following CF 00 can be omitted by replacing the flag test with FS?C 00.

- The test for holds can be done more efficiently and faster. The current version tests for a hold on a particular digit, and if true it jumps to a forward label, and finally jumps back to test the next digit. This is slow (especially on the 67 without compiled GTOs) and can be improved. For the third digit even a simple inverse flag test (FC?C) can be used, without any jumps at all. BTW this is also possible on the 67/97, here two consecutive F? 3 are the same as a FC?C 03 on the 41.

- This frees up several labels, so that LBL a can be replaced with the (shorter) LBL 09.

CAT 1 on V41 says we're down to 240 Bytes.
Now it's your turn again, Robert. ;-)

BTW Ángel: what about a text file with the complete listings so far in the new 67 Games ROM? I think there is *much* room for improvement and more effective, byte-saving code.

Dieter

Edit: sorry, forgot the attachment... #-)

  OAB.zip (Size: 1.06 KB / Downloads: 2)

[RobertM]

(09-07-2016 01:54 PM)Dieter Wrote:  CAT 1 on V41 says we're down to 240 Bytes.
Now it's your turn again, Robert. ;-)

I give up! Nice work!

[Ángel Martin]

(09-07-2016 01:54 PM)Dieter Wrote:  BTW Ángel: what about a text file with the complete listings so far in the new 67 Games ROM? I think there is *much* room for improvement and more effective, byte-saving code.

I'll give you something better: the Excel-based "blueprint", which includes the macro to compile into a ROM file so you can take control ...

[Gene]

Step 155 RTN can be deleted.

Steps 39-48 could be this:

LBL c
SF 01
SF 02
LBL C
SF 00
SF 03
RTN

[rprosperi]

This is fun! It feels like I'm reading successive issues of PPC Journal in 1983, without the month-long delay between 'better versions'.

[Dieter]

(09-07-2016 02:22 PM)RobertM Wrote:  [ ...240 bytes... ]
I give up! Nice work!

Don't give up, join the party. ;-)
I now got it down to 206 bytes in 135 steps.

The program essentially has two routines that generate a three digit number. One at the beginning and another one at LBL 03 that checks for holds. This can be combined into one single routine.

I also wondered why the counter in R00 is decremented only if no holds are active. I am not sure if this is a bug or a feature, but the attached version now decrements the counter in both cases. Also the random number generator was modifed. Gene's suggestions were implemented as well.

Robert et al., would you try this and check for bugs and unexpected results?

Dieter

  OAB2.zip (Size: 983 bytes / Downloads: 5)

[Gene]

Looks like it runs ok to me. As with all these games, I'm so tempted to add some sort of alpha labels to the outputs displayed, but byte count, byte count... :-)

[Dieter]

(09-07-2016 07:24 PM)Gene Wrote:  As with all these games, I'm so tempted to add some sort of alpha labels to the outputs displayed,

Gene, remember your own words:

(08-31-2016 04:08 PM)Gene Wrote:  Dieter, I don't disagree, but some of the "fun" is actually leaving them the way they were.

Regarding size issues...

(09-07-2016 07:24 PM)Gene Wrote:  ...but byte count, byte count... :-)

... I'd say we can be much more effective than the original programs. Consider the last example: from 187 steps and 15 data registers we're now down to 135 steps and merely 8 registers. So the byte count is not much of an issue. But... remember your own words. ;-)

Dieter

[Dieter]

(09-07-2016 02:29 PM)Ángel Martin Wrote:  I'll give you something better: the Excel-based "blueprint", which includes the macro to compile into a ROM file so you can take control ...

Great – but what is this?
For me everything is fine as long as it does not require more than some Excel/VBA skills and HP41 user code experience. :-)

You should post this "blueprint" here in the forum so that more users can work with it. See what we did with the one-arm-bandit program in a joint effort. ;-)

Dieter

[Gene]

I think we should work through the code for these as was done with the One Arm Bandit.

The code for the programs to be included is essentially from the HP 41 library on the museum site here. The listings for the HP67/97 games pac and games solution books (there were two) are available here on the site.

Eight of the .raw files from the existing HP67 games rom are in this .zip file. More are coming. The code is from the rom image Angel posted here.

zip of raw games


Let's pick one and start optimizing.

1) Remove card reader functions where possible.
2) Save registers with program steps where possible.
3) Avoid CLRG if it makes sense.
4) Save bytes
5) Maybe... add limited alpha but watch the byte count


Angel, are you ok if we save some space and go through this over the next week or so ?

[Gene]

Star Trek

Code:

 01 LBL "ST" 
 02 CLRG 
 03 CF 02 
 04 SF 27 
 05 FIX 02 
 06 "STAR TREK" 
 07 PROMPT 
 08 LBL A 
 09 STO 14 
 10 2 E4 
 11 STO 08 
 12  E2 
 13 STO 10 
 14 4 
 15 STO 15 
 16 / 
 17 STO 00 
 18 0 
 19 STO 06 
 20 LBL 09 
 21 XEQ 08 
 22 RCL 10 
 23 * 
 24 RND 
 25 STO IND 15 
 26 DSE 15 
 27 GTO 09 
 28 LBL 00 
 29 RCL 04 
 30 FIX 02 
 31 VIEW X 
 32 PSE 
 33 PSE 
 34 PSE 
 35 CLD 
 36 STOP 
 37 LBL 08 
 38 RCL 14 
 39 ATAN 
 40 FRC 
 41 STO 14 
 42 RTN 
 43 LBL B 
 44 3 
 45 STO 15 
 46 LBL 06 
 47 XEQ 02 
 48 RCL 00 
 49 X<=Y? 
 50 GTO 05 
 51 RDN 
 52 RCL 15 
 53 FIX 00 
 54 VIEW X 
 55 PSE 
 56 PSE 
 57 PSE 
 58 CLD 
 59 RDN 
 60 VIEW X 
 61 PSE 
 62 PSE 
 63 PSE 
 64 CLD 
 65 X<>Y 
 66 VIEW X 
 67 PSE 
 68 PSE 
 69 PSE 
 70 CLD 
 71 XEQ 08 
 72 LASTX 
 73 ST+ 05 
 74 LBL 05 
 75 DSE 15 
 76 GTO 06 
 77 XEQ a 
 78 GTO 00 
 79 LBL 07 
 80 INT 
 81 FS?C 02 
 82 STO 11 
 83 LASTX 
 84 FRC 
 85 RCL 10 
 86 * 
 87 INT 
 88 RTN 
 89 LBL C 
 90 STO 12 
 91 X<>Y 
 92 STO 11 
 93 8 
 94 RCL 10 
 95 RCL 04 
 96 XEQ d 
 97 - 
 98 % 
 99 RCL 12 
100 X>Y? 
101 X<>Y 
102 10 
103 * 
104 STO 12 
105 X^2 
106 XEQ 01 
107 RCL 11 
108 RCL 12 
109 P-R 
110 INT 
111 ST+ 04 
112 X<>Y 
113 INT 
114 RCL 10 
115 / 
116 ST+ 04 
117 GTO 00 
118 LBL 01 
119 SF 02 
120 LBL D 
121 RCL 08 
122 X<>Y 
123 X<=Y? 
124 GTO 04 
125 0 
126 LBL 14 
127 PSE 
128 GTO 14 
129 LBL 04 
130 ST- 08 
131 FS?C 02 
132 RTN 
133 ST+ 06 
134 RCL 06 
135 RTN 
136 LBL E 
137 STO 15 
138 XEQ 02 
139 STO 11 
140 RCL 06 
141 RCL 10 
142 RCL IND 15 
143 XEQ d 
144 - 
145 XEQ 08 
146 * 
147 X>Y? 
148 XEQ 03 
149 ST- 06 
150 STO 05 
151 RCL 06 
152 STOP 
153 STO 13 
154 RCL 00 
155 2 
156 / 
157 RCL 11 
158 X>Y? 
159 GTO 00 
160 X^2 
161 RCL 13 
162 * 
163 XEQ 01 
164 XEQ 08 
165 RCL 10 
166 * 
167 RCL 11 
168 SQRT 
169 / 
170 VIEW X 
171 PSE 
172 PSE 
173 PSE 
174 CLD 
175 XEQ c 
176 XEQ a 
177 GTO 00 
178 LBL 03 
179 XEQ 01 
180 R^ 
181 - 
182 SF 02 
183 RTN 
184 LBL 02 
185 RCL IND 15 
186 SF 02 
187 XEQ 07 
188 RCL 04 
189 XEQ 07 
190 RCL 11 
191 RDN 
192 RDN 
193 X<>Y 
194 R^ 
195 - 
196 RDN 
197 - 
198 R^ 
199 X<>Y 
200 R-P 
201 RTN 
202 LBL e 
203 RCL 15 
204 CHS 
205 STO IND 15 
206 STOP 
207 LBL b 
208 STO 15 
209 RCL IND 15 
210 LBL d 
211 RCL 10 
212 * 
213 FRC 
214  E3 
215 * 
216 RTN 
217 LBL a 
218 RCL 05 
219 X=0? 
220 RTN 
221 ST- 05 
222 4 
223 STO 15 
224 FS?C 02 
225 1/X 
226 / 
227 VIEW X 
228 PSE 
229 PSE 
230 PSE 
231 CLD 
232 LBL c 
233 RCL IND 15 
234 XEQ d 
235 + 
236 RCL 10 
237 X<=Y? 
238 GTO e 
239 RDN 
240  E5 
241 / 
242 RCL IND 15 
243 FIX 02 
244 RND 
245 + 
246 STO IND 15 
247 END

Golf

Code:

 01 LBL "GOLF67" 
 02 LBL 16 
 03 LBL b 
 04 RCL 20 
 05 997 
 06 * 
 07 FRC 
 08 STO 20 
 09 .5 
 10 - 
 11 RTN 
 12 LBL 10 
 13 LBL A 
 14 XEQ 16 
 15 1 
 16 + 
 17 40 
 18 * 
 19 STO 22 
 20 0 
 21 STO 05 
 22 STO 03 
 23 STO 02 
 24 7P<>S -- XROM 30,31 
 25 STO 05 
 26 STO 03 
 27 STO 02 
 28 7P<>S -- XROM 30,31 
 29 XEQ 16 
 30 9 
 31 * 
 32 7 
 33 + 
 34 50 
 35 * 
 36 STO 23 
 37 ST- 02 
 38 7P<>S -- XROM 30,31 
 39 ST- 02 
 40 7P<>S -- XROM 30,31 
 41 215 
 42 / 
 43 3 
 44 + 
 45 INT 
 46 ST+ 09 
 47 7P<>S -- XROM 30,31 
 48 ST+ 09 
 49 1 
 50 ST+ 00 
 51 7P<>S -- XROM 30,31 
 52 ST+ 00 
 53 RCL 00 
 54 RCL 23 
 55 R^ 
 56 RCL 22 
 57 7PRSTK -- XROM 30,33 
 58 RTN 
 59 LBL 13 
 60 LBL D 
 61 19 
 62 GTO 12 
 63 LBL 11 
 64 LBL B 
 65 4 
 66 - 
 67 2 
 68 * 
 69 LBL 12 
 70 LBL C 
 71 1 
 72 ST+ 01 
 73 RDN 
 74 20 
 75 - 
 76 10 
 77 * 
 78 CHS 
 79 STO 08 
 80 0 
 81 STOP 
 82 STO 21 
 83 2 
 84 1/X 
 85 XEQ 16 
 86 - 
 87 LASTX 
 88 X<>Y 
 89 RCL 07 
 90 56 
 91 / 
 92 * 
 93 - 
 94 RCL 08 
 95 5 
 96 / 
 97 * 
 98 RCL 08 
 99 RCL 21 
100 * 
101 + 
102 ABS 
103 STO 24 
104 XEQ 16 
105 3 
106 * 
107 RCL 07 
108 36 
109 + 
110 SQRT 
111 * 
112 STO 21 
113 RCL 03 
114 ABS 
115 RCL 22 
116 X<=Y? 
117 XEQ 09 
118 RCL 04 
119 4 
120 + 
121 RCL 24 
122 X>Y? 
123 GTO 04 
124 RCL 04 
125 5 
126 1/X 
127 - 
128 X>Y? 
129 GTO 04 
130 LASTX 
131 RCL 04 
132 / 
133 ATAN 
134 RCL 21 
135 ABS 
136 X>Y? 
137 GTO 04 
138 0 
139 7DSP9 -- XROM 30,21 
140 7PRTX -- XROM 30,34 
141 RCL 01 
142 RCL 07 
143 18 
144 / 
145 RCL 00 
146 * 
147 - 
148 RCL 09 
149 - 
150 7DSP0 -- XROM 30,12 
151 7PRTX -- XROM 30,34 
152 RTN 
153 LBL 04 
154 RCL 21 
155 RCL 05 
156 + 
157 RCL 24 
158 P-R 
159 RCL 02 
160 + 
161 STO 02 
162 X<>Y 
163 RCL 03 
164 + 
165 STO 03 
166 CHS 
167 X<>Y 
168 CHS 
169 R-P 
170 STO 04 
171 X<>Y 
172 STO 05 
173 RCL 24 
174 RCL 21 
175 RCL 02 
176 RCL 03 
177 7PRTX -- XROM 30,33 
178 ABS 
179 RCL 22 
180 X<=Y? 
181 GTO 08 
182 GTO 07 
183 LBL 08 
184 7DSP6 -- XROM 30,18 
185 LBL 07 
186 RCL 04 
187 7PRTX -- XROM 30,34 
188 RCL 05 
189 7PRTX -- XROM 30,34 
190 7DSP0 -- XROM 30,12 
191 RTN 
192 LBL 09 
193 RCL 21 
194 ABS 
195 RCL 05 
196 ABS 
197 SIN 
198 3 
199 * 
200 RCL 03 
201 ABS 
202 RCL 22 
203 - 
204 / 
205 ATAN 
206 ABS 
207 X>Y? 
208 RTN 
209 RCL 24 
210 9 
211 / 
212 STO 24 
213 RCL 21 
214 9 
215 * 
216 STO 21 
217 RTN 
218 GTO 67 
219 END

Game of 26/36

Code:

 01 LBL "G2636" 
 02 LBL 10 
 03 LBL A 
 04 STO 20 
 05 .25 
 06 ST- 00 
 07 0 
 08 STO 01 
 09 13 
 10 STO 21 
 11 LBL 18 
 12 LBL d 
 13 10 
 14 STO 25 
 15 0 
 16 ENTER 
 17 LBL 00 
 18 10 
 19 * 
 20 XEQ 19 
 21 RCL 20 
 22 X=Y? 
 23 XEQ 01 
 24 CLX 
 25 + 
 26 + 
 27 7DSZ -- XROM 30,23 
 28 GTO 00 
 29 7PRTX -- XROM 30,34 
 30 RCL 21 
 31 1 
 32 - 
 33 STO 21 
 34 X!=0? 
 35 GTO 18 
 36 1 
 37 STO 25 
 38 RCL 01 
 39 33 
 40 X<=Y? 
 41 7ISZ -- XROM 30,29 
 42 7 
 43 - 
 44 X<=Y? 
 45 7ISZ -- XROM 30,29 
 46 2 
 47 / 
 48 X=Y? 
 49 XEQ 02 
 50 2 
 51 - 
 52 X<>Y 
 53 X<=Y? 
 54 7ISZ -- XROM 30,29 
 55 1 
 56 RCL 25 
 57 X=Y? 
 58 0 
 59 ST+ 00 
 60 RCL 01 
 61 PSE 
 62 X<>Y 
 63 PSE 
 64 RCL 00 
 65 RTN 
 66 LBL 01 
 67 1 
 68 ST+ 01 
 69 CLX 
 70 + 
 71 RTN 
 72 LBL 02 
 73 .5 
 74 STO 25 
 75 CLX 
 76 + 
 77 RTN 
 78 LBL 11 
 79 LBL B 
 80 SF 01 
 81 STO 05 
 82 ST- 02 
 83 0 
 84 STO 03 
 85 STO 04 
 86 XEQ 15 
 87 XEQ 16 
 88 LBL 17 
 89 LBL c 
 90 7DSP2 -- XROM 30,14 
 91 RCL 04 
 92 RCL 03 
 93 X>Y? 
 94 GTO 09 
 95 X<>Y 
 96 X>Y? 
 97 GTO 04 
 98 RCL 05 
 99 ST+ 02 
100 PSE 
101 RCL 02 
102 RTN 
103 LBL 12 
104 LBL C 
105 CF 01 
106 STO 05 
107 ST- 02 
108 0 
109 STO 03 
110 STO 04 
111 XEQ 16 
112 XEQ 15 
113 GTO 17 
114 LBL 13 
115 LBL D 
116 RCL 02 
117 RTN 
118 LBL 14 
119 LBL E 
120 STO 24 
121 RTN 
122 LBL 15 
123 LBL a 
124 7DSP2 -- XROM 30,14 
125 LBL 05 
126 XEQ 19 
127 ST+ 03 
128 LBL 03 
129 36 
130 RCL 03 
131 X>Y? 
132 GTO 04 
133 PSE 
134 X>0? 
135 GTO 03 
136 X<0? 
137 GTO 05 
138 RTN 
139 LBL 04 
140 7DSP2 -- XROM 30,14 
141 RCL 05 
142 CHS 
143 STOP 
144 LBL 16 
145 LBL b 
146 7DSP0 -- XROM 30,12 
147 LBL 06 
148 XEQ 19 
149 ST+ 04 
150 36 
151 RCL 04 
152 CF 22 
153 PSE 
154 FS?C 22 
155 GTO 04 
156 X>Y? 
157 GTO 09 
158 FS? 01 
159 GTO 07 
160 LBL 08 
161 33 
162 X<=Y? 
163 RTN 
164 GTO 06 
165 LBL 07 
166 RCL 03 
167 X<>Y 
168 X=Y? 
169 GTO 08 
170 X<=Y? 
171 GTO 06 
172 RTN 
173 LBL 09 
174 7DSP2 -- XROM 30,14 
175 RCL 05 
176 2 
177 * 
178 ST+ 02 
179 STOP 
180 LBL 19 
181 LBL e 
182 RCL 24 
183 997 
184 * 
185 FRC 
186 STO 24 
187 6 
188 * 
189 1 
190 + 
191 INT 
192 RTN 
193 STOP 
194 END

Follow me (from mag card pack)

Code:

 01 LBL "FLLW67" 
 02 LBL 10 
 03 LBL A 
 04 7CLRG -- XROM 30,11 
 05 7P<>S -- XROM 30,31 
 06 7CLRG -- XROM 30,11 
 07 24 
 08 STO 25 
 09 CLX 
 10 RTN 
 11 LBL 15 
 12 LBL a 
 13 + 
 14 1 
 15 GTO 00 
 16 LBL 16 
 17 LBL b 
 18 - 
 19 2 
 20 GTO 00 
 21 LBL 17 
 22 LBL c 
 23 * 
 24 3 
 25 GTO 00 
 26 LBL 18 
 27 LBL d 
 28 / 
 29 4 
 30 LBL 00 
 31 7DSZ -- XROM 30,23 
 32 GTO 01 
 33 GTO 09 
 34 LBL 01 
 35 STO IND 25 
 36 RDN 
 37 RTN 
 38 LBL 19 
 39 LBL e 
 40 % 
 41 STO 24 
 42 CLX 
 43 5 
 44 GTO 08 
 45 LBL 11 
 46 LBL B 
 47 STO 24 
 48 CLX 
 49 6 
 50 GTO 08 
 51 LBL 12 
 52 LBL C 
 53 STO 24 
 54 CLX 
 55 7 
 56 7DSZ -- XROM 30,23 
 57 GTO 01 
 58 LBL 09 
 59 CLX 
 60 24 
 61 PSE 
 62 GTO 09 
 63 LBL 01 
 64 STO IND 25 
 65 CLX 
 66 RCL 24 
 67 LBL 08 
 68 7DSZ -- XROM 30,23 
 69 GTO 01 
 70 GTO 09 
 71 LBL 01 
 72 STO IND 25 
 73 CLX 
 74 RCL 24 
 75 RTN 
 76 LBL 13 
 77 LBL D 
 78 CLX 
 79 24 
 80 STO 25 
 81 CLX 
 82 STO 00 
 83 RTN 
 84 LBL 14 
 85 LBL E 
 86 STO 24 
 87 RDN 
 88 7DSZ -- XROM 30,23 
 89 RCL IND 25 
 90 X<> 25 
 91 7GTOI -- XROM 30,28 
 92 LBL 00 
 93 CLX 
 94 24 
 95 STO 25 
 96 CLX 
 97 RCL 24 
 98 RTN 
 99 LBL 01 
100 X<> 25 
101 CLX 
102 RCL 24 
103 + 
104 GTO 14 
105 LBL 02 
106 X<> 25 
107 CLX 
108 RCL 24 
109 - 
110 GTO 14 
111 LBL 03 
112 X<> 25 
113 CLX 
114 RCL 24 
115 * 
116 GTO 14 
117 LBL 04 
118 X<> 25 
119 CLX 
120 RCL 24 
121 / 
122 GTO 14 
123 LBL 05 
124 X<> 25 
125 CLX 
126 RCL 24 
127 % 
128 GTO 14 
129 LBL 06 
130 X<> 25 
131 CLX 
132 RCL 24 
133 RTN 
134 LBL 07 
135 X<> 25 
136 CLX 
137 RCL 24 
138 7DSZ -- XROM 30,23 
139 RCL IND 25 
140 GTO 14 
141 STOP 
142 END

Chuck a luck

Code:

 01 LBL "CHKLCK" 
 02 LBL 10 
 03 LBL A 
 04 7DSP0 -- XROM 30,12 
 05 INT 
 06 LASTX 
 07 X!=Y? 
 08 GTO 19 
 09 7DSP3 -- XROM 30,15 
 10 STO 00 
 11 1 
 12 X>Y? 
 13 GTO 19 
 14 CLX 
 15 7 
 16 X<=Y? 
 17 GTO 19 
 18 CLX 
 19 STO 25 
 20 STO 03 
 21 XEQ 01 
 22 XEQ 01 
 23 XEQ 01 
 24 RCL 25 
 25 X=0? 
 26 GTO 00 
 27 RCL 01 
 28 * 
 29 ST+ 04 
 30 RCL 03 
 31 + 
 32 RTN 
 33 LBL 00 
 34 RCL 01 
 35 ST- 04 
 36 RCL 03 
 37 + 
 38 CHS 
 39 RTN 
 40 LBL 01 
 41 RCL 00 
 42 RCL 05 
 43 PI 
 44 + 
 45 X^2 
 46 FRC 
 47 STO 05 
 48 6 
 49 * 
 50 1 
 51 + 
 52 INT 
 53 X=Y? 
 54 7ISZ -- XROM 30,29 
 55 ST+ 03 
 56 10 
 57 ST/ 03 
 58 RTN 
 59 LBL 11 
 60 LBL B 
 61 7DSP0 -- XROM 30,12 
 62 INT 
 63 LASTX 
 64 X!=Y? 
 65 GTO 19 
 66 STO 01 
 67 RTN 
 68 LBL 13 
 69 LBL D 
 70 CLX 
 71 STO 04 
 72 LBL 12 
 73 LBL C 
 74 7DSP0 -- XROM 30,12 
 75 RCL 04 
 76 RTN 
 77 LBL 14 
 78 LBL E 
 79 PI 
 80 + 
 81 STO 05 
 82 GTO 14 
 83 STOP 
 84 END

Battleship

Code:

 01 LBL "BTLSHP" 
 02 LBL 10 
 03 LBL A 
 04 LOG 
 05 FRC 
 06  E2 
 07 * 
 08 STO 03 
 09 INT 
 10 STO 01 
 11 LASTX 
 12 FRC 
 13  E2 
 14 * 
 15 ABS 
 16 INT 
 17 STO 02 
 18 RCL 01 
 19 INT 
 20 STO 01 
 21 1111111111 
 22 STO 08 
 23 8 
 24 * 
 25 STO 06 
 26 16 
 27 STO 25 
 28 7 
 29 STO 07 
 30 RCL 08 
 31 7 
 32 * 
 33 STO 05 
 34 LBL 02 
 35 7DSZ -- XROM 30,23 
 36 GTO 06 
 37 RCL 08 
 38 7PRTX -- XROM 30,34 
 39 GTO 09 
 40 LBL 06 
 41 RCL 25 
 42 PSE 
 43 CLX 
 44 STOP 
 45 RCL 02 
 46 - 
 47 X^2 
 48 X<>Y 
 49 RCL 01 
 50 - 
 51 X^2 
 52 + 
 53 SQRT 
 54 PSE 
 55 5 
 56 X<>Y 
 57 X>Y? 
 58 GTO 02 
 59 1 
 60 X<>Y 
 61 X<=Y? 
 62 GTO 01 
 63 1 
 64 ST+ 00 
 65 4 
 66 RCL 00 
 67 X>Y? 
 68 GTO 03 
 69 ST- 07 
 70 RCL 07 
 71 ST- 01 
 72 ST- 02 
 73 RCL 01 
 74 X<0? 
 75 GTO 05 
 76 RCL 02 
 77 X<0? 
 78 GTO 05 
 79 GTO 02 
 80 LBL 05 
 81 RCL 07 
 82 2 
 83 * 
 84 ST+ 01 
 85 ST+ 02 
 86 GTO 02 
 87 LBL 03 
 88 RCL 05 
 89 7PRTX -- XROM 30,34 
 90 GTO 09 
 91 LBL 01 
 92 RCL 06 
 93 7PRTX -- XROM 30,34 
 94 LBL 09 
 95 CLX 
 96 STO 00 
 97 RCL 03 
 98 PI 
 99 * 
100 GTO 10 
101 RTN 
102 STOP 
103 END

Blackjack HP67

Code:

 01 LBL "BJCK67" 
 02 LBL 10 
 03 LBL A 
 04 ADV 
 05 ADV 
 06 CF 00 
 07 CF 01 
 08 STO 20 
 09 1 
 10 STO 25 
 11 XEQ 00 
 12 STO 21 
 13 XEQ 05 
 14 XEQ 09 
 15 STO 01 
 16 STO 03 
 17 1 
 18 STO 25 
 19 XEQ 00 
 20 STO 22 
 21 XEQ 09 
 22 STO 02 
 23 ST+ 03 
 24 0 
 25 XEQ 05 
 26 ADV 
 27 XEQ 19 
 28 STO 05 
 29 STO 07 
 30 XEQ 19 
 31 STO 06 
 32 ST+ 07 
 33 RCL 05 
 34 * 
 35 RCL 07 
 36 + 
 37 21 
 38 STO 00 
 39 X=Y? 
 40 GTO 02 
 41 RCL 07 
 42 XEQ 03 
 43 STOP 
 44 LBL 11 
 45 LBL B 
 46 XEQ 19 
 47 ST+ 07 
 48 RCL 07 
 49 RCL 00 
 50 X<>Y 
 51 X>Y? 
 52 GTO 04 
 53 X<=Y? 
 54 XEQ 03 
 55 STOP 
 56 LBL 13 
 57 LBL D 
 58 SF 00 
 59 10 
 60 ST+ 07 
 61 RCL 07 
 62 XEQ 03 
 63 RTN 
 64 LBL 14 
 65 LBL E 
 66 CF 00 
 67 10 
 68 ST- 07 
 69 RCL 07 
 70 XEQ 03 
 71 RTN 
 72 LBL 04 
 73 FS? 00 
 74 GTO 14 
 75 RCL 20 
 76 CHS 
 77 ST+ 09 
 78 RCL 07 
 79  E2 
 80 / 
 81 - 
 82 GTO 06 
 83 LBL 02 
 84 RCL 01 
 85 RCL 02 
 86 * 
 87 RCL 03 
 88 + 
 89 RCL 00 
 90 X=Y? 
 91 GTO 07 
 92 FS? 01 
 93 RTN 
 94 LBL 08 
 95 .21 
 96 RCL 20 
 97 1.5 
 98 * 
 99 STO 20 
100 ST+ 09 
101 + 
102 LBL 06 
103 PSE 
104 PSE 
105 PSE 
106 PSE 
107 RCL 09 
108 7DSP2 -- XROM 30,14 
109 FS? 01 
110 STOP 
111 RTN 
112 LBL 07 
113 FS? 01 
114 GTO 04 
115 0 
116 7DSP9 -- XROM 30,21 
117 GTO 06 
118 LBL 09 
119 10 
120 X<>Y 
121 X<=Y? 
122 RTN 
123 X<>Y 
124 RTN 
125 LBL 03 
126  E2 
127 / 
128 RCL 20 
129 + 
130 RTN 
131 LBL 05 
132 7DSP0 -- XROM 30,12 
133 7PRTX -- XROM 30,34 
134 7DSP2 -- XROM 30,14 
135 RTN 
136 LBL 15 
137 LBL a 
138 0 
139 STO 25 
140 .5281163 
141 STO 24 
142 LBL 00 
143 RCL 24 
144 997 
145 * 
146 FRC 
147 STO 24 
148 13 
149 * 
150 INT 
151 1 
152 + 
153 STO 23 
154 7DSZ -- XROM 30,23 
155 GTO 00 
156 RTN 
157 LBL 12 
158 LBL C 
159 CF 00 
160 ADV 
161 RCL 21 
162 XEQ 05 
163 RCL 22 
164 XEQ 05 
165 SF 01 
166 XEQ 02 
167 CF 01 
168 RCL 03 
169 LBL 16 
170 LBL b 
171 17 
172 X<=Y? 
173 GTO 18 
174 XEQ 19 
175 ST+ 03 
176 RCL 03 
177 22 
178 X<=Y? 
179 GTO 01 
180 RCL 03 
181 GTO 16 
182 LBL 18 
183 LBL d 
184 RCL 07 
185 RCL 03 
186 - 
187 X=0? 
188 GTO 06 
189 X<0? 
190 GTO 04 
191 LBL 01 
192 RCL 20 
193 ST+ 09 
194 RCL 07 
195 XEQ 03 
196 GTO 06 
197 LBL 19 
198 LBL e 
199 1 
200 STO 25 
201 XEQ 00 
202 XEQ 05 
203 XEQ 09 
204 RTN 
205 LBL 17 
206 LBL c 
207 0 
208 STO 09 
209 RTN 
210 STOP 
211 END

Artillery HP67

Code:

 01 LBL "ARTL67" 
 02 LBL 15 
 03 LBL a 
 04 7FIX -- XROM 30,26 
 05 7DSP2 -- XROM 30,14 
 06 .5284163 
 07 STO 00 
 08 3 
 09 STO 22 
 10 500 
 11 STO 21 
 12  E2 
 13 STO 23 
 14 X^2 
 15 STO 09 
 16 RTN 
 17 LBL 10 
 18 LBL A 
 19 ADV 
 20 0 
 21 STO 25 
 22 RCL 09 
 23 2 
 24 / 
 25 ENTER 
 26 XEQ 00 
 27 + 
 28 360 
 29 XEQ 00 
 30 STO 08 
 31 R^ 
 32 P-R 
 33 STO 01 
 34 X<>Y 
 35 STO 02 
 36 45 
 37 ST/ 08 
 38 RCL 08 
 39 7DSP0 -- XROM 30,12 
 40 RND 
 41 * 
 42 RTN 
 43 LBL 12 
 44 LBL C 
 45 RCL 02 
 46 RCL 01 
 47 R-P 
 48  E4 
 49 / 
 50 X<>Y 
 51 X>0? 
 52 GTO 02 
 53 360 
 54 + 
 55 LBL 02 
 56 7DSP0 -- XROM 30,12 
 57 RND 
 58 + 
 59 7DSP4 -- XROM 30,16 
 60 RTN 
 61 LBL 16 
 62 LBL b 
 63 STO 21 
 64 RTN 
 65 LBL 17 
 66 LBL c 
 67 STO 22 
 68 RTN 
 69 LBL 18 
 70 LBL d 
 71 STO 23 
 72 RTN 
 73 LBL 01 
 74 CF 00 
 75 X<0? 
 76 SF 00 
 77 RCL 21 
 78 XEQ 00 
 79 FS? 00 
 80 CHS 
 81 - 
 82 RTN 
 83 LBL 19 
 84 LBL e 
 85 LBL 14 
 86 LBL E 
 87 7ISZ -- XROM 30,29 
 88 X<>Y 
 89 7DSP7 -- XROM 30,19 
 90 7PRTX -- XROM 30,34 
 91 X<>Y 
 92 7DSP1 -- XROM 30,13 
 93 7PRTX -- XROM 30,34 
 94 ENTER 
 95 + 
 96 SIN 
 97 RCL 09 
 98 * 
 99 P-R 
100 STO 03 
101 X<>Y 
102 STO 04 
103 RCL 01 
104 XEQ 01 
105 STO 01 
106 RCL 02 
107 XEQ 01 
108 STO 02 
109 CHS 
110 RCL 04 
111 + 
112 RCL 03 
113 RCL 01 
114 - 
115 R-P 
116 STO 07 
117 RCL 23 
118 X<>Y 
119 X>Y? 
120 GTO 07 
121 RCL 22 
122 RCL 21 
123 RDN 
124 RDN 
125 7PRSTK -- XROM 30,33 
126 STOP 
127 LBL 07 
128 RDN 
129 RDN 
130 RCL 02 
131 RCL 01 
132 R-P 
133 500 
134 LBL 08 
135 X>Y? 
136 PSE 
137 X>Y? 
138 GTO 08 
139 RDN 
140 RDN 
141 - 
142 30 
143 / 
144 4 
145 RCL 22 
146 - 
147 XEQ 09 
148 LBL 05 
149 X<0? 
150 GTO 06 
151 7DSP0 -- XROM 30,12 
152 RND 
153 STO 08 
154 RCL 07 
155 .2 
156 ENTER 
157 4 
158 RCL 22 
159 - 
160 * 
161 * 
162 X=0? 
163 GTO 03 
164 XEQ 09 
165 RCL 23 
166 LBL 03 
167 X<=Y? 
168 X<>Y 
169 RCL 09 
170 / 
171 7DSP3 -- XROM 30,15 
172 RND 
173 RCL 08 
174 + 
175 7DSP4 -- XROM 30,16 
176 7PRSTK -- XROM 30,34 
177 RTN 
178 LBL 06 
179 12 
180 + 
181 GTO 05 
182 LBL 09 
183 - 
184 LASTX 
185 ENTER 
186 + 
187 XEQ 00 
188 + 
189 RTN 
190 LBL 00 
191 RCL 00 
192 997 
193 * 
194 FRC 
195 STO 00 
196 * 
197 RTN 
198 STOP 
199 END

Space War 67 (Card A) - Card B which follows should really be combined with this Card A

Code:

 01 LBL "SPW67A" 
 02 LBL 10 
 03 LBL A 
 04 XROM 30,11 
 05 X=0? 
 06 PI 
 07 STO 09 
 08 10 
 09 STO 04 
 10 20 
 11 STO 25 
 12 LBL 09 
 13 XEQ 01 
 14 XEQ 08 
 15 FS?C 02 
 16 GTO 09 
 17 STO IND 25 
 18 XROM 30,29 
 19 RCL 25 
 20 25 
 21 X!=Y? 
 22 GTO 09 
 23  E3 
 24 STO 06 
 25 3 
 26 STO 07 
 27 STO 09 
 28 18 
 29 STO 08 
 30 RCL 24 
 31 RTN 
 32 LBL 01 
 33 RCL 09 
 34 997 
 35 * 
 36 FRC 
 37 STO 09 
 38  E4 
 39 * 
 40 INT 
 41 XEQ 05 
 42 XEQ 05 
 43 RTN 
 44 LBL 08 
 45 RCL 20 
 46 X=Y? 
 47 SF 02 
 48 CLX 
 49 RCL 21 
 50 X=Y? 
 51 SF 02 
 52 CLX 
 53 RCL 22 
 54 X=Y? 
 55 SF 02 
 56 CLX 
 57 RCL 23 
 58 X=Y? 
 59 SF 02 
 60 RDN 
 61 RTN 
 62 LBL 12 
 63 LBL C 
 64 4 
 65 XROM 30,26 
 66 999 
 67 / 
 68 STO 02 
 69 XROM 30,20 
 70 ADV 
 71 RCL 24 
 72 INT 
 73 STO 00 
 74 RCL 04 
 75 + 
 76 XEQ 03 
 77 RCL 00 
 78 XEQ 03 
 79 RCL 00 
 80 RCL 04 
 81 - 
 82 XEQ 03 
 83 RTN 
 84 LBL 03 
 85 RCL 02 
 86 STO 01 
 87 RDN 
 88 STO 03 
 89 ST+ 01 
 90 1 
 91 - 
 92 XEQ 00 
 93 XEQ 05 
 94 XEQ 05 
 95 ST+ 01 
 96 RCL 03 
 97 XEQ 00 
 98  E5 
 99 / 
100 ST+ 01 
101 RCL 03 
102 1 
103 + 
104 XEQ 00 
105  E8 
106 / 
107 ST+ 01 
108 RCL 01 
109 XROM 30,34 
110 RTN 
111 LBL 00 
112 0 
113 STO 05 
114 RDN 
115 RCL 20 
116 INT 
117 X=Y? 
118 XEQ 01 
119 CLX 
120 RCL 21 
121 INT 
122 X=Y? 
123 XEQ 01 
124 CLX 
125 RCL 22 
126 INT 
127 X=Y? 
128 XEQ 01 
129 CLX 
130 RCL 23 
131 INT 
132 X=Y? 
133 XEQ 02 
134 RCL 05 
135 RTN 
136 LBL 01 
137 RCL 04 
138 ST+ 05 
139 RTN 
140 LBL 02 
141 1 
142 ST+ 05 
143 RTN 
144 LBL 14 
145 LBL E 
146 P-R 
147 XROM 30,26 
148 XROM 30,13 
149 RND 
150 STO 00 
151 X<>Y 
152 RND 
153 XROM 30,14 
154 RCL 24 
155 XEQ 05 
156 STO 03 
157 INT 
158 RCL 24 
159 XEQ 04 
160 STO 02 
161 INT 
162 XEQ 05 
163 FRC 
164 + 
165 + 
166 FRC 
167 LASTX 
168 INT 
169 XEQ 04 
170 + 
171 RCL 02 
172 FRC 
173 RCL 03 
174 FRC 
175 XEQ 04 
176 INT 
177 + 
178 RCL 00 
179 + 
180 INT 
181 LASTX 
182 FRC 
183 XEQ 05 
184 + 
185 LBL 07 
186 + 
187 XEQ 08 
188 FS?C 02 
189 GTO 00 
190 STO 24 
191 1 
192 ST- 08 
193 RCL 08 
194 X<0? 
195 GTO 06 
196 RCL 24 
197 RTN 
198 LBL 06 
199 CLX 
200 PSE 
201 GTO 06 
202 LBL 04 
203 RCL 04 
204 * 
205 RTN 
206 LBL 05 
207 RCL 04 
208 / 
209 RTN 
210 LBL 00 
211 .1 
212 GTO 07 
213 LBL 15 
214 LBL a 
215 RCL 08 
216 RTN 
217 GTO 67 
218 END

Space War Card B

Code:

 01 LBL "SPW67B" 
 02 LBL 10 
 03 LBL A 
 04 XROM 30,26 
 05 XROM 30,21 
 06 ADV 
 07 XROM 30,31 
 08 9 
 09 STO 25 
 10 0 
 11 LBL 09 
 12 STO IND 25 
 13 XROM 30,23 
 14 GTO 09 
 15 STO 00 
 16 3 
 17 RCL 24 
 18 XEQ 00 
 19 4 
 20 RCL 20 
 21 XEQ 00 
 22 4 
 23 RCL 21 
 24 XEQ 00 
 25 4 
 26 RCL 22 
 27 XEQ 00 
 28 7 
 29 RCL 23 
 30 XEQ 00 
 31 9 
 32 STO 25 
 33 LBL 08 
 34 RCL IND 25 
 35 XROM 30,34 
 36 XROM 30,23 
 37 GTO 08 
 38 RCL 00 
 39 XROM 30,34 
 40 XROM 30,31 
 41 RTN 
 42 LBL 00 
 43 ENTER 
 44 INT 
 45 RCL 24 
 46 INT 
 47 X!=Y? 
 48 RTN 
 49 RDN 
 50 RDN 
 51 FRC 
 52 XEQ 05 
 53 INT 
 54 STO 25 
 55 CLX 
 56 LASTX 
 57 FRC 
 58 XEQ 05 
 59 CHS 
 60 10^X 
 61 * 
 62 ST+ IND 25 
 63 RTN 
 64 LBL 12 
 65 LBL C 
 66 CF 00 
 67 STO 00 
 68 RCL 07 
 69 1 
 70 X>Y? 
 71 GTO 11 
 72 - 
 73 STO 07 
 74 19 
 75 STO 25 
 76 XEQ 01 
 77 XEQ 01 
 78 XEQ 01 
 79 RCL 09 
 80 CF 00 
 81 RTN 
 82 LBL 01 
 83 XROM 30,29 
 84 FS? 00 
 85 RTN 
 86 RCL IND 25 
 87 INT 
 88 RCL 24 
 89 INT 
 90 X!=Y? 
 91 RTN 
 92 XEQ 07 
 93 CLX 
 94 RCL 00 
 95 - 
 96 ABS 
 97 1 
 98 X<=Y? 
 99 RTN 
100 1- 
101 STO IND 25 
102 SF 00 
103 1 
104 ST- 09 
105 RTN 
106 LBL 07 
107 RCL IND 25 
108 FRC 
109 XEQ 05 
110 STO 01 
111 INT 
112 RCL 24 
113 FRC 
114 XEQ 05 
115 INT 
116 - 
117 RCL 01 
118 FRC 
119 RCL 24 
120 XEQ 05 
121 FRC 
122 - 
123 XEQ 05 
124 R-P 
125 RTN 
126 LBL 13 
127 LBL D 
128 STO 00 
129 ST- 06 
130 19 
131 STO 25 
132 XEQ 04 
133 XEQ 04 
134 XEQ 04 
135 RCL 09 
136 RTN 
137 LBL 04 
138 RCL 06 
139 X<0? 
140 GTO 06 
141 XROM 30,29 
142 RCL IND 25 
143 INT 
144 RCL 24 
145 INT 
146 X!=Y? 
147 RTN 
148  E2 
149 ST- 06 
150 XEQ 07 
151 X^2 
152  E2 
153 + 
154 RCL 00 
155 X<=Y? 
156 RTN 
157 1- 
158 STO IND 25 
159 1 
160 ST- 09 
161 RTN 
162 LBL 06 
163 CLX 
164 PSE 
165 GTO 06 
166 LBL 14 
167 LBL E 
168 RCL 23 
169 INT 
170 RCL 24 
171 INT 
172 X!=Y? 
173 GTO 15 
174 RCL 23 
175 FRC 
176 XEQ 05 
177 STO 00 
178 INT 
179 RCL 24 
180 FRC 
181 XEQ 05 
182 STO 01 
183 INT 
184 - 
185 ABS 
186 2 
187 X<=Y? 
188 GTO 15 
189 RCL 00 
190 FRC 
191 XEQ 05 
192 RCL 01 
193 FRC 
194 XEQ 05 
195 - 
196 ABS 
197 2 
198 X<=Y? 
199 GTO 15 
200  E3 
201 STO 06 
202 3 
203 STO 07 
204 GTO 00 
205 LBL 15 
206 LBL a 
207 RCL 06 
208 RCL 07 
209 LBL 00 
210 10 
211 / 
212 X<>Y 
213 INT 
214 + 
215 XROM 30,26 
216 XROM 30,13 
217 RTN 
218 LBL 05 
219 10 
220 * 
221 RTN 
222 GTO 67 
223 END

Lander

Code:

 01 LBL "LAND67" 
 02 LBL 10 
 03 LBL A 
 04 500 
 05 STO 06 
 06 50- 
 07 STO 07 
 08 60 
 09 STO 08 
 10 LBL 09 
 11 RCL 06 
 12 XROM 30,16 
 13  E4 
 14 / 
 15 RCL 07 
 16 CF 02 
 17 X<0? 
 18 SF 02 
 19 ABS 
 20 + 
 21 FS?C 02 
 22 CHS 
 23 PSE 
 24 PSE 
 25 XROM 30,12 
 26 RCL 08 
 27 PSE 
 28 3 
 29 PSE 
 30 2 
 31 PSE 
 32 1 
 33 PSE 
 34 0 
 35 PSE 
 36 LBL 05 
 37 RCL 08 
 38 X<>Y 
 39 X>Y? 
 40 GTO 02 
 41 ST- 08 
 42 2 
 43 * 
 44 5 
 45 - 
 46 STO 09 
 47 2 
 48 / 
 49 RCL 06 
 50 + 
 51 RCL 07 
 52 + 
 53 RCL 09 
 54 ST+ 07 
 55 RDN 
 56 STO 06 
 57 INT 
 58 X>0? 
 59 GTO 09 
 60 LBL 03 
 61 XROM 30,12 
 62 RCL 07 
 63 LBL 04 
 64 PSE 
 65 GTO 04 
 66 LBL 02 
 67 RCL 08 
 68 2.5 
 69 - 
 70 ST+ 06 
 71 2 
 72 * 
 73 ST+ 07 
 74 RCL 06 
 75 10 
 76 * 
 77 RCL 07 
 78 X^2 
 79 + 
 80 SQRT 
 81 CHS 
 82 GTO 04 
 83 LBL 11 
 84 LBL B 
 85 5 
 86 ST- 08 
 87 0 
 88 GTO 05 
 89 STOP 
 90 END

Rocket 67 - another lander

Code:

 01 LBL "RCTK67" 
 02 LBL 17 
 03 LBL c 
 04 XROM 30,11 
 05 XROM 30,31 
 06 XROM 30,11 
 07 17 
 08 STO 25 
 09 LBL 09 
 10 RCL 25 
 11 1 
 12 - 
 13 4 
 14 / 
 15 5 
 16 * 
 17 55 
 18 + 
 19 STO IND 25 
 20 RCL 25 
 21 4 
 22 - 
 23 STO 25 
 24 X>0? 
 25 GTO 09 
 26 RTN 
 27 LBL 10 
 28 LBL A 
 29 1 
 30 GTO 00 
 31 LBL 11 
 32 LBL B 
 33 2 
 34 GTO 00 
 35 LBL 12 
 36 LBL C 
 37 3 
 38 GTO 00 
 39 LBL 13 
 40 LBL D 
 41 4 
 42 GTO 00 
 43 LBL 14 
 44 LBL E 
 45 5 
 46 LBL 00 
 47 XROM 30,34 
 48 1 
 49 - 
 50 4 
 51 * 
 52 1 
 53 + 
 54 STO 00 
 55 STO 25 
 56 RDN 
 57 9 
 58 X<=Y? 
 59 X<>Y 
 60 RDN 
 61 P-R 
 62 XROM 30,29 
 63 XROM 30,29 
 64 RCL IND 25 
 65 + 
 66 STO IND 25 
 67 XEQ 02 
 68 XROM 30,23 
 69 XROM 30,23 
 70 RCL IND 25 
 71 + 
 72 STO IND 25 
 73 X<>Y 
 74 XROM 30,29 
 75 XROM 30,29 
 76 XROM 30,29 
 77 RCL IND 25 
 78 + 
 79 STO IND 25 
 80 XEQ 02 
 81 XROM 30,23 
 82 XROM 30,23 
 83 RCL IND 25 
 84 + 
 85 STO IND 25 
 86 RCL 00 
 87 STO 25 
 88 RCL IND 25 
 89 STO 21 
 90 XROM 30,29 
 91 RCL IND 25 
 92 STO 22 
 93 17 
 94 STO 25 
 95 LBL 08 
 96 RCL 00 
 97 X=Y? 
 98 GTO 00 
 99 RCL IND 25 
100 RCL 21 
101 - 
102 XROM 30,29 
103 RCL IND 25 
104 RCL 22 
105 - 
106 R-P 
107 2 
108 X<=Y? 
109 XROM 30,23 
110 X<=Y? 
111 GTO 00 
112 RCL 25 
113 2 
114 - 
115 4 
116 / 
117 1 
118 + 
119 PSE 
120 PSE 
121 PSE 
122 0 
123 XROM 30,29 
124 STO IND 25 
125 XROM 30,29 
126 STO IND 25 
127 RCL 00 
128 X<> 25 
129 X<>Y 
130 XROM 30,29 
131 XROM 30,29 
132 STO IND 25 
133 XROM 30,29 
134 STO IND 25 
135 X<>Y 
136 3 
137 - 
138 X<> 25 
139 LBL 00 
140 RCL 25 
141 4 
142 - 
143 STO 25 
144 X>0? 
145 GTO 08 
146 RCL 21 
147 50 
148 / 
149 XEQ 07 
150 RCL 22 
151 70 
152 / 
153 XEQ 07 
154 + 
155 1 
156 X>Y? 
157 GTO 05 
158 RCL 21 
159 80 
160 / 
161 XEQ 07 
162 RCL 22 
163  E2 
164 / 
165 XEQ 07 
166 + 
167 1 
168 X>Y? 
169 GTO 06 
170 LBL 05 
171 RCL 00 
172 2 
173 + 
174 STO 25 
175 0 
176 STO IND 25 
177 XROM 30,29 
178 STO IND 25 
179 LBL 06 
180 RCL 00 
181 3 
182 + 
183 STO 25 
184 RCL IND 25 
185 XROM 30,23 
186 RCL IND 25 
187 XROM 30,23 
188 R-P 
189 RCL IND 25 
190 XROM 30,23 
191 RCL IND 25 
192 XROM 30,33 
193 RTN 
194 LBL 02 
195 LASTX 
196 + 
197 2 
198 / 
199 RTN 
200 LBL 07 
201 ABS 
202 2.5 
203 Y^X 
204 RTN 
205 LBL 15 
206 LBL a 
207 XROM 30,34 
208 1 
209 - 
210 4 
211 * 
212 2 
213 + 
214 STO 25 
215 RCL IND 25 
216 XROM 30,34 
217 XROM 30,23 
218 RCL IND 25 
219 XROM 30,34 
220 RTN 
221 STOP 
222 END

Slot Machine (another)

Code:

 01 LBL "SLMC67" 
 02 LBL 11 
 03 LBL B 
 04 XROM 30,14 
 05 RCL 00 
 06 RTN 
 07 LBL 14 
 08 LBL E 
 09 XROM 30,11 
 10 STO 24 
 11 CLX 
 12 XROM 30,12 
 13 RTN 
 14 LBL 10 
 15 LBL A 
 16 XROM 30,15 
 17 1 
 18 ST- 00 
 19 RCL 24 
 20  E3 
 21 * 
 22 COS 
 23 ABS 
 24 STO 24 
 25  E6 
 26 + 
 27 LASTX 
 28 - 
 29 FRC 
 30 STO 04 
 31 10 
 32 STO 05 
 33 * 
 34 INT 
 35 STO 01 
 36 CHS 
 37 LASTX 
 38 + 
 39 RCL 05 
 40 * 
 41 INT 
 42 STO 02 
 43 CHS 
 44 LASTX 
 45 + 
 46 RCL 05 
 47 * 
 48 INT 
 49 STO 03 
 50 1 
 51 RCL 01 
 52 X=Y? 
 53 GTO 01 
 54 RCL 02 
 55 X!=Y? 
 56 GTO 09 
 57 RCL 03 
 58 X!=0? 
 59 GTO 02 
 60 10 
 61 ST+ 00 
 62 RCL 02 
 63 X!=0? 
 64 GTO 09 
 65 90 
 66 GTO 08 
 67 LBL 02 
 68 RCL 02 
 69 RCL 03 
 70 X!=Y? 
 71 GTO 09 
 72 10 
 73 GTO 08 
 74 LBL 01 
 75 2 
 76 ST+ 00 
 77 1 
 78 RCL 02 
 79 X!=Y? 
 80 GTO 09 
 81 3 
 82 LBL 08 
 83 ST+ 00 
 84 LBL 09 
 85 RCL 01 
 86 10 
 87 / 
 88 XROM 30,13 
 89 PSE 
 90 RCL 02 
 91 100 
 92 / 
 93 + 
 94 XROM 30,14 
 95 PSE 
 96 RCL 03 
 97  E3 
 98 / 
 99 + 
100 XROM 30,15 
101 RTN 
102 STOP 
103 END

Tic Tac Toe

Code:

 01 LBL "TTT67" 
 02 LBL 10 
 03 LBL A 
 04 0 
 05 STO 24 
 06 -1 
 07 STO 00 
 08 2 
 09 XEQ 16 
 10 XEQ 08 
 11 XEQ 13 
 12 XEQ 19 
 13 RCL 25 
 14 RCL 24 
 15 XROM 30,21 
 16 STOP 
 17 XEQ 16 
 18 XEQ 08 
 19 XEQ 18 
 20 RCL IND 25 
 21 INT 
 22 RCL IND 25 
 23 STO 21 
 24 LBL 00 
 25 + 
 26 XEQ 11 
 27 STO 25 
 28 XEQ 13 
 29 XEQ 19 
 30 RCL 25 
 31 XROM 30,21 
 32 RCL 24 
 33 + 
 34 STOP 
 35 LBL 14 
 36 LBL E 
 37 XEQ 16 
 38 XEQ 08 
 39 XEQ 18 
 40 RCL 25 
 41 XEQ 11 
 42 X=Y? 
 43 XEQ 11 
 44 STO 25 
 45 XEQ 13 
 46 XEQ 19 
 47 RCL 25 
 48 XROM 30,21 
 49 RCL 24 
 50 + 
 51 STOP 
 52 GTO 14 
 53 LBL 11 
 54 LBL B 
 55 RCL 21 
 56 FRC 
 57 10 
 58 * 
 59 STO 21 
 60 INT 
 61 RTN 
 62 LBL 16 
 63 LBL b 
 64 STO 20 
 65 STO 25 
 66 RTN 
 67 LBL 08 
 68 1 
 69 ST+ 00 
 70 RCL 20 
 71 RTN 
 72 LBL 18 
 73 LBL d 
 74 RCL 25 
 75 CHS 
 76 10^X 
 77 2 
 78 * 
 79 RCL 24 
 80 + 
 81 STO 24 
 82 RCL 25 
 83 RTN 
 84 LBL 19 
 85 LBL e 
 86  E6 
 87 XEQ 09 
 88  E3 
 89 XEQ 09 
 90 1 
 91 XEQ 09 
 92 ADV 
 93 RTN 
 94 LBL 09 
 95 XROM 30,15 
 96 RCL 24 
 97 * 
 98 FRC 
 99 RCL 00 
100 + 
101 XROM 30,34 
102 XROM 30,12 
103 RTN 
104 LBL 13 
105 LBL D 
106 RCL 25 
107 CHS 
108 10^X 
109 RCL 24 
110 + 
111 STO 24 
112 RCL 25 
113 RTN 
114 LBL 15 
115 LBL a 
116 .5873649 
117 STO 01 
118 .5891467 
119 STO 03 
120 .13598 
121 STO 04 
122 .1374698 
123 STO 05 
124 .31578 
125 STO 06 
126 .13589 
127 STO 07 
128 .3175964 
129 STO 08 
130 .31587 
131 STO 09 
132 0 
133 RTN 
134 STOP 
135 END

Wari

Code:

 01 LBL "WARI67" 
 02 LBL 10 
 03 LBL A 
 04 CHS 
 05 7 
 06 + 
 07 SF 01 
 08 GTO 09 
 09 LBL 14 
 10 LBL E 
 11 6 
 12 + 
 13 CF 01 
 14 LBL 09 
 15 STO 22 
 16 STO 25 
 17 RCL IND 25 
 18 X=0? 
 19 / 
 20 STO 23 
 21 0 
 22 STO IND 25 
 23 LBL 01 
 24 XROM 30,23 
 25 GTO 08 
 26 12 
 27 STO 25 
 28 LBL 08 
 29 RCL 25 
 30 RCL 22 
 31 X=Y? 
 32 GTO 01 
 33 1 
 34 ST+ IND 25 
 35 RCL 23 
 36 1 
 37 - 
 38 STO 23 
 39 X=0? 
 40 GTO 05 
 41 GTO 01 
 42 LBL 12 
 43 LBL C 
 44 12 
 45 STO 25 
 46 4 
 47 LBL 00 
 48 STO IND 25 
 49 XROM 30,23 
 50 GTO 00 
 51 0 
 52 STO 20 
 53 STO 21 
 54 LBL 06 
 55 XEQ 11 
 56 FS? 00 
 57 GTO 13 
 58 FS? 01 
 59 GTO 19 
 60 GTO 13 
 61 LBL 11 
 62 LBL B 
 63 ADV 
 64 6 
 65 STO 25 
 66 LBL 03 
 67 RCL IND 25 
 68 13 
 69 RCL 25 
 70 - 
 71 STO 25 
 72 CLX 
 73 + 
 74 RCL IND 25 
 75  E2 
 76 / 
 77 + 
 78 XROM 30,34 
 79 RCL 25 
 80 13 
 81 - 
 82 CHS 
 83 STO 25 
 84 XROM 30,23 
 85 GTO 03 
 86 ADV 
 87 RTN 
 88 LBL 13 
 89 LBL D 
 90 RCL 20 
 91 RCL 21 
 92  E2 
 93 / 
 94 + 
 95 RTN 
 96 LBL 05 
 97 RCL 25 
 98 6.5 
 99 - 
100 RCL 22 
101 LASTX 
102 - 
103 * 
104 X>0? 
105 GTO 06 
106 LBL 07 
107 2 
108 RCL IND 25 
109 X=Y? 
110 GTO 07 
111 3 
112 X!=Y? 
113 GTO 06 
114 LBL 07 
115 FS? 01 
116 GTO 09 
117 RCL 21 
118 + 
119 STO 21 
120 GTO 07 
121 LBL 09 
122 RCL 20 
123 + 
124 STO 20 
125 LBL 07 
126 0 
127 STO IND 25 
128 XROM 30,29 
129 7 
130 RCL 25 
131 X=Y? 
132 GTO 06 
133 13 
134 X=Y? 
135 GTO 06 
136 GTO 07 
137 LBL 19 
138 LBL e 
139 1 
140 STO 25 
141 LBL 02 
142 RCL IND 25 
143 X=0? 
144 GTO 16 
145 3 
146 X>Y? 
147 GTO 04 
148 LBL 16 
149 LBL b 
150 XROM 30,29 
151 RCL 25 
152 7 
153 X!=Y? 
154 GTO 02 
155 LBL 17 
156 LBL c 
157 RCL 24 
158 PI 
159 + 
160 8 
161 Y^X 
162 FRC 
163 STO 24 
164 6 
165 * 
166 1 
167 + 
168 R-P 
169 INT 
170 STO 00 
171 6 
172 + 
173 STO 25 
174 RCL IND 25 
175 X=0? 
176 GTO 17 
177 RCL 00 
178 XROM 30,34 
179 XEQ 14 
180 RTN 
181 LBL 04 
182 RCL 25 
183 STO 00 
184 12 
185 STO 25 
186 LBL 18 
187 LBL d 
188 RCL IND 25 
189 X=0? 
190 GTO 08 
191 11 
192 / 
193 FRC 
194 11 
195 * 
196 RCL 25 
197 RCL 00 
198 - 
199 X=Y? 
200 GTO 09 
201 LBL 08 
202 XROM 30,23 
203 RCL 25 
204 6 
205 X=Y? 
206 GTO 08 
207 GTO 18 
208 LBL 08 
209 RCL 00 
210 STO 25 
211 GTO 16 
212 LBL 09 
213 RCL 25 
214 6 
215 - 
216 XROM 30,34 
217 XEQ 14 
218 RTN 
219 STOP 
220 END

Another Blackjack

Code:

 01 LBL "BJ" 
 02 CF 00 
 03 CF 01 
 04 CF 02 
 05 SF 27 
 06 FIX 00 
 07 "BLACKJACK" 
 08 PROMPT 
 09 LBL A 
 10 RCL 08 
 11 ABS 
 12 STO 08 
 13 9 
 14 STO 25 
 15 CF 00 
 16 CF 01 
 17 XEQ 00 
 18 ISG 25 
 19 ENTER 
 20 STO IND 25 
 21 STO 00 
 22 STO 02 
 23 FS?C 22 
 24 SF 00 
 25 XEQ 00 
 26 STO 04 
 27 STO 06 
 28 FS?C 02 
 29 SF 01 
 30 XEQ 00 
 31 ISG 25 
 32 ENTER 
 33 STO IND 25 
 34 STO 01 
 35 ST+ 02 
 36 FS?C 02 
 37 SF 00 
 38 XEQ 00 
 39 STO 05 
 40 ST+ 06 
 41 FS?C 02 
 42 SF 01 
 43 RCL 06 
 44 FS? 01 
 45 XEQ 07 
 46 STO 07 
 47 X=Y? 
 48 SF 02 
 49 FIX 00 
 50 RCL 00 
 51 PSE 
 52 RCL 01 
 53 PSE 
 54 RCL 02 
 55 VIEW X 
 56 PSE 
 57 PSE 
 58 PSE 
 59 CLD 
 60 RCL 04 
 61 CHS 
 62 FS?C 02 
 63 FS?C 02 
 64 RTN 
 65 PSE 
 66 GTO C 
 67 LBL 00 
 68 10 
 69 RCL 24 
 70 PI 
 71 - 
 72 X^2 
 73 FRC 
 74 STO 24 
 75 13 
 76 * 
 77 INT 
 78 X=0? 
 79 SF 02 
 80 1 
 81 + 
 82 X>Y? 
 83 RDN 
 84 RTN 
 85 LBL B 
 86 XEQ 00 
 87 ISG 25 
 88 ENTER 
 89 STO IND 25 
 90 STO 00 
 91 ST+ 02 
 92 FS?C 02 
 93 SF 00 
 94 21 
 95 RCL 02 
 96 X>Y? 
 97 GTO 02 
 98 FIX 00 
 99 RCL 00 
100 PSE 
101 LBL 01 
102 RCL 02 
103 VIEW X 
104 PSE 
105 PSE 
106 PSE 
107 CLD 
108 RTN 
109 LBL 02 
110 CHS 
111 STO 07 
112 RCL 00 
113 CHS 
114 STO 05 
115 GTO 05 
116 LBL C 
117 RCL 02 
118 FS? 00 
119 XEQ 07 
120 STO 03 
121 LBL 03 
122 RCL 06 
123 FS? 01 
124 XEQ 07 
125 STO 07 
126 17 
127 X<=Y? 
128 GTO 04 
129 RCL 05 
130 CHS 
131 PSE 
132 RCL 06 
133 CHS 
134 VIEW X 
135 PSE 
136 PSE 
137 PSE 
138 CLD 
139 XEQ 00 
140 FS?C 02 
141 SF 01 
142 STO 05 
143 RCL 06 
144 + 
145 STO 06 
146 STO 07 
147 22 
148 X<=Y? 
149 GTO 06 
150 GTO 03 
151 LBL 04 
152 RCL 07 
153 RCL 03 
154 X=Y? 
155 SF 02 
156 X>Y? 
157 GTO 06 
158 LBL 05 
159 RCL 08 
160 CHS 
161 STO 08 
162 LBL 06 
163 FIX 00 
164 RCL 05 
165 CHS 
166 PSE 
167 RCL 07 
168 CHS 
169 VIEW X 
170 PSE 
171 PSE 
172 PSE 
173 CLD 
174 FIX 02 
175 RCL 08 
176 FS?C 02 
177 CLX 
178 ST+ 09 
179 RTN 
180 LBL 07 
181 21 
182 X<>Y 
183 10 
184 + 
185 X<=Y? 
186 RTN 
187 LASTX 
188 - 
189 RTN 
190 LBL a 
191 FIX 00 
192 9 
193 X<> 25 
194 STO 23 
195 LBL 08 
196 RCL 23 
197 RCL 25 
198 X=Y? 
199 GTO 01 
200 ISG 25 
201 ENTER 
202 RCL IND 25 
203 PSE 
204 GTO 08 
205 LBL b 
206 PI 
207 + 
208 STO 24 
209 GTO b 
210 LBL d 
211 RCL 08 
212 ABS 
213 LBL D 
214 FIX 02 
215 RND 
216 LASTX 
217 X!=Y? 
218 GTO c 
219 X<0? 
220 GTO c 
221 X=0? 
222 GTO c 
223 STO 08 
224 RTN 
225 LBL e 
226 CLX 
227 STO 09 
228 LBL E 
229 FIX 02 
230 RCL 09 
231 RTN 
232 END

[RobertM]

Question: do you want to allow synthetics? Can save some bytes here and there.

[Gene]

Lol. Synthetics in an HP 67 program.

Sure. I just want to make sure they will run on any HP 41.

[RobertM]

Agreed ... I meant 41 synthetics.

[Dieter]

(09-07-2016 09:56 PM)Gene Wrote:  Lander

Code:

 01 LBL "LAND67" 
 ...
 90 END

OK, here it is (was done in 10 minutes). Used HP41 SIGN function instead of a flag, moved registers 6...9 down to 1...4, replaced XROM-functions (DSP0 and DSP4) with FIX 0/4, some minor adjustments.

Dieter

  LANDER.zip (Size: 754 bytes / Downloads: 4)

[Ángel Martin]

(09-07-2016 09:29 PM)Gene Wrote:  Angel, are you ok if we save some space and go through this over the next week or so ?

Hey, I'm game for countless re-doings of the ROM image, what a lot of fun! ;-)
Sure Gene, never a problem...

(09-07-2016 08:42 PM)Dieter Wrote:  You should post this "blueprint" here in the forum so that more users can work with it. See what we did with the one-arm-bandit program in a joint effort. ;-)
Dieter

Will love to but it seems I'm out of "allowed" space in the forum and the system won't let me to... so you guys send me your email addresses for a copy of the file.