Category : Files from Magazines
Archive   : PJ91.ZIP
Filename : DOS_ERRS.ASM

title ms_dos_strerror - ms_dos interface that sets error string
include asm.inc

.data
error_strings dw err1,err2,err3,err4,err5,err6,err7,err8,err9,err10
dw err11,err12,err13,err14,err15,err16,err17,err18

err1 db 'Invalid function',0
err2 db 'File not found',0
err3 db 'Path not found',0
err4 db 'No handles left',0
err5 db 'Access denied',0
err6 db 'Invalid handle',0
err7 db 'Memory ctrl blks destroyed',0
err8 db 'Insufficient memory',0
err9 db 'Invalid memory blk adr',0
err10 db 'Invalid environment',0
err11 db 'Invalid format',0
err12 db 'Invalid access code',0
err13 db 'Invalid data',0
err14 db '?',0
err15 db 'Invalid drive',0
err16 db 'Deleting current dir',0
err17 db 'Not same device',0
err18 db 'No more files',0
MAX_ERROR_CODE equ 18

.code
extn ms_dos,set_strerror
public ms_dos_strerror


;; ms dos strerror
;
ms_dos_strerror proc
call ms_dos
jc mde1 ; if error during dos function
ret

mde1: push ax
cmp ax,MAX_ERROR_CODE
ja mde2 ; if error code too high
add ax,ax
jz mde2 ; if error code too low

xchg ax,si ; set error string
mov si,error_strings[bp+si-2]
xchg ax,si
call set_strerror

mde2: stc
pop ax
ret
ms_dos_strerror endp

end