mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-25 09:29:35 +00:00
parallax: work on tiny version
This commit is contained in:
Vince Weaver
parent
75bb600623
commit
a301a8fb95
|
|
@ -8,7 +8,8 @@ TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
|||
|
||||
all: paralax.dsk
|
||||
|
||||
paralax.dsk: HELLO BOXES BOXES_BOT LARGE LARGE_BOT PAR PAR_BOT BOXES_TINY
|
||||
paralax.dsk: HELLO BOXES BOXES_BOT LARGE LARGE_BOT PAR PAR_BOT BOXES_TINY \
|
||||
PAR_TINY
|
||||
cp $(EMPTY_DISK) paralax.dsk
|
||||
$(DOS33) -y paralax.dsk SAVE A HELLO
|
||||
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 BOXES
|
||||
|
|
@ -18,6 +19,7 @@ paralax.dsk: HELLO BOXES BOXES_BOT LARGE LARGE_BOT PAR PAR_BOT BOXES_TINY
|
|||
$(DOS33) -y paralax.dsk BSAVE -a 0x386 LARGE_BOT
|
||||
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 PAR
|
||||
$(DOS33) -y paralax.dsk BSAVE -a 0x37B PAR_BOT
|
||||
$(DOS33) -y paralax.dsk BSAVE -a 0x80 PAR_TINY
|
||||
|
||||
###
|
||||
|
||||
|
|
@ -78,6 +80,15 @@ PAR_BOT: par_bot.o
|
|||
par_bot.o: par_bot.s
|
||||
ca65 -o par_bot.o par_bot.s -l par_bot.lst
|
||||
|
||||
###
|
||||
|
||||
PAR_TINY: par_tiny.o
|
||||
ld65 -o PAR_TINY par_tiny.o -C $(LINKER_DIR)/apple2_80_zp.inc
|
||||
|
||||
par_tiny.o: par_tiny.s
|
||||
ca65 -o par_tiny.o par_tiny.s -l par_tiny.lst
|
||||
|
||||
|
||||
|
||||
###
|
||||
|
||||
|
|
@ -89,5 +100,5 @@ HELLO: hello.bas
|
|||
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst HELLO BOXES BOXES_BOT LARGE LARGE_BOT PAR PAR_BOT BOXES_TINY
|
||||
rm -f *~ *.o *.lst HELLO BOXES BOXES_BOT LARGE LARGE_BOT PAR PAR_BOT BOXES_TINY PAR_TINY
|
||||
|
||||
|
|
|
|||
|
|
@ -59,23 +59,6 @@ parallax_forever:
|
|||
lsr
|
||||
sta FRAME4
|
||||
|
||||
;========================
|
||||
; update color
|
||||
|
||||
lda FRAME
|
||||
|
||||
; lsr
|
||||
; lsr
|
||||
; lsr
|
||||
; lsr
|
||||
; lsr
|
||||
; and #$3
|
||||
|
||||
; tax
|
||||
; lda colors,X
|
||||
; sta COLORS
|
||||
|
||||
|
||||
;==========================
|
||||
; flip page
|
||||
|
||||
|
|
@ -209,17 +192,8 @@ skip_color_large:
|
|||
|
||||
bmi parallax_forever ; 2
|
||||
|
||||
; 00 = right
|
||||
; 01 = up
|
||||
; 10 = left
|
||||
; 11 = down
|
||||
; adc = $65
|
||||
; sbc = $E5
|
||||
|
||||
|
||||
|
||||
|
||||
; for bot
|
||||
; $3F5 - 127 + 3 = $379
|
||||
|
||||
jmp parallax
|
||||
|
|
|
|||
157
graphics/gr/parallax/par_tiny.s
Normal file
157
graphics/gr/parallax/par_tiny.s
Normal file
|
|
@ -0,0 +1,157 @@
|
|||
; Lo-res Parallax
|
||||
|
||||
; by deater (Vince Weaver) <vince@deater.net>
|
||||
|
||||
; 127 bytes -- initial
|
||||
; 124 bytes -- remove un-needed jmp at end
|
||||
; 122 bytes -- remove extraneous load
|
||||
; 120 bytes -- switch to HGR2 for setting graphics
|
||||
; 111 bytes -- calc graphics in a loop
|
||||
; 106 bytes -- move to zero page
|
||||
; 102 bytes -- make page value self-modifying code
|
||||
; 101 bytes -- overlap some constants
|
||||
; 99 bytes -- merge frame
|
||||
|
||||
; Zero Page
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
|
||||
X2 = $FC
|
||||
COLORS = $FD
|
||||
PAGE = $FE
|
||||
YY = $FF
|
||||
|
||||
; Soft Switches
|
||||
SET_GR = $C050 ; Enable graphics
|
||||
FULLGR = $C052 ; Full screen, no text
|
||||
PAGE1 = $C054 ; Page1
|
||||
PAGE2 = $C055 ; Page2
|
||||
LORES = $C056 ; Enable LORES graphics
|
||||
|
||||
; ROM routines
|
||||
HGR2 = $F3D8
|
||||
GBASCALC= $F847 ;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
|
||||
SETGR = $FB40
|
||||
|
||||
.zeropage
|
||||
.globalzp frames
|
||||
.globalzp colors
|
||||
.globalzp masks
|
||||
.globalzp offsets
|
||||
.globalzp page_smc
|
||||
|
||||
parallax:
|
||||
|
||||
;===================
|
||||
; init screen
|
||||
|
||||
jsr HGR2 ; set hires, full-screen
|
||||
; A/Y are 0
|
||||
; note! Only can do this if $E6 is free
|
||||
|
||||
bit LORES ; set lores
|
||||
|
||||
parallax_forever:
|
||||
|
||||
inc frames ; next frame
|
||||
|
||||
lda frames ; save frame values
|
||||
lsr
|
||||
sta frames+1 ; frame/2
|
||||
lsr
|
||||
sta frames+2 ; frame/4
|
||||
|
||||
;==========================
|
||||
; flip page
|
||||
|
||||
lda page_smc+1
|
||||
lsr
|
||||
lsr
|
||||
tay
|
||||
lda PAGE1,Y
|
||||
|
||||
lda page_smc+1
|
||||
eor #$4
|
||||
sta page_smc+1
|
||||
|
||||
|
||||
;========================
|
||||
; setup for 23 lines
|
||||
|
||||
lda #23 ; start YY at 23
|
||||
sta YY
|
||||
yloop:
|
||||
|
||||
;=====================================
|
||||
; point GBASL/GBSAH to current line
|
||||
|
||||
lda YY
|
||||
jsr GBASCALC
|
||||
|
||||
; adjust for current draw page
|
||||
|
||||
lda GBASH
|
||||
clc
|
||||
page_smc:
|
||||
adc #0 ; PAGE
|
||||
sta GBASH
|
||||
|
||||
;==============
|
||||
; current column (work backwards)
|
||||
|
||||
ldy #39 ; set XX to 39
|
||||
xloop:
|
||||
|
||||
lda #0 ; reset color to black
|
||||
sta COLORS
|
||||
|
||||
ldx #2 ; 3 layers of parallax
|
||||
|
||||
; calculate colors
|
||||
; color = (XX-FRAME)^(YY)
|
||||
|
||||
color_loop:
|
||||
;===========================
|
||||
; SMALL
|
||||
|
||||
sec ; subtract frame from Y
|
||||
tya
|
||||
sbc frames,X
|
||||
sta X2 ; store interim result
|
||||
|
||||
lda YY ; get YY and adjust offset to look nicer
|
||||
clc
|
||||
adc offsets,X
|
||||
eor X2
|
||||
|
||||
and masks,X ; do the mask
|
||||
|
||||
beq skip_color ; skip update if 0
|
||||
|
||||
lda colors,X ; load color
|
||||
sta COLORS ; save for later
|
||||
skip_color:
|
||||
dex
|
||||
bpl color_loop
|
||||
|
||||
;========================
|
||||
; actually draw color
|
||||
|
||||
lda COLORS
|
||||
sta (GBASL),Y
|
||||
|
||||
|
||||
dey ; loop XX from 39..0
|
||||
bpl xloop
|
||||
|
||||
dec YY ; loop YY from 23..0
|
||||
bpl yloop
|
||||
|
||||
bmi parallax_forever ; bra
|
||||
|
||||
|
||||
masks: .byte $8,$4 ;,$2 ; overlap
|
||||
offsets:.byte $2,$1,$0
|
||||
colors: .byte $1b,$26,$4c
|
||||
|
||||
frames:
|
||||
Loading…
Reference in New Issue
Block a user