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/system/get_ostype.s
+++ b/libsrc/geos/system/get_ostype.s
@@ -15,6 +15,7 @@
 	    .include "../inc/geossym2.inc"

 get_ostype:
+	    ldx #0
 	    lda version
 	    and #%11110000
 	    cmp #$10
@@ -50,5 +51,6 @@ ntsc:	    lda #$80			; NTSC

 modeend:    stx tmp1
 	    ora tmp1
+	    ldx #0
 	    plp                         ; restore interrupt state
 	    rts
--- a/libsrc/geos/system/getrandom.s
+++ b/libsrc/geos/system/getrandom.s
@@ -1,13 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 30.10.99
+; 30.10.1999, 2.1.2003

-; int GetRandom (void);
+; char GetRandom (void);

 	    .export _GetRandom

 	    .include "../inc/jumptab.inc"

-_GetRandom = GetRandom
+_GetRandom:
+	    jsr GetRandom
+	    ldx #0
+	    rts