NEW
PREFIX
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