ReC98/libs/BorlandC/_isatty.asm

; int __cdecl isatty(int handle)
public _isatty
_isatty		proc
@@handle		= word ptr  dPtrSize + 2

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 4400h
		mov	bx, [bp+@@handle]
		int	21h		; DOS -	2+ - IOCTL - GET DEVICE	INFORMATION
					; BX = file or device handle
		xchg	ax, dx
		and	ax, 80h
		pop	di
		pop	si
		pop	bp
		ret
_isatty		endp
[Reduction] #35: _isatty 2014-08-14 14:50:20 +00:00			`; int __cdecl isatty(int handle)`
			`public _isatty`
[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			`_isatty proc`
Replace the compatibility NOPs with a macro 2014-08-22 15:08:37 +00:00			`@@handle = word ptr dPtrSize + 2`
[Reduction] #35: _isatty 2014-08-14 14:50:20 +00:00
			`push bp`
			`mov bp, sp`
			`push si`
			`push di`
			`mov ax, 4400h`
			`mov bx, [bp+@@handle]`
			`int 21h ; DOS - 2+ - IOCTL - GET DEVICE INFORMATION`
			`; BX = file or device handle`
			`xchg ax, dx`
			`and ax, 80h`
			`pop di`
			`pop si`
			`pop bp`
			`ret`
			`_isatty endp`