{ File: [22,311]VSDATST.PAS      Last edit: 14-APR-1988 16:39:03 
}

Program VSDATST;


{History:

   Philip Hannay.  14-Apr-88.  Created for testing VSDA.

}

%include ex:[22,320]general3.typ;

%include ex:[22,320]vsda.ext;
%include ex:[22,320]catr56.ext;

Type
  ch512 = packed array [1..512] of char;

Var
 task: ch6;
 rtask: rad56;
 msg1: ch512;  {even boundry buffer}
 fill1: char;
 msg2: ch512;  {odd boundry buffer}
 fill2: char;
 stat, i, len: integer;
 resp: char;
 bufadr: address;

Begin
writeln('Begin VSDA test');
writeln;
write('Enter target task name> ');
readln(task);
catr56(task,rtask);
for i:=1 to 512 do msg1[i]:= ' ';
write('Enter msg to send> ');
readln(msg1);
msg2:=msg1;
write('Enter msg length in words>');
readln(len);
writeln;
writeln;
bufadr:= loophole(address,ref(msg1));
writeln('Sending word aligned message, buffer address = ',bufadr:-6);
writeln;
VSDA(rtask,bufadr,len,f0);
stat:= $DSW;
writeln;
writeln('Send done, DSW = ',stat:1);
writeln;
bufadr:= loophole(address,ref(msg2));
writeln('Sending non-word aligned message, buffer address = ',bufadr:-6);
writeln;
VSDA(rtask,bufadr,len,f0);
stat:= $DSW;
writeln;
writeln('Send done, DSW = ',stat:1);
writeln;
writeln('Done with test');
end.