WeeGUI/macros.s

;
;  macros.s
;  Generally useful macros for 6502 code
;
;  Created by Quinn Dunki on 8/15/14.
;  Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.
;


; Macros

.macro SETSWITCH name		; Sets the named softswitch (assumes write method)
	sta name
.endmacro


.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_ZPP				; Saves Zero Page locations we use for parameters
	lda	PARAM0
	pha
	lda PARAM1
	pha
	lda PARAM2
	pha
	lda PARAM3
	pha
.endmacro


.macro RESTORE_ZPP			; Restores Zero Page locations we use for parameters
	pla
	sta PARAM3
	pla
	sta PARAM2
	pla
	sta PARAM1
	pla
	sta PARAM0
.endmacro


.macro SAVE_ZPS				; Saves Zero Page locations we use for scratch
	lda	SCRATCH0
	pha
	lda SCRATCH1
	pha
.endmacro


.macro RESTORE_ZPS			; Restores Zero Page locations we use for scratch
	pla
	sta	SCRATCH1
	pla
	sta	SCRATCH0
.endmacro


.macro PARAM16 addr
	lda #<addr
	sta PARAM0
	lda #>addr
	sta PARAM1
.endmacro


.macro CALL16 func,addr
	PARAM16 addr
	jsr func
.endmacro


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Rendering macros
;


.macro LDY_AVIEW
	asl				; Find our new view record
	asl
	asl
	asl				; Records are 16 bytes wide
	tay
.endmacro


.macro LDY_ACTIVEVIEW
	lda WG_ACTIVEVIEW	; Find our new view record
	LDY_AVIEW
.endmacro


.macro LDX_ACTIVEVIEW
	lda WG_ACTIVEVIEW	; Find our new view record
	asl
	asl
	asl
	asl				; Records are 16 bytes wide
	tax
.endmacro


.macro LDY_FOCUSVIEW
	lda WG_FOCUSVIEW	; Find our new view record
	LDY_AVIEW
.endmacro


.macro VBL_SYNC				; Synchronize with vertical blanking
	lda #$80
;macroWaitVBLToFinish:
;	bit	RDVBLBAR
;	bmi	macroWaitVBLToFinish
@macroWaitVBLToStart:
;	bit	RDVBLBAR
;	bpl	@macroWaitVBLToStart
.endmacro
- Initial commit 2014-08-29 12:19:19 -07:00			`;`
			`; macros.s`
			`; Generally useful macros for 6502 code`
			`;`
			`; Created by Quinn Dunki on 8/15/14.`
			`; Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.`
			`;`


			`; Macros`

			`.macro SETSWITCH name ; Sets the named softswitch (assumes write method)`
			`sta name`
			`.endmacro`


			`.macro SAVE_AXY ; Saves all registers`
			`pha`
- Quick first pass to reduce code size 2014-10-02 14:59:13 -07:00			`phx`
			`phy`
- Initial commit 2014-08-29 12:19:19 -07:00			`.endmacro`


			`.macro RESTORE_AXY ; Restores all registers`
- Quick first pass to reduce code size 2014-10-02 14:59:13 -07:00			`ply`
			`plx`
- Initial commit 2014-08-29 12:19:19 -07:00			`pla`
			`.endmacro`


			`.macro SAVE_AY ; Saves accumulator and Y index`
			`pha`
- Quick first pass to reduce code size 2014-10-02 14:59:13 -07:00			`phy`
- Initial commit 2014-08-29 12:19:19 -07:00			`.endmacro`


			`.macro RESTORE_AY ; Restores accumulator and Y index`
- Quick first pass to reduce code size 2014-10-02 14:59:13 -07:00			`ply`
- Initial commit 2014-08-29 12:19:19 -07:00			`pla`
			`.endmacro`


			`.macro SAVE_AX ; Saves accumulator and X index`
			`pha`
- Quick first pass to reduce code size 2014-10-02 14:59:13 -07:00			`phx`
- Initial commit 2014-08-29 12:19:19 -07:00			`.endmacro`


			`.macro RESTORE_AX ; Restores accumulator and X index`
- Quick first pass to reduce code size 2014-10-02 14:59:13 -07:00			`plx`
- Initial commit 2014-08-29 12:19:19 -07:00			`pla`
			`.endmacro`


- Added Pending View, so app run loops can handle mouse actions - Added XY saving macro - Tightened up view macros a bit - Views can now be found and acted on by the mouse - Mouse rendering now handles missing mouse - Added the concept of "no focus", so that one view doesn't always have to be highlighted - Added View finding by screenspace point 2014-09-29 13:45:46 -07:00			`.macro SAVE_XY ; Saves X and Y index`
			`phx`
			`phy`
			`.endmacro`


			`.macro RESTORE_XY ; Restores X and Y index`
			`ply`
			`plx`
			`.endmacro`


