	mov	ss,cs:stackseg
	mov	sp,stacksize
	mov	ds,cs:dataseg		; now have stack
	
BSL_CODE	equ	6H

code		ends
data		segment

bist_addr	dw	%bist_offset
bist_addr_b	dw	%bist_base

data		ends
code		segment

	mov	ax,BSL_CODE		; set up caller_id parameter
	push	ax
	call	dword ptr bist_addr	; invoke bist

	test	ax, ax			; test results of bist
	je	no_error		; 0 is no error

bist_error:
	cli				; if error, then halt
	hlt
	jmp	bist_error
	
no_error:

