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/file/appendrecord.s
+++ b/libsrc/geos/file/appendrecord.s
@@ -1,20 +1,17 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char AppendRecord  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _AppendRecord

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"
 	
 _AppendRecord:

 	jsr AppendRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/closerecordfile.s
+++ b/libsrc/geos/file/closerecordfile.s
@@ -1,19 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char CloseRecordFile  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _CloseRecordFile

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"
 	
 _CloseRecordFile:
 	jsr CloseRecordFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/deletefile.s
+++ b/libsrc/geos/file/deletefile.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char DeleteFile  (char *myName);

-	    .import __oserror
+	    .import setoserror
 	    .export _DeleteFile

 	    .include "../inc/jumptab.inc"
@@ -16,6 +16,4 @@ _DeleteFile:
 	sta r0L
 	stx r0H
 	jsr DeleteFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/deleterecord.s
+++ b/libsrc/geos/file/deleterecord.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char DeleteRecord  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _DeleteRecord

 	    .include "../inc/jumptab.inc"
@@ -14,6 +14,4 @@
 	
 _DeleteRecord:
 	jsr DeleteRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/findfile.s
+++ b/libsrc/geos/file/findfile.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char FindFile  (char *myName);

-	    .import __oserror
+	    .import setoserror
 	    .export _FindFile

 	    .include "../inc/jumptab.inc"
@@ -16,6 +16,4 @@ _FindFile:
 	sta r6L
 	stx r6H
 	jsr FindFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/findftypes.s
+++ b/libsrc/geos/file/findftypes.s
@@ -2,12 +2,12 @@
 ;
 ; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99, 30.7.2000
+; 25.12.1999, 2.1.2003

 ; char FindFTypes  (char *buffer, char fileType, char fileMax, char *Class);

 	    .export _FindFTypes
-	    .import popax, popa, __oserror
+	    .import popax, popa, setoserror

 	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
@@ -26,7 +26,7 @@ _FindFTypes:
 	sta r6L
 	stx r6H
 	jsr FindFTypes
-	stx __oserror
+	jsr setoserror
 ; return (fileMax - r7H)
 	lda tmpFileMax
 	sec
--- a/libsrc/geos/file/followchain.s
+++ b/libsrc/geos/file/followchain.s
@@ -1,13 +1,13 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char FollowChain  (struct tr_se *myTrSe, char *buffer);

 	    .export _FollowChain
-	    .import popax, __oserror
+	    .import popax, setoserror
 	    .import gettrse

 	    .include "../inc/jumptab.inc"
@@ -21,6 +21,4 @@ _FollowChain:
 	sta r1L
 	stx r1H
 	jsr FollowChain
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/freefile.s
+++ b/libsrc/geos/file/freefile.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char FreeFile  (struct trse myTrSe[]);

-	    .import __oserror
+	    .import setoserror
 	    .export _FreeFile

 	    .include "../inc/jumptab.inc"
@@ -16,6 +16,4 @@ _FreeFile:
 	sta r9L
 	stx r9H
 	jsr FreeFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/getfhdrinfo.s
+++ b/libsrc/geos/file/getfhdrinfo.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char GetFHdrInfo  (struct filehandle *myFile);

-	    .import __oserror
+	    .import setoserror
 	    .export _GetFHdrInfo

 	    .include "../inc/jumptab.inc"
@@ -16,6 +16,4 @@ _GetFHdrInfo:
 	sta r9L
 	stx r9H
 	jsr GetFHdrInfo
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/insertrecord.s
+++ b/libsrc/geos/file/insertrecord.s
@@ -1,19 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char InsertRecord  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _InsertRecord

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"
-	
+
 _InsertRecord:
 	jsr InsertRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/nextrecord.s
+++ b/libsrc/geos/file/nextrecord.s
@@ -1,19 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char NextRecord  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _NextRecord

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"
-	
+
 _NextRecord:
 	jsr NextRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/openrecordfile.s
