mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 00:32:44 +00:00
84 lines
2.5 KiB
Plaintext
84 lines
2.5 KiB
Plaintext
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
|