MODULE OSOPENHANDLE
PUBLIC OS_CLOSEHANDLE,OS_OPENHANDLE,OS_GETFILINFO
PUBLIC OS_SEEKHANDLE
EXTERN errno
#include "sysdefs.asm"
RSEG CODE
OS_GETFILINFO:
push bc
ld l,c
ld h,b
ld c,CMD_GETFILINFO
jr label1
OS_SEEKHANDLE:
ld b,d
pop af
pop hl
pop de
push de
push hl
push af
push bc
ld c,CMD_SEEKHANDLE
jr label1
OS_OPENHANDLE:
push bc
ld a,c
ex af,af'
ld c,CMD_OPENHANDLE
jr label1
OS_CLOSEHANDLE:
push bc
ld b,d
ld c,CMD_CLOSEHANDLE
label1:
push ix
push iy
call BDOS
ld (errno),a
ld h,b
ld l,a
pop iy
pop ix
pop bc
ret
ENDMOD
MODULE OSDIRCALLS
PUBLIC OS_CHDIR
PUBLIC OS_MKDIR,OS_DELETE,OS_OPENDIR,OS_READDIR,OS_CHDRV
EXTERN errno
#include "sysdefs.asm"
RSEG CODE
OS_READDIR:
push bc
ld c,CMD_READDIR
jr label1
OS_OPENDIR:
push bc
ld c,CMD_OPENDIR
jr label1
OS_DELETE:
push bc
ld c,CMD_DELETE
jr label1
OS_MKDIR:
push bc
ld c,CMD_MKDIR
jr label1
OS_CHDIR:
push bc
ld c,CMD_CHDIR
jr label1
OS_CHDRV:
push bc
ld c,CMD_SETDRV
label1:
push ix
push iy
call BDOS
ld (errno),a
pop iy
pop ix
pop bc
ret
ENDMOD
MODULE OSWRITEHANDLE
PUBLIC OS_WRITEHANDLE,OS_READHANDLE,OS_GETPATH
PUBLIC OS_GETFILESIZE,OS_SETSYSDRV
EXTERN errno
#include "sysdefs.asm"
RSEG CODE
OS_SETSYSDRV:
ld c,CMD_SETSYSDRV
jr label1
OS_GETFILESIZE:
ld c,CMD_GETFILESIZE
ld b,d
jr label1
OS_GETPATH:
ld c,CMD_GETPATH
jr label1
OS_READHANDLE:
ld c,CMD_READHANDLE
jr label1
OS_WRITEHANDLE:
ld c,CMD_WRITEHANDLE
label1:
pop af
pop hl
push hl
push af
push ix
push iy
call BDOS
ld (errno),a
ld b,d
ld c,e
pop iy
pop ix
ret
ENDMOD
MODULE OSCREATEHANDLE
PUBLIC OS_CREATEHANDLE
EXTERN errno
#include "sysdefs.asm"
RSEG CODE
OS_CREATEHANDLE:
push ix
push iy
ld a,c
and 0x80
ld b,a
ld a,c
and 0x7f
ex af,af'
ld c,CMD_CREATEHANDLE
call BDOS
ld (errno),a
ld h,b
ld l,a
pop iy
pop ix
ret
ENDMOD
MODULE FS_GET_ERR_STR
PUBLIC fs_get_err_str
EXTERN errno
#include "sysdefs.asm"
RSEG CODE
fs_get_err_str:
push de
LD HL,(errno)
LD H,0
ADD HL,HL
LD BC,fs_errs
ADD HL,BC
LD a,(HL)
INC HL
LD h,(HL)
ld l,a
pop de
ret
RSEG CONST
fs_errs:
DEFW ?0010
DEFW ?0011
DEFW ?0012
DEFW ?0013
DEFW ?0014
DEFW ?0015
DEFW ?0016
DEFW ?0017
DEFW ?0018
DEFW ?0019
DEFW ?0020
DEFW ?0021
DEFW ?0022
DEFW ?0023
DEFW ?0028
DEFW ?0028
DEFW ?0028
DEFW ?0028
DEFW ?0028
DEFW ?0029
?0010:
DEFB 'Succeeded'
DEFB 0
?0011:
DEFB 'A hard error occured in the low level disk I/O layer'
DEFB 0
?0012:
DEFB 'Assertion failed'
DEFB 0
?0013:
DEFB 'The physical drive cannot work'
DEFB 0
?0014:
DEFB 'Could not find the file'
DEFB 0
?0015:
DEFB 'Could not find the path'
DEFB 0
?0016:
DEFB 'The path name format is invalid'
DEFB 0
?0017:
DEFB 'Acces denied due to prohibited access or directory full'
DEFB 0
?0018:
DEFB 'Acces denied due to prohibited access'
DEFB 0
?0019:
DEFB 'The file/directory object is invalid'
DEFB 0
?0020:
DEFB 'The physical drive is write protected'
DEFB 0
?0021:
DEFB 'The logical drive number is invalid'
DEFB 0
?0022:
DEFB 'The volume has no work area'
DEFB 0
?0023:
DEFB 'There is no valid FAT volume on the physical drive'
DEFB 0
?0028:
DEFB 'file error'
DEFB 0
?0029:
DEFB 'Without MBR'
DEFB 0
END