FRAM71B

[Erwin]

(11-01-2016 09:26 AM)Erwin Wrote:  I found the basic program R64KCOPY (chu06) but it is to get the checksum from existing ROMs in a port and needs a LEX-File "TRIM$" from STRINGLX. But in the basic program there is another LEX-file not present (XFN113004) - line 100 till 103 for the checksum - so it ends in an error. Looks like it was saved in the past without the necessary LEX present in the HP71. When the prog could be run I could get the data out of my DATCQ module.

Now I found the solution - with the help of Joe Horn's great the O.L.D project to searcher the XFN number and get the function or command: OLD Project
It is the 'HTA$' command. So the correction of the program looks like:

Code:

10 ! THIS PROGRAM COMPUTES CHECKSUMS FOR ROMCOPY FOR 64K IRAM
20 INPUT "Port?","5";P
21 P$=":PORT("&STR$(P)&")"
30 DIM A$[96]
31 I=1
40 A$=CAT$(I,P$) @ IF A$="" THEN 100
50 F$=TRIM$(A$[1,8]) @ B$=ADDR$(F$&P$) @ PRINT A$[1,8];" ";B$;
51 O1=HTD(B$) @ IF I=1 THEN O=O1-8 @ PRINT ELSE PRINT USING "X,5D.D";(O1-O)/2
52 IF O1-O>32768 AND O2=0 THEN O2=O1-O
53 IF O1-O>32768*2 AND O3=0 THEN O3=O1-O
60 I=I+1 @ GOTO 40
100 PRINT USING '"csum 1: ",6d,x,8a';30;HTA$(PEEK$(DTH$(O+8),18))
101 PRINT USING '"csum 2: ",6d,x,8a';O2+22;HTA$(PEEK$(DTH$(O+O2),18))
102 PRINT USING '"csum 3: ",6d,x,8a';O3+22;HTA$(PEEK$(DTH$(O+O3),18))
103 PRINT USING '"csum 4: ",6d,x,8a';O1-O+22;HTA$(PEEK$(DTH$(O1),18))
200 POKE DTH$(O+30),"00"
201 POKE DTH$(O+O2+22),"00"
202 POKE DTH$(O+O3+22),"00"
203 POKE DTH$(O1+22),"00"

maybe some could use it too - regards Erwin