- Initial commit 2014-08-29 12:19:19 -07:00			`.macro SAVE_ZPP ; Saves Zero Page locations we use for parameters`
			`lda PARAM0`
			`pha`
			`lda PARAM1`
			`pha`
			`lda PARAM2`
			`pha`
			`lda PARAM3`
			`pha`
			`.endmacro`


			`.macro RESTORE_ZPP ; Restores Zero Page locations we use for parameters`
			`pla`
			`sta PARAM3`
			`pla`
			`sta PARAM2`
			`pla`
			`sta PARAM1`
			`pla`
			`sta PARAM0`
			`.endmacro`


			`.macro SAVE_ZPS ; Saves Zero Page locations we use for scratch`
			`lda SCRATCH0`
			`pha`
			`lda SCRATCH1`
			`pha`
			`.endmacro`


			`.macro RESTORE_ZPS ; Restores Zero Page locations we use for scratch`
			`pla`
			`sta SCRATCH1`
			`pla`
			`sta SCRATCH0`
			`.endmacro`


- Fixed callbacks on machine language buttons - Fixed AppleSoft flag not getting set properly on buttons and checkboxes - Added macros for 16 and 32 bit function calls - Some code cleanup 2014-09-21 13:08:41 -07:00			`.macro PARAM16 addr`
			`lda #<addr`
			`sta PARAM0`
			`lda #>addr`
			`sta PARAM1`
			`.endmacro`


			`.macro CALL16 func,addr`
			`PARAM16 addr`
			`jsr func`
			`.endmacro`


- Initial commit 2014-08-29 12:19:19 -07:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
			`; Rendering macros`
			`;`

- Added Pending View, so app run loops can handle mouse actions - Added XY saving macro - Tightened up view macros a bit - Views can now be found and acted on by the mouse - Mouse rendering now handles missing mouse - Added the concept of "no focus", so that one view doesn't always have to be highlighted - Added View finding by screenspace point 2014-09-29 13:45:46 -07:00
			`.macro LDY_AVIEW`
			`asl ; Find our new view record`
- New version of WGPrint that handles scrolling and clipping much better 2014-09-01 11:18:36 -07:00			`asl`
			`asl`
			`asl ; Records are 16 bytes wide`
- Initial commit 2014-08-29 12:19:19 -07:00			`tay`
			`.endmacro`


- Added Pending View, so app run loops can handle mouse actions - Added XY saving macro - Tightened up view macros a bit - Views can now be found and acted on by the mouse - Mouse rendering now handles missing mouse - Added the concept of "no focus", so that one view doesn't always have to be highlighted - Added View finding by screenspace point 2014-09-29 13:45:46 -07:00			`.macro LDY_ACTIVEVIEW`
			`lda WG_ACTIVEVIEW ; Find our new view record`
			`LDY_AVIEW`
			`.endmacro`


- Initial commit 2014-08-29 12:19:19 -07:00			`.macro LDX_ACTIVEVIEW`
			`lda WG_ACTIVEVIEW ; Find our new view record`
			`asl`
			`asl`
- New version of WGPrint that handles scrolling and clipping much better 2014-09-01 11:18:36 -07:00			`asl`
- Added view selection and focus states - Added some API for focus selection - Fixed a bug in selected view table lookup - View creation now selects new view - Refactored and fixed bugs in checkbox rendering - Checkboxes can now be toggled - Basic API for view actions - Convenience routine for painting all views 2014-09-05 20:32:16 -07:00			`asl ; Records are 16 bytes wide`
			`tax`
			`.endmacro`


			`.macro LDY_FOCUSVIEW`
			`lda WG_FOCUSVIEW ; Find our new view record`
- Added Pending View, so app run loops can handle mouse actions - Added XY saving macro - Tightened up view macros a bit - Views can now be found and acted on by the mouse - Mouse rendering now handles missing mouse - Added the concept of "no focus", so that one view doesn't always have to be highlighted - Added View finding by screenspace point 2014-09-29 13:45:46 -07:00			`LDY_AVIEW`
- Initial commit 2014-08-29 12:19:19 -07:00			`.endmacro`


			`.macro VBL_SYNC ; Synchronize with vertical blanking`
			`lda #$80`
- Added &INVR and &NRML - Added &FILL and &DRAW - Some code cleanup - Added &PNT, &UNPNT, and &PNTA 2014-09-24 17:03:37 -07:00			`;macroWaitVBLToFinish:`
			`; bit RDVBLBAR`
			`; bmi macroWaitVBLToFinish`
			`@macroWaitVBLToStart:`
			`; bit RDVBLBAR`
			`; bpl @macroWaitVBLToStart`
- Initial commit 2014-08-29 12:19:19 -07:00			`.endmacro`