cc65/libsrc/c128/videomode.s

;
; Ullrich von Bassewitz, 2009-09-07
;
; unsigned __fastcall__ videomode (unsigned Mode);
; /* Set the video mode, return the old mode */
;

        .export         _videomode
        .import         SWAPPER, BSOUT

        .include        "c128.inc"


.proc   _videomode

        cmp     MODE                    ; Do we have this mode already?
        beq     @L9

        lda     MODE                    ; Get current mode ...
        pha                             ; ... and save it

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

        pla                             ; Get old mode into A

; Done, old mode is in A

@L9:    ldx     #$00                    ; Clear high byte
        rts

.endproc
New function videomode() for the C128. Marked toggle_videomode as deprecated. git-svn-id: svn://svn.cc65.org/cc65/trunk@4126 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-07 13:21:04 +00:00			`;`
			`; Ullrich von Bassewitz, 2009-09-07`
			`;`
Changed the prototype of videomode() to take and return an unsigned instead of an unsigned char. Two more video mode constants as discussed on the list. git-svn-id: svn://svn.cc65.org/cc65/trunk@4133 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-08 16:25:12 +00:00			`; unsigned __fastcall__ videomode (unsigned Mode);`
New function videomode() for the C128. Marked toggle_videomode as deprecated. git-svn-id: svn://svn.cc65.org/cc65/trunk@4126 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-07 13:21:04 +00:00			`; /* Set the video mode, return the old mode */`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _videomode`
Changed the prototype of videomode() to take and return an unsigned instead of an unsigned char. Two more video mode constants as discussed on the list. git-svn-id: svn://svn.cc65.org/cc65/trunk@4133 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-08 16:25:12 +00:00			`.import SWAPPER, BSOUT`
New function videomode() for the C128. Marked toggle_videomode as deprecated. git-svn-id: svn://svn.cc65.org/cc65/trunk@4126 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-07 13:21:04 +00:00
			`.include "c128.inc"`


			`.proc _videomode`

			`cmp MODE ; Do we have this mode already?`
			`beq @L9`

			`lda MODE ; Get current mode ...`
			`pha ; ... and save it`

			`jsr SWAPPER ; Toggle the mode`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`lda #14`
			`jsr BSOUT ; Switch to lower case chars`
Fix scrolling (again). The old code switched off scrolling completely, as a consequence it didn't work when write(FILENO_STDOUT, ...) was used. So we will have to disable scrolling on a per character basis in cputc. git-svn-id: svn://svn.cc65.org/cc65/trunk@4617 b7a2c559-68d2-44c3-8de9-860c34a00d81 2010-03-07 13:37:58 +00:00
New function videomode() for the C128. Marked toggle_videomode as deprecated. git-svn-id: svn://svn.cc65.org/cc65/trunk@4126 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-07 13:21:04 +00:00			`pla ; Get old mode into A`

			`; Done, old mode is in A`

			`@L9: ldx #$00 ; Clear high byte`
			`rts`

			`.endproc`