Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-06 06:30:36 +00:00
Code Issues Projects Releases Wiki Activity

second: more work on credits

Browse Source
This commit is contained in:
Vince Weaver 2023-10-26 21:50:58 -04:00
parent 71dc8c3cb2
commit b23413da7f
3 changed files with 129 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
demos/second/part20_credits/credits.s
View File

@ -49,49 +49,77 @@ load_loop:
;=======================
;=======================
ldx #0
ldx #8
stx FRAME
; print message
lda #192 ; top of $4000 PAGE2
sta CV
lda #<final_credits
sta BACKUP_OUTL
lda #>final_credits
sta BACKUP_OUTH
do_scroll:
inc FRAME
lda FRAME
and #$7
cmp #9
bne no_update_message
; clear lines
; and #$7
; bne no_update_message
lda #0
sta FRAME
; clear lines on Page2
; we cheat and setup 192-200 to map to top of page2
ldx #200
cl_outer_loop:
lda hposn_low,X
sta OUTL
sta INL
lda hposn_high,X
sta OUTH
sta INH
ldy #39
lda #0
cl_inner_loop:
sta (OUTL),Y
sta (INL),Y
dey
bpl cl_inner_loop
dex
cpx #191
bne cl_outer_loop
urgh:
lda BACKUP_OUTL
sta OUTL
lda BACKUP_OUTH
sta OUTH
; print message
jsr draw_condensed_1x8_again
lda #12
sta CH
lda #192
sta CV
; point to location after
sec ; always add 1
; inx
txa
adc OUTL
sta BACKUP_OUTL
lda #0
adc OUTH
sta BACKUP_OUTH
lda #<apple_message
ldy #>apple_message
jsr draw_condensed_1x8
no_update_message:
inc FRAME
jsr hgr_vertical_scroll
jmp do_scroll
@ -118,5 +146,54 @@ summary2_data:
.incbin "graphics/summary2_invert.hgr.zx02"
apple_message:
.byte "Apple ][ Forever",0
final_credits:
.byte 12,"Apple ][ Reality",0
.byte 20," ",0
.byte 11,"by Deater / Desire",0
.byte 20," ",0
.byte 4 ,"This demo was at Demosplash 2023",0
.byte 8,"held in Pittsburgh, PA,",0
.byte 12,"in November 2023.",0
.byte 20," ",0
.byte 15,"Greets to:",0
.byte 14,"French Touch",0
.byte 18,"4am",0
.byte 17,"Qkumba",0
.byte 17,"Grouik",0
.byte 14,"Fenarinarsa",0
.byte 15,"T. Greene",0
.byte 15,"K. Savetz",0
.byte 17,"wiz21b",0
.byte 17,"Trixter",0
.byte 18,"LGR",0
.byte 16,"Hellmood",0
.byte 17,"Foone",0
.byte 12,"Utopia BBS (410)",0
.byte 10,"Weave's World Talker",0
; end
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 12,"Apple II Forever",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte 20," ",0
.byte $FF

51
demos/second/part20_credits/font_4am_1x8.s
View File

@ -28,9 +28,27 @@ draw_condensed_1x8:
draw_condensed_1x8_again:
lda OUTL
ldy #0
lda (OUTL),Y
sta CH
bpl still_good
demo_demo_done:
; FIXME: stop music?
jmp demo_demo_done
still_good:
clc
lda #1
adc OUTL
sta OUTL
sta dcb_loop_1x8_smc+1
lda OUTH
lda #0
adc OUTH
sta OUTH
sta dcb_loop_1x8_smc+2
@ -114,16 +132,16 @@ dcb_loop_1x8_smc:
ldy $FDFD, X ; load next char into Y
beq dcb_done_1x8
cpy #13
bne not_linefeed
; cpy #13
; bne not_linefeed
lda #0
sta CH
clc
lda CV
adc #8
sta CV
inx
; lda #0
; sta CH
; clc
; lda CV
; adc #8
; sta CV
; inx
; lda CV
; cmp #192
@ -136,7 +154,7 @@ dcb_loop_1x8_smc:
; jsr scroll_screen
; ldx XSAVE
jmp dcb_loop_1x8
; jmp dcb_loop_1x8
not_linefeed:
@ -175,15 +193,6 @@ dcb_row_1x8_7:
dcb_done_1x8:
; point to location after
sec ; always add 1
txa
adc OUTL
sta OUTL
lda #0
adc OUTH
sta OUTH
rts

4
demos/second/zp.inc
View File

@ -174,7 +174,9 @@ R = $F7
CX = $F8
CY = $F9
; Credits
BACKUP_OUTL = $F1
BACKUP_OUTH = $F2