mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-18 16:30:59 +00:00
115 lines
1.6 KiB
ArmAsm
115 lines
1.6 KiB
ArmAsm
; test some of the 4cade wipes
|
|
|
|
.include "../zp.inc"
|
|
.include "../hardware.inc"
|
|
|
|
Coordinates2Bit=$8100
|
|
EndCoordinates2Bit = Coordinates2Bit + (origEndCoordinates2Bit-origCoordinates2Bit)
|
|
|
|
wipe_test:
|
|
; jmp after
|
|
test_graphic:
|
|
; .incbin "../graphics/a2_dating.hgr.zx02"
|
|
|
|
;.include "../zx02_optim.s"
|
|
|
|
after:
|
|
|
|
; from code.hgr.precomputed.2bit
|
|
|
|
jsr BuildHGRTables
|
|
jsr BuildHGRMirrorCols
|
|
jsr BuildHGRSparseBitmasks2Bit
|
|
|
|
|
|
bit SET_GR
|
|
bit HIRES
|
|
bit FULLGR
|
|
bit PAGE1
|
|
|
|
;=================================
|
|
; intro
|
|
;=================================
|
|
|
|
|
|
; copy data table to $8100
|
|
|
|
ldx #((>origEndCoordinates2Bit)-(>origCoordinates2Bit))
|
|
|
|
outer_copy_coords_loop:
|
|
ldy #0
|
|
copy_coords_loop:
|
|
|
|
col_smc1:
|
|
lda origCoordinates2Bit,Y
|
|
col_smc2:
|
|
sta Coordinates2Bit,Y
|
|
iny
|
|
bne copy_coords_loop
|
|
|
|
inc col_smc1+2
|
|
inc col_smc2+2
|
|
|
|
dex
|
|
bpl outer_copy_coords_loop
|
|
|
|
; lda #<test_graphic
|
|
; sta zx_src_l+1
|
|
; lda #>test_graphic
|
|
; sta zx_src_h+1
|
|
; lda #$20
|
|
; jsr zx02_full_decomp
|
|
|
|
; ldy #0
|
|
;fake_hgr2:
|
|
; lda #$0
|
|
; sta $4000,Y
|
|
; dey
|
|
; bne fake_hgr2
|
|
;
|
|
; inc fake_hgr2+2
|
|
; lda fake_hgr2+2
|
|
; cmp #$60
|
|
; bne fake_hgr2
|
|
|
|
|
|
jsr HGR2
|
|
jsr HGR
|
|
bit FULLGR
|
|
|
|
do_it_again:
|
|
|
|
|
|
|
|
oog:
|
|
lda #$FF
|
|
jsr BKGND0
|
|
|
|
jsr wait_until_keypress
|
|
|
|
;=================================
|
|
; test wipe...
|
|
;=================================
|
|
test_loop:
|
|
|
|
jsr InitOnce
|
|
|
|
jsr wait_until_keypress
|
|
|
|
dec oog+1
|
|
|
|
jmp do_it_again
|
|
|
|
.include "../wait_keypress.s"
|
|
|
|
.include "../fx.lib.2bit.s"
|
|
|
|
.include "fx.hgr.star.in.s"
|
|
|
|
; possibly some bytes before get chewed on with some effects?
|
|
|
|
.align $100
|
|
origCoordinates2Bit:
|
|
.incbin "fx.hgr.star.data"
|
|
origEndCoordinates2Bit:
|