For the CBM platforms, make revers() machine dependent and use the RVS flag

of the different machines instead of a separate one.
For the C128, make the textcolor() function work in 40 and 80 column mode.


git-svn-id: svn://svn.cc65.org/cc65/trunk@1787 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/cbm610/Makefile

@@ -40,6 +40,7 @@ OBJS =	_scrsize.o	\
 	peeksys.o	\
 	pokesys.o	\
         randomize.o     \
+	revers.o	\
 	rs232.o
 
 #--------------------------------------------------------------------------

libsrc/cbm610/cbm610.inc

@@ -167,7 +167,7 @@ rs232tail	     = $037D
 PgmKeyEnd	     = $0380
 PgmKeySeg	     = $0382
 PgmKeySize	     = $0383
-rvsFlag		     = $0397
+RVS		     = $0397
 linetmp		     = $0398
 LastPrtChar	     = $0399
 InsertFlag	     = $039A

libsrc/cbm610/cputc.s

@@ -12,7 +12,7 @@
         .import         PLOT
 	.import		_gotoxy
 	.import	     	popa
-	.import	     	xsize, revers
+	.import	     	xsize
 
 	.include     	"cbm610.inc"
 
@@ -94,7 +94,7 @@ putchar:
 	ldx	IndReg
 	ldy	#$0F
 	sty	IndReg
-    	ora	revers	    	; Set revers bit
+    	ora	RVS		; Set revers bit
        	ldy    	CURS_X
 	sta	(CharPtr),y 	; Set char
 	stx	IndReg

libsrc/cbm610/revers.s

@@ -0,0 +1,27 @@
+;
+; Ullrich von Bassewitz, 07.08.1998
+;
+; unsigned char revers (unsigned char onoff);
+;
+
+      	.export		_revers
+
+        .include        "cbm610.inc"
+
+.proc   _revers
+
+	ldx    	#$00		; Assume revers off
+	tay			; Test onoff
+	beq	L1		; Jump if off
+	ldx	#$80		; Load on value
+        ldy	#$00		; Assume old value is zero
+L1:     lda    	RVS             ; Load old value
+	stx	RVS             ; Set new value
+	beq	L2		; Jump if old value zero
+	iny			; Make old value = 1
+L2:	ldx	#$00		; Load high byte of result
+	tya			; Load low byte, set CC
+	rts
+
+.endproc
+