mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-26 11:30:12 +00:00
split: draw sprite too
lost vapor lock
This commit is contained in:
Vince Weaver
parent
fa744089a0
commit
161a7cdacc
@ -32,7 +32,7 @@ RAINBOW: rainbow.o
|
||||
RAINBOW.BAS: rainbow.bas
|
||||
$(TOKENIZE) < rainbow.bas > RAINBOW.BAS
|
||||
|
||||
credits.o: credits.s
|
||||
credits.o: credits.s tfv_sprites.inc
|
||||
ca65 -o credits.o credits.s -l credits.lst
|
||||
|
||||
CREDITS: credits.o
|
||||
|
||||
@ -8,7 +8,8 @@ int main(int argc, char **argv) {
|
||||
// desired=4152;
|
||||
// desired=5196;
|
||||
// desired=4547;
|
||||
desired=9685;
|
||||
// desired=9685;
|
||||
desired=2481;
|
||||
|
||||
|
||||
printf("You want %d cycles\n",desired);
|
||||
|
||||
@ -130,6 +130,10 @@ line_loop:
|
||||
; The blanking happens at the *beginning*
|
||||
; So 65 bytes are scanned, starting at adress of the line - 25
|
||||
|
||||
; the scan takes 8 cycles, look for 4 repeats of the value
|
||||
; to avoid false positive found if the horiz blanking is mirroring
|
||||
; the line (max 3 repeats in that case)
|
||||
|
||||
vapor_lock_loop:
|
||||
LDA #$44
|
||||
zloop:
|
||||
@ -268,11 +272,36 @@ loop6:
|
||||
|
||||
; Try X=13 Y=64 cycles=4545 R2
|
||||
|
||||
|
||||
; DRAW SPRITES
|
||||
; do this during blanking interval
|
||||
|
||||
lda #>bird_stand_right ; 2
|
||||
sta INH ; 3
|
||||
lda #<bird_stand_right ; 2
|
||||
sta INL ; 3
|
||||
|
||||
lda #17 ; 2
|
||||
sta XPOS ; 3
|
||||
lda #30 ; 2
|
||||
sta YPOS ; 3
|
||||
|
||||
jsr put_sprite ; 6
|
||||
; + 2040
|
||||
;========
|
||||
; 2066
|
||||
|
||||
|
||||
; 2481 is new number
|
||||
; Try X=2 Y=155 cycles=2481
|
||||
|
||||
|
||||
|
||||
lda #0 ; 2
|
||||
|
||||
ldy #64 ; 2
|
||||
ldy #155 ; 2
|
||||
loop7:
|
||||
ldx #13 ; 2
|
||||
ldx #2 ; 2
|
||||
loop8:
|
||||
dex ; 2
|
||||
bne loop8 ; 2nt/3
|
||||
@ -290,6 +319,135 @@ wait_until_keypressed:
|
||||
bit KEYRESET
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
;=============================================
|
||||
; put_sprite
|
||||
;=============================================
|
||||
; Sprite to display in INH,INL
|
||||
; Location is XPOS,YPOS
|
||||
; Note, only works if YPOS is multiple of two
|
||||
|
||||
|
||||
; time= 28 setup
|
||||
; Y*outerloop
|
||||
; outerloop = 36 setup
|
||||
; X*innerloop
|
||||
; innerloop = 30 if $00 17+13(done)
|
||||
; 53 if if $XX 16+8+8+8(put_all)+13(done)
|
||||
; 68 if $X0 16+8+7+5+19(put_sprite_mask)+13(done)
|
||||
; 63 if $0X 16+7+8+19(put_sprite_mask)+13(done)
|
||||
; -1 for last iteration
|
||||
; 18 (-1 for last)
|
||||
; 6 return
|
||||
|
||||
; so cost = 28 + Y*(36+18)+(INNER-X) -1 + 6
|
||||
; = 33 + Y*(53)+(INNER-X)
|
||||
; = 33 + Y*(53)+ [30A + 53B + 68C + 63D]-X
|
||||
|
||||
; bird_stand_right = X=6, Y=7 A=28 B=9 C=2 D=3
|
||||
; = 33 + 7*53+(30*28+53*9+68*2+63*3)-6 = 2040 cycles
|
||||
put_sprite:
|
||||
|
||||
ldy #0 ; byte 0 is xsize ; 2
|
||||
lda (INL),Y ; 5
|
||||
sta CH ; xsize is in CH ; 3
|
||||
iny ; 2
|
||||
|
||||
lda (INL),Y ; byte 1 is ysize ; 5
|
||||
sta CV ; ysize is in CV ; 3
|
||||
iny ; 2
|
||||
|
||||
lda YPOS ; make a copy of ypos ; 3
|
||||
sta TEMPY ; as we modify it ; 3
|
||||
;===========
|
||||
; 28
|
||||
put_sprite_loop:
|
||||
sty TEMP ; save sprite pointer ; 3
|
||||
|
||||
ldy TEMPY ; 3
|
||||
lda gr_offsets,Y ; lookup low-res memory address ; 5
|
||||
clc ; 2
|
||||
adc XPOS ; add in xpos ; 3
|
||||
sta OUTL ; store out low byte of addy ; 3
|
||||
lda gr_offsets+1,Y ; look up high byte ; 5
|
||||
adc DRAW_PAGE ; ; 3
|
||||
sta OUTH ; and store it out ; 3
|
||||
ldy TEMP ; restore sprite pointer ; 3
|
||||
|
||||
; OUTH:OUTL now points at right place
|
||||
|
||||
ldx CH ; load xsize into x ; 3
|
||||
;===========
|
||||
; 36
|
||||
put_sprite_pixel:
|
||||
lda (INL),Y ; get sprite colors ; 5
|
||||
iny ; increment sprite pointer ; 2
|
||||
|
||||
sty TEMP ; save sprite pointer ; 3
|
||||
ldy #$0 ; 2
|
||||
|
||||
; check if completely transparent
|
||||
; if so, skip
|
||||
|
||||
cmp #$0 ; if all zero, transparent ; 2
|
||||
beq put_sprite_done_draw ; don't draw it ; 2nt/3
|
||||
;==============
|
||||
; 17
|
||||
|
||||
sta COLOR ; save color for later ; 3
|
||||
|
||||
; check if top pixel transparent
|
||||
|
||||
and #$f0 ; check if top nibble zero ; 2
|
||||
bne put_sprite_bottom ; if not skip ahead ; 2nt/3
|
||||
|
||||
lda #$f0 ; setup mask ; 2
|
||||
sta MASK ; 3
|
||||
bmi put_sprite_mask ; always? ; 3
|
||||
|
||||
put_sprite_bottom:
|
||||
lda COLOR ; re-load color ; 3
|
||||
and #$0f ; check if bottom nibble zero ; 2
|
||||
bne put_sprite_all ; if not, skip ahead ; 2nt/3
|
||||
|
||||
lda #$0f ; 2
|
||||
sta MASK ; setup mask ; 3
|
||||
|
||||
put_sprite_mask:
|
||||
lda (OUTL),Y ; get color at output ; 5
|
||||
and MASK ; mask off unneeded part ; 3
|
||||
ora COLOR ; or the color in ; 3
|
||||
sta (OUTL),Y ; store it back ; 5
|
||||
|
||||
jmp put_sprite_done_draw ; we are done ; 3
|
||||
|
||||
put_sprite_all:
|
||||
lda COLOR ; load color ; 3
|
||||
sta (OUTL),Y ; and write it out ; 5
|
||||
|
||||
|
||||
put_sprite_done_draw:
|
||||
|
||||
ldy TEMP ; restore sprite pointer ; 3
|
||||
|
||||
inc OUTL ; increment output pointer ; 5
|
||||
dex ; decrement x counter ; 2
|
||||
bne put_sprite_pixel ; if not done, keep looping ; 2nt/3
|
||||
|
||||
inc TEMPY ; each line has two y vars ; 5
|
||||
inc TEMPY ; 5
|
||||
dec CV ; decemenet total y count ; 5
|
||||
bne put_sprite_loop ; loop if not done ; 2nt/3
|
||||
|
||||
rts ; return ; 6
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
line1:.asciiz " * . "
|
||||
line2:.asciiz " * . T A L B O T . "
|
||||
line3:.asciiz " * F A N T A S Y "
|
||||
@ -300,6 +458,7 @@ line6:.asciiz " . "
|
||||
.include "../asm_routines/gr_offsets.s"
|
||||
.include "../asm_routines/text_print.s"
|
||||
.include "../asm_routines/gr_hlin_double.s"
|
||||
.include "tfv_sprites.inc"
|
||||
|
||||
.align $1000
|
||||
|
||||
|
||||
34
split_screen/tfv_sprites.inc
Normal file
34
split_screen/tfv_sprites.inc
Normal file
@ -0,0 +1,34 @@
|
||||
bird_stand_right:
|
||||
.byte $6,$7
|
||||
.byte $00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$dd,$90
|
||||
.byte $00,$00,$00,$00,$dd,$00
|
||||
.byte $0d,$dd,$dd,$dd,$dd,$00
|
||||
.byte $00,$00,$0d,$dd,$0d,$00
|
||||
.byte $00,$00,$00,$99,$00,$00
|
||||
.byte $00,$00,$00,$99,$90,$00
|
||||
|
||||
bird_walk_right:
|
||||
.byte $6,$7
|
||||
.byte $00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$dd,$90
|
||||
.byte $00,$00,$00,$00,$dd,$00
|
||||
.byte $0d,$dd,$dd,$dd,$dd,$00
|
||||
.byte $00,$00,$0d,$dd,$0d,$00
|
||||
.byte $00,$00,$00,$99,$00,$00
|
||||
.byte $00,$00,$99,$00,$99,$00
|
||||
|
||||
small_tree:
|
||||
.byte $3,$3
|
||||
.byte $00,$CC,$00
|
||||
.byte $CC,$CC,$CC
|
||||
.byte $00,$88,$00
|
||||
|
||||
big_tree:
|
||||
.byte $5,$5
|
||||
.byte $00,$00,$CC,$00,$00
|
||||
.byte $00,$C0,$CC,$C0,$00
|
||||
.byte $00,$CC,$CC,$CC,$00
|
||||
.byte $c0,$CC,$CC,$CC,$c0
|
||||
.byte $00,$00,$88,$00,$00
|
||||
|
||||
Loading…
Reference in New Issue
Block a user