Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-28 14:30:52 +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
NUM_CREDITS EQU 16
NUM_CREDITS EQU 17
;===================
; init credits
@ -89,7 +89,7 @@ long_loop:
lda #$ff
bne store_loop
short_loop:
lda #$30 ; set delay to show the credit before
lda #$40 ; set delay to show the credit before
store_loop:
sta LOOP ; continuing
@ -295,10 +295,12 @@ credits:
.asciiz "ECE GRAD BOWLING"
.byte 13 ; 11
.asciiz "CORNELL GCF"
.byte 9 ; 21
.byte 8 ; 21
.asciiz "ALL MSTIES EVERYWHERE"
.byte 17 ; 3
.asciiz "..."
.byte 17 ; 3
.asciiz "..."
thankz:
.asciiz "SPECIAL THANKS TO:"

23
mode7_demo/starfield_demo.s
View File

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