all functions returning char in A now have X cleared

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

libsrc/geos/devel/fio_module.s

@@ -57,6 +57,7 @@ _open:
 	lda	ptr1
 	ldx	ptr1+1
 	jsr	_FindFile	; try to find the file
+	tax
 	bne	@error
 
 	lda	dirEntryBuf + OFF_DE_TR_SC		; tr&se for ReadByte (r1)
@@ -139,7 +140,7 @@ _read:
 	bne	@L2
 	inc	ptr3+1
 
-@L2:	txa			; was there error ?
+@L2:	lda	__oserror	; was there error ?
 	beq	@L3
 	cmp	#BFR_OVERFLOW	; EOF?
 	bne	@error

libsrc/geos/devel/geos-tgi.s

@@ -303,6 +303,8 @@ INIT:
 ;
 
 DONE:
+	jsr GETERROR		; clear error (if any)
+
 	lda #0
 	jsr SETVIEWPAGE		; switch into viewpage 0
 
@@ -434,6 +436,8 @@ SETCOLOR:
 ;
 
 SETPALETTE:
+	jsr	GETERROR	; clear error (if any)
+
         ldy     #PALETTESIZE - 1
 @L1:    lda     (ptr1),y        ; Copy the palette
         and     #$0F            ; Make a valid color