ReC98/libs/BorlandC/errormsg.asm

; void __ErrorMessage(const char *msg)
public ___ErrorMessage
___ErrorMessage	proc
@@msg		= DPTR_	2 + dPtrSize

		push	bp
		mov	bp, sp
		push	si
		push	di
if LDATA
		push	word ptr [bp+@@msg+2]
		push	word ptr [bp+@@msg]
		nopcall	_strlen
		pop	cx
else
		push	[bp+@@msg]
		call	_strlen
endif
		pop	cx
		push	ax
if LDATA
		push	word ptr [bp+@@msg+2]
endif
		push	word ptr [bp+@@msg]
		mov	al, stderr.fd
		cbw
		push	ax
		nopcall	__rtl_write
		add	sp, 4 + dPtrSize
		pop	di
		pop	si
		pop	bp
		ret
___ErrorMessage	endp
[Reduction] #102: ErrorMessage 2014-08-20 18:38:08 +00:00			`; void __ErrorMessage(const char *msg)`
			`public ___ErrorMessage`
[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			`___ErrorMessage proc`
[Reduction] #102: ErrorMessage 2014-08-20 18:38:08 +00:00			`@@msg = DPTR_ 2 + dPtrSize`

			`push bp`
			`mov bp, sp`
			`push si`
			`push di`
			`if LDATA`
			`push word ptr [bp+@@msg+2]`
			`push word ptr [bp+@@msg]`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`nopcall _strlen`
[Reduction] #102: ErrorMessage 2014-08-20 18:38:08 +00:00			`pop cx`
			`else`
			`push [bp+@@msg]`
			`call _strlen`
			`endif`
			`pop cx`
			`push ax`
			`if LDATA`
			`push word ptr [bp+@@msg+2]`
			`endif`
			`push word ptr [bp+@@msg]`
			`mov al, stderr.fd`
			`cbw`
			`push ax`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`nopcall __rtl_write`
			`add sp, 4 + dPtrSize`
[Reduction] #102: ErrorMessage 2014-08-20 18:38:08 +00:00			`pop di`
			`pop si`
			`pop bp`
			`ret`
			`___ErrorMessage endp`