2015-11-22 22:30:06 +00:00
|
|
|
|
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
|
2016-10-24 15:54:43 +00:00
|
|
|
|
SAVE /A2OSX.DEV/INC/APPLESOFT.I
|