2015-11-22 22:30:06 +00:00
|
|
|
|
NEW
|
2018-11-17 17:17:13 +00:00
|
|
|
|
PREFIX
|
2018-08-08 15:13:37 +00:00
|
|
|
|
AUTO 4,1
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.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 /
|
2017-01-12 17:43:45 +00:00
|
|
|
|
EXPSGN .EQ $9C
|
2015-11-22 22:30:06 +00:00
|
|
|
|
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
|
2017-01-12 17:43:45 +00:00
|
|
|
|
FAC.EXTENSION .EQ $AC FAC EXTENSION BYTE
|
2015-11-22 22:30:06 +00:00
|
|
|
|
CHRGET .EQ $B1 -> $C8
|
|
|
|
|
|
CHRGOT .EQ $B7
|
2019-10-03 06:25:27 +00:00
|
|
|
|
TXTPTR .EQ $B8
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
2016-11-03 11:18:28 +00:00
|
|
|
|
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
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* 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
|
2017-10-16 15:41:48 +00:00
|
|
|
|
|
|
|
|
|
|
LOAD.FAC.FROM.YA
|
|
|
|
|
|
.EQ $EAF9
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* 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
|
2017-10-16 15:41:48 +00:00
|
|
|
|
FOUT .EQ $ED34
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
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
|
2018-08-08 15:13:37 +00:00
|
|
|
|
SAVE INC/APPLESOFT.I
|
