fix errno related underscores in all libsrc/*.s files
This commit is contained in:
@@ -14,7 +14,7 @@ FILEDES = 3 ; first free to use file descriptor
|
||||
|
||||
.importzp ptr1, ptr2, ptr3, tmp1
|
||||
.import addysp, popax, popptr1
|
||||
.import __oserror
|
||||
.import ___oserror
|
||||
.import _FindFile, _ReadByte
|
||||
.export _open, _close, _read
|
||||
|
||||
@@ -65,8 +65,8 @@ _open:
|
||||
stx f_offset
|
||||
stx f_offset+1
|
||||
lda #0 ; clear errors
|
||||
sta __oserror
|
||||
jsr __seterrno
|
||||
sta ___oserror
|
||||
jsr ___seterrno
|
||||
lda #FILEDES ; return fd
|
||||
sta filedesc
|
||||
rts
|
||||
@@ -75,14 +75,14 @@ _open:
|
||||
.byte $2c ; skip
|
||||
@alreadyopen:
|
||||
lda #EMFILE ; too many opened files (there can be only one)
|
||||
jmp __directerrno ; set errno, clear oserror, return -1
|
||||
jmp ___directerrno ; set errno, clear oserror, return -1
|
||||
@oserror:
|
||||
jmp __mappederrno ; set platform error code, return -1
|
||||
jmp ___mappederrno ; set platform error code, return -1
|
||||
|
||||
_close:
|
||||
lda #0
|
||||
sta __oserror
|
||||
jsr __seterrno ; clear errors
|
||||
sta ___oserror
|
||||
jsr ___seterrno ; clear errors
|
||||
lda #0 ; clear fd
|
||||
sta filedesc
|
||||
tax
|
||||
@@ -92,7 +92,7 @@ _read:
|
||||
; a/x - number of bytes
|
||||
; popax - buffer ptr
|
||||
; popax - fd, must be == to the above one
|
||||
; return -1+__oserror or number of bytes read
|
||||
; return -1+___oserror or number of bytes read
|
||||
|
||||
inx
|
||||
stx ptr1+1
|
||||
@@ -111,14 +111,14 @@ _read:
|
||||
|
||||
@filenotopen:
|
||||
lda #EBADF
|
||||
jmp __directerrno ; Sets _errno, clears _oserror, returns -1
|
||||
jmp ___directerrno ; Sets _errno, clears __oserror, returns -1
|
||||
|
||||
@fileok:
|
||||
lda #0
|
||||
sta ptr3
|
||||
sta ptr3+1 ; put 0 into ptr3 (number of bytes read)
|
||||
sta __oserror ; clear error flags
|
||||
jsr __seterrno
|
||||
sta ___oserror ; clear error flags
|
||||
jsr ___seterrno
|
||||
|
||||
lda f_track ; restore stuff for ReadByte
|
||||
ldx f_sector
|
||||
@@ -147,11 +147,11 @@ _read:
|
||||
bne @L2
|
||||
inc ptr3+1
|
||||
|
||||
@L2: lda __oserror ; was there error ?
|
||||
@L2: lda ___oserror ; was there error ?
|
||||
beq @L3
|
||||
cmp #BFR_OVERFLOW ; EOF?
|
||||
beq @done ; yes, we're done
|
||||
jmp __mappederrno ; no, we're screwed
|
||||
jmp ___mappederrno ; no, we're screwed
|
||||
|
||||
@L3: dec ptr1 ; decrement the count
|
||||
bne @L0
|
||||
|
||||
Reference in New Issue
Block a user