 VSEND
        Routine to send packes > 26. bytes via SEND BY REFERENCE

        In order to use the routine specify the following in the
        TKB commandfile:

        - GBLPAT=modulename:$VSAPR:n    To specify APR to be used for mapping
                                        (default APR 7 is used)

        - WNDWS=1                       Window when not already spec.
        - WNDWS=n+1                     Extra window when already spec.

  Fortran       CALL    VSEND(TASK,BUFFER,BUFLEN,IDS)

         TASK   = Receiver task name
         BUFFER = Buffer that contains data
         BUFLEN = Length of data in buffer
         IDS    = Integer to receive the directive status word

  Macro         MOV     #TASK  ,R1      ; Receiver task name
                MOV     #BUFFER,R2      ; Buffer that contains data
                MOV     #BUFLEN,R3      ; Length of data in buffer

                CALL    $VSEND

        $DSW   Status code      carry bit set : error
        Registers are preserved

  Errors  :   IS.SUC -- Succesful operation
              IE.UPN -- Insufficient dynamic storage
              IE.INS -- Specified task not installed
              IE.IBS -- Invalid buffersize
              IE.WOV -- Address window overflow (no extrawindow specified)
              IE.ALG -- Invallid APR
