; ************************* 
; Math/Utilities Library 21
; *************************
; Variable Arithmetic 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\21\MU-21.t59

#LISTING c:\ti-59\mu\21\MU-21.LST

#AZEMULATOR c:\ti-59\mu\21\MU-21.TI

lbl inv                                   ;000
exc 20 iff 0 11 rc* 20 rtn

st* 20 inv                                ;011

lbl e'                                    ;013
stf 0 sto 20 rtn

lbl a                                     ;021
2 1 inv iff 1 inv pgm 0 a inv stf 1
rtn

lbl b                                     ;036
2 2 inv iff 1 inv pgm 0 b inv stf 1
rtn

lbl c                                     ;051
2 3 inv iff 1 inv pgm 0 c inv stf 1
rtn

lbl d                                     ;066
2 4 inv iff 1 inv pgm 0 d inv stf 1
rtn

lbl e                                     ;081
2 5 inv iff 1 inv pgm 0 e inv stf 1
rtn

lbl a'                                    ;096
stf 1 rtn


#end