+++ b/libsrc/geos/file/openrecordfile.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char OpenRecordFile  (char *myName);

-	    .import __oserror
+	    .import setoserror
 	    .export _OpenRecordFile

 	    .include "../inc/jumptab.inc"
@@ -16,6 +16,4 @@ _OpenRecordFile:
 	sta r0L
 	stx r0H
 	jsr OpenRecordFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/pointrecord.s
+++ b/libsrc/geos/file/pointrecord.s
@@ -1,19 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char PointRecord  (char recordNum);

-	    .import __oserror
+	    .import setoserror
 	    .export _PointRecord

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"
 	
 _PointRecord:
 	jsr PointRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/previousrecord.s
+++ b/libsrc/geos/file/previousrecord.s
@@ -1,19 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char PreviousRecord  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _PreviousRecord

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"

 _PreviousRecord:
 	jsr PreviousRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/readbyte.s
+++ b/libsrc/geos/file/readbyte.s
@@ -1,8 +1,8 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char ReadByte  (void);

@@ -10,9 +10,9 @@
 	    .export _ReadByte

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"

 _ReadByte:
 	jsr ReadByte
 	stx __oserror
+	ldx #0
 	rts
--- a/libsrc/geos/file/readfile.s
+++ b/libsrc/geos/file/readfile.s
@@ -1,13 +1,13 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char ReadFile  (struct tr_se *myTS, char *buffer, int length);

 	    .export _ReadFile
-	    .import popax, __oserror
+	    .import popax, setoserror
 	    .import gettrse

 	    .include "../inc/jumptab.inc"
@@ -24,6 +24,4 @@ _ReadFile:
 	sta r1L
 	stx r1H
 	jsr ReadFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/readrecord.s
+++ b/libsrc/geos/file/readrecord.s
@@ -1,13 +1,13 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char ReadRecord  (char *buffer, int length);

 	    .export _ReadRecord
-	    .import popax, __oserror
+	    .import popax, setoserror

 	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
@@ -19,6 +19,4 @@ _ReadRecord:
 	sta r7L
 	stx r7H
 	jsr ReadRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/renamefile.s
+++ b/libsrc/geos/file/renamefile.s
@@ -1,17 +1,17 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char RenameFile  (char *source, char *target);

 	    .export _RenameFile
-	    .import popax, __oserror
+	    .import popax, setoserror

 	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
-	
+
 _RenameFile:
 	sta r0L
 	stx r0H
@@ -19,6 +19,4 @@ _RenameFile:
 	sta r6L
 	stx r6H
 	jsr RenameFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/savefile.s
+++ b/libsrc/geos/file/savefile.s
@@ -1,12 +1,12 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char SaveFile  (struct fileheader *myHeader);

-	    .import __oserror
+	    .import setoserror
 	    .export _SaveFile

 	    .include "../inc/jumptab.inc"
@@ -16,6 +16,4 @@ _SaveFile:
 	sta r9L
 	stx r9H
 	jsr SaveFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/updaterecordfile.s
+++ b/libsrc/geos/file/updaterecordfile.s
@@ -1,19 +1,16 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char UpdateRecordFile  (void);

-	    .import __oserror
+	    .import setoserror
 	    .export _UpdateRecordFile

 	    .include "../inc/jumptab.inc"
-	    .include "../inc/geossym.inc"

 _UpdateRecordFile:
 	jsr UpdateRecordFile
-	stx __oserror
-	txa
-	rts
+	jmp setoserror
--- a/libsrc/geos/file/writerecord.s
+++ b/libsrc/geos/file/writerecord.s
@@ -1,13 +1,13 @@

 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.1999, 2.1.2003

 ; char WriteRecord  (char *buffer, int length);

 	    .export _WriteRecord
-	    .import popax, __oserror
+	    .import popax, setoserror

 	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
@@ -19,6 +19,4 @@ _WriteRecord:
 	sta r7L
 	stx r7H
 	jsr WriteRecord
-	stx __oserror
-	txa
-	rts
+	jmp setoserror