Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-20 21:30:03 +00:00
Code Issues Projects Releases Wiki Activity

hgr: parallax: sier

Browse Source
This commit is contained in:
Vince Weaver 2022-09-27 16:00:36 -04:00
parent 5b11e47081
commit 36f8287f87
2 changed files with 69 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
graphics/hgr/parallax/Makefile
View File

@ -8,7 +8,7 @@ TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
all: paralax.dsk
paralax.dsk: HELLO BOXES PAR WEIRD
paralax.dsk: HELLO BOXES PAR WEIRD SIER
cp $(EMPTY_DISK) paralax.dsk
$(DOS33) -y paralax.dsk SAVE A HELLO
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 BOXES
@ -18,6 +18,7 @@ paralax.dsk: HELLO BOXES PAR WEIRD
$(DOS33) -y paralax.dsk BSAVE -a 0x3f5 PAR
# $(DOS33) -y paralax.dsk BSAVE -a 0x37B PAR_BOT
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 WEIRD
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 SIER
###
@ -52,6 +53,15 @@ WEIRD: weird.o
weird.o: weird.s
ca65 -o weird.o weird.s -l weird.lst
###
SIER: sier.o
ld65 -o SIER sier.o -C $(LINKER_DIR)/apple2_c00.inc
sier.o: sier.s
ca65 -o sier.o sier.s -l sier.lst

111
graphics/hgr/parallax/sier.s
View File

@ -1,7 +1,10 @@
; Parallax HGR
; Parallax Sierpinski/xor boxes HGR
; by deater (Vince Weaver) <vince@deater.net>
; Already heavily optimized:
; frame 0: 27c78 = 162,936 cycles = roughly 6.1 fps
; frame 1: 27ba8
; Zero Page
GBASL = $26
@ -39,7 +42,8 @@ HPOSN = $F411 ; (Y,X),(A) (values stores in HGRX,XH,Y)
hgr_lookup_h = $1000
hgr_lookup_l = $1100
div4_lookup = $1200
div4_lookup = $90
parallax:
@ -64,19 +68,27 @@ init_loop:
and #$1F ; 20 30 001X 40 50 010X
sta hgr_lookup_h,X
txa
asl
asl
sta div4_lookup,X
dex
cpx #$ff
bne init_loop
ldx #39
div4_loop:
txa
asl
asl
sta div4_lookup,X
dex
bpl div4_loop
parallax_forever:
inc FRAME ; 5
; increment offsets
inc large_smc+1 ; 6
inc medium_smc+1 ; 6
;========================
; flip page
@ -90,88 +102,81 @@ parallax_forever:
asl
rol
eor #$1
tay
lda PAGE1,Y
tax
lda PAGE1,X ; flip show_page
ldx #127 ; init Y
ldy #159 ; init Y
yloop:
;==============
; point output to current line
lda hgr_lookup_l,X
sta out_smc+1
lda hgr_lookup_h,X
ora HGR_PAGE
sta out_smc+2
lda hgr_lookup_l,Y ; 4+
sta out_smc+1 ; 4
lda hgr_lookup_h,Y ; 4+
ora HGR_PAGE ; 3
sta out_smc+2 ; 4
;==============
; current column (work backwards)
ldy #39 ; 2
ldx #39 ; 2
xloop:
; lda div4_lookup,Y ; 4+
; sta X2 ; 3
;===========================
; LARGE
; Boxes
txa ; 2
tya ; 2
; carry always clear here?
; sec ; subtract frame from Y
sbc FRAME ; 3
; carry always clear here?
large_smc:
sbc #$DD ; 2
eor div4_lookup,X ; 4
and #$40 ; 2
eor div4_lookup,Y ; 4+
and #$40 ; 2
bne draw_white ; 2/3
; 0 means transparent
beq skip_color_large ; 2/3
lda #$ff ; 2
bne draw_color ; 2/3
skip_color_large:
;===========================
; MEDIUM
; Sierpinski
txa ; 2
tya ; 2
medium_smc:
adc #$DD ; go other way ; 2
and div4_lookup,X ; sierpinski ; 4
sec ; subtract frame from Y ; 2
adc FRAME ; go other way ; 3
and div4_lookup,Y ; sierpinski ; 4+
bne skip_color_medium
lda #$55
bne draw_color
skip_color_medium:
; fallthrough is black
bne draw_black ; draw black ; 2/3
draw_purple:
lda #$55 ; purple/green ; 2
bne draw_color ; bra ; 3
draw_black:
lda #$00 ; 2
beq draw_color ; bra ; 3
; white block
draw_white:
lda #$7f ; 2
;========================
; actually draw color
draw_color:
out_smc:
sta $2000,Y ; 5
dey ; 2
bpl xloop ; 2/3
sta $2000,X ; 5
dex ; 2
bpl xloop ; 2/3
bpl yloop ; 2/3
dey ; 2
cpy #32 ; 2
bne yloop ; 2/3
bmi parallax_forever ; 2/3
beq parallax_forever ; 2/3
; for bot
; $3F5 - 127 + 3 = $379
; jmp parallax