HP-71 Forth/Assembler ROM fix

[Erwin]

(11-25-2018 03:45 AM)rprosperi Wrote:  I also found a version of the F/A ROM assembler fixes that takes care of 4 out of 5 of the bugs, but does not make the drastic changes that the FIX5A version does.

Here is a version that circulated in a file called ASMFIX4

Code:

HEX
CREATE NEWB
42502 , B423D , 20422 , 5304 , 1000 ,
CREATE NEWD
44505 , 13D31 , 20534 , 39305 , 1 ,
: NEWCODE 2DUP
" B=B+B" S= IF 2DROP NEWB -1 ELSE
" D1=AS" S= IF NEWD -1 ELSE 0
THEN THEN ;
: ASSEMBLE
DECIMAL HERE PAD OVER - 0 NFILL
PAD 2+ DUP C@ 2* + 2+ SP@ 2DUP <
IF OVER - 0 NFILL ELSE 2DROP THEN
['] NEWCODE 2FC79 ! ASSEMBLE
0 2FC79 ! ;

It also has the virtue of being understandable without requiring encyclopedic knowledge of how the assembler itself works.

Just use " ASMFIX4" LOADF into a new/empty FORTHRAM file and it will fix all the bugs any reasonable person is likely to encounter, and all the changes are 'invisible' in the sense that you can fully use the assembler as documented, with all specified features working as documented. It basically just fixes the real bugs.

Hi,
fine that's an easy way :-) thanks for sharing