mirror of
https://github.com/cc65/cc65.git
synced 2024-07-07 19:29:18 +00:00
31 lines
714 B
ArmAsm
31 lines
714 B
ArmAsm
;
|
|
; 2019-11-06, Greg King
|
|
;
|
|
; void __fastcall__ set_tv (unsigned char);
|
|
; /* Set the video mode the machine will use. */
|
|
;
|
|
|
|
.export _set_tv
|
|
|
|
.include "cx16.inc"
|
|
|
|
|
|
.proc _set_tv
|
|
php
|
|
sei ; Don't let interrupts interfere
|
|
|
|
; Point to the video output register.
|
|
|
|
stz VERA::CTRL ; Use port 0
|
|
ldx #<VERA::COMPOSER::VIDEO
|
|
ldy #>VERA::COMPOSER::VIDEO
|
|
stx VERA::ADDR
|
|
sty VERA::ADDR+1
|
|
ldx #^VERA::COMPOSER::VIDEO
|
|
stx VERA::ADDR+2
|
|
|
|
sta VERA::DATA0
|
|
plp ; Re-enable interrupts
|
|
rts
|
|
.endproc
|