Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-27 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity

mode7: tweak the length of some things

Browse Source
This commit is contained in:
Vince Weaver 2018-03-19 10:51:12 -04:00
parent d5686d153f
commit 5cc967acb3
2 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mode7_demo/credits.s
View File

@ -1,6 +1,6 @@
; Closing Credits ; Closing Credits
NUM_CREDITS EQU 17 NUM_CREDITS EQU 19
;=================== ;===================
; init credits ; init credits
@ -267,13 +267,15 @@ empty:
; subtract one from centering(?) ; subtract one from centering(?)
credits: credits:
.byte 12 ; 14
.asciiz "MUSIC BASE: EA"
.byte 11 ; 16
.asciiz "LZ4 CODE: QKUMBA"
.byte 11 ; 16
.asciiz "FASTMUL: S. JUDD"
.byte 14 ; 9 .byte 14 ; 9
.asciiz "FROGGYSUE" .asciiz "FROGGYSUE"
.byte 14 ; 10 .byte 14 ; 10
.asciiz "MUSIC: ???"
.byte 13 ; 12
.asciiz "QKUMBA (LZ4)"
.byte 14 ; 10
.asciiz "PIANOMAN08" .asciiz "PIANOMAN08"
.byte 14 ; 10 .byte 14 ; 10
.asciiz "UTOPIA BBS" .asciiz "UTOPIA BBS"
@ -289,8 +291,8 @@ credits:
.asciiz "WEAVE'S WORLD TALKER" .asciiz "WEAVE'S WORLD TALKER"
.byte 12 ; 14 .byte 12 ; 14
.asciiz "DAISY AND JUNE" .asciiz "DAISY AND JUNE"
;.byte 11 ; 17 .byte 11 ; 17
;.asciiz "TALBOT 0101B CREW" .asciiz "TALBOT 0101B CREW"
.byte 12 ; 13 .byte 12 ; 13
.asciiz "STEALTH SUSIE" .asciiz "STEALTH SUSIE"
.byte 11 ; 16 .byte 11 ; 16

29
mode7_demo/starfield_demo.s
View File

@ -11,11 +11,12 @@ NUMSTARS EQU 16
; Flash 1 8 blue 1 ; Flash 1 8 blue 1
; Moving stars 2 200 black 1 ; Moving stars 2 200 black 1
; Crazy stars 3 128 black 0 ; Crazy stars 3 128 black 0
; Ship moves off 1 4 32 black 1 ; Moving stars 4 32 black 1
; Ship moves off 2 5 32 black 1 ; Ship moves off 1 5 32 black 1
; Shrinking line 6 20 black 1 ; Ship moves off 2 6 32 black 1
; Back to stars 7 255 black 1 ; Shrinking line 7 20 black 1
; Done 8 ; Back to stars 8 255 black 1
; Done 9
;===================== ;=====================
;===================== ;=====================
@ -47,7 +48,6 @@ starfield_demo:
sta STATE sta STATE
; always multiply with low byte as zero ; always multiply with low byte as zero
sta NUM2L ; 3 sta NUM2L ; 3
; sta FRAME_COUNT
lda #32 lda #32
sta SPEED sta SPEED
@ -100,16 +100,16 @@ no_clear:
;================ ;================
lda STATE lda STATE
cmp #7 ; 7- 8+ 9+ cmp #8 ; 8- 9+ 10+
bpl draw_ship_done bpl draw_ship_done
cmp #6 cmp #7
bpl draw_ship_line bpl draw_ship_line
cmp #5 cmp #6
bpl draw_ship_tiny bpl draw_ship_tiny
cmp #4 ; 3- 4+ 5+ cmp #5 ; 3- 4+ 5+
bpl draw_ship_small bpl draw_ship_small
draw_ship_big: draw_ship_big:
@ -196,13 +196,13 @@ done_stars:
lda speed_table,X lda speed_table,X
sta SPEED sta SPEED
cpx #$8 cpx #$9
bne near_loop bne near_loop
rts rts
speed_table: speed_table:
.byte 32,8,200,128,32,32,20,255 .byte 32,8,200,128,32,32,32,20,255
;===================== ;=====================
@ -241,7 +241,6 @@ starfield_credits:
sta SCREEN_Y sta SCREEN_Y
; always multiply with low byte as zero ; always multiply with low byte as zero
sta NUM2L ; 3 sta NUM2L ; 3
; sta FRAME_COUNT
sta YY ; which credit sta YY ; which credit
sta LOOP ; delay loop sta LOOP ; delay loop
@ -291,7 +290,7 @@ starcredits_loop:
bne done_rasters bne done_rasters
lda YY lda YY
cmp #16 cmp #18
beq done_rasters beq done_rasters
jsr draw_rasters jsr draw_rasters
@ -316,7 +315,7 @@ done_rasters:
no_speed: no_speed:
lda YY lda YY
cmp #17 ; NUMBER OF CREDITS cmp #19 ; NUMBER OF CREDITS
beq done_star_credits beq done_star_credits
;================== ;==================