(HP71B) ASM question

[floppy]

Information: in order to make your HP71B with MULTIMOD and Forth/ASM in it, acting like an HP41 with RPN on steroid, herewith few words.

Code:

* CLX : set X to zero. LastX not modified (see HP41)
       WORD 'CLX'
       GOSBVL =SAVEFP
       P=     0
       LC(5)  OX       
       CD0EX                 
       A=0    W
       DAT0=A W
       D0=C
       GOSBVL =GETFP
       RTNCC

Code:

* CLST : set X Y Z T to zero. LastX not modified (see HP41).
       WORD 'CLST'
       GOSBVL =SAVEFP
       P=     0
       LC(5)  =OX
       CD0EX
       A=0    W
       DAT0=A W              X set to zero
       D0=D0+ 16
       DAT0=A W              Y set to zero
       D0=D0+ 16
       DAT0=A W              Z set to zero
       D0=D0+ 16
       DAT0=A W              T set to zero
       GOSBVL =GETFP
       RTNCC

Code:

* DEG-RAD : Deg to Rad conversion (D-R in HP41)
* Result in X is   X(old) * (PI/2) / (2* 45)
* X(old) go into LastX
       WORD 'DEG-RAD'            
       GOSBVL =NUMST      
       GOSBVL =PI/2
       SETDEC
       GOSBVL =MP2-15  
       SETHEX
       C=0    W
       D=C    W
       P=     0
       C=C+1  P         
       P=     14
       D=D+1  P              
       D=D+1  P
       D=D+D  P
       D=D+D  P
       D=D+1  P      
       SETDEC
       GOSBVL =DV2-15   
       SETHEX
       GOSBVL =PUTABX
       RTNCC

Code:

* RAD-DEG : Rad to Deg conversion (R-D in HP41)
* Result in X is    X(old) * (2* 45) / (PI/2)
* X(old) go into LastX
       WORD 'RAD-DEG'
       GOSBVL =NUMST  
       C=0    W
       D=C    W
       P=     0
       C=C+1  P   
       P=     14
       D=D+1  P
       D=D+1  P
       D=D+D  P
       D=D+D  P
       D=D+1  P      
       SETDEC
       GOSBVL =MP2-15   
       SETHEX
       GOSBVL =PI/2
       SETDEC
       GOSBVL =DV2-15    
       SETHEX
       GOSBVL =PUTABX
       RTNCC