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/cbm/revers.s

@@ -0,0 +1,26 @@
+;
+; Ullrich von Bassewitz, 07.08.1998
+;
+; unsigned char revers (unsigned char onoff);
+;
+
+      	.export		_revers
+	.export		revers
+
+_revers:
+	ldx    	#$00		; Assume revers off
+	tay			; Test onoff
+	beq	L1		; Jump if off
+	ldx	#$80		; Load on value
+L1:	ldy	#$00		; Assume old value is zero
+	lda    	revers 	       	; Load old value
+	stx	revers		; 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
+
+.bss
+
+revers:	.res	1