ReC98/libs/BorlandC/_abort.asm

public __abort
__abort	proc
		push	si
		push	di
if LDATA
		push	ds
		mov	ax, offset aAbnormalProgra
		push	ax		; buf
		nopcall	___ErrorMessage
		mov	ax, 3
		push	ax		; status
		nopcall	__exit
		add	sp, 6
else
		mov	ax, offset aAbnormalProgra
		push	ax		; buf
		call	___ErrorMessage
		mov	ax, 3
		push	ax		; status
		call	__exit
		pop	cx
		pop	cx
endif
		pop	di
		pop	si
		ret
__abort	endp
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`public __abort`
[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			`__abort proc`
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`push si`
			`push di`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`if LDATA`
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`push ds`
			`mov ax, offset aAbnormalProgra`
			`push ax ; buf`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`nopcall ___ErrorMessage`
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`mov ax, 3`
			`push ax ; status`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`nopcall __exit`
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`add sp, 6`
			`else`
			`mov ax, offset aAbnormalProgra`
			`push ax ; buf`
			`call ___ErrorMessage`
			`mov ax, 3`
			`push ax ; status`
			`call __exit`
			`pop cx`
			`pop cx`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`endif`
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`pop di`
			`pop si`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`ret`
[Reduction] #1: __abort It begins. And this already shows that the inclusion of TH01's ZUNSOFT.COM will double the size of all Borland C routines we slice out, because we have to cover both large and tiny memory models... 2014-08-10 03:39:02 +00:00			`__abort endp`