Category : BASIC Source Code
Archive   : QB_FOSL.ZIP
Filename : QB_COM.ASM

.model medium
.code

;
;-----------------------------------------------------------------------------
; Standard FOSSIL interface
;-----------------------------------------------------------------------------
;
; Upon return, QBFossil%() will contain the value of AX.
;
;
; Example:
;
; DECLARE FUNCTION QBFossil%(service%, port%)
;
; CONST FOSSIL.INIT = &H400
;
; IF &H1954 = QBFossil(FOSSIL.INIT, port%) THEN
; PRINT "There is a FOSSIL present."
; ELSE
; PRINT "This program requires a FOSSIL driver."
; END IF
;

public qbfossil

qbfossil proc
push bp
mov bp,sp

mov bx,[bp+8] ; get arg 1 into ax
mov ax,[bx] ;
mov bx,[bp+6] ; get arg 2 into dx
mov dx,[bx] ;
mov bx,0 ; make sure bx is set to 0 (for ^C init call)
int 14h ; fossil interrupt

pop bp
ret 4 ; return and restore 4 bytes

qbfossil endp
end