mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-19 12:32:35 +00:00
436 lines
6.7 KiB
ArmAsm
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:
|
|
|