Library data object

[Giuseppe Donnini]

I don't think there are any errors in my code. Everything works as expected on an HP-48 and I clearly stated that my explanations do not cover the HP-50G. If you want to use the code on that machine, you should download the "HP-50G Advanced User's Reference Manual" (https://www.hpcalc.org/details/7141) and read the chapter on MASD syntax. You will then be able to seamlessly translate my code.

>LIBDAT in MASD syntax:

Code:

"::
SWAP
TWO{}N 
DUP
OSIZE   
CODE
        GOSBVL 06641
        C=A.A 
        RSTK=C
        A=DAT1.A 
        AD1EX
        LC 02B88
        DAT1=C.A 
        D1+5
        C=RSTK
        C-5.A 
        DAT1=C.A 
        D1=A 
        GOVLNG 05149
ENDCODE
;
@"

LIBDAT> in MASD syntax:

Code:

"::
TOTEMPOB
CODE
        C=DAT1.A 
        CD1EX
        RSTK=C
        D1+5
        A=DAT1.A 
        C=0.A 
        LC 1A
        ?C>A.A   ->exit
        D1+5     
        A=DAT1.A  
        LC 007FE 
        ?C<A.A   ->exit
        D1+5
        A=DAT1.A 
        LC 02614
        ?C>A.A   ->exit
        LC 02E92
        ?C<A.A   ->exit
        D1-10
        A=DAT1.A 
        CD1EX
        R0=C.W 
        C=C+A.A 
        D1=C 
        D1-5
        A=DAT1.A 
        LC 0312B
        ?C#A.A   ->exit
        C=R0.W 
        D1=C 
        LC 02911
        DAT1=C.A 
        D1-5
        LC 02A74
        DAT1=C.A 
*exit   C=RSTK
        D1=C 
        GOVLNG 3523D
ENDCODE
NOTcsdrpfls
INCOMPDROP 
SWAPTRUE
;
@"

You may also install Jazz on the HP-50G (https://www.hpcalc.org/details/7196) which would allow you to compile my code exactly as written.