Threaded Mode | Linear Mode

floppy · (This post was last modified: 07-16-2024 04:03 PM by floppy.)

(07-16-2024 06:05 AM)ThomasF Wrote: Hi,

Had a quick look, but I'm missing the IDS so I can't verify.
But, in general it looks ok, don't see any real problem with the code, but could it be that SPLITA uses R0 or R1?

The result is way off (not only -2.94 but -2.94*10^303) which indicates that there is rubbish in to the MP2-15 routine.

Shouldn't be (C,D) since that is the result from SPLITA, so my guess is that (A,B) is wrong (which comes from (R0,R1)), and if (I mean if since I don't have the code) SPLITA uses R0 or R1 this might cause the problem.

Just my 2 cents ...

Cheers,
Thomas

Thanks for the feedback. I used SPLITA and used the others SPLITC or SPLTAC too with the same weird result.

Code:

WORD 'RCL*'

       GOSBVL NUMST          X into A,B and X into LastX, SAVEFP

       C=DAT1 A              copy data at address in D1 into C(A) = field A of reg C

       CD0EX                 exchange A field of reg C (= D1 pointer) with data pointer D0

       C=DAT0 W              C = recalled value in register

       GOSBVL SPLITC         (C) in (C,D)

       GOSBVL MP2-15         (A,B) * (C,D) = and result in (A,B)

       GOSBVL PUTABX

       D1=D1+ 5              throw away address

       RTNCC

In EMU71. If there is a difference in HP71B? (dont know for now. I have to test this).
Could not read any R0 or R1 impact in IDS Vol3. However, I will have a deeper look into this the next hours.
How to use the debugger in EMU71? (no glue how to use a debugger). A short WebEx with anybody could be great.

With the X*2 word, I had already a problem with MP2-15 when I had X multiply 2, which gave the wrong result. Its why I changed it to X + X.

When we see the Forth/ASM IMS for the words X^2 (no stack change like RCL* but with 2 same parameters A-B * C-D which in fact A-B * A-B) or F* (Stack drop) , it uses MP2-15.
I am still looking there what is the difference to the code of the RCL* word (no stack drop, A#C and B#D).

Update: I will have a look to the path DV2-15 of 1/X15.. = multiply. Will see if its better on EMU71.