extrn done:near
code    segment word public
assume  cs:code
public  _abort
_abort:
; end program immediately.
        push    bp
        mov     bp,sp
        mov     al,byte ptr [bp+4]
        jmp     done
code    ends
end
