dos33fsprogs/demosplash2019/reading.s

207 lines
3.4 KiB
ArmAsm
Raw Normal View History

2019-10-07 04:12:36 +00:00
; Display a 40x48d lo-res image
; Uses the 40x48d page1/page2 every-1-scanline pageflip mode
; by deater (Vince Weaver) <vince@deater.net>
2019-11-02 15:22:21 +00:00
end_book:
2019-10-07 04:12:36 +00:00
2019-11-15 22:01:19 +00:00
; cli
2019-11-09 01:07:02 +00:00
2019-10-07 04:12:36 +00:00
;===================
; init screen
bit PAGE0
bit SET_TEXT
lda #' '+$80
sta clear_all_color+1
jsr gr_clear_all
2019-10-07 04:12:36 +00:00
;===================
; init vars
lda #0
sta DRAW_PAGE
2019-11-06 04:40:29 +00:00
lda #255
sta FRAMEL
2019-10-07 04:12:36 +00:00
2019-11-02 15:22:21 +00:00
;===================
2019-11-08 06:18:02 +00:00
; setup graphics
2019-11-02 15:22:21 +00:00
jsr create_update_type1
2019-11-06 04:40:29 +00:00
;======================
; print message
lda #<read_book_text
sta OUTL
lda #>read_book_text
sta OUTH
jsr move_and_print
jsr move_and_print
2019-11-15 22:01:19 +00:00
; lda #200
; jsr long_wait
; lda #200
; jsr long_wait
2019-11-06 04:40:29 +00:00
2019-11-15 22:01:19 +00:00
; sei
2019-11-06 04:40:29 +00:00
2019-11-08 06:18:02 +00:00
lda #0
sta FRAME_PLAY_OFFSET
sta FRAME_PLAY_PAGE
sta FRAME_OFFSET
sta FRAME_PAGE
jsr update_pt3_play
2019-11-16 02:51:06 +00:00
; setup 8 frames
jsr pt3_write_lc_8
2019-11-06 04:40:29 +00:00
2019-10-07 04:12:36 +00:00
;=============================
; Load graphic page0
2019-11-02 15:22:21 +00:00
lda #<book_low
2019-10-07 04:12:36 +00:00
sta GBASL
2019-11-02 15:22:21 +00:00
lda #>book_low
2019-10-07 04:12:36 +00:00
sta GBASH
lda #$c ; load image to $c00
jsr load_rle_gr
lda #4
sta DRAW_PAGE
jsr gr_copy_to_current ; copy to page1
2019-11-16 02:51:06 +00:00
jsr play_frame_compressed ; 6+1237
2019-10-07 04:12:36 +00:00
; GR part
bit PAGE1
bit LORES ; 4
bit SET_GR ; 4
bit FULLGR ; 4
;=============================
; Load graphic page1
2019-11-02 15:22:21 +00:00
lda #<book_high
2019-10-07 04:12:36 +00:00
sta GBASL
2019-11-02 15:22:21 +00:00
lda #>book_high
2019-10-07 04:12:36 +00:00
sta GBASH
lda #$c ; load image to $c00
jsr load_rle_gr
lda #0
sta DRAW_PAGE
jsr gr_copy_to_current
2019-11-16 02:51:06 +00:00
jsr play_frame_compressed ; 6+1237
2019-10-07 04:12:36 +00:00
; GR part
bit PAGE0
;==============================
; setup graphics for vapor lock
;==============================
jsr vapor_lock
; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 lines to go
; GR part
bit LORES ; 4
bit SET_GR ; 4
bit FULLGR ; 4
jsr gr_copy_to_current ; 6+ 9292
; now we have 322 left
; 322 - 12 = 310
; - 3 for jmp
; 307
; Try X=9 Y=6 cycles=307
ldy #6 ; 2
loopQ: ldx #9 ; 2
loopR: dex ; 2
bne loopR ; 2nt/3
dey ; 2
bne loopQ ; 2nt/3
jmp book_loop ; 3
.align $100
;================================================
; Display Loop
;================================================
; We want to alternate between page1 and page2 every 65 cycles
; vblank = 4550 cycles to do scrolling
book_loop:
jsr $9800 ; cycle-counted page0/page1 flip code
2019-10-07 04:12:36 +00:00
;======================================================
; We have 4550 cycles in the vblank, use them wisely
;======================================================
2019-11-02 15:22:21 +00:00
; do_nothing should be
; 4550
; -12 -- enter/leave flip code
; -10 -- keypress code
2019-11-08 18:36:21 +00:00
; -1243
2019-11-02 15:22:21 +00:00
; =======
2019-11-08 18:36:21 +00:00
; 3285 cycles
2019-10-07 04:12:36 +00:00
2019-11-08 18:36:21 +00:00
jsr play_frame_compressed ; 6+1237
2019-10-07 04:12:36 +00:00
;=================================
; do nothing
;=================================
2019-11-08 18:36:21 +00:00
; and take 3285
2019-11-02 15:22:21 +00:00
2019-10-07 04:12:36 +00:00
book_do_nothing:
2019-11-08 18:36:21 +00:00
; Try X=163 Y=4 cycles=3285
2019-10-07 04:12:36 +00:00
2019-11-08 18:36:21 +00:00
ldy #4 ; 2
2019-10-07 04:12:36 +00:00
bloop1:
2019-11-08 18:36:21 +00:00
ldx #163 ; 2
2019-10-07 04:12:36 +00:00
bloop2:
dex ; 2
bne bloop2 ; 2nt/3
dey ; 2
bne bloop1 ; 2nt/3
2019-11-09 01:07:02 +00:00
lda FRAME_PLAY_PAGE ; 3
nop
2019-11-16 02:41:51 +00:00
cmp #2 ; 2 (decoding takes most of a page)
bne book_loop ; 3
2019-11-09 01:07:02 +00:00
; dec FRAMEL ; 5
; nop ; 2
; bne book_loop ; 3
2019-10-07 04:12:36 +00:00
2019-11-06 04:40:29 +00:00
; lda TEMP ; 3
; lda KEYPRESS ; 4
; bpl book_loop ; 3
2019-10-07 04:12:36 +00:00
2019-11-02 15:22:21 +00:00
rts ; 6
2019-10-07 04:12:36 +00:00
2019-11-06 04:40:29 +00:00
read_book_text:
.byte 2,11,"QUIET AT LAST",0
.byte 2,12,"FINALLY I CAN READ MY BOOK IN PEACE",0