mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-13 03:29:32 +00:00
35 lines
633 B
ArmAsm
35 lines
633 B
ArmAsm
.include "zp.inc"
|
|
|
|
;================================
|
|
; Clear screen and setup graphics
|
|
;================================
|
|
|
|
jsr clear_screens ; clear top/bottom of page 0/1
|
|
jsr set_gr_page0
|
|
|
|
lda #<demo_rle
|
|
sta GBASL
|
|
lda #>demo_rle
|
|
sta GBASH
|
|
|
|
lda #<$400
|
|
sta BASL
|
|
lda #>$400
|
|
sta BASH
|
|
|
|
jsr load_rle_gr
|
|
|
|
loop_forever:
|
|
jmp loop_forever
|
|
|
|
|
|
;===============================================
|
|
; External modules
|
|
;===============================================
|
|
|
|
.include "../asm_routines/unrle_gr.s"
|
|
.include "../asm_routines/hlin_clearscreen.s"
|
|
.include "../asm_routines/gr_setpage.s"
|
|
|
|
.include "mode7_demo_backgrounds.inc"
|