;
; Robert Justice, 2026
;
; signed char __fastcall__ videomode (unsigned mode);
;
        .export  _videomode
        .import  putcdirect, consvpwidth, consvpheight

        .include        "apple3.inc"

_videomode:
        pha                         ; Save mode
        ldy     #80
        cmp     #VIDEOMODE_80x24
        beq     :+
        ldy     #40
:       sty     consvpwidth
        ldy     #24
        sty     consvpheight
        lda     #CONSOLE_TEXT_MODE
        jsr     putcdirect
        pla
        jsr     putcdirect
        rts