GSCats/macros.s
blondie7575 4a9958e5ac Added power indicator to crosshair
Fixed years-old bug in terrain unclipper which caused it to spray garbage in bank 3. My god, what a bug.
2023-06-25 18:43:07 -07:00

323 lines
3.8 KiB
ArmAsm

.macro OP8
.i8
.a8
.endmacro
.macro OP16
.i16
.a16
.endmacro
.macro BITS8A
sep #%00100000
.a8
.endmacro
.macro BITS8
sep #%00110000
OP8
.endmacro
.macro BITS16
rep #%00110000
OP16
.endmacro
.macro DBR bankNum
BITS8
lda #bankNum
pha
plb
BITS16
.endmacro
.macro SYNCDBR
phk
plb
.endmacro
.macro SAVE_DBR
phb
phk
plb
.endmacro
.macro RESTORE_DBR
plb
.endmacro
.macro EMULATION
sec ; Enable 8-bit mode
xce
OP8
.endmacro
.macro NATIVE
clc ; Enable 16-bit mode
xce
BITS16
.endmacro
.macro SHRVIDEO
BITS8
lda NEWVIDEO
ora #%11000001
sta NEWVIDEO
BITS16
.endmacro
.macro CLASSICVIDEO
BITS8
lda NEWVIDEO
and #%00111111
sta NEWVIDEO
BITS16
.endmacro
.macro SHADOWMEMORY
sep #%00100000 ; 3 16-bit A only, to preserve X/Y
.a8
lda SHADOW ;5
sta SHADOWREGISTER ;4
lda #0 ;2
sta SHADOW ;5
rep #%00100000 ;3
.a16
.endmacro
.macro NORMALMEMORY
sep #%00100000 ; 3 16-bit A only, to preserve X/Y
.a8
lda SHADOWREGISTER ;4
sta SHADOW ;5
rep #%00100000 ;3
.a16
.endmacro
.macro FASTGRAPHICS ;34 cycles, 12 bytes
sei ;2
phd ;4
sep #%00100000 ; 3 8-bit A only, to preserve X/Y
.a8
lda STACKCTL ;5
sta STACKREGISTER ;4
ora #$30 ;2
sta STACKCTL ;5
rep #%00100000 ;3
.a16
tsc ;2
sta STACKPTR ;4
.endmacro
.macro SLOWGRAPHICS ;28 cycles, 12 bytes
sep #%00100000 ; 3 8-bit A only, to preserve X/Y
.a8
lda STACKREGISTER ;4
sta STACKCTL ;5
rep #%00100000 ;3
.a16
lda STACKPTR ;4
tcs ;2
pld ;5
cli ;2
.endmacro
.macro LOADPARAM24 bankNumDoubled,addr16
lda #bankNumDoubled
sta PARAM24+1
lda #addr16
sta PARAM24
.endmacro
.macro pstring Arg
.byte .strlen(Arg), Arg
.endmacro
.macro qbyte Arg
.dbyt Arg>>16,Arg&$0000ffff
.endmacro
.macro qbytei Arg
.dbyt ~(Arg>>16),~(Arg&$0000ffff)
.endmacro
.macro qbyte7 Arg
.dbyt (Arg>>16)&$7777,Arg&$00007777
.endmacro
.macro fontword Arg ; Converts 0->A,F->E to match our palette for font rendering
.dbyt (((Arg & $FF00) | $AA00) & $EE00) | (((Arg & $00FF) | $00AA) & $00EE)
.endmacro
.macro ldaA Arg ; Forces 24-bit absolute addressing to bank $00
.byte $af
.word Arg
.byte $00
.endmacro
.macro BREAK
.local nobrk
pha
lda breakpoint
beq nobrk
lda #1
sta $e1c029
pla
brk
nobrk:
pla
.endmacro
.macro BREAK_NOSTACK
.local nobrk
lda breakpoint
beq nobrk
lda #1
sta $e1c029
brk
nobrk:
.endmacro
.macro HARDBRK
pha
lda #1
sta $e1c029
pla
brk
.endmacro
.macro DEADLOCK
deadlock: jmp deadlock
.endmacro
.macro BREAKLOCK
.local deadlock
pha
lda breakpoint
beq nobrk
pla
deadlock: jmp deadlock
nobrk:
pla
.endmacro
.macro JSRA ; Destination in accumulator
.local jsri_smc
sta jsri_smc+1
jsri_smc:
jsr 0
.endmacro
.macro ABSA ; Absolute value of accumulator. Assumes status flags set correctly for accumulator!
.local done
bpl done
eor #$ffff
inc
done:
.endmacro
.macro MEMCHK ; Check to see when a memory value has been stepped on
.local chkdone
pha
lda $0311CC
cmp #$4242
bne chkdone
lda #1
sta $e1c029
pla
brk
chkdone:
pla
.endmacro
;;;;;;;;;;
; Stack Macros
.macro SAVE_AXY ; Saves all registers
pha
phx
phy
.endmacro
.macro RESTORE_AXY ; Restores all registers
ply
plx
pla
.endmacro
.macro SAVE_AY ; Saves accumulator and Y index
pha
phy
.endmacro
.macro RESTORE_AY ; Restores accumulator and Y index
ply
pla
.endmacro
.macro SAVE_AX ; Saves accumulator and X index
pha
phx
.endmacro
.macro RESTORE_AX ; Restores accumulator and X index
plx
pla
.endmacro
.macro SAVE_XY ; Saves X and Y index
phx
phy
.endmacro
.macro RESTORE_XY ; Restores X and Y index
ply
plx
.endmacro
.macro SAVE_P0 ; Saves PARAML0
lda PARAML0
pha
.endmacro
.macro RESTORE_P0 ; Restores PARAML0
pla
sta PARAML0
.endmacro