(HP71B) ASM question

[floppy]

Now here is the good old FACT function from HP41. Same behaviour now in HP71B Forth.

Entry point new to be used (see other entry points in previous posts)

Code:

=FAC15S EQU #0E72B           factorial 15digit (A,B) into (A,B), v3 page 1591

Code:

****************************************************************
* FACT : factorial function (see HP41)
* tested 18 Oct 2024
* use: 6.0 FACT
* > X: 720.000000000 
* > L: 6.000000000 
       WORD 'FACT'
       GOSBVL =NUMST
       SB=0                  issue gone when included
       XM=0                  same
       SETDEC                same
       GOSBVL =FAC15S
       GOSBVL =PUTABX
       RTNCC
****************************************************************