cc65/libsrc/c128/toggle_videomode.s

;
; Ullrich von Bassewitz, 2003-02-13
;
; void toggle_videomode (void);
; /* Toggle the video mode between 40 and 80 chars (calls SWAPPER) */
;

	.export		_toggle_videomode

	.include	"c128.inc"

.proc   _toggle_videomode 

        jsr     SWAPPER                 ; Toggle the mode
 	lda     #14
 	jmp     BSOUT                   ; Switch to lower case chars

.endproc
New function toggle_videomode git-svn-id: svn://svn.cc65.org/cc65/trunk@1980 b7a2c559-68d2-44c3-8de9-860c34a00d81 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`

			`.include "c128.inc"`

Switch to lower case chars in toggle_videomode git-svn-id: svn://svn.cc65.org/cc65/trunk@2031 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-03-17 21:09:27 +00:00			`.proc _toggle_videomode`

			`jsr SWAPPER ; Toggle the mode`
			`lda #14`
			`jmp BSOUT ; Switch to lower case chars`

			`.endproc`
New function toggle_videomode git-svn-id: svn://svn.cc65.org/cc65/trunk@1980 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-02-13 21:12:11 +00:00