2019-09-27 03:38:51 -04:00
|
|
|
;
|
2019-11-16 13:11:40 -05:00
|
|
|
; 2019-11-06, Greg King
|
2019-09-27 03:38:51 -04:00
|
|
|
;
|
|
|
|
|
; 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
|
2019-11-16 13:11:40 -05:00
|
|
|
ldx #<VERA::COMPOSER::VIDEO
|
|
|
|
|
ldy #>VERA::COMPOSER::VIDEO
|
|
|
|
|
stx VERA::ADDR
|
|
|
|
|
sty VERA::ADDR+1
|
|
|
|
|
ldx #^VERA::COMPOSER::VIDEO
|
|
|
|
|
stx VERA::ADDR+2
|
2019-09-27 03:38:51 -04:00
|
|
|
|
|
|
|
|
sta VERA::DATA0
|
|
|
|
|
plp ; Re-enable interrupts
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
