2003-02-13 21:12:11 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2003-02-13
|
|
|
|
|
;
|
|
|
|
|
; void toggle_videomode (void);
|
|
|
|
|
; /* Toggle the video mode between 40 and 80 chars (calls SWAPPER) */
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _toggle_videomode
|
2003-03-18 11:27:49 +00:00
|
|
|
.import SWAPPER, BSOUT
|
2003-02-13 21:12:11 +00:00
|
|
|
|
2003-03-18 11:27:49 +00:00
|
|
|
.proc _toggle_videomode
|
2003-03-17 21:09:27 +00:00
|
|
|
|
|
|
|
|
jsr SWAPPER ; Toggle the mode
|
|
|
|
|
lda #14
|
|
|
|
|
jmp BSOUT ; Switch to lower case chars
|
|
|
|
|
|
|
|
|
|
.endproc
|
2003-02-13 21:12:11 +00:00
|
|
|
|
