mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-04 03:05:43 +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
|