;
; Ullrich von Bassewitz, 17.06.1998
;
; unsigned char cursor (unsigned char onoff);
;

	.export		_cursor
	.import		cursor


.segment "LIBCODE"
.proc	_cursor

	tay			; onoff into Y
	ldx	#0		; High byte of result
	lda	cursor		; Get old value
	sty	cursor		; Set new value
	rts

.endproc

