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

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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