mirror of
https://github.com/erkyrath/infocom-zcode-terps.git
synced 2026-02-11 02:30:43 +00:00
198 lines
5.0 KiB
NASM
198 lines
5.0 KiB
NASM
PAGE
|
|
SBTTL "--- HARDWARE EQUATES: CBM64 ---"
|
|
|
|
|
|
; ---------
|
|
; CONSTANTS
|
|
; ---------
|
|
|
|
EZIPID EQU 8 ; ID BYTE STATING THIS IS A C-64 EZIP
|
|
VERSID EQU 'A' ; VERSION OF INTERPRETER
|
|
|
|
YSIZE EQU 24
|
|
XSIZE EQU 39
|
|
TOPSIZ EQU 40 ; LC-A TOP SCREEN IS 1 LARGER
|
|
|
|
KERNAL EQU %00000010 ; ORA IT IN TO TURN KERNAL (ROM) ON $E000-$FFFF
|
|
RAM EQU %11111101 ; AND IT IN TO TURN RAM ON INSTEAD OF KERNAL
|
|
XWRITE EQU 252 ; CODE TO WRITE TO EXPANSION RAM
|
|
XREAD EQU 253 ; AND TO READ FROM IT
|
|
|
|
; THE FIRST 43.5K (SIDE1) MUST
|
|
; BE RAM RESIDENT (394=$18A PAGES)
|
|
|
|
PSIDE1 EQU 175 ; 43.75 K IS ON SIDE 1 OF DISK
|
|
|
|
; PBEGIN IS FIRST PAGENG BUFFER (RAM PAGE UNDER KERNAL)
|
|
|
|
SWAPMEM EQU $E0 ; SPEEDUP
|
|
PBEGIN EQU $FA ; (LC-A)
|
|
NUMBUFS EQU $FF-$FA ; (LC-A)
|
|
|
|
EOL EQU $0D ; EOL CHAR
|
|
SPACE EQU $20 ; SPACE CHAR
|
|
BACKSP EQU $14 ; BACKSPACE
|
|
LF EQU $0A ; LINE FEED
|
|
LEFT EQU $9D ; ARROW KEYS
|
|
RIGHT EQU $1D
|
|
UP EQU $91
|
|
DOWN EQU $11
|
|
|
|
; -----------------
|
|
; MONITOR VARIABLES
|
|
; -----------------
|
|
|
|
QUOTMOD EQU $D4 ; QUOTES SENT TO SCREEN TURN ON STRANGE
|
|
; MODE, THIS FLAG SET TO 0 SHOULD
|
|
; TURN THAT MODE OFF ($D4 = LZIP)
|
|
|
|
; ---------
|
|
; ZERO-PAGE
|
|
; ---------
|
|
|
|
D6510 EQU $00 ; 6510 DATA DIRECTION REGISTER
|
|
R6510 EQU $01 ; 6510 I/O PORT
|
|
RAMFLG EQU $01 ; IT SETS ON RAM OR ROM
|
|
FAST EQU $02 ; FAST-READ AVAILABLE FLAG
|
|
STKEY EQU $91 ; STOP KEY FLAG
|
|
MSGFLG EQU $9D ; KERNAL MESSAGE CONTROL FLAG
|
|
TIME EQU $A2 ; SYSTEM JIFFY TIMER
|
|
LSTX EQU $C5 ; LAST KEY PRESSED
|
|
NDX EQU $C6 ; # CHARS IN KEYBOARD BUFFER
|
|
RVS EQU $C7 ; REVERSE CHARACTER FLAG
|
|
SFDX EQU $CB ; CURRENT KEYPRESS
|
|
BLNSW EQU $CC ; CURSOR BLINK SWITCH
|
|
PNTR EQU $D3 ; CURSOR COLUMN IN LOGICAL LINE
|
|
TBLX EQU $D6 ; CURRENT CURSOR ROW
|
|
LDTB1 EQU $D9 ; 25-BYTE LINE LINK TABLE
|
|
KEYTAB EQU $F5 ; KEYBOARD DECODE TABLE VECTOR
|
|
|
|
FDATA EQU $FB ; FAST-READ DATA BUFFER
|
|
FINDEX EQU $FC ; FAST-READ BUFFER INDEX
|
|
FASTEN EQU $FD ; FAST-READ ENABLED FLAG
|
|
|
|
; -----------
|
|
; PAGES 2 & 3
|
|
; -----------
|
|
|
|
LBUFF EQU $0200 ; 89-BYTE LINE BUFFER
|
|
KEYD EQU $0277 ; KEYBOARD QUEUE
|
|
COLOR EQU $0286 ; FOREGROUND COLOR FOR TEXT
|
|
HIBASE EQU $0288 ; TOP PAGE OF SCREEN RAM
|
|
XMAX EQU $0289 ; MAXIMUM KEYBOARD QUEUE SIZE
|
|
RPTFLG EQU $028A ; KEY REPEAT FLAG
|
|
SHFLAG EQU $028D ; SHIFT KEY FLAG
|
|
KEYLOG EQU $028F ; VECTOR TO KEY-TABLE SETUP ROUTINE
|
|
MODE EQU $0291 ; CHARSET MODE SWITCH
|
|
CINV EQU $0314 ; SYSTEM 60HZ IRQ VECTOR
|
|
CBINV EQU $0316 ; BRK INSTRUCTION VECTOR
|
|
NMINV EQU $0318 ; NMI INTERRUPT VECTOR
|
|
SPRT13 EQU $0340
|
|
CURSOR EQU SPRT13 ; CURSOR RAM
|
|
SCREEN EQU $0400 ; SCREEN RAM
|
|
COLRAM EQU $D800 ; COLOR RAM
|
|
SPT0 EQU $07F8
|
|
|
|
|
|
; ------
|
|
; VIC-II
|
|
; ------
|
|
|
|
; SPRITE POSITION REGISTERS
|
|
|
|
SP0X EQU $D000 ; SPRITE #0 X-POS
|
|
SP0Y EQU $D001 ; SPRITE #0 Y-POS
|
|
|
|
MSIGX EQU $D010 ; HIGH BITS OF SPRITE X-POSITIONS
|
|
|
|
; VARIOUS CONTROL REGISTERS
|
|
|
|
SCROLY EQU $D011 ; Y-SCROLL & VIDEO CONTROL
|
|
RASTER EQU $D012 ; RASTER COMPARE
|
|
SPENA EQU $D015 ; SPRITE ENABLE
|
|
SCROLX EQU $D016 ; X-SCROLL & VIDEO CONTROL
|
|
YXPAND EQU $D017 ; SPRITE Y-EXPANSION
|
|
VMCSB EQU $D018 ; MEMORY CONTROL
|
|
VICIRQ EQU $D019 ; CHIP INTERRUPT FLAGS
|
|
IRQMSK EQU $D01A ; IRQ MASKS
|
|
SPBGPR EQU $D01B ; SPRITE/FOREGROUND PRIORITY
|
|
SPMC EQU $D01C ; MULTICOLOR SPRITE CONTROL
|
|
XXPAND EQU $D01D ; SPRITE X-EXPANSION
|
|
|
|
; COLOR REGISTERS
|
|
|
|
EXTCOL EQU $D020 ; BORDER COLOR
|
|
BGCOLO EQU $D021 ; BACKGROUND COLOR
|
|
SP0COL EQU $D027
|
|
|
|
|
|
; ---
|
|
; SID
|
|
; ---
|
|
|
|
; VOICE #1 REGISTERS
|
|
|
|
FRELO1 EQU $D400 ; FREQ
|
|
FREHI1 EQU $D401 ; FREQ HIGH BIT
|
|
PWLO1 EQU $D402 ; PULSE WIDTH
|
|
PWHI1 EQU $D403 ; PULSE WIDTH HIGH NIBBLE
|
|
VCREG1 EQU $D404 ; CONTROL
|
|
ATDCY1 EQU $D405 ; ATTACK/DECAY
|
|
SUREL1 EQU $D406 ; SUSTAIN/RELEASE
|
|
|
|
|
|
; VOICE #2 REGISTERS
|
|
|
|
FRELO2 EQU $D407 ; FREQ
|
|
FREHI2 EQU $D408 ; FREQ HIGH BIT
|
|
PWLO2 EQU $D409 ; PULSE WIDTH
|
|
PWHI2 EQU $D40A ; PULSE WIDTH HIGH NIBBLE
|
|
VCREG2 EQU $D40B ; CONTROL
|
|
ATDCY2 EQU $D40C ; ATTACK/DECAY
|
|
SUREL2 EQU $D40D ; SUSTAIN/RELEASE
|
|
|
|
; VOICE #3 REGISTERS
|
|
|
|
FRELO3 EQU $D40E ; FREQ
|
|
FREHI3 EQU $D40F ; FREQ HIGH BIT
|
|
PWLO3 EQU $D410 ; PULSE WIDTH
|
|
PWHI3 EQU $D411 ; PULSE WIDTH HIGH NIBBLE
|
|
VCREG3 EQU $D412 ; VOICE CONTROL
|
|
ATDCY3 EQU $D413 ; ATTACK/DECAY
|
|
SUREL3 EQU $D414 ; SUSTAIN/RELEASE
|
|
|
|
; MISCELLANEOUS REGISTERS
|
|
|
|
CUTLO EQU $D415 ; FILTER CUTOFF, LOW BITS
|
|
CUTHI EQU $D416 ; FILTER CUTOFF, HIGH BYTE
|
|
RESON EQU $D417 ; RESONANCE CONTROL
|
|
SIGVOL EQU $D418 ; VOLUME/FILTER CONTROL
|
|
RAND EQU $D41B ; RANDOM NUMBER
|
|
CI2PRA EQU $DD00 ; DATA PORT A
|
|
|
|
; -------------------
|
|
; KERNAL JUMP VECTORS
|
|
; -------------------
|
|
|
|
CHKIN EQU $FFC6 ; OPEN CHANNEL FOR INPUT
|
|
CHKOUT EQU $FFC9 ; OPEN CHANNEL FOR OUTPUT
|
|
CHRIN EQU $FFCF ; INPUT CHARACTER FROM CHANNEL
|
|
CHROUT EQU $FFD2 ; OUTPUT CHARACTER TO CHANNEL
|
|
CINT EQU $FF81 ;; INIT SCREEN EDITOR
|
|
CLALL EQU $FFE7 ; CLOSE ALL CHANNELS & FILES
|
|
CLOSE EQU $FFC3 ; CLOSE A FILE
|
|
CLRCHN EQU $FFCC ; CLEAR CHANNEL
|
|
GETIN EQU $FFE4 ; GET CHAR FROM KEYBOARD QUEUE
|
|
IOINIT EQU $FF84 ;; INIT I/O
|
|
OPEN EQU $FFC0 ; OPEN A FILE
|
|
PLOT EQU $FFF0 ; READ/SET CURSOR POSITION
|
|
RAMTAS EQU $FF87 ;; INIT RAM
|
|
READST EQU $FFB7 ; READ I/O STATUS
|
|
SCNKEY EQU $FF9F ;; SCAN KEYBOARD
|
|
SETLFS EQU $FFBA ; SET FILE ATTRIBUTES
|
|
SETMSG EQU $FF90 ;; SET KERNAL MESSAGES
|
|
SETNAM EQU $FFBD ; SET FILENAME
|
|
|
|
END
|
|
|