Renamed the old geos target to geos-cbm.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-28 17:11:21 +00:00
parent 70a3bcb0df
commit e6d74e7205
215 changed files with 20 additions and 20 deletions
--- a/libsrc/geos-cbm/conio/cursor.s
+++ b/libsrc/geos-cbm/conio/cursor.s
@@ -0,0 +1,28 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 27.10.2001, 23.12.2002
+
+; unsigned char cursor (unsigned char onoff);
+
+	    .export _cursor
+	    .import update_cursor
+	    .importzp cursor_flag
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_cursor:
+
+	tay			; onoff into Y
+	ldx	#0		; High byte of result
+	lda	cursor_flag	; Get old value
+	pha
+	sty	cursor_flag	; Set new value
+	tya
+	beq	L1
+	lda	curHeight	; prepare cursor
+	jsr	InitTextPrompt
+	jsr	update_cursor	; place it on screen
+L1:	pla
+	rts