dos33fsprogs/demos/lores_escape/open_book.s

107 lines
1.4 KiB
ArmAsm
Raw Normal View History

2019-11-06 02:20:11 +00:00
; Open book
; just plain gr animation
; by deater (Vince Weaver) <vince@deater.net>
open_book:
;===================
; init screen
2019-11-06 04:09:00 +00:00
; jsr gr_clear_all
2019-11-06 02:20:11 +00:00
;===================
; init vars
lda #0
sta DRAW_PAGE
; GR part
bit PAGE0
2019-11-06 04:09:00 +00:00
bit FULLGR
lda #<book00_rle
sta GBASL
lda #>book00_rle
sta GBASH
lda #$4
2019-11-15 04:06:32 +00:00
jsr load_rle_gr ; load book to PAGE0
2019-11-06 04:09:00 +00:00
jsr clear_bottom
bit TEXTGR
lda #<open_book_text
sta OUTL
2019-11-06 02:20:11 +00:00
2019-11-06 04:09:00 +00:00
lda #>open_book_text
sta OUTH
jsr move_and_print
jsr move_and_print
2019-11-15 04:06:32 +00:00
lda #<book00_rle
sta GBASL
lda #>book00_rle
sta GBASH
lda #$8
jsr load_rle_gr ; load book to PAGE1
2019-11-06 04:09:00 +00:00
lda #200
jsr long_wait
lda #200
jsr long_wait
; continue with animation
2019-11-06 02:20:11 +00:00
lda #<open_book_sequence
sta INTRO_LOOPL
lda #>open_book_sequence
sta INTRO_LOOPH
2019-11-06 04:09:00 +00:00
bit FULLGR ; 4
2019-11-15 04:06:32 +00:00
bit PAGE1
2019-11-06 04:09:00 +00:00
2019-11-06 02:20:11 +00:00
jsr run_sequence
lda #100
jsr long_wait
rts
BOOK_FRAMERATE = 25
open_book_sequence:
.byte 255
.word book00_rle
.byte BOOK_FRAMERATE
.word book02_rle
.byte BOOK_FRAMERATE
.word book03_rle
.byte BOOK_FRAMERATE
.word book04_rle
.byte BOOK_FRAMERATE
.word book05_rle
.byte 255
.word book01_rle
.byte BOOK_FRAMERATE
.word book06_rle
.byte BOOK_FRAMERATE
.word book07_rle
.byte BOOK_FRAMERATE
.word book08_rle
.byte BOOK_FRAMERATE
.word book09_rle
.byte BOOK_FRAMERATE
.word book10_rle
.byte 0
.word book10_rle
2019-11-06 04:09:00 +00:00
open_book_text:
.byte 1,21,"MEANWHILE AT A DISTANT STARBASE PRISON",0
.byte 3,22,"AN INTERESTING PACKAGE IS RECEIVED",0