OLD HP-41 Tapes from the 80's uploaded

[BitWiz]

I have uploaded 8 digital micro-cassettes of programs for the 41 to LIF compatible .DAT files with my PIL-Box.

The tapes are labeled as follows:

41-Atlanta
June 1, 1982 HP-41 System Demo
PPCJ V9 & !0 - No Priv FL
D30
D32
D35
D36
D37

These we all made in or around 1982 in conjunction with the CHiP club. I believe most of these were made for me by Mr. George A Duba (thank you Al).

I have attached the .DAT files. I hope there is something new here that hasn't been archived before.

I will upload what ever is on my HP-71 tapes next and post them in a new message.

[roberto_p]

Hello BitWiz,

thanks for your shared files,

unfortunatly trying to convert .DAT in .RAW format or .TXT format I have always the same error

i.e.:
-->hp41uc /d=hp41demo_1jun82 /r -->Error: invalid ASCII hex-digit in 4-byte header [ 80 ]

please what I'm doing wrong??

Thanks
Roberto

[Dave Frederickson]

(09-11-2024 08:30 AM)roberto_p Wrote:  please what I'm doing wrong??

The issue is that there are multiple file types with a .DAT extension. The file is in LIF disc format so there's no need to convert it. Just mount the file in ILPer or one of it's offspring.

Note: LIF disc format is different than LIF file format. HP41UC works with the file format.

[Sylvain Cote]

Code:

unzip -d HP-41Tapes HP-41Tapes.zip

Code:

Archive:  HP-41Tapes.zip
  inflating: HP-41Tapes/41ATLANTA.DAT  
  inflating: HP-41Tapes/D30.DAT      
  inflating: HP-41Tapes/D32.DAT      
  inflating: HP-41Tapes/D35.DAT      
  inflating: HP-41Tapes/D36.DAT      
  inflating: HP-41Tapes/D37.DAT      
  inflating: HP-41Tapes/HP41DEMO_1JUN82.DAT  
  inflating: HP-41Tapes/PPCJ9-10.DAT

Code:

cd HP-41Tapes
ls -1

Code:

41ATLANTA.DAT
D30.DAT
D32.DAT
D35.DAT
D36.DAT
D37.DAT
HP41DEMO_1JUN82.DAT
PPCJ9-10.DAT

Code:

lifdir HP41DEMO_1JUN82.DAT

Code:

Volume : ? 
Tracks: 80 Surfaces: 2 Blocks/Track: 16 Total size: 2560 Blocks, 655360 Bytes
AUTOST      ALL41        2689/2816                      
AUTO        ALL41        2689/2816                      
GPIO        PGM41        1040/1280                      
INI         PGM41        1299/1536                      
DISP        PGM41        1299/1536                      
KEYS        PGM41        1285/1536                      
HPILPR      PGM41        1187/1280                      
PRDTA       SDATA         248/256                       
PLOT        PGM41         109/256                       
TIMER       PGM41         563/768                       
CHRONO      PGM41         906/1024                      
ALARM       PGM41         668/768                       
XFUNC       PGM41         633/768                       
SN          PGM41         871/1024                      
CASSET      PGM41         549/768                       
VIDEO       PGM41        1200/1280                      
DMM         PGM41         542/768                       
BCDEPR      PGM41         542/768                       
PRNT80      PGM41         528/768                       
PR          PGM41         619/768                       
INIT        PGM41        1074/1280                      
21 files (152 max), last block used: 114 of 2560

Code:

lifget -r HP41DEMO_1JUN82.DAT DISP disp.raw
decomp41 <disp.raw >disp.txt
cat disp.txt

Code:

