mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-08 15:29:41 +00:00
103 lines
1.6 KiB
ArmAsm
103 lines
1.6 KiB
ArmAsm
; do a (hopefully fast) roto-zoom
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
;================================
|
|
; Clear screen and setup graphics
|
|
;================================
|
|
|
|
jsr HOME
|
|
bit PAGE0 ; set page 0
|
|
bit LORES ; Lo-res graphics
|
|
bit TEXTGR ; mixed gr/text mode
|
|
bit SET_GR ; set graphics
|
|
|
|
lda #0
|
|
sta DISP_PAGE
|
|
lda #4
|
|
sta DRAW_PAGE
|
|
|
|
;===================================
|
|
; Clear top/bottom of page 0 and 1
|
|
;===================================
|
|
|
|
jsr clear_screens
|
|
|
|
;======================
|
|
; show the title screen
|
|
;======================
|
|
|
|
; Title Screen
|
|
|
|
title_screen:
|
|
|
|
;===========================
|
|
; Clear both bottoms
|
|
|
|
jsr clear_bottoms
|
|
|
|
;=============================
|
|
; Load title
|
|
|
|
lda #<(title_lzsa)
|
|
sta getsrc_smc+1
|
|
lda #>(title_lzsa)
|
|
sta getsrc_smc+2
|
|
|
|
lda #$0c
|
|
|
|
jsr decompress_lzsa2_fast
|
|
|
|
;=================================
|
|
; copy to both pages
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
jsr gr_copy_to_current
|
|
|
|
;=================================
|
|
; main loop
|
|
|
|
lda #0
|
|
sta ANGLE
|
|
|
|
main_loop:
|
|
|
|
jsr rotozoom
|
|
|
|
jsr page_flip
|
|
|
|
wait_for_keypress:
|
|
lda KEYPRESS
|
|
bpl wait_for_keypress
|
|
|
|
bit KEYRESET
|
|
|
|
inc ANGLE
|
|
|
|
jmp main_loop
|
|
|
|
|
|
|
|
;===============================================
|
|
; External modules
|
|
;===============================================
|
|
|
|
.include "rotozoom.s"
|
|
|
|
.include "gr_pageflip.s"
|
|
.include "gr_fast_clear.s"
|
|
.include "gr_copy.s"
|
|
.include "decompress_fast_v2.s"
|
|
.include "gr_offsets.s"
|
|
|
|
.include "gr_plot.s"
|
|
.include "gr_scrn.s"
|
|
|
|
;===============================================
|
|
; Data
|
|
;===============================================
|
|
|
|
.include "tfv_title.inc"
|