(71B) FORTH questions

[floppy]

+1. Program now loaded in the HP71B and in debugging phase which mean my debugger on the PC has to be improved because it allowed a buggy program to work on the PC but dont work on the HP71B.
..

Code:

I don't understand (and the 71B-FORTH too, obviously) the meaning of that little 'e'.

that came from the debugger on the PC (another Forth) where floats are written with 1.0e or 1.0e0 or 1.0E+10 or..: now changing to E0 made it in the HP71B (float 1. works on HP71B but dont work on the debugger in the PC).

Update: program work. Few messages appear regarding internal parameters. Seems not to disturb much so far. See screen copy below.

More to be done (testing the PC debugger with more programs, make automatic the transfer to EMU71, test on HP71B). Whatever that was my first FORTH program.

The output to ILPER with
[B]>COPY :DOSLINK
[B]>PLIST PERE12
looks a bit weird, but whatever it works.
Here below is a cleaned version of the print in ILPER with introduced <cr> and blanks in the post

Code:

3.14159265359E0 FCONSTANT PINB
FVARIABLE B
FVARIABLE A
FVARIABLE TV
1.0E0 FVARIABLE R
DECIMAL
: PERE12 B STO ." Param B:  " F. CR X=0? IF F+ 4.0E0 F* ." ELLIPSE PERIM= " F. EXIT THEN X<>Y ." Param A:  " F. CR ASTO X=0? IF F+ 4.0E0 F* ." ELLIPSE PERIM= " F. EXIT THEN FENTER F* X<>Y FENTER F* F+ TV STO FDROP 1.0E0 R STO FDROP BEGIN A RCL FENTER B RCL FENTER RDN F* SQRT B STO RDN F- CHS R RCL 2.0E0 F* R STO FDROP LASTX F/ A RCL X<>Y F- A STO FDROP B RCL X<>Y LASTX X^2 R RCL F* TV RCL F- CHS TV STO FDROP X=Y? UNTIL 1/X TV RCL F* PINB F* ." ELLIPSE PERIM= " F. CR ;
: TEST 3.0E0 11.0E0 PERE12 ;