2019-09-27 07:38:51 +00:00
|
|
|
;
|
2022-04-02 13:39:35 +00:00
|
|
|
; 2022-03-28, Greg King
|
2019-09-27 07:38:51 +00:00
|
|
|
;
|
2019-11-16 18:11:40 +00:00
|
|
|
; /* Video mode defines */
|
2022-04-02 13:39:35 +00:00
|
|
|
; #define VIDEOMODE_80x60 0x00
|
|
|
|
|
; #define VIDEOMODE_80x30 0x01
|
|
|
|
|
; #define VIDEOMODE_40x60 0x02
|
|
|
|
|
; #define VIDEOMODE_40x30 0x03
|
|
|
|
|
; #define VIDEOMODE_40x15 0x04
|
|
|
|
|
; #define VIDEOMODE_20x30 0x05
|
|
|
|
|
; #define VIDEOMODE_20x15 0x06
|
|
|
|
|
; #define VIDEOMODE_320x240 0x80
|
2019-11-16 18:11:40 +00:00
|
|
|
; #define VIDEOMODE_SWAP (-1)
|
|
|
|
|
;
|
|
|
|
|
; signed char __fastcall__ videomode (signed char Mode);
|
|
|
|
|
; /* Set the video mode, return the old mode.
|
|
|
|
|
; ** Return -1 if Mode isn't valid.
|
|
|
|
|
; ** Call with one of the VIDEOMODE_xx constants.
|
|
|
|
|
; */
|
2019-09-27 07:38:51 +00:00
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _videomode
|
|
|
|
|
|
2022-04-02 13:39:35 +00:00
|
|
|
.import SCREEN_MODE
|
2019-09-27 07:38:51 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
.proc _videomode
|
2022-04-02 13:39:35 +00:00
|
|
|
sec ; Get old mode
|
|
|
|
|
pha
|
|
|
|
|
jsr SCREEN_MODE
|
|
|
|
|
plx
|
|
|
|
|
pha ; Save old mode
|
|
|
|
|
txa
|
|
|
|
|
clc ; Set new mode
|
|
|
|
|
jsr SCREEN_MODE
|
2019-11-16 18:11:40 +00:00
|
|
|
|
|
|
|
|
pla ; Get back old mode
|
|
|
|
|
ldx #>$0000 ; Clear high byte
|
2022-04-02 13:39:35 +00:00
|
|
|
bcc @L1
|
2019-09-27 07:38:51 +00:00
|
|
|
|
2022-04-02 13:39:35 +00:00
|
|
|
; The new mode is invalid. Return -1.
|
2019-09-27 07:38:51 +00:00
|
|
|
|
2020-01-10 20:17:23 +00:00
|
|
|
dex
|
|
|
|
|
txa
|
2022-04-02 13:39:35 +00:00
|
|
|
@L1: rts
|
2019-09-27 07:38:51 +00:00
|
|
|
.endproc
|
