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

mode7: some polishing of credits

Browse Source
This commit is contained in:
Vince Weaver 2018-03-17 22:21:13 -04:00
parent 37be9ce872
commit 9a2526b1ff
2 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mode7_demo/credits.s
View File

@ -1,6 +1,6 @@
; Closing Credits ; Closing Credits
NUM_CREDITS EQU 16 NUM_CREDITS EQU 17
;=================== ;===================
; init credits ; init credits
@ -89,7 +89,7 @@ long_loop:
lda #$ff lda #$ff
bne store_loop bne store_loop
short_loop: short_loop:
lda #$30 ; set delay to show the credit before lda #$40 ; set delay to show the credit before
store_loop: store_loop:
sta LOOP ; continuing sta LOOP ; continuing
@ -295,10 +295,12 @@ credits:
.asciiz "ECE GRAD BOWLING" .asciiz "ECE GRAD BOWLING"
.byte 13 ; 11 .byte 13 ; 11
.asciiz "CORNELL GCF" .asciiz "CORNELL GCF"
.byte 9 ; 21 .byte 8 ; 21
.asciiz "ALL MSTIES EVERYWHERE" .asciiz "ALL MSTIES EVERYWHERE"
.byte 17 ; 3 .byte 17 ; 3
.asciiz "..." .asciiz "..."
.byte 17 ; 3
.asciiz "..."
thankz: thankz:
.asciiz "SPECIAL THANKS TO:" .asciiz "SPECIAL THANKS TO:"

23
mode7_demo/starfield_demo.s
View File

@ -5,7 +5,6 @@
NUMSTARS EQU 16 NUMSTARS EQU 16
; State Number Speed BGColor CLS ; State Number Speed BGColor CLS
; =========== ====== ===== ======= === ; =========== ====== ===== ======= ===
; Ship at rest 0 32 black 1 ; Ship at rest 0 32 black 1
@ -45,7 +44,7 @@ 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 ; sta FRAME_COUNT
lda #32 lda #32
sta SPEED sta SPEED
@ -210,6 +209,7 @@ speed_table:
;===================== ;=====================
;===================== ;=====================
;===================== ;=====================
starfield_credits: starfield_credits:
;================================ ;================================
@ -225,6 +225,9 @@ starfield_credits:
lda #4 ; 2 lda #4 ; 2
sta DRAW_PAGE sta DRAW_PAGE
jsr credits_draw_text_background jsr credits_draw_text_background
lda #128
sta SPEED
;=============== ;===============
; Init Variables ; Init Variables
@ -235,7 +238,7 @@ 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 FRAME_COUNT
sta YY ; which credit sta YY ; which credit
sta LOOP ; delay loop sta LOOP ; delay loop
@ -281,8 +284,15 @@ starcredits_loop:
;==================== ;====================
; draw the rasterbars ; draw the rasterbars
;==================== ;====================
lda SPEED
bne done_rasters
lda YY
cmp #16
beq done_rasters
jsr draw_rasters jsr draw_rasters
done_rasters:
;==================== ;====================
; draw the credits ; draw the credits
@ -297,10 +307,13 @@ starcredits_loop:
jsr page_flip ; 6 jsr page_flip ; 6
inc FRAME_COUNT lda SPEED
beq no_speed
dec SPEED
no_speed:
lda YY lda YY
cmp #15 ; NUMBER OF CREDITS cmp #17 ; NUMBER OF CREDITS
beq done_star_credits beq done_star_credits
;================== ;==================