134 lines
5.4 KiB
PHP
134 lines
5.4 KiB
PHP
|
|
||
|
|
.ifndef _BASIC_INC_
|
||
|
|
_BASIC_INC_ = 1
|
||
|
|
|
||
|
|
BASIC_ROM = $a000
|
||
|
|
BASIC_ROM_SIZE = $2000
|
||
|
|
|
||
|
|
LINNUM = $14
|
||
|
|
|
||
|
|
FBUFFR = $0100; floating point string buffer written by FOUT
|
||
|
|
|
||
|
|
TOKEN_SYS = $9e
|
||
|
|
|
||
|
|
PETSCII_RETURN = $0d
|
||
|
|
PETSCII_LO_UP_CASE = $0e
|
||
|
|
PETSCII_BLINK = $0f; C128 80 columns
|
||
|
|
PETSCII_CLEAR = $93
|
||
|
|
|
||
|
|
PETSCII_BLACK = $90
|
||
|
|
PETSCII_WHITE = $05
|
||
|
|
PETSCII_RED = $1c
|
||
|
|
PETSCII_CYAN = $9f
|
||
|
|
PETSCII_PURPLE = $9c
|
||
|
|
PETSCII_GREEN = $1e
|
||
|
|
PETSCII_BLUE = $1f
|
||
|
|
PETSCII_YELLOW = $9e
|
||
|
|
PETSCII_ORANGE = $81
|
||
|
|
PETSCII_BROWN = $95
|
||
|
|
PETSCII_LIGHTRED = $96
|
||
|
|
PETSCII_DARKGREY = $97
|
||
|
|
PETSCII_GREY = $98
|
||
|
|
PETSCII_LIGHTGREEN = $99
|
||
|
|
PETSCII_LIGHTBLUE = $9a
|
||
|
|
PETSCII_LIGHTGREY = $9b
|
||
|
|
|
||
|
|
.if .defined(PLATFORM) & (PLATFORM = 16)
|
||
|
|
|
||
|
|
NEW = $8a7b; Perform NEW
|
||
|
|
CLR = $8a9a; PErform CLR
|
||
|
|
STROUT = $9088; Output String
|
||
|
|
GIVAYF = $9471; Convert Integer in (AC/YR) to FAC
|
||
|
|
NORMALIZE = $952b; Normalize FAC#1
|
||
|
|
INT24TOMANTISSA = $9534; Integer in (YR/XR/AR) to FAC mantissa MSBs
|
||
|
|
N32768 = $986c; Constant -32768 in floating point
|
||
|
|
FLPINT = $9871; FAC#1 to Integer in A/Y
|
||
|
|
AYINT = $9886; FAC#1 to Positive Integer
|
||
|
|
STRLIT = $9b74; Set Up String
|
||
|
|
FADDH = $a062; Add 0.5 to FAC#1
|
||
|
|
FADD = $a066; Perform Addition
|
||
|
|
FSUB = $a06c; Perform Subtraction
|
||
|
|
FMULT = $a078; Perform Multiply of float in (AC/YR) with FAC
|
||
|
|
CONUPK = $a0dc; Move floating point number from memory to FAC#2
|
||
|
|
MUL10 = $a162; Multiply FAC#1 by 10
|
||
|
|
TENC = $a179; Constant 10 in floating point
|
||
|
|
DIV10 = $a183; Divide FAC#1 by 10
|
||
|
|
FDIVM = $a18c; Divide FAC#2 by float in (AC/YR), result in FAC#1
|
||
|
|
FDIV = $a194; Divide float in (AC/YR) by FAC#1, result in FAC#1
|
||
|
|
FDIVT = $a197; Divide FAC#2 by FAC#1, result in FAC#1
|
||
|
|
MOVFM = $a221; Move floating point number from memory to FAC#1
|
||
|
|
MOV2M = $a259; Store FAC#1 in memory at (XR/YR)
|
||
|
|
MOVAF = $a291; Copy FAC#1 to FAC#2
|
||
|
|
LINPRT = $a45f; Print integer in A/X
|
||
|
|
FOUT = $a46f; Convert FAC#1 to ASCII String
|
||
|
|
|
||
|
|
.elseif .defined(PLATFORM) & (PLATFORM = 128)
|
||
|
|
|
||
|
|
NEW = $51d9; Perform NEW
|
||
|
|
CLR = $51f8; Perform CLR
|
||
|
|
STROUT = $55e2; Output String
|
||
|
|
NORMALIZE = $7a14; Normalize FAC#1
|
||
|
|
INT24TOMANTISSA = $7a1d; Integer in (YR/XR/AR) to FAC#1 mantissa MSBs
|
||
|
|
FLPINT = $849f; FAC#1 to Integer in A/Y
|
||
|
|
GIVAYF = $84c9; Convert Integer in (AC/YR) to FAC
|
||
|
|
STRLIT = $869a; Set Up String
|
||
|
|
FADDH = $8a0e; Add 0.5 to FAC#1
|
||
|
|
FMULT = $8a08; Perform Multiply of float in (AC/YR) with FAC
|
||
|
|
FDIV = $8a1e; Divide float in (AC/YR) by FAC#1, result in FAC#1
|
||
|
|
CONUPK = $8a89; Move floating point number from memory to FAC#2
|
||
|
|
MUL10 = $8b17; Multiply FAC#1 by 10
|
||
|
|
DIV10 = $8b38; Divide FAC#1 by 10
|
||
|
|
FDIVM = $8b3f; Divide FAC#2 by float in (AC/YR), result in FAC#1
|
||
|
|
FDIVT = $8b4c; Divide FAC#2 by FAC#1, result in FAC#1
|
||
|
|
MOVFM = $8bd4; Move floating point number from memory to FAC#1
|
||
|
|
MOV2M = $8c00; Store FAC#1 in memory at (XR/YR)
|
||
|
|
MOVAF = $8c38; Copy FAC#1 to FAC#2
|
||
|
|
LINPRT = $8e32; Print integer in A/X
|
||
|
|
FOUT = $8e42; Convert FAC#1 to ASCII String
|
||
|
|
|
||
|
|
.else
|
||
|
|
|
||
|
|
NEW = $a644; Perform NEW
|
||
|
|
CLR = $a660; Perform CLR
|
||
|
|
STROUT = $ab1e; Output String
|
||
|
|
NORMALIZE = $af7e; Normalize FAC#1
|
||
|
|
INT24TOMANTISSA = $af87; GETTIM + 3, Integer in (YR/XR/AR) to FAC#1 mantissa MSBs
|
||
|
|
N32768 = $b1a5; Constant -32768 in floating point
|
||
|
|
FLPINT = $b1aa; FAC#1 to Integer in A/Y
|
||
|
|
AYINT = $b1bf; FAC#1 to Positive Integer
|
||
|
|
GIVAYF = $b391; Convert Integer in (AC/YR) to FAC
|
||
|
|
STRLIT = $b487; Set Up String
|
||
|
|
FADDH = $b849; Add 0.5 to FAC#1
|
||
|
|
FSUB = $b850; Perform Subtraction
|
||
|
|
FADD = $b867; Perform Addition
|
||
|
|
FMULT = $ba28; Perform Multiply of float in (AC/YR) with FAC
|
||
|
|
CONUPK = $ba8c; Move floating point number from memory to FAC#2
|
||
|
|
MUL10 = $bae2; Multiply FAC#1 by 10
|
||
|
|
TENC = $baf9; Constant 10 in floating point
|
||
|
|
DIV10 = $bafe; Divide FAC#1 by 10
|
||
|
|
FDIVM = $bb05; Divide FAC#2 by float in (AC/YR), result in FAC#1
|
||
|
|
FDIV = $bb0f; Divide float in (AC/YR) by FAC#1, result in FAC#1
|
||
|
|
FDIVT = $bb12; Divide FAC#2 by FAC#1, result in FAC#1
|
||
|
|
MOVFM = $bba2; Move floating point number from memory to FAC#1
|
||
|
|
MOV2M = $bbd4; Store FAC#1 in memory at (XR/YR)
|
||
|
|
MOVAF = $bc0c; Copy FAC#1 to FAC#2
|
||
|
|
LINPRT = $bdcd; Print integer in A/X
|
||
|
|
FOUT = $bddd; Convert FAC#1 to ASCII String
|
||
|
|
|
||
|
|
PIVAL = $aea8; Constant PI in floating point
|
||
|
|
GETADR = $b7f7; Convert FAC to Integer in LINNUM
|
||
|
|
FONE = $b9bc; Floating point constant: 1
|
||
|
|
.endif
|
||
|
|
|
||
|
|
.macro LOAD_ADDRESS
|
||
|
|
.word * + $02
|
||
|
|
.endmacro; LOAD_ADDRESS
|
||
|
|
|
||
|
|
.macro BASIC_STARTLINE linenumber
|
||
|
|
.assert * = $0801, warning, "***** PC is not $0801 *****"
|
||
|
|
.word $080d, linenumber
|
||
|
|
.byte TOKEN_SYS, "2061", $00, $00, $00
|
||
|
|
.endmacro; BASIC_STARTLINE
|
||
|
|
|
||
|
|
.endif; !_BASIC_INC_
|