FRAM71B

[Erwin]

(10-23-2016 01:25 PM)rprosperi Wrote:  

(10-23-2016 09:07 AM)Erwin Wrote:  I can change it to WORD, PAGES or LATEX and convert to PDF? Should be expandable for others.
What do you think about - any hints :-) ?

I think PDF is the most convenient and universal format; everyone can read it, and code can be easily copy/pasted to an editor if needed.

Hi,

I tried out some configurations on the FRAM71 and they are running, but I stuck on one problem I wasn't able to solve.
I want to put the DATACQ ROM (64KB) on the HP71. The documentation to ROMCOPY said, that ROMs above 32KB should have CHECKSUM, CODESIZE and ROMSIZE as parameter too. But I couldn't find those parameters for this ROM.
With ROMCOPY I got an error <ERR:Verify fail> whether I include the ROMSIZE oder not. So it seems there have be the 4 values for the CHECKSUM, but in the documentation to ROMCOPY (http://hhuc.us/2014/files/Speakers/08,09...OPYDOC.txt) it isn't clear for me how to do this.

To bypass the error message (like the documentation said) I want to try the RCOPYLEX but there is no documentation available neither for CKSUMLEX, so I can't made use out of them.

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.

Code:


0010 ! THIS PROGRAM COMPUTES CHECKSUMS FOR ROMCOPY FOR 64K IRAM
0020 INPUT "Port?","5";P
0021 P$=":PORT("&STR$(P)&")"
0030 DIM A$[96]
0031 I=1
0040 A$=CAT$(I,P$) @ IF A$="" THEN 100
0050 F$=TRIM$(A$[1,8]) @ B$=ADDR$(F$&P$) @ PRINT A$[1,8];" ";B$;
0051 O1=HTD(B$) @ IF I=1 THEN O=O1-8 @ PRINT ELSE PRINT USING "X,5D.D";(O1-O)/2
0052 IF O1-O>32768 AND O2=0 THEN O2=O1-O
0053 IF O1-O>32768*2 AND O3=0 THEN O3=O1-O
0060 I=I+1 @ GOTO 40
0100 PRINT USING '"csum 1: ",6d,x,8a';30;XFN113004(PEEK$(DTH$(O+8),18))
0101 PRINT USING '"csum 2: ",6d,x,8a';O2+22;XFN113004(PEEK$(DTH$(O+O2),18))
0102 PRINT USING '"csum 3: ",6d,x,8a';O3+22;XFN113004(PEEK$(DTH$(O+O3),18))
0103 PRINT USING '"csum 4: ",6d,x,8a';O1-O+22;XFN113004(PEEK$(DTH$(O1),18))
0200 POKE DTH$(O+30),"00"
0201 POKE DTH$(O+O2+22),"00"
0202 POKE DTH$(O+O3+22),"00"
0203 POKE DTH$(O1+22),"00"


Anybody experiences with loading 64KB ROMs in the HP71B or an idea?

regards Erwin