6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-12-26 22:31:14 +00:00
Code Issues Projects Releases Wiki Activity
780b232259
8bitworkshop/presets/astrocade/hvglib.h

684 lines
25 KiB
C
Raw Normal View History

started on the cade that is astro
2018-08-28 22:11:22 +00:00
; ****** HVGLIB.H (formally called ballyequ.h) (C)1977,78
; *** Bally Astrocade Equates and Macros Header File ***
; From the nutting_manual and reformatted using Mixed Case
; Version 3.01 - thru December 29, 2010
; by Richard C Degler, from scratch
;
; > Retyped and proofread by Adam Trionfo and Lance F. Squire
; > Version 1.0 (as ballyequ.h) - January 17, 2002
; > Version 2.52 (Version 1.0 of HVGLIB.H) - March 28, 2003
; > Version 2.6 - March 2, 2004 - as seen on BallyAlley.com
; > Version 3.0 - 2009
; > Version 3.01 - Changed "FonT BASE character" comment
; > (also patched for latest zmac with default args)
; >
; > This file contains the equates and macros that Bally
; > programs require for assembly. This file has been
; > written to assemble with ZMAC 1.3 (a freely distribut-
; > able Z-80 assembler (with C source), that has a 25-year
; > history. ZMAC can be compiled under just about any O.S.
; > in existence, so try it out. This file will probably
; > require changes to be assembled under other assemblers.
; >
; > To assemble your Z-80 source code using ZMAC:
; >
; > zmac -d -o <outfile> -x <listfile> <filename>
; >
; > For example, assemble this Astrocade Z-80 ROM file:
; >
; > zmac -d -o BallyROM.bin -x BallyROM.lst BallyROM.asm
; >
; > Currently the Listing file is full of 'Undeclared'
; > errors. When all of the source is typed-in, these will
; > vanish. I'm leaving the others until all the source is
; > re-typed.
; >
;
; ***************************
; * Home Video Game EQUates *
; ***************************
;
; ASSEMBLY CONTROL
;
XPNDON EQU 1 ; ** SET TO 1 WHEN HARDWARE EXP
NWHDWR EQU 1 ; ** SET TO 1 WHEN NEW HARDWARE
;
; General goodies (HEX and Decimal values):
NORMEM EQU $4000 ; 8192 ; NORmal MEMory start
FIRSTC EQU $2000 ; 4096 ; FIRST address in Cartridge
SCREEN EQU $0000 ; 0 ; magic SCREEN start
BYTEPL EQU $28 ; 40 ; BYTEs Per Line
BITSPL EQU $A0 ; 160 ; BITS Per Line
;
; Stuff in SYSTEM DOPE VECTOR (valid for ALL system ROMs):
STIMER EQU $0200 ; Seconds and game TIMER, music
CTIMER EQU $0203 ; Custom TIMERs
FNTSYS EQU $0206 ; FoNT descriptor for SYStem font
FNTSML EQU $020D ; FoNT descriptor for SMaLl font
ALKEYS EQU $0214 ; ALl KEYS keypad mask
MENUST EQU $0218 ; head of onboard MENU STart
MXSCR EQU $021E ; address of 'MaX SCoRe' text string
NOPLAY EQU $0228 ; address of 'Number Of PLAYers' string
NOGAME EQU $0235 ; address of 'Number Of GAMEs' string
;
; BITS in PROCESSOR FLAG byte:
PSWCY EQU 0 ; Processor Status Word, CarrY bit
PSWPV EQU 2 ; Processor Status Word, Parity or oVerflow bit
PSWZRO EQU 6 ; Processor Status Word, ZeRO bit
PSWSGN EQU 7 ; Processor Status Word, SiGN bit
;
; BITS in GAME STATUS Byte:
GSBTIM EQU 0 ; Game Status Byte, if TIMe is up set end bit
GSBSCR EQU 1 ; Game Status Byte, if SCoRe reached set end bit
GSBEND EQU 7 ; Game Status Byte, END flag bit
;
; Standard VECTOR DISPLACEMENTS and bits:
VBMR EQU $00 ; +0 ; Vector Block, Magic Register
VBSTAT EQU $01 ; +1 ; Vector Block, STATus byte
VBTIMB EQU $02 ; +2 ; Vector Block, TIMe Base
VBDXL EQU $03 ; +3 ; Vector Block, Delta for X Low
VBDXH EQU $04 ; +4 ; Vector Block, Delta for X Hi
VBXL EQU $05 ; +5 ; Vector Block, X coord Low
VBXH EQU $06 ; +6 ; Vector Block, X coord Hi
VBXCHK EQU $07 ; +7 ; Vector Block, X CHecK flags
VBDYL EQU $08 ; +8 ; Vector Block, Delta for Y Low
VBDYH EQU $09 ; +9 ; Vector Block, Delta for Y Hi
VBYL EQU $0A ; +10 ; Vector Block, Y coord Low
VBYH EQU $0B ; +11 ; Vector Block, Y coord Hi
VBYCHK EQU $0C ; +12 ; Vector Block, Y CHecK flags
VBOAL EQU $0D ; +13 ; Vector Block, Old Address Low
VBOAH EQU $0E ; +14 ; Vector Block, Old Address Hi
;
; DISPLACEMENTS from start of COORDINATE AREA (X or Y):
VBDCL EQU $00 ; +0 ; Vector Block, Delta for Coord Low
VBDCH EQU $01 ; +1 ; Vector Block, Delta for Coord Hi
VBCL EQU $02 ; +2 ; Vector Block, Coord Low
VBCH EQU $03 ; +3 ; Vector Block, Coord Hi
VBCCHK EQU $04 ; +4 ; Vector Block, Coord CHecK flags
;
; BITS in STATUS byte:
VBBLNK EQU 6 ; Vector Block status, BLaNK bit
VBSACT EQU 7 ; Vector Block Status, ACTive bit
;
; BITS in (X or Y) VB CHECK FLAG bit mask:
VBCLMT EQU 0 ; Vector Block Check, LiMiT bit
VBCREV EQU 1 ; Vector Block Check, REVerse delta on limit attain
VBCLAT EQU 3 ; Vector Block Check, coordinate Limit ATtained
;
; FONT TABLE DISPLACEMENTS for CHARACTER DESCRIPTOR BLOCK:
FTBASE EQU $00 ; +0 ; FonT BASE character (normally $A0)
FTFSX EQU $01 ; +1 ; FonT Frame X Size width
FTFSY EQU $02 ; +2 ; FonT Frame Y Size height
FTBYTE EQU $03 ; +3 ; FonT X size for char in BYTEs
FTYSIZ EQU $04 ; +4 ; FonT Y SIZe height in rows
FTPTL EQU $05 ; +5 ; FonT Pattern Table address Low
FTPTH EQU $06 ; +6 ; FonT Pattern Table address Hi
;
; BITS for MAGIC REGISTER (write option) byte:
MRSHFT EQU $03 ; Magic Register, mask of SHiFT amount 0-3
MRROT EQU 2 ; Magic Register, write with ROTata bit
MRXPND EQU 3 ; Magic Register, write with eXPaND bit
MROR EQU 4 ; Magic Register, write with OR bit
MRXOR EQU 5 ; Magic Register, write with eXclusive-OR bit
MRFLOP EQU 6 ; Magic Register, write with FLOP bit
;
; BITS of CONTROL HANDLE Input port:
CHUP EQU 0 ; Control Handle, UP bit
CHDOWN EQU 1 ; Control Handle, DOWN bit
CHLEFT EQU 2 ; Control Handle, joystick LEFT bit
CHRIGH EQU 3 ; Control Handle, joystick RIGHT bit
CHTRIG EQU 4 ; Control Handle, TRIGger bit
;
; CONTEXT BLOCK Register DISPLACEMENTS:
CBIYL EQU $00 ; +0 ; Context Block, IY register Low
CBIYH EQU $01 ; +1 ; Context Block, IY register Hi
CBIXL EQU $02 ; +2 ; Context Block, IX register Low
CBIXH EQU $03 ; +3 ; Context Block, IX register Hi
CBE EQU $04 ; +4 ; Context Block, E register
CBD EQU $05 ; +5 ; Context Block, D register
CBC EQU $06 ; +6 ; Context Block, C register
CBB EQU $07 ; +7 ; Context Block, B register
CBFLAG EQU $08 ; +8 ; Context Block, FLAGs register
CBA EQU $09 ; +9 ; Context Block, A register
CBL EQU $0A ; +10 ; Context Block, L register
CBH EQU $0B ; +11 ; Context Block, H register
;
; SENTRY RETURN Codes EQUates:
SNUL EQU $00 ; Sentry return NULl, nothing happened
SCT0 EQU $01 ; Sentry, Counter-Timer 0 has counted down
SCT1 EQU $02 ; Sentry, Counter-Timer 1 has counted down
SCT2 EQU $03 ; Sentry, Counter-Timer 2 has counted down
SCT3 EQU $04 ; Sentry, Counter-Timer 3 has counted down
SCT4 EQU $05 ; Sentry, Counter-Timer 4 has counted down
SCT5 EQU $06 ; Sentry, Counter-Timer 5 has counted down
SCT6 EQU $07 ; Sentry, Counter-Timer 6 has counted down
SCT7 EQU $08 ; Sentry, Counter-Timer 7 has counted down
SF0 EQU $09 ; Sentry, Flag bit 0 has changed
SF1 EQU $0A ; Sentry, Flag bit 1 has changed
SF2 EQU $0B ; Sentry, Flag bit 2 has changed
SF3 EQU $0C ; Sentry, Flag bit 3 has changed
SF4 EQU $0D ; Sentry, Flag bit 4 has changed
SF5 EQU $0E ; Sentry, Flag bit 5 has changed
SF6 EQU $0F ; Sentry, Flag bit 6 has changed
SF7 EQU $10 ; Sentry, Flag bit 7 has changed
SSEC EQU $11 ; Sentry, SEConds timer has counted down
SKYU EQU $12 ; Sentry, KeY is now Up
SKYD EQU $13 ; Sentry, KeY is now Down
ST0 EQU $14 ; Sentry, Trigger 0 for player 1 has changed
SJ0 EQU $15 ; Sentry, Joystick 0 for player 1 has changed
ST1 EQU $16 ; Sentry, Trigger 1 for player 2 has changed
SJ1 EQU $17 ; Sentry, Joystick 1 for player 2 has changed
ST2 EQU $18 ; Sentry, Trigger 2 for player 3 has changed
SJ2 EQU $19 ; Sentry, Joystick 2 for player 3 has changed
ST3 EQU $1A ; Sentry, Trigger 3 for player 4 has changed
SJ3 EQU $1B ; Sentry, Joystick 3 for player 4 has changed
SP0 EQU $1C ; Sentry, POTentiometer 0 has changed
SP1 EQU $1D ; Sentry, POTentiometer 1 has changed
SP2 EQU $1E ; Sentry, POTentiometer 2 has changed
SP3 EQU $1F ; Sentry, POTentiometer 3 has changed
;
;
; ********************************
; * Home Video Game PORT EQUates *
; ********************************
;
; OUTPUT Ports for VIRTUAL COLOR:
COL0R EQU $00 ; &(0)= ; write COLor 0 Right
COL1R EQU $01 ; &(1)= ; write COLor 1 Right
COL2R EQU $02 ; &(2)= ; write COLor 2 Right
COL3R EQU $03 ; &(3)= ; write COLor 3 Right
COL0L EQU $04 ; &(4)= ; write COLor 0 Left
COL1L EQU $05 ; &(5)= ; write COLor 1 Left
COL2L EQU $06 ; &(6)= ; write COLor 2 Left
COL3L EQU $07 ; &(7)= ; write COLor 3 Left
HORCB EQU $09 ; &(9)= ; write HORizontal Color Boundary
VERBL EQU $0A ;&(10)= ; write VERtical Blanking Line
COLBX EQU $0B ;&(11)= ; write COLor BloCK multi-port
;
; OUTPUT Ports for MUSIC and SOUNDS:
TONMO EQU $10 ;&(16)= ; write TONe Master Oscillator
TONEA EQU $11 ;&(17)= ; write TONe A oscillator
TONEB EQU $12 ;&(18)= ; write TONe B oscillator
TONEC EQU $13 ;&(19)= ; write TONe C oscillator
VIBRA EQU $14 ;&(20)= ; write VIBRAto frequency & range
VOLC EQU $15 ;&(21)= ; write VOLume of tone C
VOLAB EQU $16 ;&(22)= ; write VOLumes of tones A & B
VOLN EQU $17 ;&(23)= ; write VOLume of Noise
SNDBX EQU $18 ;&(24)= ; write SouND BloCK multi-port
;
; INTERRUPT and CONTROL OUTPUT Ports:
CONCM EQU $08 ; &(8)= ; write 0 for CONsumer, 1 for CoMmercial mode
MAGIC EQU $0C ;&(12)= ; write MAGIC register
INFBK EQU $0D ;&(13)= ; write INterrupt FeedBacK
INMOD EQU $0E ;&(14)= ; write INterrupt MODe
INLIN EQU $0F ;&(15)= ; write INterrupt LINe
XPAND EQU $19 ;&(25)= ; eXPANDer pixel definition port
;
; INTERRUPT and INTERCEPT INPUT Ports:
INTST EQU $08 ; =&(8) ; read INTercept STatus
VERAF EQU $0E ;=&(14) ; read VERtical Address Feedback
HORAF EQU $0F ;=&(15) ; read HORizontal Address Feedback
;
; HAND CONTROL INPUT Ports:
SW0 EQU $10 ;=&(16) ; read SWitch bank 0 for player 1 hand control
SW1 EQU $11 ;=&(17) ; read SWitch bank 1 for player 2 hand control
SW2 EQU $12 ;=&(18) ; read SWitch bank 2 for player 3 hand control
SW3 EQU $13 ;=&(19) ; read SWitch bank 3 for player 4 hand control
POT0 EQU $1C ;=&(28) ; read POTentiometer 0 for player 1 knob
POT1 EQU $1D ;=&(29) ; read POTentiometer 1 for player 2 knob
POT2 EQU $1E ;=&(30) ; read POTentiometer 2 for player 3 knob
POT3 EQU $1F ;=&(31) ; read POTentiometer 3 for player 4 knob
;
; KEYBOARD INPUT Ports:
KEY0 EQU $14 ;=&(20) ; KEYboard column 0 (right side)
KEY1 EQU $15 ;=&(21) ; KEYboard column 1 (center right)
KEY2 EQU $16 ;=&(22) ; KEYboard column 2 (center left)
KEY3 EQU $17 ;=&(23) ; KEYboard column 3 (left side)
;
;
; ***************************************
; * Home Video Game SYSTEM CALL Indexes *
; ***************************************
;
; USER PROGRAM Interface:
INTPC EQU $00 ; # 0 ; INTerPret with Context create
XINTC EQU $02 ; # 2 ; eXit INTerpreter with Context
RCALL EQU $04 ; # 4 ; Real CALL asm language subroutine
MCALL EQU $06 ; # 6 ; Macro CALL interpreter subroutine
MRET EQU $08 ; # 8 ; Macro RETurn from interpreter subroutine
MJUMP EQU $0A ; # 10 ; Macro JUMP to interpreter subroutine
SUCK EQU $0C ; # 12 ; SUCK inline args into context block
;
; SCHEDULER Routines:
ACTINT EQU $0E ; # 14 ; ACTivate sub timer INTerrupts
DECCTS EQU $10 ; # 16 ; DECrement CT'S under mask
;
; MUSIC and SOUNDS:
BMUSIC EQU $12 ; # 18 ; Begin playing MUSIC
EMUSIC EQU $14 ; # 20 ; End playing MUSIC
;
; SCREEN HANDLER Routines:
SETOUT EQU $16 ; # 22 ; SET some OUTput ports
COLSET EQU $18 ; # 24 ; COLors SET
FILL EQU $1A ; # 26 ; FILL memory with data
RECTAN EQU $1C ; # 28 ; paint a RECTANgle
VWRITR EQU $1E ; # 30 ; Vector WRITe Relative
WRITR EQU $20 ; # 32 ; WRITe Relative
WRITP EQU $22 ; # 34 ; WRITe with Pattern size lookup
WRIT EQU $24 ; # 36 ; WRITe with sizes provided
WRITA EQU $26 ; # 38 ; WRITe Absolute
VBLANK EQU $28 ; # 40 ; Vector BLANK area
BLANK EQU $2A ; # 42 ; BLANK area
SAVE EQU $2C ; # 44 ; SAVE area
RESTOR EQU $2E ; # 46 ; RESTORe area
SCROLL EQU $30 ; # 48 ; SCROLL area of screen
;
CHRDIS EQU $32 ; # 50 ; CHaRacter DISplay
STRDIS EQU $34 ; # 52 ; STRing DISplay
DISNUM EQU $36 ; # 54 ; DISplay NUMber
;
RELABS EQU $38 ; # 56 ; RELative to ABSolute conversion
RELAB1 EQU $3A ; # 58 ; RELative to non-magic ABSolute
VECTC EQU $3C ; # 60 ; VECTor move single Coordinate
VECT EQU $3E ; # 62 ; VECTor move coordinate pair
;
; HUMAN INTERFACE Routines:
KCTASC EQU $40 ; # 64 ; Key Code in B To ASCii
SENTRY EQU $42 ; # 66 ; SENse TRansition Y
DOIT EQU $44 ; # 68 ; DOIT table, branch to translation handler
DOITB EQU $46 ; # 70 ; DOIT table, use B instead of A
PIZBRK EQU $48 ; # 72 ; take a PIZza BReaK
MENU EQU $4A ; # 74 ; display a MENU
GETPAR EQU $4C ; # 76 ; GET game PARameter from user
GETNUM EQU $4E ; # 78 ; GET NUMber from user
PAWS EQU $50 ; # 80 ; PAUSE
DISTIM EQU $52 ; # 82 ; DISplay TIMe
INCSCR EQU $54 ; # 84 ; INCrement SCoRe
;
; MATH Routines:
INDEXN EQU $56 ; # 86 ; INDEX Nibble by C
STOREN EQU $58 ; # 88 ; STORE Nibble in A by C
INDEXW EQU $5A ; # 90 ; INDEX Word by A
INDEXB EQU $5C ; # 92 ; INDEX Byte by A
MOVE EQU $5E ; # 94 ; MOVE block transfer
SHIFTU EQU $60 ; # 96 ; SHIFT Up digit in A
BCDADD EQU $62 ; # 98 ; BCD ADDition
BCDSUB EQU $64 ;# 100 ; BCD SUBtraction
BCDMUL EQU $66 ;# 102 ; BCD MULtiplication
BCDDIV EQU $68 ;# 104 ; BCD DIVision
BCDCHS EQU $6A ;# 106 ; BCD CHange Sign
BCDNEG EQU $6C ;# 108 ; BCD NEGate to decimal
DADD EQU $6E ;# 110 ; Decimal ADDition
DSMG EQU $70 ;# 112 ; Decimal convert to Sign MaGnitude
DABS EQU $72 ;# 114 ; Decimal ABSolute value
NEGT EQU $74 ;# 116 ; decimal NEGaTe
RANGED EQU $76 ;# 118 ; RANGED random number
QUIT EQU $78 ;# 120 ; QUIT cassette execution
SETB EQU $7A ;# 122 ; SET Byte
SETW EQU $7C ;# 124 ; SET Word
MSKTD EQU $7E ;# 127 ; MaSK joystick in B To Deltas
;
;
; **********
; * MACROS *
; **********
; Assembler directives in lower case to distinguish from OPCODEs.
;
; MACROs to define PATTERNs:
DEF2 macro AA,AB
DB AA
DB AB
endm
DEF3 macro BA,BB,BCC
DB BA
DB BB
DB BCC ; 'BC' reserved, so used 'BCC'
endm
DEF4 macro CA,CB,CC,CD
DB CA
DB CB
DB CC
DB CD
endm
DEF5 macro DA,DBB,DC,DD,DEE
DB DA
DB DBB
DB DC
DB DD
DB DEE
endm
DEF6 macro EA,EB,EC,ED,EE,EF
DB EA
DB EB
DB EC
DB ED
DB EE
DB EF
endm
DEF8 macro GA,GB,GC,GD,GEE,GF,GG,GH
DB GA
DB GB
DB GC
DB GD
DB GEE ; 'GE' reserved, so used 'GEE'
DB GF
DB GG
DB GH
endm
;
; MACRO to compute CONSTANT SCREEN Addresses:
XYRELL macro p1,p2,p3 ; RELative LOAD
LD p1,[(p3 SHL 8) + p2]
endm
;
; MACROs to generate SYSTEM CALLs:
SYSTEM macro NUMBA
RST $38
DB NUMBA
if NUMBA = INTPC
INTPCC DEFL 1
endif
endm
; MACRO to generate SYSTEM CALL with SUCK option ON:
SYSSUK macro UMBA
RST $38
DB UMBA + 1
if UMBA = INTPC
INTPCC DEFL 1
endif
endm
;
; MACROs to generate MACRO INTERPRETER CALLs:
; INTERPRET without INLINE SUCK:
DONT macro CID
DB CID
endm
; INTERPRET with INLINE SUCK option ON:
DO macro CID
DB CID + 1
endm
;
; FILL screen with constant data (was 'FILL?'):
FILLq macro START,NBYTES,DATA
DB FILL + 1
DW START
DW NBYTES
DB DATA
endm
; DISPLAY a STRING: (only inside interpreter?)
TEXTD macro AA,BB,CC,DD
DB STRDIS + 1
DB BB
DB CC
DB DD
DW AA
endm
;
; EXIT interpreter with context restore:
EXIT macro
DB XINTC
INTPCC DEFL 0
endm
;
ENDx EQU $C0 ; END of DOIT Table
;
; MACRO CALLs from DOIT Table (only):
MCALL macro AA, BB, EE
DB AA + $80
DW BB
if EE = ENDx
DB EE
endif
endm
; REAL CALL from DOIT Table:
RCALL macro AA,BB,EE
DB AA + $40
DW BB
if EE = ENDx
DB EE
endif
endm
; REAL JUMP from DOIT Table:
JMPd macro AA,BB,EE
DB AA
DW BB
if EE = ENDx
DB EE
endif
endm
;
;**************
; MUSIC MACROS:
; $00 to $7F = NOTE DURation, FREQuency(s):
NOTE1 macro DUR,N1
DB (DUR) AND ($7F)
DB N1
endm
NOTE2 macro DUR,N1,N2
DB (DUR) AND ($7F)
DB N1
DB N2
endm
NOTE3 macro DUR,N1,N2,N3
DB (DUR) AND ($7F)
DB N1
DB N2
DB N3
endm
NOTE4 macro DUR,N1,N2,N3,N4
DB (DUR) AND ($7F)
DB N1
DB N2
DB N3
DB N4
endm
NOTE5 macro DUR,N1,N2,N3,N4,N5
DB (DUR) AND ($7F)
DB N1
DB N2
DB N3
DB N4
DB N5
endm
; $80 = Set MASTER Osc, Offset:
MASTER macro OFFSET
DB $80
DB OFFSET
endm
; $80 to $88 = Stuff OUTPUT Port# (0 to 7 only!), Data
; or OUTPUT SNDBX, Data10, D11,..., Data17:
OUTPUT macro PORT,D0,D1,D2,D3,D4,D5,D6,D7
if PORT != $18
DB $80 + ((PORT) AND ($7F))
DB D0 ; <-- D0 is NOT $D0
else ; on PORT = $18
DB $88
DEF8 D7,D6,D5,D4,D3,D2,D1,D0
endif
endm
; $90 = Set VOICE MASK byte:
; The format of the Voice MASK is:
; * I * A * I * B * I * C * V * N *
; bit 7 6 5 4 3 2 1 0
; read right-to-left, where I = INC PC and
; A, B, or C = load TONE A,B,C with data at PC
; V = load Vibrato with data at PC and INC PC
; N = load Noise with data at PC and INC PC
VOICEM macro MASK ; 'VOICES' TO 'VOICEM'
DB $90
DB MASK
endm
; $A0 to $AF = PUSH Number 1 to 16 onto music stack:
PUSHN macro NUMB
DB $A0 + ((NUMB-1) AND $0F)
endm
; $BO = Set VOLUMEs:
VOLUME macro P1,P2
DB $B0
DB P1
DB P2
endm
; $C0 = Dec Stack top and JNZ:
DSJNZ macro ADD_IT
DB $C0
DW ADD_IT
endm
; note: Music Processor also uses standard codes as $C3 for
; music JumP, $C9 for music RETurn, and $CD for music CALL.
;
; $D0 = Call RELative self+1 plus 0 to 15:
CREL macro BY
DB $D0 + (BY AND $0F)
endm
; $E0 = Flip LEGatto to STAcato:
LEGSTA macro
DB $E0
endm
REST macro TIME
DB $E1
DB TIME
endm
QUIET macro
DB $F0
endm
;
; *****************
; * MUSIC EQUATES *
; *****************
; NOTE Values:
G0 EQU $FD ; 253
GS0 EQU $EE ; 238
A0 EQU $E1 ; 225
AS0 EQU $D4 ; 212
B0 EQU $C8 ; 200
C1 EQU $BD ; 189
CS1 EQU $B2 ; 178
D1 EQU $A8 ; 168
DS1 EQU $9F ; 159
E1 EQU $96 ; 150
F1 EQU $8D ; 141
FS1 EQU $85 ; 133
G1 EQU $7E ; 126
GS1 EQU $77 ; 119
A1 EQU $70 ; 112
AS1 EQU $6A ; 106
B1 EQU $64 ; 100
C2 EQU $5E ; 94
CS2 EQU $59 ; 89
D2 EQU $54 ; 84
DS2 EQU $4F ; 79
E2 EQU $4A ; 74
F2 EQU $46 ; 70
FS2 EQU $42 ; 66
G2 EQU $3E ; 62
GS2 EQU $3B ; 59
A2 EQU $37 ; 55
AS2 EQU $34 ; 52
B2 EQU $31 ; 49
C3 EQU $2E ; 46
CS3 EQU $2C ; 44
D3 EQU $29 ; 41
DS3 EQU $27 ; 39
E3 EQU $25 ; 37
F3 EQU $22 ; 34
FS3 EQU $20 ; 32
G3 EQU $1F ; 31
GS3 EQU $1D ; 29
A3 EQU $1B ; 27
AS3 EQU $1A ; 26
B3 EQU $18 ; 24
C4 EQU $17 ; 23
CS4 EQU $15 ; 21
D4 EQU $14 ; 20
DS4 EQU $13 ; 19
E4 EQU $12 ; 18
F4 EQU $11 ; 17
FS4 EQU $10 ; 16
G4 EQU $0F ; 15
GS4 EQU $0E ; 14
A4 EQU $0D ; 13
C5 EQU $0B ; 11
CS5 EQU $0A ; 10
DS5 EQU $09 ; 9
F5 EQU $08 ; 8
G5 EQU $07 ; 7
A5 EQU $06 ; 6
C6 EQU $05 ; 5
DS6 EQU $04 ; 4
G6 EQU $03 ; 3
C7 EQU $02 ; 2
G7 EQU $01 ; 1
G8 EQU $00 ; 0
;
; MASTER OSCILATOR Offsets:
OB0 EQU $FE ; 254
OC0 EQU $F1 ; 241
OD1 EQU $D6 ; 214
OE1 EQU $BF ; 191
OF1 EQU $B4 ; 180
OG1 EQU $A0 ; 160
OA1 EQU $8F ; 143
OA2 EQU $47 ; 71
OA3 EQU $23 ; 35
OA4 EQU $11 ; 17
OA5 EQU $08 ; 8
;
;
; ***************************
; * SYSTEM RAM MEMORY Cells *
; ***************************
WASTE EQU $0FFF
WASTER EQU WASTE
;
SYSRAM EQU $4FCE ; Resides at the highest possible address
BEGRAM EQU SYSRAM ; typically used for initial Stack Pointer
; Used by MUSIC PROCESSOR:
MUZPC EQU $4FCE ; MUSic Program Counter
MUZSP EQU $4FD0 ; MUSic Stack Pointer
PVOLAB EQU $4FD2 ; Preset VOLume for tones A and B
PVOLMC EQU $4FD3 ; Preset VOLuMe for tone C and Noise Mode
VOICES EQU $4FD4 ; music VOICES mask
; COUNTER TIMERS (used by DECCTS,ACTINT,CTIMER):
CT0 EQU $4FD5 ; Counter Timer 0
CT1 EQU $4FD6 ; Counter Timer 1
CT2 EQU $4FD7 ; Counter Timer 2
CT3 EQU $4FD8 ; Counter Timer 3
CT4 EQU $4FD9 ; Counter Timer 4
CT5 EQU $4FDA ; Counter Timer 5
CT6 EQU $4FDB ; Counter Timer 6
CT7 EQU $4FDC ; Counter Timer 7
;Used by SENTRY to track controls:
CNT EQU $4FDD ; Counter update & Number Tracking
SEMI4S EQU $4FDE ; SEMAPHORE flag bitS
OPOT0 EQU $4FDF ; Old POT 0 tracking byte
OPOT1 EQU $4FE0 ; Old POT 1 tracking byte
OPOT2 EQU $4FE1 ; Old POT 2 tracking byte
OPOT3 EQU $4FE2 ; Old POT 3 tracking byte
KEYSEX EQU $4FE3 ; KEYS-EX tracking byte
OSW0 EQU $4FE4 ; Old SWitch 0 tracking byte
OSW1 EQU $4FE5 ; Old SWitch 1 tracking byte
OSW2 EQU $4FE6 ; Old SWitch 2 tracking byte
OSW3 EQU $4FE7 ; Old SWitch 3 tracking byte
COLLST EQU $4FE8 ; COLset LaST address for P.B. A
; Used by STIMER:
DURAT EQU $4FEA ; note DURATion
TMR60 EQU $4FEB ; TiMeR for SIXTY'ths of sec
TIMOUT EQU $4FEC ; TIMer for blackOUT
GTSECS EQU $4FED ; Game Time SECondS
GTMINS EQU $4FEE ; Game Time MINuteS
; Used by MENU:
RANSHT EQU $4FEF ; RANdom number SHifT register
NUMPLY EQU $4FF3 ; NUMber of PLaYers
ENDSCR EQU $4FF4 ; END SCoRe to 'play to'
MRLOCK EQU $4FF7 ; Magic Register LOCK out flag
GAMSTB EQU $4FF8 ; GAMe STatus Byte
PRIOR EQU $4FF9 ; PRIOR music protect flag
SENFLG EQU $4FFA ; SENtry control seizure FLaG
; User UPI Routines, even numbers from $80 to $FE ( + 1 for SUCK):
UMARGT EQU $4FFB ; User Mask ARGument Table + (routine / 2)
USERTB EQU $4FFD ; USER Table Base + routine = JumP address
;
URINAL EQU $4FFF ; WASTER flushes here!
;
;
Reference in New Issue Copy Permalink