cpm	equ	224
pstrng	equ	9
reset	equ	0		;cpm reset function
;test for 8087
	org	100h
	esc	28,bx
	xor	ax,ax
	mov	bx,offset control
	mov	[bx],ax
	esc	15,control
	or	ax,[bx]
	jz	no_8087
	mov	dx,offset yes87
	jmp	pmsg		;print message if 8087 is alive
;
no_8087:mov	dx,offset no87
	jmp	pmsg		;print no 8087 message
;
pmsg:	mov	cl,pstrng
	int	cpm
	mov	cl,reset	;and lets return to cpm
	int	cpm
;
control db	2
	db	2
yes87	db	'THE 8087 IS ALIVE!!$'
no87	db	'NO 8087 HERE!!!!$'
	end