'---------------------------------------------------------------------------
'       Interface from BASIC 7.0 to CEC-488 libraries
'
'       Compile this code to produce IEEEQB7.OBJ,
'       then combine it with IEEE488.LIB and the BASIC files to create
'       IEEEQB7.QLB and IEEEQB7.LIB. (Follow the instructions in the
'       BASIC 7.0 manual for building libraries).
'
'       Copyright (C) 1990, Capital Equipment Corp.
'---------------------------------------------------------------------------

'---------------------------------------------------------------------------
'       external procedure declarations - these subroutines are in IEEE488.LIB
'---------------------------------------------------------------------------
DECLARE SUB IETRANS ALIAS "IEEE488_TRANSMIT" (BYVAL SG%,BYVAL OFS%,BYVAL L1%,SEG S%)
DECLARE SUB IERECV  ALIAS "IEEE488_RECEIVE" (BYVAL SG%,BYVAL OFS%,BYVAL L1%,SEG L%,SEG S%)
DECLARE SUB IESEND  ALIAS "IEEE488_SEND" (BYVAL ADDR%,BYVAL SG%,BYVAL OFS%,BYVAL L1%,SEG S%)
DECLARE SUB IEENTER ALIAS "IEEE488_ENTER" (BYVAL SG%,BYVAL OFS%,BYVAL L1%,SEG L%,BYVAL ADDR%,SEG S%)

'---------------------------------------------------------------------------
'       procedures to be called from BASIC
'---------------------------------------------------------------------------
SUB TRANSMIT (CMD$,STATUS%) STATIC
    CALL IETRANS (SSEG(CMD$),SADD(CMD$),LEN(CMD$),STATUS%)
END SUB
SUB RECEIVE (R$,L%,STATUS%) STATIC
    CALL IERECV (SSEG(R$),SADD(R$),LEN(R$),L%,STATUS%)
END SUB
SUB SEND (ADDR%,D$,STATUS%) STATIC
    CALL IESEND (ADDR%,SSEG(D$),SADD(D$),LEN(D$),STATUS%)
END SUB
SUB ENTER (R$,L%,ADDR%,STATUS%) STATIC
    CALL IEENTER (SSEG(R$),SADD(R$),LEN(R$),L%,ADDR%,STATUS%)
END SUB