LBL "DISP"
CF 13
SF 26
FS? 55
SF 21
BEEP
"I AM THE HP-41"
>" AND I"
XEQ 99
"LIKE TO COMMUNI"
>"CATE"
XEQ 99
"WITH YOU..."
XEQ 99
PSE
"PLEASE TYPE IN"
>" YOUR"
XEQ 99
"FIRST NAME AND "
>"PRESS R/S"
XEQ 99
CLA
CLD
TONE 09
AON
STOP
AOFF
ASTO 01
ASHF
ASTO 02
ASHF
ASTO 03
"THANKS "
ARCL 01
ARCL 02
ARCL 03
ADV
XEQ 99
ADV
"LET US NOW SEE "
>"HOW MY"
XEQ 99
"ALPHANUMERIC DI"
>"SPLAY"
XEQ 99
"HELPS YOU WHEN "
>"YOU RUN"
XEQ 99
"A PROGRAM"
XEQ 99
ADV
"NOW WATCH THE D"
>"ISPLAY"
XEQ 99
ADV
"1. INPUT PROMPT"
>"ING"
XEQ 99
SF 13
"   NUMERIC"
XEQ 99
PSE
PSE
CF 13
CF 21
"TEMPERATURE?"
TONE 04
XEQ 99
PSE
"INCOME ?"
TONE 05
XEQ 99
"BEAM LENGTH?"
TONE 06
XEQ 99
"OXYGEN SAT.?"
TONE 07
XEQ 99
"ALTITUDE ?"
TONE 08
XEQ 99
"FREQUENCY ?"
TONE 09
XEQ 99
SF 13
FS? 55
SF 21
CLD
"   ALPHA"
XEQ 99
PSE
CF 13
CF 21
"MM/INCH ?"
TONE 04
XEQ 99
"YES/NO ?"
TONE 05
XEQ 99
"BIRTH DATE ?"
TONE 06
XEQ 99
"PART NUMBER?"
TONE 07
XEQ 99
"PRINT/PLOT ?"
TONE 08
XEQ 99
"LEASE/BUY ?"
TONE 09
XEQ 99
FS? 55
SF 21
CLD
"2. OUTPUT LABEL"
>"ING"
XEQ 99
SF 13
"   DOCUMENTED A"
>"NSWERS"
XEQ 99
PSE
CF 13
CF 21
"5.2 METER"
TONE 00
XEQ 99
"37 DEGREES C"
TONE 01
XEQ 99
"TAX=18.5 %"
TONE 02
XEQ 99
"R2=10K OMH"
TONE 03
XEQ 99
"NO ROOT FOUND"
TONE 04
XEQ 99
"CREDIT REFUSED"
TONE 05
XEQ 99
"PRICE IS $10"
TONE 06
XEQ 99
"Z-FACTOR= OK"
TONE 07
XEQ 99
"XYZ IN STOCK"
TONE 08
XEQ 99
"VOLUME=2 M^3"
TONE 09
XEQ 99
FS? 55
SF 21
CLD
"3. STATUS INDIC"
>"ATION"
XEQ 99
SF 13
"   BATTERY"
XEQ 99
"   USER KEYBOAR"
>"D"
XEQ 99
"   TRIG. MODE"
XEQ 99
"   FLAG STATUS "
>"0 TO 4"
XEQ 99
"   PROGRAM MODE"
XEQ 99
"   ALPHA KEYBOA"
>"RD"
XEQ 99
PSE
CF 13
CF 21
CF 27
CLA
AVIEW
SF 27
TONE 09
SIN
CF 27
SIN
RAD
TONE 09
SIN
DEG
SIN
GRAD
TONE 09
SIN
DEG
SIN
SF 00
TONE 09
SIN
CF 00
SIN
SF 01
TONE 09
SIN
CF 01
SIN
SF 02
TONE 09
SIN
CF 02
SIN
SF 03
TONE 09
SIN
CF 03
SIN
SF 04
TONE 09
SIN
CF 04
SIN
AON
TONE 09
SIN
AOFF
SIN
CLD
SF 27
FS? 55
SF 21
"4. MEANINGFUL M"
>"ESSAGES"
XEQ 99
SF 13
"   BUILT IN ERR"
>"OR RE-"
XEQ 99
"   PORTING AND "
>"STATUS"
XEQ 99
"   MESSAGES"
XEQ 99
PSE
CF 13
CF 21
"ALPHA DATA"
TONE 06
XEQ 99
"DATA ERROR"
TONE 06
XEQ 99
"MEMORY LOST"
TONE 06
XEQ 99
"NONEXISTENT"
TONE 06
XEQ 99
"OUT OF RANGE"
TONE 06
XEQ 99
"PRIVATE"
TONE 06
XEQ 99
"PACKING"
TONE 06
XEQ 99
FS? 55
SF 21
BEEP
CLD
RTN
LBL 99
FS? 21
AVIEW
FC? 21
AVIEW
FC? 21
SIN
FC? 21
SIN
RTN
.END.

[Dave Frederickson]

As Sylvain has demonstrated, Joachim's LIFUTILS provide everything you need to manipulate LIF files.

I like to use pyILPER as a front-end for LIFUTILS. If a Drive device is disabled in pyILPER, this enables right-mouse-button integration with LIFUTILS. One can even decode a HP41 program file without typing a single command.
https://github.com/bug400

[roberto_p]

+++Many thanks Sylvain and Dave!!!

I didn't know this utility yet

-----------------------------------------------------
Kind regards
Roberto