GSCats/macros.s

.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 BREAK
	pha
	lda breakpoint
	beq nobrk
	lda #1
	sta $e1c029
	pla
	brk
nobrk:
	pla
.endmacro

.macro BREAK_NOSTACK
	lda breakpoint
	beq nobrk
	lda #1
	sta $e1c029
	brk
nobrk:	
.endmacro


.macro HARDBRK
	pha
	lda #1
	sta $e1c029
	pla
	brk
.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
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`.macro OP8`
			`.i8`
			`.a8`
			`.endmacro`


			`.macro OP16`
			`.i16`
			`.a16`
			`.endmacro`


Fixed a bug with odd byte sizes in bank loader 2017-10-08 23:46:35 +00:00			`.macro BITS8A`
			`sep #%00100000`
			`.a8`
			`.endmacro`


Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`.macro BITS8`
			`sep #%00110000`
			`OP8`
			`.endmacro`


			`.macro BITS16`
			`rep #%00110000`
			`OP16`
			`.endmacro`


			`.macro DBR bankNum`
			`BITS8`
Fixed stack-based clip/unclip 2018-03-05 20:32:05 +00:00			`lda #bankNum`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`pha`
			`plb`
			`BITS16`
			`.endmacro`


			`.macro SYNCDBR`
			`phk`
			`plb`
			`.endmacro`

Optimized span rendering moved to $E1 2018-01-16 20:56:53 +00:00			`.macro SAVE_DBR`
			`phb`
			`phk`
			`plb`
			`.endmacro`

			`.macro RESTORE_DBR`
			`plb`
			`.endmacro`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00
Initial commit 2017-07-28 22:11:25 +00:00			`.macro EMULATION`
			`sec ; Enable 8-bit mode`
			`xce`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`OP8`
Initial commit 2017-07-28 22:11:25 +00:00			`.endmacro`


			`.macro NATIVE`
			`clc ; Enable 16-bit mode`
			`xce`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`BITS16`
Initial commit 2017-07-28 22:11:25 +00:00			`.endmacro`

Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00
Initial commit 2017-07-28 22:11:25 +00:00			`.macro SHRVIDEO`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`BITS8`
Initial commit 2017-07-28 22:11:25 +00:00			`lda NEWVIDEO`
			`ora #%11000001`
			`sta NEWVIDEO`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`BITS16`
Initial commit 2017-07-28 22:11:25 +00:00			`.endmacro`

Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00
Initial commit 2017-07-28 22:11:25 +00:00			`.macro CLASSICVIDEO`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`BITS8`
Initial commit 2017-07-28 22:11:25 +00:00			`lda NEWVIDEO`
			`and #%00111111`
			`sta NEWVIDEO`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`BITS16`
			`.endmacro`


Integrated Mr. Sprite bank system 2017-10-06 19:28:18 +00:00			`.macro SHADOWMEMORY`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`sep #%00100000 ; 3 16-bit A only, to preserve X/Y`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`.a8`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`lda SHADOW ;5`
Groundwork for new art pipeline 2017-10-01 22:40:29 +00:00			`sta SHADOWREGISTER ;4`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`lda #0 ;2`
			`sta SHADOW ;5`
Integrated Mr. Sprite bank system 2017-10-06 19:28:18 +00:00			`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`
Fixed stack-based clip/unclip 2018-03-05 20:32:05 +00:00			`sep #%00100000 ; 3 8-bit A only, to preserve X/Y`
Integrated Mr. Sprite bank system 2017-10-06 19:28:18 +00:00			`.a8`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`lda STACKCTL ;5`
Groundwork for new art pipeline 2017-10-01 22:40:29 +00:00			`sta STACKREGISTER ;4`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`ora #$30 ;2`
			`sta STACKCTL ;5`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`rep #%00100000 ;3`
Initial commit 2017-07-28 22:11:25 +00:00			`.a16`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`tsc ;2`
Groundwork for new art pipeline 2017-10-01 22:40:29 +00:00			`sta STACKPTR ;4`
Initial commit 2017-07-28 22:11:25 +00:00			`.endmacro`


Integrated Mr. Sprite bank system 2017-10-06 19:28:18 +00:00			`.macro SLOWGRAPHICS ;28 cycles, 12 bytes`
Fixed stack-based clip/unclip 2018-03-05 20:32:05 +00:00			`sep #%00100000 ; 3 8-bit A only, to preserve X/Y`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`.a8`

Groundwork for new art pipeline 2017-10-01 22:40:29 +00:00			`lda STACKREGISTER ;4`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`sta STACKCTL ;5`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`rep #%00100000 ;3`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`.a16`
Groundwork for new art pipeline 2017-10-01 22:40:29 +00:00			`lda STACKPTR ;4`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`tcs ;2`
			`pld ;5`
			`cli ;2`
Fast graphics path screen fill working 2017-07-29 21:47:17 +00:00			`.endmacro`

Initial commit 2017-07-28 22:11:25 +00:00
Improved terrain data structure Terrain debug rendering 2017-07-30 18:54:37 +00:00			`.macro LOADPARAM24 bankNumDoubled,addr16`
			`lda #bankNumDoubled`
			`sta PARAM24+1`
			`lda #addr16`
			`sta PARAM24`
			`.endmacro`
Initial commit 2017-07-28 22:11:25 +00:00
VBL experiments 2017-08-10 02:33:52 +00:00
Ported Dagen’s font engine 2017-08-13 21:54:18 +00:00			`.macro pstring Arg`
			`.byte .strlen(Arg), Arg`
			`.endmacro`


			`.macro qbyte Arg`
			`.dbyt Arg>>16,Arg&$0000ffff`
			`.endmacro`

Visual improvements - Blue sky - More legible text - Removed debug terrain - Nicer player positions 2017-10-23 19:40:44 +00:00			`.macro qbytei Arg`
			`.dbyt ~(Arg>>16),~(Arg&$0000ffff)`
			`.endmacro`

			`.macro qbyte7 Arg`
			`.dbyt (Arg>>16)&$7777,Arg&$00007777`
			`.endmacro`

Basic collision detection on terrain working 2017-08-31 19:55:02 +00:00			`.macro BREAK`
			`pha`
			`lda breakpoint`
			`beq nobrk`
Basic Mr. Sprite integration - Larger gameobject sprites - Fixed some bugs in collision detection 2017-09-30 00:53:05 +00:00			`lda #1`
			`sta $e1c029`
Basic collision detection on terrain working 2017-08-31 19:55:02 +00:00			`pla`
			`brk`
			`nobrk:`
			`pla`
			`.endmacro`

Fixed stack-based clip/unclip 2018-03-05 20:32:05 +00:00			`.macro BREAK_NOSTACK`
			`lda breakpoint`
			`beq nobrk`
			`lda #1`
			`sta $e1c029`
			`brk`
			`nobrk:`
			`.endmacro`


Groundwork for span-based fill mode rendering 2017-12-24 02:01:16 +00:00			`.macro HARDBRK`
			`pha`
			`lda #1`
			`sta $e1c029`
			`pla`
			`brk`
			`.endmacro`


Initial commit 2017-07-28 22:11:25 +00:00			`;;;;;;;;;;`
			`; 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`

Working angle display 2017-08-15 19:40:14 +00:00
			`.macro SAVE_P0 ; Saves PARAML0`
			`lda PARAML0`
			`pha`
			`.endmacro`


			`.macro RESTORE_P0 ; Restores PARAML0`
			`pla`
			`sta PARAML0`
			`.endmacro`