NEW PREFIX /A2OSX.BUILD AUTO 4,1 .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 / EXPSGN .EQ $9C 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 FAC.EXTENSION .EQ $AC FAC EXTENSION BYTE CHRGET .EQ $B1 -> $C8 CHRGOT .EQ $B7 TXTPTR .EQ $B8 *-------------------------------------- BASICLD .EQ $E000 ENTER BASIC COLD BASICWM .EQ $E003 RE-ENTER BASIC WARM HGR2 .EQ $F3D8 APPLESOFT CLEAR TO HIRES 2 HGR .EQ $F3E2 APPLESOFT CLEAR TO HIRES 1 BKGND .EQ $F3F4 APPLESOFT HIRES BACKGROUND CLEAR HCOLOR .EQ $F6F0 APPLESOFT HIRES COLOR SELECT HPOSN .EQ $F411 APPLESOFT HIRES POSITION HPLOT .EQ $F457 APPLESOFT HIRES PLOT *-------------------------------------- LOAD.ARG.FROM.YA .EQ $E9E3 *-------------------------------------- *-------------------------------------- * 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 LOAD.FAC.FROM.YA .EQ $EAF9 *-------------------------------------- * 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 FOUT .EQ $ED34 *-------------------------------------- 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