dos33fsprogs/demos/applebot_demo/credits.s
Vince Weaver e0febd1a90 demos: more work
keep making git mistakes urgh
2021-01-05 22:52:10 -05:00

267 lines
3.4 KiB
ArmAsm

switch_to_credits:
; clear bottom of page2 and set split
bit TEXTGR
ldx #39
lda #' '|$80
clear_bottom_loop:
sta $A50,X
sta $AD0,X
sta $B50,X
sta $BD0,X
dex
bpl clear_bottom_loop
; set "done"
lda #DONE
sta command
; clear time
lda #0
sta seconds
sta ticks
rts
;======================================
;======================================
; display credits
;======================================
;======================================
display_credits:
; display music bars
; a bar
lda A_VOLUME
lsr
lsr
sta draw_a_bar_left_loop+1
lda #3
sec
sbc draw_a_bar_left_loop+1
sta draw_a_bar_right_loop+1
ldx #4
lda #' '|$80
draw_a_bar_left_loop:
cpx #$4
bne skip_al_bar
eor #$80
skip_al_bar:
sta $A50,X
dex
bpl draw_a_bar_left_loop
ldx #4
lda #' '
draw_a_bar_right_loop:
cpx #$4
bne skip_ar_bar
eor #$80
skip_ar_bar:
sta $A50+35,X
dex
bpl draw_a_bar_right_loop
; b bar
lda B_VOLUME
lsr
lsr
sta draw_b_bar_left_loop+1
lda #3
sec
sbc draw_b_bar_left_loop+1
sta draw_b_bar_right_loop+1
ldx #4
lda #' '|$80
draw_b_bar_left_loop:
cpx #$4
bne skip_bl_bar
eor #$80
skip_bl_bar:
sta $AD0,X
dex
bpl draw_b_bar_left_loop
ldx #4
lda #' '
draw_b_bar_right_loop:
cpx #$4
bne skip_br_bar
eor #$80
skip_br_bar:
sta $AD0+35,X
dex
bpl draw_b_bar_right_loop
; c
lda C_VOLUME
lsr
lsr
sta draw_c_bar_left_loop+1
lda #3
sec
sbc draw_c_bar_left_loop+1
sta draw_c_bar_right_loop+1
ldx #4
lda #' '|$80
draw_c_bar_left_loop:
cpx #$4
bne skip_cl_bar
eor #$80
skip_cl_bar:
sta $B50,X
dex
bpl draw_c_bar_left_loop
ldx #4
lda #' '
draw_c_bar_right_loop:
cpx #$4
bne skip_cr_bar
eor #$80
skip_cr_bar:
sta $B50+35,X
dex
bpl draw_c_bar_right_loop
; write credits
actual_credits:
lda ticks
cmp #25
bne done_credits
lda seconds
; increment on multiples of 4 seconds
and #$3
beq next_credit
bne done_credits
next_credit:
;========================
; write the credits
write_credits:
lda which_credit
cmp #7
beq done_credits
ldx #4
outer_credit_loop:
; X is proper line
; point to start of proper output line
lda credits_address,X
sta credits_address_smc+1
lda credits_address+1,X
sta credits_address_smc+2
; load proper input location
lda which_credit
asl
tay
txa
asl
asl
asl ; *16 (already *2)
clc
adc credits_table,Y
sta write_credit_1_loop+1
lda credits_table+1,Y
adc #0
sta write_credit_1_loop+2
ldy #0
write_credit_1_loop:
lda $dede,Y
ora #$80
credits_address_smc:
sta $dede,Y
iny
cpy #16
bne write_credit_1_loop
done_credit1_loop:
dex
dex
bpl outer_credit_loop
inc which_credit
done_credits:
rts
credits_address:
.word $a50+12
.word $ad0+12
.word $b50+12
credits_table:
.word credits1
.word credits2
.word credits3
.word credits4
.word credits5
.word credits6
.word credits7
credits1:
.byte " Code: "
.byte " "
.byte " Deater "
credits2:
.byte " Music: "
.byte " "
.byte " mAZE "
credits3:
.byte " Algorithms: "
.byte " F. Sanglard "
.byte " Hellmood "
credits4:
.byte " Apple II bot "
.byte " "
.byte " Kay Savetz "
credits5:
.byte " Magic: "
.byte " "
.byte " qkumba "
credits6:
.byte " Greets: "
.byte " 4am "
.byte " French Touch "
credits7:
.byte " _ "
.byte " _|(_ _ "
.byte " (_| _) | "
which_credit:
.byte $0