Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[Reduction] #540: close 

Now with DOS error codes.
This commit is contained in:
nmlgc 2014-10-15 08:39:22 +02:00
parent d6449b27cf
commit 16b4e1d240
6 changed files with 107 additions and 114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ReC98.inc
View File

@ -4,6 +4,7 @@
locals
include libs/BorlandC/RULES.ASI
include libs/BorlandC/doserror.inc
include libs/BorlandC/fcntl.inc
include libs/BorlandC/stdio.inc
include libs/BorlandC/sys/stat.inc

30
libs/BorlandC/close.asm Normal file
View File

@ -0,0 +1,30 @@
; int __cdecl close(int handle)
_close proc DIST
@@handle = word ptr (cPtrSize + 2)
push bp
mov bp, sp
push si
push di
mov dx, [bp+@@handle]
cmp dx, __nfile
jb short @@close
mov ax, e_badHandle
push ax
call __IOERROR
jmp short @@ret
@@close:
mov bx, dx
add bx, bx
mov _openfd[bx], 0
push dx
nopcall __rtl_close
pop cx
@@ret:
pop di
pop si
pop bp
ret
_close endp

73
libs/BorlandC/doserror.inc Normal file
View File

@ -0,0 +1,73 @@
; DOS error list
e_badFunction equ 1
e_fileNotFound equ 2
e_pathNotFound equ 3
e_tooManyOpen equ 4
e_accessDenied equ 5
e_badHandle equ 6
e_mcbDestroyed equ 7
e_outOfMemory equ 8
e_badBlock equ 9
e_badEnviron equ 10
e_badFormat equ 11
e_badAccess equ 12
e_badData equ 13
; reserved equ 14
e_badDrive equ 15
e_isCurrentDir equ 16
e_notSameDevice equ 17
e_noMoreFiles equ 18
e_readOnly equ 19
e_unknownUnit equ 20
e_notReady equ 21
e_unknownCommand equ 22
e_dataError equ 23
e_badRequestLength equ 24
e_seekError equ 25
e_unknownMedia equ 26
e_sectorNotFound equ 27
e_outOfPaper equ 28
e_writeFault equ 29
e_readFault equ 30
e_generalFault equ 31
e_sharing equ 32
e_lock equ 33
e_diskChange equ 34
e_FCBunavailable equ 35
e_sharingOverflow equ 36
; reserved equ 37..49
e_networkUnsupported equ 50
e_notListening equ 51
e_dupNameOnNet equ 52
e_nameNotOnNet equ 53
e_netBusy equ 54
e_netDeviceGone equ 55
e_netCommandLimit equ 56
e_netHardError equ 57
e_wrongNetResponse equ 58
e_netError equ 59
e_remoteIncompatible equ 60
e_printQueueFull equ 61
e_printFileSpace equ 62
e_printFileDeleted equ 63
e_netNameDeleted equ 64
e_netAccessDenied equ 65 ; same as 5
e_netDeviceWrong equ 66
e_netNameNotFound equ 67 ; same as 53
e_netNameLimit equ 68
e_netBIOSlimit equ 69
e_paused equ 70
e_netRequestRefused equ 71
e_redirectionPaused equ 72
; reserved equ 73..79
e_fileExists equ 80
; reserved equ 81
e_cannotMake equ 82
e_failInt24 equ 83
e_redirectionLimit equ 84
e_dupRedirection equ 85
e_password equ 86
e_parameter equ 87
e_netDevice equ 88
e_dosFinalError equ 88

39
th01_fuuin.asm
View File

@ -4174,44 +4174,7 @@ amode = byte ptr 0Ah
_access endp
include libs/BorlandC/chmoda.asm
; =============== S U B R O U T I N E =======================================
; Attributes: library function bp-based frame
; int __cdecl close(int handle)
_close proc far
handle = word ptr 6
push bp
mov bp, sp
push si
push di
mov dx, [bp+handle]
cmp dx, __nfile
jb short loc_3B8D
mov ax, 6
push ax
call __IOERROR
jmp short loc_3B9E
; ---------------------------------------------------------------------------
loc_3B8D:
mov bx, dx
add bx, bx
mov word ptr [bx+0E3Ch], 0
push dx ; handle
nopcall __rtl_close
pop cx
loc_3B9E:
pop di
pop si
pop bp
retf
_close endp
include libs/BorlandC/close.asm
include libs/BorlandC/closea.asm
include libs/BorlandC/eof.asm
include libs/BorlandC/fclose.asm

39
th01_op.asm
View File

@ -3851,44 +3851,7 @@ include libs/BorlandC/access.asm
include libs/BorlandC/pathops.asm
include libs/BorlandC/atol.asm
include libs/BorlandC/chmoda.asm
; =============== S U B R O U T I N E =======================================
; Attributes: library function bp-based frame
; int __cdecl close(int handle)
_close proc far
handle = word ptr 6
push bp
mov bp, sp
push si
push di
mov dx, [bp+handle]
cmp dx, __nfile
jb short loc_3C65
mov ax, 6
push ax
call __IOERROR
jmp short loc_3C76
; ---------------------------------------------------------------------------
loc_3C65:
mov bx, dx
add bx, bx
mov word ptr [bx+0B8Ch], 0
push dx ; handle
nopcall __rtl_close
pop cx
loc_3C76:
pop di
pop si
pop bp
retf
_close endp
include libs/BorlandC/close.asm
include libs/BorlandC/closea.asm
include libs/BorlandC/eof.asm
include libs/BorlandC/fclose.asm

39
th01_reiiden.asm
View File

@ -7212,44 +7212,7 @@ include libs/BorlandC/signal.asm
include libs/BorlandC/access.asm
include libs/BorlandC/pathops.asm
include libs/BorlandC/chmoda.asm
; =============== S U B R O U T I N E =======================================
; Attributes: library function bp-based frame
; int __cdecl close(int handle)
_close proc far
handle = word ptr 6
push bp
mov bp, sp
push si
push di
mov dx, [bp+handle]
cmp dx, __nfile
jb short loc_51E5
mov ax, 6
push ax
call __IOERROR
jmp short loc_51F6
; ---------------------------------------------------------------------------
loc_51E5:
mov bx, dx
add bx, bx
mov word ptr [bx+1BE8h], 0
push dx ; handle
nopcall __rtl_close
pop cx
loc_51F6:
pop di
pop si
pop bp
retf
_close endp
include libs/BorlandC/close.asm
include libs/BorlandC/closea.asm
include libs/BorlandC/eof.asm
include libs/BorlandC/fclose.asm