DEFINITION VDI; (* SJ *)

(* basic vdi call *)

TYPE contrlrec* = RECORD
                    Opcode*    : INTEGER;
                    SizePtsin* : INTEGER;
                    SizePtsout*: INTEGER;
                    SizeIntin* : INTEGER;
                    SizeIntout*: INTEGER;
                    SubCode*   : INTEGER;
                    Station*   : INTEGER;
                    Misc*      : ARRAY 10 OF INTEGER;
                  END(*RECORD*);
     intarr*    = ARRAY 128 OF INTEGER;
     parmblkrec*= RECORD
                    Contrl* : POINTER TO contrlrec;
                    Intin*  : POINTER TO intarr;
                    Ptsin*  : POINTER TO intarr;
                    Intout* : POINTER TO intarr;
                    Ptsout* : POINTER TO intarr;
                  END(*RECORD*);

VAR ParmBlk* : parmblkrec;
    Contrl*  : contrlrec;
    Intin*,Ptsin*,Intout*,Ptsout* : intarr;


PROCEDURE Call*(Opcode,Subcode,Handle : INTEGER; Parameter : LONGINT);

 (* Parameter contains the bytes for Contrl 1 to 4 *)


END VDI.
