mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 07:29:32 +00:00
46 lines
518 B
ArmAsm
46 lines
518 B
ArmAsm
; Color test
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
|
|
vgi_color_test:
|
|
jsr SETGR
|
|
jsr HGR
|
|
bit FULLGR
|
|
|
|
jsr vgi_make_tables
|
|
|
|
; get pointer to image data
|
|
|
|
lda #<color_test_data
|
|
sta VGIL
|
|
lda #>color_test_data
|
|
sta VGIH
|
|
|
|
jsr play_vgi
|
|
|
|
jsr wait_until_keypress
|
|
|
|
done:
|
|
jmp done
|
|
|
|
.include "./vgi_fast/vgi_common.s"
|
|
|
|
.include "color_test.data"
|
|
|
|
|
|
;============================
|
|
; WAIT UNTIL KEYPRESS
|
|
;============================
|
|
|
|
wait_until_keypress:
|
|
|
|
lda KEYPRESS
|
|
bpl wait_until_keypress
|
|
|
|
bit KEYRESET
|
|
|
|
rts
|
|
|