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/conio/cursor.s

@@ -0,0 +1,26 @@
+;
+; Ullrich von Bassewitz, 17.06.1998
+;
+; unsigned char cursor (unsigned char onoff);
+;
+
+	.export		_cursor
+	.export		cursor
+
+
+.proc	_cursor
+
+	tay			; onoff into Y
+	ldx	#0		; High byte of result
+	lda	cursor		; Get old value
+	sty	cursor		; Set new value
+	rts
+
+.endproc
+
+
+.bss
+
+cursor:	.res	1
+
+