dos33fsprogs/games/peasant/hgr_7x28_sprite.s


	;===============================================
	; hgr 7x28 draw sprite
	;===============================================
	; SPRITE in INL/INH
	; Location at CURSOR_X CURSOR_Y

	; left sprite AT INL/INH
	; right sprite at INL/INH + 14
	; left mask at INL/INH + 28
	; right mask at INL/INH + 42

hgr_draw_sprite_7x28:

	; set up pointers
	lda	INL
	sta	h728_smc1+1
	lda	INH
	sta	h728_smc1+2

	clc
	lda	INL
	adc	#28
	sta	h728_smc3+1
	lda	INH
	adc	#0
	sta	h728_smc3+2

	ldx	#0			; X is row counter
hgr_7x28_sprite_yloop:
	txa				; X is current row

	clc
	adc	CURSOR_Y		; add in cursor_y

	; calc GBASL/GBASH

	tay				; get output ROW into GBASL/H
	lda	hposn_low,Y
	sta	GBASL
	lda	hposn_high,Y
	sta	GBASH

	ldy	CURSOR_X

	lda	(GBASL),Y	; load background
h728_smc3:
	and	$d000,X		; mask with sprite mask
h728_smc1:
	ora	$d000,X		; or in sprite
	sta	(GBASL),Y	; store out

	inx
	cpx	#28
	bne	hgr_7x28_sprite_yloop

	rts


	;======================
	; save bg 7x28
	;======================

save_bg_7x28:

	ldx	#0
save_yloop:
	txa
	pha

	clc
	adc	CURSOR_Y


	; calc GBASL/GBASH

	tax
	lda	hposn_low,X
	sta	GBASL
	lda	hposn_high,X
	sta	GBASH

	pla
	tax

	ldy	CURSOR_X

	lda	(GBASL),Y
	sta	save_sprite_7x28,X

	inx
	cpx	#28
	bne	save_yloop

	rts

	;======================
	; restore bg 7x28
	;======================

restore_bg_7x28:

	ldx	#0
restore_yloop:
	txa				; current row
	clc
	adc	CURSOR_Y		; add in y start point

	; calc GBASL/GBASH using lookup table

	tay
	lda	hposn_low,Y
	sta	GBASL
	lda	hposn_high,Y
	sta	GBASH

	ldy	CURSOR_X

	lda	save_sprite_7x28,X
	sta	(GBASL),Y

	inx
	cpx	#28
	bne	restore_yloop

	rts


;====================
; save area
;====================

save_sprite_7x28:
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`;===============================================`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`; hgr 7x28 draw sprite`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`;===============================================`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`; SPRITE in INL/INH`
			`; Location at CURSOR_X CURSOR_Y`

			`; left sprite AT INL/INH`
			`; right sprite at INL/INH + 14`
			`; left mask at INL/INH + 28`
			`; right mask at INL/INH + 42`

peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`hgr_draw_sprite_7x28:`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`; set up pointers`
			`lda INL`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`sta h728_smc1+1`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`lda INH`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`sta h728_smc1+2`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`clc`
			`lda INL`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`adc #28`
			`sta h728_smc3+1`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`lda INH`
			`adc #0`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`sta h728_smc3+2`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`ldx #0 ; X is row counter`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`hgr_7x28_sprite_yloop:`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`txa ; X is current row`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`clc`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`adc CURSOR_Y ; add in cursor_y`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`; calc GBASL/GBASH`
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`tay ; get output ROW into GBASL/H`
			`lda hposn_low,Y`
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00			`sta GBASL`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`lda hposn_high,Y`
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00			`sta GBASH`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`ldy CURSOR_X`

peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`lda (GBASL),Y ; load background`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`h728_smc3:`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`and $d000,X ; mask with sprite mask`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`h728_smc1:`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`ora $d000,X ; or in sprite`
			`sta (GBASL),Y ; store out`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`inx`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`cpx #28`
			`bne hgr_7x28_sprite_yloop`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`rts`


			`;======================`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`; save bg 7x28`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`;======================`

peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`save_bg_7x28:`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`ldx #0`
			`save_yloop:`
			`txa`
			`pha`

			`clc`
			`adc CURSOR_Y`


			`; calc GBASL/GBASH`
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00
			`tax`
			`lda hposn_low,X`
			`sta GBASL`
			`lda hposn_high,X`
			`sta GBASH`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`pla`
			`tax`

			`ldy CURSOR_X`

			`lda (GBASL),Y`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`sta save_sprite_7x28,X`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`inx`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`cpx #28`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`bne save_yloop`

			`rts`

			`;======================`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`; restore bg 7x28`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`;======================`

peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`restore_bg_7x28:`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`ldx #0`
			`restore_yloop:`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`txa ; current row`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`clc`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`adc CURSOR_Y ; add in y start point`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`; calc GBASL/GBASH using lookup table`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`tay`
			`lda hposn_low,Y`
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00			`sta GBASL`
peasant: optimize sprite routines 2021-08-25 00:42:11 +00:00			`lda hposn_high,Y`
peasant: use lookup table for HPOSN not sure if it's that noticable 2021-08-13 00:36:32 +00:00			`sta GBASH`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00
			`ldy CURSOR_X`

peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`lda save_sprite_7x28,X`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`sta (GBASL),Y`

			`inx`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`cpx #28`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`bne restore_yloop`

			`rts`


			`;====================`
			`; save area`
			`;====================`

peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`save_sprite_7x28:`
peasant: initial sprite support 2021-08-12 15:48:12 +00:00			`.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00`
peasant: make peasant sprite 7x28 instead of 7x30 not sure why it was 7x30 anyway as we ignored the bottom 2 lines hopefully makes bg masking easier 2021-08-25 00:58:44 +00:00			`.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00`