Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-09 03:31:05 +00:00
Code Issues Projects Releases Wiki Activity

mode7: add some more ship sprites

Browse Source
This commit is contained in:
Vince Weaver 2018-03-17 01:02:19 -04:00
parent f20186cf9f
commit 9fc6a83daf
3 changed files with 38 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mode7_demo/sprites.inc
View File

@ -57,6 +57,16 @@ ship_left:
.byte $00,$00,$77,$f2,$d9,$dd,$00,$00,$00 .byte $00,$00,$77,$f2,$d9,$dd,$00,$00,$00
.byte $00,$70,$ff,$0f,$00,$00,$00,$00,$00 .byte $00,$70,$ff,$0f,$00,$00,$00,$00,$00
ship_small:
.byte $5,$3
.byte $00,$00,$ff,$00,$00
.byte $00,$76,$2f,$76,$00
.byte $0f,$0f,$d9,$0f,$0f
ship_tiny:
.byte $3,$1
.byte $f0,$9f,$f0
sphere_offset: sphere_offset:
.byte 0,27,54,81, 108,135,162,189 .byte 0,27,54,81, 108,135,162,189

43
mode7_demo/starfield_demo.s
View File

@ -6,16 +6,18 @@ NUMSTARS EQU 16
; State Number Length Speed BGColor CLS ; State Number Speed BGColor CLS
; =========== ====== ====== ===== ======= === ; =========== ====== ===== ======= ===
; Ship at rest 0 64 0 black 1 ; Ship at rest 0 64 black 1
; Flash 1 8 3 blue 1 ; Flash 1 8 blue 1
; Moving stars 2 64 5 black 1 ; Moving stars 2 128 black 1
; Crazy stars 3 64 5 black 0 ; Crazy stars 3 64 black 0
; Ship moves off 4 64 5 black 1 ; Ship moves off 1 4 16 black 1
; Shrinking line 5 64 5 black 1 ; Ship moves off 2 5 16 black 1
; Back to stars 6 256 5 black 1 ; Ship moves off 3 6 16 black 1
; Done 7 ; Shrinking line 7 20 black 1
; Back to stars 8 256 black 1
; Done 9
;===================== ;=====================
;===================== ;=====================
@ -45,6 +47,8 @@ starfield_demo:
; always multiply with low byte as zero ; always multiply with low byte as zero
sta NUM2L ; 3 sta NUM2L ; 3
sta FRAME_COUNT sta FRAME_COUNT
lda #64
sta SPEED sta SPEED
ldy #(NUMSTARS-1) ; 2 ldy #(NUMSTARS-1) ; 2
@ -112,9 +116,8 @@ no_clear:
jsr page_flip ; 6 jsr page_flip ; 6
inc FRAME_COUNT dec SPEED
lda FRAME_COUNT lda SPEED
cmp #$ff
beq done_stars beq done_stars
@ -126,12 +129,17 @@ near_loop:
done_stars: done_stars:
inc STATE inc STATE
lda STATE ldx STATE
cmp #$5 lda speed_table,X
sta SPEED
cpx #$7
bne near_loop bne near_loop
rts rts
speed_table:
.byte 64,8,128,64,64,64,255
;===================== ;=====================
@ -387,6 +395,9 @@ plot_star_continue:
;============================= ;=============================
; Move stars ; Move stars
move_stars: move_stars:
lda STATE
beq done_move_stars
ldy #(NUMSTARS-1) ; 2 ldy #(NUMSTARS-1) ; 2
move_stars_loop: move_stars_loop:
; increment z ; increment z
@ -403,6 +414,8 @@ move_loop_skip:
dey ; 2 dey ; 2
bpl move_stars_loop ; 2nt/3 bpl move_stars_loop ; 2nt/3
done_move_stars:
rts rts

BIN
tfv/sprites.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.4 KiB

After

Width:  |  Height:  |  Size: 2.5 KiB