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
2003-01-02 01:50:39 +00:00
parent 38dcb86552
commit e6e35390d1
56 changed files with 239 additions and 279 deletions
--- a/libsrc/geos/devel/geos-tgi.s
+++ b/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