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:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user