;
; unsigned __fastcall__ videomode (unsigned mode);
;
+ .ifdef __APPLE2ENH__
- .export _videomode
+ .export _videomode
.import COUT
.include "apple2.inc"
; If we are in 40 column mode and want to set 80 column mode
; then we first presume the 80 column firmware being already
; active and print the ctrl-char code (this causes a garbage
- : char to be printed on the screen if isn't already active)
+ ; char to be printed on the screen if isn't already active)
jsr COUT
; If we successfully switched to 80 column mode then the 80
; The 80 column firmware isn't already active so we need to
; initialize it - causing the screen to be cleared and thus
; the garbage char printed above to be erased (but for some
- ; reason the cursor horizontal position not not be zeroed)
+ ; reason the cursor horizontal position not to be zeroed)
stz CH
; Initializing the 80 column firmware needs the ROM switched
bpl :+
lda #$12 ; Ctrl-char code for 80 cols
: rts ; X was preserved all the way
+
+ .endif ; __APPLE2ENH__