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

38 lines
461 B
NASM
Raw Normal View History

[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
; size_t __cdecl strlen(const char *s)
public _strlen
[JWasm move] Don't use the DIST/CALLMODEL constants for procedures and labels Once you've actually found the right syntax that makes the assembler just use the default call type of the current memory model for both procedures (where it's just "PROC" without anything else) and labels (where it's "LABEL PROC"), these constants become completely unneccessary, even with TASM.
2014-11-05 17:20:02 +00:00
_strlen proc
General cleanup Mostly moving spurious null bytes, which are actually supposed to denote alignment, into their associated slices, but also prettying up some of the very first slices.
2014-10-20 15:20:04 +00:00
@@s = DPTR_ (2 + cPtrSize)
[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
push bp
mov bp, sp
push si
push di
General cleanup Mostly moving spurious null bytes, which are actually supposed to denote alignment, into their associated slices, but also prettying up some of the very first slices.
2014-10-20 15:20:04 +00:00
ife LDATA
mov ax, ds
mov es, ax
mov di, [bp+@@s]
xor ax, ax
else
[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
les di, [bp+@@s]
xor ax, ax
cmp ax, word ptr [bp+@@s+2]
jnz short @@start
cmp ax, di
General cleanup Mostly moving spurious null bytes, which are actually supposed to denote alignment, into their associated slices, but also prettying up some of the very first slices.
2014-10-20 15:20:04 +00:00
je short @@out
endif
[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
@@start:
cld
General cleanup Mostly moving spurious null bytes, which are actually supposed to denote alignment, into their associated slices, but also prettying up some of the very first slices.
2014-10-20 15:20:04 +00:00
mov cx, -1
[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
repne scasb
xchg ax, cx
not ax
dec ax
General cleanup Mostly moving spurious null bytes, which are actually supposed to denote alignment, into their associated slices, but also prettying up some of the very first slices.
2014-10-20 15:20:04 +00:00
@@out:
[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
pop di
pop si
pop bp
General cleanup Mostly moving spurious null bytes, which are actually supposed to denote alignment, into their associated slices, but also prettying up some of the very first slices.
2014-10-20 15:20:04 +00:00
ret
[Reduction] #2: _strlen Yes, I do have the .CAS files. However, even though they contain the assembly source, they're actually C source, and we're not that far yet.
2014-08-10 03:57:11 +00:00
_strlen endp