mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-29 07:29:12 +00:00
46 lines
670 B
ArmAsm
46 lines
670 B
ArmAsm
; Weird head lens/rotozoom
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
.include "../zp.inc"
|
|
.include "../hardware.inc"
|
|
.include "../qload.inc"
|
|
.include "../music.inc"
|
|
|
|
lens_start:
|
|
;=====================
|
|
; initializations
|
|
;=====================
|
|
|
|
; debug
|
|
; force right location in music
|
|
|
|
lda #34
|
|
sta current_pattern_smc+1
|
|
jsr pt3_set_pattern
|
|
|
|
|
|
|
|
bit SET_GR
|
|
bit HIRES
|
|
bit FULLGR
|
|
bit PAGE1
|
|
|
|
;================================
|
|
; ROTO
|
|
;================================
|
|
|
|
jsr do_rotozoom
|
|
|
|
|
|
lens_end:
|
|
rts
|
|
|
|
|
|
.include "../wait_keypress.s"
|
|
.include "../zx02_optim.s"
|
|
.include "../irq_wait.s"
|
|
|
|
.include "roto.s"
|
|
|