Transferring programs to and from an HP41CL

[Sylvain Cote]

(04-11-2024 12:36 AM)MeindertKuipers Wrote:  Since YPRT only sends output to the serial port the baud rate can be much higher which improves the performance.

I had selected 4800 baud because it was the one that was reliable for ROM files update.
The maximum baud rate for the 41CL serial port is 9600 baud.

Setup

• 41CL is set to TURBO50
• YPRP is mapped to page 6
• YFNX is mapped to page 8
• GAMES pac is mapped to page 9
• MAN mode (flags 15 & 16 cleared)
  

Print Time listing:

Code:

LBL "PT"
CLA
TIME
ATIME24
PRA
END

PINBALL listing:

Code:

 01◆LBL "PINBALL"
 02 7
 03 XROM "SIZE?"
 04 FC?C 25
 05 PROMPT
 06 SF 27
 07 XROM "INI"
 08 CF 21
 09 STO 00
 10 0
 11 STO 04
 12 STO 05
 13 FIX 0
 14 CF 29
 15 CF 02
 16 CF 01
 17 CF 00
 18 "$.25=3 GAMES"
 19 PROMPT
 20◆LBL A
 21 TONE 6
 22 TONE 7
 23 TONE 6
 24 1
 25 ST+ 04
 26 "$"
 27 FIX 2
 28 RCL 04
 29 4
 30 /
 31 ARCL X
 32 "Ͱ SPENT"
 33 AVIEW
 34 FIX 0
 35 TONE 8
 36 TONE 6
 37 TONE 9
 38 3
 39 ST+ 05
 40◆LBL 19
 41 "GAMES: "
 42 ARCL 05
 43 AVIEW
 44 TONE 8
 45 RTN
 46◆LBL E
 47 TONE 9
 48 RCL 05
 49 X=0?
 50 RTN
 51 1
 52 ST- 05
 53 4
 54 STO 02
 55 0
 56 STO 06
 57◆LBL 15
 58 CF IND 02
 59 DSE 02
 60 X<0?
 61 GTO 17
 62 1 E3
 63 STO 01
 64 SF IND 02
 65 5
 66 STO 03
 67 "FIRE"
 68 TONE 9
 69 PROMPT
 70◆LBL 16
 71 CLD
 72 RDN
 73 11
 74 XROM "RNDMW"
 75 SF 25
 76 TONE IND X
 77 GTO IND X
 78◆LBL 02
 79 "OUT"
 80 GTO 02
 81◆LBL 01
 82 "L"
 83 GTO 01
 84◆LBL 03
 85 "R"
 86◆LBL 01
 87 "Ͱ FLIPPER"
 88◆LBL 02
 89 AVIEW
 90 PSE
 91 X≠Y?
 92 GTO 01
 93 2
 94 X≠Y?
 95 GTO 16
 96 XROM "RNDMW"
 97 X=0?
 98 GTO 16
 99 "TILT"
100 AVIEW
101 TONE 0
102 0
103 STO 01
104◆LBL 01
105 2
106 FS?C 00
107 ST* 01
108 RCL 06
109 BEEP
110◆LBL 12
111 VIEW X
112 RCL 01
113 X=0?
114 GTO 15
115 RDN
116 1 E3
117 ST- 01
118 +
119 STO 06
120 TONE 6
121 GTO 12
122◆LBL 00
123 "MUSHROOMS"
124 100
125 ENTER↑
126 10
127 GTO 00
128◆LBL 04
129 "SPINNER"
130 50
131 ENTER↑
132 25
133◆LBL 00
134 AVIEW
135 XROM "RNDMW"
136 1
137 +
138 *
139◆LBL 13
140 TONE 9
141 DSE L
142 GTO 13
143 GTO 14
144◆LBL 05
145 "KICKOUT"
146 50
147 GTO 14
148◆LBL 06
149 "BONUS"
150 1 E3
151 ST+ 01
152 10
153 GTO 14
154◆LBL 07
155 "FLAG "
156 6
157 RCL 03
158 -
159 ARCL X
160 CLX
161 10
162 DSE 03
163 GTO 14
164 5
165 STO 03
166 CF IND 02
167 1
168 ST+ 02
169 SF IND 02
170 100
171◆LBL 14
172 AVIEW
173 10
174 X<>Y
175 FS? 00
176 *
177 TONE 7
178 TONE 6
179 CLD
180 PSE
181 ST+ 06
182 GTO 16
183◆LBL 08
184 "SLING SHOT"
185 10
186 GTO 14
187◆LBL 09
188 "SPECIAL"
189 FC?C 00
190 SF 00
191 10
192 GTO 14
193◆LBL 10
194 "ROLLOVER"
195 10
196 GTO 14
197◆LBL 17
198 5 E4
199 RCL 06
200 -
201 1
202 X>Y?
203 ST+ 05
204 X<=Y?
205 RTN
206 BEEP
207 GTO 19
208 END

Test case:

Code:

XEQ "PT"
PRP "PINBALL"
XEQ "PT"

Total time:

Code:

9600 baud → around 20 seconds
4800 baud → around 20 seconds
2400 baud → around 20 seconds
1200 baud → around 30 seconds

So, for the PRP case, the bottleneck is not the transmission speed.