mirror of https://github.com/nmlgc/ReC98.git
56 lines
839 B
NASM
56 lines
839 B
NASM
|
; int flushall(void)
|
||
|
|
_flushall proc DIST
|
||
|
|
@@Cpt = word ptr -(dPtrSize + 4)
|
||
|
|
@@Nb = word ptr -(dPtrSize + 2)
|
||
|
|
@@fp = DPTR_ -(dPtrSize)
|
||
|
|
if LDATA
|
||
|
|
@@local_stack equ 8
|
||
|
|
else
|
||
|
|
@@local_stack equ 6
|
||
|
|
endif
|
||
|
|
|
||
|
|
push bp
|
||
|
|
mov bp, sp
|
||
|
|
sub sp, @@local_stack
|
||
|
|
push si
|
||
|
|
push di
|
||
|
|
mov [bp+@@Cpt], 0
|
||
|
|
mov ax, __nfile
|
||
|
|
mov [bp+@@Nb], ax
|
||
|
|
if LDATA
|
||
|
|
mov word ptr [bp+@@fp+2], ds
|
||
|
|
endif
|
||
|
|
mov word ptr [bp+@@fp], offset _streams
|
||
|
|
jmp short @@loop
|
||
|
|
|
||
|
|
@@RDWR?:
|
||
|
|
LES_ bx, [bp+@@fp]
|
||
|
|
test byte ptr ES_[bx+FILE.flags], 3
|
||
|
|
jz short @@next
|
||
|
|
if LDATA
|
||
|
|
push word ptr [bp+@@fp+2]
|
||
|
|
endif
|
||
|
|
push bx
|
||
|
|
nopcall _fflush
|
||
|
|
if LDATA
|
||
|
|
pop cx
|
||
|
|
endif
|
||
|
|
pop cx
|
||
|
|
inc [bp+@@Cpt]
|
||
|
|
|
||
|
|
@@next:
|
||
|
|
add word ptr [bp+@@fp], size FILE
|
||
|
|
|
||
|
|
@@loop:
|
||
|
|
mov ax, [bp+@@Nb]
|
||
|
|
dec [bp+@@Nb]
|
||
|
|
or ax, ax
|
||
|
|
jnz short @@RDWR?
|
||
|
|
mov ax, [bp+@@Cpt]
|
||
|
|
pop di
|
||
|
|
pop si
|
||
|
|
mov sp, bp
|
||
|
|
pop bp
|
||
|
|
ret
|
||
|
|
_flushall endp
|