bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

errno/oserrno stuff is cleaned up, saved some bytes in dialog box functions

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@775 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2001-07-04 22:08:13 +00:00
parent fc51f7f77f
commit ebce3ebbc3
54 changed files with 105 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
include/geos/gsym.h
View File

@@ -119,9 +119,6 @@
#define STATUS *(char*)0x90 #define STATUS *(char*)0x90
#define curDevice *(char*)0xba #define curDevice *(char*)0xba
/* Here's my own errno location, I hope this won't confilct with anything... */
#define errno *(char*)0x91
#define irqvec *(unsigned int*)0x0314 #define irqvec *(unsigned int*)0x0314
#define bkvec *(unsigned int*)0x0316 #define bkvec *(unsigned int*)0x0316
#define nmivec *(unsigned int*)0x0318 #define nmivec *(unsigned int*)0x0318

4
libsrc/geos/Makefile
View File

@@ -4,10 +4,10 @@
# #
# Maciej 'YTM/Elysium' Witkowiak # Maciej 'YTM/Elysium' Witkowiak
OBJ_DIRS=disk dlgbox file graph menuicon memory mousesprite process system OBJ_DIRS=devel disk dlgbox file graph menuicon memory mousesprite process system
all: all:
@for i in devel $(OBJ_DIRS); do $(MAKE) -C $$i; done @for i in $(OBJ_DIRS); do $(MAKE) -C $$i; done
@mv devel/crt0.o ../geos.o @mv devel/crt0.o ../geos.o
@for i in $(OBJ_DIRS); do $(AR) a ../geos.lib $$i/*.o; done @for i in $(OBJ_DIRS); do $(AR) a ../geos.lib $$i/*.o; done

4
libsrc/geos/disk/blkalloc.s
View File

@@ -6,7 +6,7 @@
; char BlkAlloc (struct tr_se output[], int length); ; char BlkAlloc (struct tr_se output[], int length);
.import popax .import popax, __oserror
.export _BlkAlloc .export _BlkAlloc
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -19,6 +19,6 @@ _BlkAlloc:
sta r4L sta r4L
stx r4H stx r4H
jsr BlkAlloc jsr BlkAlloc
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/calcblksfree.s
View File

@@ -6,6 +6,7 @@
; int CalcBlksFree (void); ; int CalcBlksFree (void);
.import __oserror
.export _CalcBlksFree .export _CalcBlksFree
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,7 +14,7 @@
_CalcBlksFree: _CalcBlksFree:
jsr CalcBlksFree jsr CalcBlksFree
stx errno stx __oserror
lda r4L lda r4L
ldx r4H ldx r4H
rts rts

3
libsrc/geos/disk/changediskdevice.s
View File

@@ -6,6 +6,7 @@
; char ChangeDiskDevice (char newDriveNumber); ; char ChangeDiskDevice (char newDriveNumber);
.import __oserror
.export _ChangeDiskDevice .export _ChangeDiskDevice
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_ChangeDiskDevice: _ChangeDiskDevice:
jsr ChangeDiskDevice jsr ChangeDiskDevice
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/chkdkgeos.s
View File

@@ -6,6 +6,7 @@
; char ChkDkGEOS (void); ; char ChkDkGEOS (void);
.import __oserror
.export _ChkDkGEOS .export _ChkDkGEOS
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_ChkDkGEOS: _ChkDkGEOS:
jsr ChkDkGEOS jsr ChkDkGEOS
stx errno stx __oserror
lda isGEOS lda isGEOS
rts rts

4
libsrc/geos/disk/dio_read.s
View File

@@ -9,7 +9,7 @@
; sectnum_t - 16bit ; sectnum_t - 16bit
; ;
.import dio_params .import dio_params, __oserror
.export _dio_read .export _dio_read
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -18,7 +18,7 @@
jsr dio_params jsr dio_params
jsr ReadBlock jsr ReadBlock
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/dio_write.s
View File

@@ -9,7 +9,7 @@
; sectnum_t - 16bit ; sectnum_t - 16bit
; ;
.import dio_params .import dio_params, __oserror
.export _dio_write .export _dio_write
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -18,7 +18,7 @@
jsr dio_params jsr dio_params
jsr WriteBlock jsr WriteBlock
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/dio_writev.s
View File

@@ -9,7 +9,7 @@
; sectnum_t - 16bit ; sectnum_t - 16bit
; ;
.import dio_params .import dio_params, __oserror
.export _dio_write_verify .export _dio_write_verify
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -18,7 +18,7 @@
jsr dio_params jsr dio_params
jsr VerWriteBlock jsr VerWriteBlock
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/freeblock.s
View File

@@ -6,7 +6,7 @@
; char FreeBlock (struct tr_se *TS); ; char FreeBlock (struct tr_se *TS);
.import gettrse .import gettrse, __oserror
.export _FreeBlock .export _FreeBlock
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -17,6 +17,6 @@ _FreeBlock:
sta r6L sta r6L
stx r6H stx r6H
jsr FreeBlock jsr FreeBlock
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/getblock.s
View File

@@ -6,7 +6,7 @@
; char GetBlock (struct tr_se *myTS, char *buffer); ; char GetBlock (struct tr_se *myTS, char *buffer);
.import popax .import popax, __oserror
.import gettrse .import gettrse
.export _GetBlock .export _GetBlock
@@ -21,6 +21,6 @@ _GetBlock:
sta r1L sta r1L
stx r1H stx r1H
jsr GetBlock jsr GetBlock
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/getdirhead.s
View File

@@ -6,6 +6,7 @@
; char GetDirHead (void); ; char GetDirHead (void);
.import __oserror
.export _GetDirHead .export _GetDirHead
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_GetDirHead: _GetDirHead:
jsr GetDirHead jsr GetDirHead
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/getptrcurdknm.s
View File

@@ -8,6 +8,7 @@
; (fills curName[17] with current disk's name) ; (fills curName[17] with current disk's name)
.importzp ptr4, ptr3 .importzp ptr4, ptr3
.import __oserror
.export _GetPtrCurDkNm .export _GetPtrCurDkNm
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -30,5 +31,5 @@ namelp: lda (ptr4),y
bne namelp bne namelp
fin: lda #0 fin: lda #0
sta (ptr3),y sta (ptr3),y
stx errno stx __oserror
rts rts

3
libsrc/geos/disk/newdisk.s
View File

@@ -6,6 +6,7 @@
; char NewDisk (void); ; char NewDisk (void);
.import __oserror
.export _NewDisk .export _NewDisk
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_NewDisk: _NewDisk:
jsr NewDisk jsr NewDisk
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/nxtblkalloc.s
View File

@@ -6,7 +6,7 @@
; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length ); ; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
.import popax .import popax, __oserror
.import gettrse .import gettrse
.importzp ptr4 .importzp ptr4
.export _NxtBlkAlloc .export _NxtBlkAlloc
@@ -25,6 +25,6 @@ _NxtBlkAlloc:
sta r3L sta r3L
stx r3H stx r3H
jsr NxtBlkAlloc jsr NxtBlkAlloc
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/opendisk.s
View File

@@ -6,6 +6,7 @@
; char OpenDisk (void); ; char OpenDisk (void);
.import __oserror
.export _OpenDisk .export _OpenDisk
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_OpenDisk: _OpenDisk:
jsr OpenDisk jsr OpenDisk
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/putblock.s
View File

@@ -6,7 +6,7 @@
; char PutBlock (struct tr_se *myTS, char *buffer); ; char PutBlock (struct tr_se *myTS, char *buffer);
.import popax .import popax, __oserror
.import gettrse .import gettrse
.export _PutBlock .export _PutBlock
@@ -21,6 +21,6 @@ _PutBlock:
sta r1L sta r1L
stx r1H stx r1H
jsr PutBlock jsr PutBlock
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/putdirhead.s
View File

@@ -6,6 +6,7 @@
; char PutDirHead (void); ; char PutDirHead (void);
.import __oserror
.export _PutDirHead .export _PutDirHead
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_PutDirHead: _PutDirHead:
jsr PutDirHead jsr PutDirHead
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/readblock.s
View File

@@ -6,7 +6,7 @@
; char ReadBlock (struct tr_se myTS, char *buffer); ; char ReadBlock (struct tr_se myTS, char *buffer);
.import popax .import popax, __oserror
.import gettrse .import gettrse
.export _ReadBlock .export _ReadBlock
@@ -21,6 +21,6 @@ _ReadBlock:
sta r1L sta r1L
stx r1H stx r1H
jsr ReadBlock jsr ReadBlock
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/readbuff.s
View File

@@ -6,6 +6,7 @@
; char ReadBuff (struct tr_se); ; char ReadBuff (struct tr_se);
.import __oserror
.import gettrse .import gettrse
.export _ReadBuff .export _ReadBuff
@@ -17,6 +18,6 @@ _ReadBuff:
sta r1L sta r1L
stx r1H stx r1H
jsr ReadBuff jsr ReadBuff
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/setgeosdisk.s
View File

@@ -6,6 +6,7 @@
; char SetGEOSDisk (void); ; char SetGEOSDisk (void);
.import __oserror
.export _SetGEOSDisk .export _SetGEOSDisk
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_SetGEOSDisk: _SetGEOSDisk:
jsr SetGEOSDisk jsr SetGEOSDisk
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/setnextfree.s
View File

@@ -6,6 +6,7 @@
; struct tr_se SetNextFree (struct tr_se *startTS); ; struct tr_se SetNextFree (struct tr_se *startTS);
.import __oserror
.import gettrse .import gettrse
.export _SetNextFree .export _SetNextFree
@@ -17,7 +18,7 @@ _SetNextFree:
sta r3L sta r3L
stx r3H stx r3H
jsr SetNextFree jsr SetNextFree
stx errno stx __oserror
lda r3L lda r3L
ldx r3H ldx r3H
rts rts

4
libsrc/geos/disk/verwriteblock.s
View File

@@ -6,7 +6,7 @@
; char VerWriteBlock (struct tr_se *myTS, char *buffer); ; char VerWriteBlock (struct tr_se *myTS, char *buffer);
.import popax .import popax, __oserror
.import gettrse .import gettrse
.export _VerWriteBlock .export _VerWriteBlock
@@ -21,6 +21,6 @@ _VerWriteBlock:
sta r1L sta r1L
stx r1H stx r1H
jsr VerWriteBlock jsr VerWriteBlock
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/disk/writeblock.s
View File

@@ -6,7 +6,7 @@
; char WriteBlock (struct tr_se *myTS, char *buffer); ; char WriteBlock (struct tr_se *myTS, char *buffer);
.import popax .import popax, __oserror
.import gettrse .import gettrse
.export _WriteBlock .export _WriteBlock
@@ -21,6 +21,6 @@ _WriteBlock:
sta r1L sta r1L
stx r1H stx r1H
jsr WriteBlock jsr WriteBlock
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/disk/writebuff.s
View File

@@ -6,6 +6,7 @@
; char WriteBuff (struct tr_se*); ; char WriteBuff (struct tr_se*);
.import __oserror
.import gettrse .import gettrse
.export _WriteBuff .export _WriteBuff
@@ -17,6 +18,6 @@ _WriteBuff:
sta r1L sta r1L
stx r1H stx r1H
jsr WriteBuff jsr WriteBuff
stx errno stx __oserror
txa txa
rts rts

13
libsrc/geos/dlgbox/dlgboxfileselect.s
View File

@@ -8,6 +8,7 @@
.export _DlgBoxFileSelect .export _DlgBoxFileSelect
.import popa, popax .import popa, popax
.import _DoDlgBox
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
@@ -15,13 +16,6 @@
.include "../inc/geosmac.ca65.inc" .include "../inc/geosmac.ca65.inc"
_DlgBoxFileSelect: _DlgBoxFileSelect:
; sta r5L
; stx r5H
; jsr popa
; sta r7L
; jsr popax
; sta r10L
; stx r10H
sta tmp_r5 sta tmp_r5
stx tmp_r5+1 stx tmp_r5+1
@@ -38,10 +32,7 @@ DB_FS_reload:
lda #<paramStrFileSelect lda #<paramStrFileSelect
ldx #>paramStrFileSelect ldx #>paramStrFileSelect
sta r0L jsr _DoDlgBox
stx r0H
jsr DoDlgBox
lda r0L
cmp #DISK cmp #DISK
bne DB_FS_Fin bne DB_FS_Fin
jsr OpenDisk jsr OpenDisk

11
libsrc/geos/dlgbox/dlgboxgetstring.s
View File

@@ -7,11 +7,10 @@
; char DlgBoxGetString (char *string, char strlen, char *line1,char *line2); ; char DlgBoxGetString (char *string, char strlen, char *line1,char *line2);
.export _DlgBoxGetString .export _DlgBoxGetString
.import DB_get2lines .import DB_get2lines, _DoDlgBox
.importzp ptr2, ptr3, ptr4 .importzp ptr2, ptr3, ptr4
.import popa, popax .import popa, popax
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/const.inc" .include "../inc/const.inc"
@@ -24,11 +23,7 @@ _DlgBoxGetString:
stx ptr2+1 stx ptr2+1
lda #<paramStrGetString lda #<paramStrGetString
ldx #>paramStrGetString ldx #>paramStrGetString
sta r0L jmp _DoDlgBox
stx r0H
jsr DoDlgBox
lda r0L
rts
paramStrGetString: paramStrGetString:
.byte DEF_DB_POS | 1 .byte DEF_DB_POS | 1

9
libsrc/geos/dlgbox/dlgboxok.s
View File

@@ -7,10 +7,9 @@
; char DlgBoxOk (char *line1,char *line2); ; char DlgBoxOk (char *line1,char *line2);
.export _DlgBoxOk .export _DlgBoxOk
.import DB_get2lines .import DB_get2lines, _DoDlgBox
.importzp ptr3, ptr4 .importzp ptr3, ptr4
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/const.inc" .include "../inc/const.inc"
@@ -18,11 +17,7 @@ _DlgBoxOk:
jsr DB_get2lines jsr DB_get2lines
lda #<paramStrOk lda #<paramStrOk
ldx #>paramStrOk ldx #>paramStrOk
sta r0L jmp _DoDlgBox
stx r0H
jsr DoDlgBox
lda r0L
rts
paramStrOk: paramStrOk:
.byte DEF_DB_POS | 1 .byte DEF_DB_POS | 1

9
libsrc/geos/dlgbox/dlgboxokcancel.s
View File

@@ -7,10 +7,9 @@
; char DlgBoxOkCancel (char *line1,char *line2); ; char DlgBoxOkCancel (char *line1,char *line2);
.export _DlgBoxOkCancel .export _DlgBoxOkCancel
.import DB_get2lines .import DB_get2lines, _DoDlgBox
.importzp ptr3, ptr4 .importzp ptr3, ptr4
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/const.inc" .include "../inc/const.inc"
@@ -18,11 +17,7 @@ _DlgBoxOkCancel:
jsr DB_get2lines jsr DB_get2lines
lda #<paramStrOkCancel lda #<paramStrOkCancel
ldx #>paramStrOkCancel ldx #>paramStrOkCancel
sta r0L jmp _DoDlgBox
stx r0H
jsr DoDlgBox
lda r0L
rts
paramStrOkCancel: paramStrOkCancel:
.byte DEF_DB_POS | 1 .byte DEF_DB_POS | 1

9
libsrc/geos/dlgbox/dlgboxyesno.s
View File

@@ -7,10 +7,9 @@
; char DlgBoxYesNo (char *line1,char *line2); ; char DlgBoxYesNo (char *line1,char *line2);
.export _DlgBoxYesNo .export _DlgBoxYesNo
.import DB_get2lines .import DB_get2lines, _DoDlgBox
.importzp ptr3, ptr4 .importzp ptr3, ptr4
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
.include "../inc/const.inc" .include "../inc/const.inc"
@@ -18,11 +17,7 @@ _DlgBoxYesNo:
jsr DB_get2lines jsr DB_get2lines
lda #<paramStrYesNo lda #<paramStrYesNo
ldx #>paramStrYesNo ldx #>paramStrYesNo
sta r0L jmp _DoDlgBox
stx r0H
jsr DoDlgBox
lda r0L
rts
paramStrYesNo: paramStrYesNo:
.byte DEF_DB_POS | 1 .byte DEF_DB_POS | 1

3
libsrc/geos/file/appendrecord.s
View File

@@ -6,6 +6,7 @@
; char AppendRecord (void); ; char AppendRecord (void);
.import __oserror
.export _AppendRecord .export _AppendRecord
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -14,6 +15,6 @@
_AppendRecord: _AppendRecord:
jsr AppendRecord jsr AppendRecord
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/closerecordfile.s
View File

@@ -6,6 +6,7 @@
; char CloseRecordFile (void); ; char CloseRecordFile (void);
.import __oserror
.export _CloseRecordFile .export _CloseRecordFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_CloseRecordFile: _CloseRecordFile:
jsr CloseRecordFile jsr CloseRecordFile
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/deletefile.s
View File

@@ -6,6 +6,7 @@
; char DeleteFile (char *myName); ; char DeleteFile (char *myName);
.import __oserror
.export _DeleteFile .export _DeleteFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -15,6 +16,6 @@ _DeleteFile:
sta r0L sta r0L
stx r0H stx r0H
jsr DeleteFile jsr DeleteFile
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/deleterecord.s
View File

@@ -6,6 +6,7 @@
; char DeleteRecord (void); ; char DeleteRecord (void);
.import __oserror
.export _DeleteRecord .export _DeleteRecord
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_DeleteRecord: _DeleteRecord:
jsr DeleteRecord jsr DeleteRecord
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/findfile.s
View File

@@ -6,6 +6,7 @@
; char FindFile (char *myName); ; char FindFile (char *myName);
.import __oserror
.export _FindFile .export _FindFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -15,6 +16,6 @@ _FindFile:
sta r6L sta r6L
stx r6H stx r6H
jsr FindFile jsr FindFile
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/file/findftypes.s
View File

@@ -7,7 +7,7 @@
; char FindFTypes (char *buffer, char fileType, char fileMax, char *Class); ; char FindFTypes (char *buffer, char fileType, char fileMax, char *Class);
.export _FindFTypes .export _FindFTypes
.import popax, popa .import popax, popa, __oserror
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
@@ -24,7 +24,7 @@ _FindFTypes:
sta r6L sta r6L
stx r6H stx r6H
jsr FindFTypes jsr FindFTypes
stx errno stx __oserror
; return (fileMax - r7H) ; return (fileMax - r7H)
lda tmpFileMax lda tmpFileMax
sec sec

4
libsrc/geos/file/followchain.s
View File

@@ -7,7 +7,7 @@
; char FollowChain (struct tr_se *myTrSe, char *buffer); ; char FollowChain (struct tr_se *myTrSe, char *buffer);
.export _FollowChain .export _FollowChain
.import popax .import popax, __oserror
.import gettrse .import gettrse
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -21,6 +21,6 @@ _FollowChain:
sta r1L sta r1L
stx r1H stx r1H
jsr FollowChain jsr FollowChain
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/freefile.s
View File

@@ -6,6 +6,7 @@
; char FreeFile (struct trse myTrSe[]); ; char FreeFile (struct trse myTrSe[]);
.import __oserror
.export _FreeFile .export _FreeFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -15,6 +16,6 @@ _FreeFile:
sta r9L sta r9L
stx r9H stx r9H
jsr FreeFile jsr FreeFile
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/get1stdirentry.s
View File

@@ -6,6 +6,7 @@
; struct filehandle* Get1stDirEntry (void); ; struct filehandle* Get1stDirEntry (void);
.import __oserror
.export _Get1stDirEntry .export _Get1stDirEntry
.include "../inc/diskdrv.inc" .include "../inc/diskdrv.inc"
@@ -13,7 +14,7 @@
_Get1stDirEntry: _Get1stDirEntry:
jsr Get1stDirEntry jsr Get1stDirEntry
stx errno stx __oserror
lda r5L lda r5L
ldx r5H ldx r5H
rts rts

3
libsrc/geos/file/getfhdrinfo.s
View File

@@ -6,6 +6,7 @@
; char GetFHdrInfo (struct filehandle *myFile); ; char GetFHdrInfo (struct filehandle *myFile);
.import __oserror
.export _GetFHdrInfo .export _GetFHdrInfo
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -15,6 +16,6 @@ _GetFHdrInfo:
sta r9L sta r9L
stx r9H stx r9H
jsr GetFHdrInfo jsr GetFHdrInfo
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/getnxtdirentry.s
View File

@@ -6,6 +6,7 @@
; struct filehandle* GetNxtDirEntry (void); ; struct filehandle* GetNxtDirEntry (void);
.import __oserror
.export _GetNxtDirEntry .export _GetNxtDirEntry
.include "../inc/diskdrv.inc" .include "../inc/diskdrv.inc"
@@ -13,7 +14,7 @@
_GetNxtDirEntry: _GetNxtDirEntry:
jsr GetNxtDirEntry jsr GetNxtDirEntry
stx errno stx __oserror
lda r5L lda r5L
ldx r5H ldx r5H
rts rts

3
libsrc/geos/file/insertrecord.s
View File

@@ -6,6 +6,7 @@
; char InsertRecord (void); ; char InsertRecord (void);
.import __oserror
.export _InsertRecord .export _InsertRecord
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_InsertRecord: _InsertRecord:
jsr InsertRecord jsr InsertRecord
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/nextrecord.s
View File

@@ -6,6 +6,7 @@
; char NextRecord (void); ; char NextRecord (void);
.import __oserror
.export _NextRecord .export _NextRecord
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_NextRecord: _NextRecord:
jsr NextRecord jsr NextRecord
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/openrecordfile.s
View File

@@ -6,6 +6,7 @@
; char OpenRecordFile (char *myName); ; char OpenRecordFile (char *myName);
.import __oserror
.export _OpenRecordFile .export _OpenRecordFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -15,6 +16,6 @@ _OpenRecordFile:
sta r0L sta r0L
stx r0H stx r0H
jsr OpenRecordFile jsr OpenRecordFile
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/pointrecord.s
View File

@@ -6,6 +6,7 @@
; char PointRecord (char recordNum); ; char PointRecord (char recordNum);
.import __oserror
.export _PointRecord .export _PointRecord
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_PointRecord: _PointRecord:
jsr PointRecord jsr PointRecord
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/previousrecord.s
View File

@@ -6,6 +6,7 @@
; char PreviousRecord (void); ; char PreviousRecord (void);
.import __oserror
.export _PreviousRecord .export _PreviousRecord
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_PreviousRecord: _PreviousRecord:
jsr PreviousRecord jsr PreviousRecord
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/readbyte.s
View File

@@ -6,6 +6,7 @@
; char ReadByte (void); ; char ReadByte (void);
.import __oserror
.export _ReadByte .export _ReadByte
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,5 +14,5 @@
_ReadByte: _ReadByte:
jsr ReadByte jsr ReadByte
stx errno stx __oserror
rts rts

4
libsrc/geos/file/readfile.s
View File

@@ -7,7 +7,7 @@
; char ReadFile (struct tr_se *myTS, char *buffer, int length); ; char ReadFile (struct tr_se *myTS, char *buffer, int length);
.export _ReadFile .export _ReadFile
.import popax .import popax, __oserror
.import gettrse .import gettrse
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -24,6 +24,6 @@ _ReadFile:
sta r1L sta r1L
stx r1H stx r1H
jsr ReadFile jsr ReadFile
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/file/readrecord.s
View File

@@ -7,7 +7,7 @@
; char ReadRecord (char *buffer, int length); ; char ReadRecord (char *buffer, int length);
.export _ReadRecord .export _ReadRecord
.import popax .import popax, __oserror
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
@@ -19,6 +19,6 @@ _ReadRecord:
sta r7L sta r7L
stx r7H stx r7H
jsr ReadRecord jsr ReadRecord
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/file/renamefile.s
View File

@@ -7,7 +7,7 @@
; char RenameFile (char *source, char *target); ; char RenameFile (char *source, char *target);
.export _RenameFile .export _RenameFile
.import popax .import popax, __oserror
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
@@ -19,6 +19,6 @@ _RenameFile:
sta r6L sta r6L
stx r6H stx r6H
jsr RenameFile jsr RenameFile
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/savefile.s
View File

@@ -6,6 +6,7 @@
; char SaveFile (struct fileheader *myHeader); ; char SaveFile (struct fileheader *myHeader);
.import __oserror
.export _SaveFile .export _SaveFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -15,6 +16,6 @@ _SaveFile:
sta r9L sta r9L
stx r9H stx r9H
jsr SaveFile jsr SaveFile
stx errno stx __oserror
txa txa
rts rts

3
libsrc/geos/file/updaterecordfile.s
View File

@@ -6,6 +6,7 @@
; char UpdateRecordFile (void); ; char UpdateRecordFile (void);
.import __oserror
.export _UpdateRecordFile .export _UpdateRecordFile
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
@@ -13,6 +14,6 @@
_UpdateRecordFile: _UpdateRecordFile:
jsr UpdateRecordFile jsr UpdateRecordFile
stx errno stx __oserror
txa txa
rts rts

4
libsrc/geos/file/writerecord.s
View File

@@ -7,7 +7,7 @@
; char WriteRecord (char *buffer, int length); ; char WriteRecord (char *buffer, int length);
.export _WriteRecord .export _WriteRecord
.import popax .import popax, __oserror
.include "../inc/jumptab.inc" .include "../inc/jumptab.inc"
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
@@ -19,6 +19,6 @@ _WriteRecord:
sta r7L sta r7L
stx r7H stx r7H
jsr WriteRecord jsr WriteRecord
stx errno stx __oserror
txa txa
rts rts

2
libsrc/geos/inc/geossym.inc
View File

@@ -120,8 +120,6 @@ TURBO_DD00_CPY = $8f ; from 1541 turbo
STATUS = $90 STATUS = $90
curDevice = $ba curDevice = $ba
; ;
errno = $91 ; custom error return code
;
irqvec = $0314 irqvec = $0314
bkvec = $0316 bkvec = $0316
nmivec = $0318 nmivec = $0318