dos33fsprogs/demos/megademo/starring_people.s
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

436 lines
6.7 KiB
ArmAsm

; Display Starring w People
; 2nd/3rd = split low/hires w tengwar wipe at bottom
starring_people:
;===================
; init screen
bit KEYRESET
;===================
; init vars
lda #0
sta DRAW_PAGE
sta FRAME
sta FRAMEH
lda #40
sta XPOS
;=============================
; Load graphic hgr
sp_smc1:
lda #<fs_hgr
sta LZ4_SRC
sp_smc2:
lda #>fs_hgr
sta LZ4_SRC+1
sp_smc3:
lda #<(fs_hgr_end-8) ; skip checksum at end
sta LZ4_END
sp_smc4:
lda #>(fs_hgr_end-8) ; skip checksum at end
sta LZ4_END+1
lda #<$2000
sta LZ4_DST
lda #>$2000
sta LZ4_DST+1
jsr lz4_decode
;=============================
; Load list of names to PAGE2
lda #$0c
sta BASH
lda #$00
sta BASL ; first load image to $c00
lda #<sp_names
sta GBASL
lda #>sp_names
sta GBASH
jsr load_rle_gr
lda #4
sta DRAW_PAGE
jsr gr_copy_to_current ; then copy to PAGE2
;=============================
; Load person image to PAGE1
lda #$0c
sta BASH
lda #$00
sta BASL ; load image to $c00
sp_smc5:
lda #<fs
sta GBASL
sp_smc6:
lda #>fs
sta GBASH
jsr load_rle_gr
lda #0
sta DRAW_PAGE
; GR part
bit PAGE0
sei
;==============================
; setup graphics for vapor lock
;==============================
jsr vapor_lock ; 6
; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 cycles to go
; so to get to end of blank = 9620 - 9298 = 322
; really could use a sound update in the middle there, but 1038 cycles?
jsr play_music ; 6+1032
jsr gr_copy_to_current ; 6+ 9292
; 322-1028 = 716 cycles into display, so need to delay
; 12480 - 716 = 11764
; now we have 322 left
; GR part
bit LORES ; 4
bit SET_GR ; 4
bit FULLGR ; 4
; 322 - 12 = 310
; - 3 for jmp
; 307
; Try X=9 Y=6 cycles=307
; 11749
; Try X=70 Y=33 cycles=11749
ldy #33 ; 2
sploopA:ldx #70 ; 2
sploopB:dex ; 2
bne sploopB ; 2nt/3
dey ; 2
bne sploopA ; 2nt/3
jsr play_music ; 6+1032
; 4550 - 1038 = 3512
; Try X=99 Y=7 cycles=3508 R4
nop
nop
ldy #7 ; 2
sploopT:ldx #99 ; 2
sploopQ:dex ; 2
bne sploopQ ; 2nt/3
dey ; 2
bne sploopT ; 2nt/3
jmp sp_begin_loop
.align $100
;================================================
; Starring People Loop
;================================================
; each scan line 65 cycles
; 1 cycle each byte (40cycles) + 25 for horizontal
; Total of 12480 cycles to draw screen
; Vertical blank = 4550 cycles (70 scan lines)
; Total of 17030 cycles to get back to where was
; G00000000000000000000 H0000000000000000000000
sp_begin_loop:
sp_display_loop:
ldy #148
sp_outer_loop:
bit LORES ; 4
lda #7 ; 2
jsr delay_a ; 25+7 = 32
;===========
; 38
bit HIRES ; 4
nop ; 2
nop ; 2
nop ; 2
lda $0 ; 3
lda $0 ; 3
lda $0 ; 3
lda $0 ; 3
;============
; 22
dey ; 2
bne sp_outer_loop ; 3
; -1
bit LORES ; 4
; want to kill 44*65 -3 = 2857
;======================================================
; We have 4550 cycles in the vblank, use them wisely
;======================================================
; do_nothing should be 4550
; +2857 fallthrough from above
; -23 increase frame
; -7 exit on timeout
; -10 keypress
; -2 ldy at top
; -8 pause a bit
; -32 draw yellow
; -49 wipe
; -1038 music
; ===========
; 6238
lda FRAMEH ; 3
cmp #15 ; 2
bcs sp_name_wipe ; bge ; 3
; -1
lda #52 ; 2
jsr delay_a ; 25+52
jmp sp_done_copy ; 3
sp_name_wipe:
;=======================
; do the name wipe
;=======================
; 10 + 22 = 32
lda #$dd ; 2
ldx XPOS ; 3
dex ; 2
bmi sp_no_yellow ; 3
;-1
sta $650,X ; 5
sta $6d0,X ; 5
sta $750,X ; 5
sta $7d0,X ; 5
jmp sp_done_yellow ; 3
sp_no_yellow:
dec XPOS
inc XPOS
dec XPOS
inc XPOS
nop
sp_done_yellow:
;=======================
; do the name wipe
;=======================
; 6 + 43
ldx XPOS ; 3
bmi sp_no_copy ; 3
;-1
sp_smc8:
lda $800,X ; 4
sta $650,X ; 5
sp_smc9:
lda $880,X ; 4
sta $6d0,X ; 5
sp_smc10:
lda $900,X ; 4
sta $750,X ; 5
sp_smc11:
lda $980,X ; 4
sta $7d0,X ; 5
dec XPOS ; 5
jmp sp_done_copy ; 3
sp_no_copy:
lda #16 ; 2
jsr delay_a ; 25+16
sp_done_copy:
;================
; wrap counter
;================
; nowrap = 13+10=23
; wrap = 13+10=23
inc FRAME ; 5
lda FRAME ; 3
cmp #4 ; 20Hz ; 2
beq sp_wrap ; 3
sp_nowrap:
;-1
lda $0 ; nop ; 3
lda $0 ; nop ; 3
nop ; 2
jmp sp_wrap_done ; 3
sp_wrap:
lda #0 ; 2
sta FRAME ; 3
inc FRAMEH ; 5
sp_wrap_done:
;==============
; timeout after 5s or so?
;==============
; 7 cycles
sp_timeout:
lda FRAMEH ; 3
cmp #62 ; 2
beq sp_done ; 3
; -1
jsr play_music ; 6+1032
; Try X=17 Y=80 cycles=7281 R3
; Try X=57 Y=25 cycles=7276
; Try X=45 Y=27 cycles=6238
ldy #27 ; 2
sploop1:ldx #45 ; 2
sploop2:dex ; 2
bne sploop2 ; 2nt/3
dey ; 2
bne sploop1 ; 2nt/3
lda KEYPRESS ; 4
bpl sp_no_keypress ; 3
jmp sp_done
sp_no_keypress:
jmp sp_display_loop ; 3
sp_done:
bit KEYRESET ; clear keypress ; 4
; jsr mockingboard_mute
cli
rts ; 6
setup_people_fs:
lda #<fs_hgr
sta sp_smc1+1
lda #>fs_hgr
sta sp_smc2+1
lda #<(fs_hgr_end-8) ; skip checksum at end
sta sp_smc3+1
lda #>(fs_hgr_end-8) ; skip checksum at end
sta sp_smc4+1
lda #<fs
sta sp_smc5+1
lda #>fs
sta sp_smc6+1
lda #$0
sta sp_smc8+1
sta sp_smc10+1
lda #$80
sta sp_smc9+1
sta sp_smc11+1
rts
setup_people_deater:
lda #<deater_hgr
sta sp_smc1+1
lda #>deater_hgr
sta sp_smc2+1
lda #<(deater_hgr_end-8) ; skip checksum at end
sta sp_smc3+1
lda #>(deater_hgr_end-8) ; skip checksum at end
sta sp_smc4+1
lda #<deater
sta sp_smc5+1
lda #>deater
sta sp_smc6+1
lda #$28
sta sp_smc8+1
sta sp_smc10+1
lda #$a8
sta sp_smc9+1
sta sp_smc11+1
rts
setup_people_lg:
lda #<lg_hgr
sta sp_smc1+1
lda #>lg_hgr
sta sp_smc2+1
lda #<(lg_hgr_end-8) ; skip checksum at end
sta sp_smc3+1
lda #>(lg_hgr_end-8) ; skip checksum at end
sta sp_smc4+1
lda #<lg
sta sp_smc5+1
lda #>lg
sta sp_smc6+1
lda #$50
sta sp_smc8+1
sta sp_smc10+1
lda #$d0
sta sp_smc9+1
sta sp_smc11+1
rts
;.include "fs.inc"
;.include "deater.inc"
;fs_hgr:
;.incbin "FS_HGRC.BIN.lz4",11
;fs_hgr_end:
;deater_hgr:
;.incbin "DEATER_HGRC.BIN.lz4",11
;deater_hgr_end: