cc65/libsrc/geos/conio/revers.s


;
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001

; unsigned char revers (unsigned char onoff);

	    .export _revers
	    .importzp tmp1

	    .include "../inc/geossym.inc"
	    .include "../inc/const.inc"

_revers:
	    tax
	    bne L0			; turn on
	    lda #0
	    .byte $2c
L0:	    lda #SET_REVERSE
	    sta tmp1

	    lda currentMode
	    tax
	    and #SET_REVERSE
	    tay				; store old value
	    txa
	    and #%11011111		; mask out
	    ora tmp1			; set new value
	    sta currentMode

	    ldx #0
	    tya
	    beq L1
	    lda #1
L1:	    rts
simple conio support for GEOS git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-10-27 17:13:22 +00:00
			`;`
			`; Maciej 'YTM/Elysium' Witkowiak`
			`;`
			`; 27.10.2001`

			`; unsigned char revers (unsigned char onoff);`

			`.export _revers`
conio with fixed width and proportional font support git-svn-id: svn://svn.cc65.org/cc65/trunk@1178 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-03-08 16:47:34 +00:00			`.importzp tmp1`
simple conio support for GEOS git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-10-27 17:13:22 +00:00
			`.include "../inc/geossym.inc"`
			`.include "../inc/const.inc"`

			`_revers:`
			`tax`
			`bne L0 ; turn on`
			`lda #0`
			`.byte $2c`
			`L0: lda #SET_REVERSE`
			`sta tmp1`

			`lda currentMode`
			`tax`
			`and #SET_REVERSE`
			`tay ; store old value`
			`txa`
			`and #%11011111 ; mask out`
			`ora tmp1 ; set new value`
			`sta currentMode`

			`ldx #0`
			`tya`
			`beq L1`
			`lda #1`
			`L1: rts`