2017-09-06 01:41:13 +00:00
|
|
|
;;; ------------------------------
|
|
|
|
|
;;; Applesoft Basic
|
|
|
|
|
;;; ------------------------------
|
|
|
|
|
|
2017-09-08 15:36:36 +00:00
|
|
|
;;; Zero Page
|
|
|
|
|
|
|
|
|
|
ERRFLG := $D8
|
|
|
|
|
TXTPTR := $B8
|
|
|
|
|
|
2017-09-06 01:41:13 +00:00
|
|
|
;;; Entry Points
|
|
|
|
|
FSUB := $E7A7
|
|
|
|
|
FADD := $E7BE
|
|
|
|
|
FMULT := $E97F
|
|
|
|
|
FDIV := $EA66
|
2017-09-08 15:36:36 +00:00
|
|
|
ROUND := $EB2B ; Round FAC, store at (y,x)
|
|
|
|
|
FLOAT := $EB93 ; A as signed byte into FAC
|
|
|
|
|
FIN := $EC4A ; Parse TEXTPTR to FAC (first char in A, C set if digit)
|
|
|
|
|
FOUT := $ED34 ; FAC as string to FBUFFR
|
|
|
|
|
|
2017-09-08 08:00:58 +00:00
|
|
|
|
|
|
|
|
FBUFFR := $100
|
