PR#3 PREFIX /A2OSX.SRC NEW INC 1 AUTO 6 .LIST OFF *-------------------------------------- * AppleSoft ZP * http://www.txbobsc.com/scsc/scdocumentor/index.html#toc *-------------------------------------- SIGNFLG .EQ $16 FLAGS SIGN IN TAN INDEX .EQ $5E Ptr Used by Math routines RESULT .EQ $62 -> $66, RESULT OF LAST * OR / FAC .EQ $9D -> $A1 (5 bytes) FAC.SIGN .EQ $A2 ARG .EQ $A5 -> $A9 (5 bytes) ARG.SIGN .EQ $AA SGNCPR .EQ $AB FLAGS OPP SIGN IN FP ROUT CHRGET .EQ $B1 -> $C8 CHRGOT .EQ $B7 TXTPTR .EQ $B8 *-------------------------------------- *-------------------------------------- *-------------------------------------- *-------------------------------------- * FAC = (Y,A) - FAC *-------------------------------------- FSUB .EQ $E7A7 *-------------------------------------- * FAC = (Y,A) + FAC *-------------------------------------- FADD .EQ $E7BE *-------------------------------------- LOG .EQ $E941 *-------------------------------------- * FAC = (Y,A) * FAC *-------------------------------------- FMULT .EQ $E97F *-------------------------------------- * FAC = (Y,A) / FAC *-------------------------------------- FDIV .EQ $EA66 *-------------------------------------- * CONVERT STRING TO FP VALUE IN FAC * STRING POINTED TO BY TXTPTR * FIRST CHAR ALREADY SCANNED BY CHRGET * (A) = FIRST CHAR, C=0 IF DIGIT. *-------------------------------------- FIN .EQ $EC4A *-------------------------------------- SQR .EQ $EE8D *-------------------------------------- * FAC = E ^ FAC *-------------------------------------- EXP .EQ $EF09 *-------------------------------------- RND .EQ $EFAE *-------------------------------------- COS .EQ $EFEA *-------------------------------------- SIN .EQ $EFF1 *-------------------------------------- TAN .EQ $F03A *-------------------------------------- ATN .EQ $F09E *-------------------------------------- *-------------------------------------- MAN SAVE INC/APPLESOFT.I