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