This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


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

libsrc/apple2/revers.s

@@ -0,0 +1,25 @@
+	;;
+	;; Kevin Ruland
+	;;
+	;; unsigned char __fastcall__ revers (unsigned char onoff)
+	;;
+
+	.export		_revers
+
+	.include	"apple2.inc"
+
+_revers:
+	ldy	TEXTTYP		; Stash old value
+	and	#$FF		; Test for any bit
+	bne	reverse		; Nothing set
+	lda	#$FF
+reverse:	
+	ora	#$3F	
+	sta	TEXTTYP
+	tya			; What was the old value?
+	eor	#$FF		; Normal = $FF, Reverse = $3F
+	beq	L2
+	lda	#01
+L2:	
+	rts
+