Unfortunately, my card reader broke in the early 2000s, so that I no longer had access to this programs for a long time. Fortunately, I printed out some of the programs (unfortunately not allways the newest version). I have now typed this in so that I can use my old programs again on the DM41x.
This was the content of the magnetic card that I always read in first after every MEMORY LOST. The printout shows an older version, the "SZ" function later belonged to my basic programs on the this card.
Some of the functions like ZZ or SZ are now part of the basic functions of the later computers (HP41CX, HP42S or DM41X), because they are sometimes called by other of my programs, but I still have them typed in and adjustet them a little.
These are (more or less) the Programs from my first HP41CV magnetic card adapted to the DM41X:
S: Sets my personal basic settings (uses synthetic function STO d)
ZZ: creates "random number" and stores it in R00
TO: a melody (adapted FF from TEACH of Stdprg)
SZ: store size (Rxx) in X (like SIZE?).
ST: shows stack
HL: Hi-Lo game, guess a number between 0 and 999 <NUMBER> R / S
ZZ (different Versions):
Original (HP41): LBL "ZZ" RCL 00 9821 * .211327 + FRC STO 00 RTN
Own (from PR100): LBL "ZZ" RCL 00 PI + 5 Y ^ X FRC STO 00 RTN
HP42: LBL "ZZ" RCL 00 RAN STO 00 RTN
DM41X: LBL "ZZ" TRNG STO 00 RTN
Register usage:
R00 = ZZ
R01 = HiLo value
R05 = HiLo attempts
Code: Select all
LBL "S"
CLA
XROM 26,36 ;trng
STO 00
CLST
STO d
FIX 4
SF 26
SF 29
XROM 26,43 ;fast
RTN
LBL "ZZ"
RCL 00
PI
+
5
Y^X
FRC
STO 00
RTN
LBL "TO"
TONE 8
TONE 8
TONE 8
TONE 7
TONE 8
TONE 8
TONE 7
TONE 8
TONE 9
TONE 9
TONE 8
TONE 8
TONE 7
TONE 7
TONE 6
RTN
LBL "SZ"
CLX
LBL 06
1
+
SF 25
RCL IND X
FC? 25
RTN
RDN
GTO 06
LBL "ST"
LBL 07
FIX 0
"X:"
ARCL X
"|-Y:"
ARCL Y
"|-Z:"
ARCL Z
"|-T:"
ARCL T
FIX 4
PROMPT
GTO 07
LBL "HL"
LBL 05
XEQ "ZZ"
1000
*
INT
STO 01
CLX
STO 05
"HI-LO"
PROMPT
LBL 01
RCL 01
-
X=0?
GTO 02
X>0?
GTO 03
X<0?
GTO 04
LBL 02
XEQ "TO"
FIX 0
CF 29
CLA
ARCL 05
"|- ATTEMPTS"
AVIEW
PSE
SF 29
FIX 4
GTO 05
LBL 03
1
ST+ 05
"LOWER"
PROMPT
GTO 01
LBL 04
1
ST+ 05
"HIGHER"
PROMPT
GTO 01
END