mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-14 10:29:46 +00:00
mode7: tweak the length of some things
This commit is contained in:
parent
d5686d153f
commit
5cc967acb3
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
;==================
|
;==================
|
||||||
|
Loading…
Reference in New Issue
Block a user