new GEOSZP segment for library use, added GEOS tgi driver, fixes in GEOS conio

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

libsrc/geos/conio/_scrsize.s

@@ -10,6 +10,8 @@
 	.include 	"../inc/geossym.inc"
 
 	.export		xsize, ysize
+	.importzp	cursor_r, cursor_c
+	.import		_cursor
 	.constructor	initscrsize
 
 .code
@@ -23,7 +25,12 @@ L1:	lda	#40		; 40 columns (more or less)
 	sta	xsize
 	lda	#24		; something like that for Y size
 	sta	ysize
-	rts
+	ldx	#1
+	stx	cursor_r
+	dex
+	stx	cursor_c
+	txa
+	jmp	_cursor		; home and update cursor
 
 .bss
 

libsrc/geos/conio/cursor.s

@@ -6,10 +6,9 @@
 
 ; unsigned char cursor (unsigned char onoff);
 
-	    .exportzp cursor_x, cursor_y, cursor_flag
-	    .exportzp cursor_c, cursor_r
 	    .export _cursor
 	    .import update_cursor
+	    .importzp cursor_flag
 	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
 
@@ -27,12 +26,3 @@ _cursor:
 	jsr	update_cursor	; place it on screen
 L1:	pla
 	rts
-
-.zeropage
-
-cursor_x:	.res 2		; Cursor column (word)
-cursor_y:	.res 1		; Cursor row
-cursor_flag:	.res 1		; Cursor on/off (0-off)
-
-cursor_c:	.res 1		; Cursor column (0-39/79)
-cursor_r:	.res 1		; Cursor row    (0-24)