A2osX/INC/APPLESOFT.I.txt
2016-11-03 12:18:28 +01:00

80 lines
2.5 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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
*--------------------------------------
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
*--------------------------------------
* 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 /A2OSX.DEV/INC/APPLESOFT.I