mirror of https://github.com/nmlgc/ReC98.git
54 lines
836 B
NASM
54 lines
836 B
NASM
|
; int __cdecl fputs(const char *s, FILE *fp)
|
||
|
|
public _fputs
|
||
|
|
_fputs proc DIST
|
||
|
|
@@len = word ptr -2
|
||
|
|
@@s = DPTR_ dPtrSize + 2
|
||
|
|
@@fp = DPTR_ dPtrSize + 2 + dPtrSize
|
||
|
|
|
||
|
|
push bp
|
||
|
|
mov bp, sp
|
||
|
|
sub sp, 2
|
||
|
|
push si
|
||
|
|
push di
|
||
|
|
mov ax, word ptr [bp+@@s]
|
||
|
|
or ax, word ptr [bp+@@s+2]
|
||
|
|
jz short @@ret0
|
||
|
|
push word ptr [bp+@@s+2]
|
||
|
|
push word ptr [bp+@@s]
|
||
|
|
nopcall _strlen
|
||
|
|
pop cx
|
||
|
|
pop cx
|
||
|
|
mov [bp+@@len], ax
|
||
|
|
or ax, ax
|
||
|
|
jnz short @@put
|
||
|
|
|
||
|
|
@@ret0:
|
||
|
|
xor ax, ax
|
||
|
|
jmp short @@ret
|
||
|
|
|
||
|
|
@@put:
|
||
|
|
push word ptr [bp+@@s+2]
|
||
|
|
push word ptr [bp+@@s]
|
||
|
|
push [bp+@@len]
|
||
|
|
push word ptr [bp+@@fp+2]
|
||
|
|
push word ptr [bp+@@fp]
|
||
|
|
call __FPUTN
|
||
|
|
or ax, ax
|
||
|
|
jz short @@retEOF
|
||
|
|
les bx, [bp+@@s]
|
||
|
|
add bx, [bp+@@len]
|
||
|
|
mov al, es:[bx-1]
|
||
|
|
mov ah, 0
|
||
|
|
jmp short @@ret
|
||
|
|
|
||
|
|
@@retEOF:
|
||
|
|
mov ax, 0FFFFh
|
||
|
|
|
||
|
|
@@ret:
|
||
|
|
pop di
|
||
|
|
pop si
|
||
|
|
mov sp, bp
|
||
|
|
pop bp
|
||
|
|
ret
|
||
|
|
_fputs endp
|