mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-26 11:30:07 +00:00
71 lines
2.0 KiB
Plaintext
71 lines
2.0 KiB
Plaintext
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
|