mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-25 10:30:50 +00:00
233 lines
6.6 KiB
PHP
233 lines
6.6 KiB
PHP
;;; ============================================================
|
|
;;;
|
|
;;; More Apple II Symbols
|
|
;;;
|
|
;;; ============================================================
|
|
|
|
;;; Zero Page
|
|
|
|
COUT_HOOK := $36
|
|
|
|
;;; Other Pages
|
|
|
|
IN := $200
|
|
|
|
|
|
;;; Soft Switches
|
|
|
|
SPKR := $C030
|
|
ROMIN2 := $C082
|
|
|
|
NEWVIDEO := $C029 ; IIgs - new video modes
|
|
SHADOW := $C035 ; IIgs - inhibit shadowing
|
|
|
|
AN3_ON := $C05F ; AppleColor Adapter Card / Le Chat Mauve
|
|
AN3_OFF := $C05E
|
|
|
|
RAMWORKS_BANK := $C071 ; RAMWorks bank selection ???
|
|
|
|
HR1_ON := $C0B3
|
|
HR1_OFF := $C0B2
|
|
HR2_ON := $C0B5
|
|
HR2_OFF := $C0B4
|
|
HR3_ON := $C0B7
|
|
HR3_OFF := $C0B6
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Monitor ROM
|
|
;;; ============================================================
|
|
|
|
;;; Monitor
|
|
INIT := $FB2F
|
|
VERSION := $FBB3
|
|
BELL1 := $FBDD
|
|
VTAB := $FC22
|
|
VTABZ := $FC24
|
|
HOME := $FC58
|
|
PRBYTE := $FDDA
|
|
COUT := $FDED
|
|
SETKBD := $FE89
|
|
SETVID := $FE93
|
|
MONZ := $FF69
|
|
|
|
F8VERSION := $06
|
|
|
|
;;; Miscellaneous
|
|
IRQ_VECTOR := $3FE
|
|
|
|
ID_BYTE_FBB3 := $FBB3 ; $06 = IIe or later
|
|
ID_BYTE_FBC0 := $FBC0 ; $EA = IIe, $E0 = IIe enh/IIgs, $00 = IIc/IIc+
|
|
ID_BYTE_FE1F := $FE1F ; RTS ($60) on pre-IIgs
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Applesoft Basic ROM
|
|
;;; ============================================================
|
|
|
|
;;; Zero Page
|
|
|
|
LINNUM := $50 ; Line number, unsigned word
|
|
ERRFLG := $D8
|
|
TXTPTR := $B8
|
|
FAC := $9D
|
|
SHIFT_SIGN_EXT := $A4 ; Zero before using FP ops
|
|
|
|
;;; Entry Points
|
|
GIVAYF := $E2F2 ; FAC from signed integer in (Y,A)
|
|
CONINT := $E6FB ; FAC = X as unsigned byte
|
|
GETADR := $E752 ; FAC to unsigned integer in LINNUM
|
|
FADDH := $E7A0 ; Add 0.5 to FAC
|
|
FSUB := $E7A7 ; FAC = (Y,A) - FAC
|
|
FSUBT := $E7AA ; FAC = ARG - FAC
|
|
FADD := $E7BE ; FAC = (Y,A) + FAC
|
|
FADDT := $E7C1 ; FAC = ARG + FAC
|
|
ZERO_FAC := $E84E ; FAC = 0
|
|
LOG := $E941 ; FAC = LOG(FAC)
|
|
FMULT := $E97F ; FAC = (Y,A) * FAC
|
|
FMULTT := $E982 ; FAC = ARG * FAC
|
|
DIV10 := $EA55 ; FAC = FAC / 10
|
|
FDIV := $EA66 ; FAC = (Y,A) / FAC
|
|
FDIVT := $EA69 ; FAC = ARG / FAC
|
|
LOAD_ARG := $EAE3 ; ARG = (Y,A)
|
|
MOVFM := $EAF9 ; FAC = (Y,A)
|
|
LOAD_FAC := $EAF9 ; FAC = (Y,A)
|
|
MOVMF := $EB2B ; (Y,X) = FAC
|
|
ROUND := $EB2B ; Round FAC, store at (Y,X)
|
|
ARG_TO_FAC := $EB53 ; ARG = FAC
|
|
FAC_TO_ARG_R := $EB63 ; FAC = ARG, rounded
|
|
SGN := $EB90 ; FAC = SGN(FAC)
|
|
FLOAT := $EB93 ; FAC = A as signed byte
|
|
FLOAT1 := $EB9B ; FAC from unsigned integer in FAC+1,2 eX
|
|
FLOAT2 := $EBA0 ; FAC from unsigned integer in FAC+1,2 eX, carry set = positive
|
|
ABS := $EBAF ; FAC = ABS(FAC)
|
|
FCOMP := $EBB2 ; FAC <=> (Y,A), result in A
|
|
QINT := $EBF2 ; FAC to signed integer in FAC+1...FAC+4 (e < 32)
|
|
INT := $EC23 ; FAC = INT(FAC)
|
|
FIN := $EC4A ; Parse TEXTPTR to FAC (first char in A, C set if digit)
|
|
FOUT := $ED34 ; FAC as string to FBUFFR (trashes FAC)
|
|
SQR := $EE8D ; FAC = SQR(FAC)
|
|
NEGOP := $EED0 ; FAC = -FAC
|
|
EXP := $EF09 ; FAC = EXP(FAC)
|
|
RND := $EFAE ; FAC = RND(FAC)
|
|
COS := $EFEA ; FAC = COS(FAC)
|
|
SIN := $EFF1 ; FAC = SIN(FAC)
|
|
TAN := $F03A ; FAC = SIN(FAC)
|
|
ATN := $F09E ; FAC = ATN(FAC)
|
|
|
|
;;; Constants
|
|
CON_ONE := $E913 ; 1
|
|
CON_SQR_HALF := $E92D ; SQR(1/2)
|
|
CON_SQR_TWO := $E932 ; SQR(2)
|
|
CON_NEG_HALF := $E937 ; -1/2
|
|
CON_LOG_TWO := $E93C ; LOG(2)
|
|
CON_TEN := $E950 ; 10
|
|
CON_BILLION := $ED14 ; 1E9
|
|
CON_HALF := $EE64 ; 1/2
|
|
CON_LOG2_E := $EEDB ; Log(E) base 2 ????
|
|
CON_HALF_PI := $F063 ; pi/2
|
|
CON_TWO_PI := $F06B ; pi/*2
|
|
CON_QUARTER := $F070 ; 1/4
|
|
|
|
;;; Other
|
|
FBUFFR := $100
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Aux Memory / Extended 80 Column Card
|
|
;;; ============================================================
|
|
|
|
;;; Softswitches
|
|
RAMRDOFF := $C002
|
|
RAMRDON := $C003
|
|
RAMWRTOFF := $C004
|
|
RAMWRTON := $C005
|
|
ALTZPOFF := $C008
|
|
ALTZPON := $C009
|
|
|
|
CLR80VID := $C00C
|
|
SET80VID := $C00D
|
|
RD80STORE := $C018
|
|
RDPAGE2 := $C01C
|
|
|
|
PAGE2OFF := $C054
|
|
PAGE2ON := $C055
|
|
HIRESON := $C056
|
|
HIRESOFF := $C057
|
|
DHIRESON := $C05E
|
|
DHIRESOFF := $C05F
|
|
|
|
;;; Routines
|
|
SLOT3ENTRY := $C300
|
|
AUXMOVE := $C311 ; carry set main>aux, carry clear aux>main
|
|
XFER := $C314
|
|
|
|
;;; Zero Page Locations
|
|
STARTLO := $3C
|
|
STARTHI := $3D
|
|
ENDLO := $3E
|
|
ENDHI := $3F
|
|
DESTINATIONLO := $42
|
|
DESTINATIONHI := $43
|
|
|
|
;;; Other Locations
|
|
XFERSTARTLO := $03ED
|
|
XFERSTARTHI := $03EE
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Mouse Peripheral Card
|
|
;;; ============================================================
|
|
|
|
;;; Firmware Routines
|
|
|
|
SETMOUSE := $12
|
|
SERVEMOUSE := $13
|
|
READMOUSE := $14
|
|
CLEARMOUSE := $15
|
|
POSMOUSE := $16
|
|
CLAMPMOUSE := $17
|
|
HOMEMOUSE := $18
|
|
INITMOUSE := $19
|
|
|
|
;;; Constants
|
|
|
|
CLAMP_X := 0
|
|
CLAMP_Y := 1
|
|
|
|
MOUSE_MODE_OFF := $00
|
|
MOUSE_MODE_TRANS:= $01
|
|
MOUSE_MODE_INT := $03
|
|
MOUSE_MODE_BTN := $05
|
|
|
|
;;; RAM Locations
|
|
|
|
CLAMP_MIN_LO := $478
|
|
CLAMP_MIN_HI := $578
|
|
CLAMP_MAX_LO := $4F8
|
|
CLAMP_MAX_HI := $5F8
|
|
|
|
;;; RAM Locations
|
|
;;; (Add $Cn where n is slot to these)
|
|
|
|
MOUSE_X_LO := $03B8
|
|
MOUSE_X_HI := $04B8
|
|
MOUSE_Y_LO := $0438
|
|
MOUSE_Y_HI := $0538
|
|
MOUSE_STATUS := $06B8
|
|
MOUSE_MODE := $0738
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Character Constants (Screen/Key Codes)
|
|
;;; ============================================================
|
|
|
|
CHAR_LEFT := $08
|
|
CHAR_TAB := $09
|
|
CHAR_DOWN := $0A
|
|
CHAR_UP := $0B
|
|
CHAR_RETURN := $0D
|
|
CHAR_RIGHT := $15
|
|
CHAR_ESCAPE := $1B
|
|
CHAR_DELETE := $7F
|