CHAPTER 2 INSTALLATION
55
4.2. Set the IEEE 48S Printer t
A. Example in Microsoft Pascal
{ FILE NAME. EX2 MS.PAS
}
{ SET IEEE-488 PRINTER
}
{ Purpose : This program converts an IEEE-488 printer to a
}
{ PC system printer.
}
{ Language : Microsoft Pascal
}
Program example2(input,output);
{$INCLUDE : ‘MSPGPIB.INC’}
var
addr,portno
:
integer;
s
:
char;
outstr
:
lstring(255);
PRINTER
:
text;
begin
ieseg(16#D000);
icinit(l6Y2B8~2l~o);
( Enter the IEEE-488 bus printer address )
addr:=-1;
while(addr < 0) or (addr > 30) do
begin
write(‘Enter the GP-IB printer address 7 ‘),
readln(addr); writeln;
end;
portno:=1;
iedevice(addr,portno);
writeln(‘GP-IB printer is ready to use.’);
write(‘Send string to printer ? (y/n)’);
readln(s); writeln;
if(s = ‘y’) then
begin
write(‘Enter the string : ‘);
readln(outstr); writeln;
writeln(‘Sending string
‘);
assign(PRINTER, ‘LPT1:’);
rewrite(PRINTER);
writeln(PRINTER,outstr);
close(PRINTER);
writeln(‘Done!’);
end;
end.
(End of program)
Содержание PCLS-848-P
Страница 1: ...PCLS 848 P IEEE 488 INTERFACE CARD PASCA SUPPORT PACKAGE USER S MANUAL...
Страница 6: ...Figures Figuree 7 1 PCL 848A B Block Diagram 77...
Страница 10: ...4 PCLS 848 P User s Manual...
Страница 20: ...14 PCLS 848 P User s Manual...
Страница 32: ...26 PCLS 848 P User s Manual If addr 0 or addr 30 ATN is set false String is entered...
Страница 37: ...CHAPTER 2 INSTALLATION 31 ieinit ioport myaddr setting...
Страница 42: ...36 PCLS 848 P User s Manual If addr 0 or addr 30 ATN is set false Long string is sent...
Страница 56: ...50 PCLS 848 P User s Manual...
Страница 80: ...74 PCLS 848 P User s Manual...
Страница 83: ...CHAPTER 7 THEORY OF OPERATION 77 Figuree 7 1 PCL 848A B Block Diagram...
Страница 84: ...78 PCLS 848 P User s Manual...
Страница 95: ...CHAPTER 7 THEORY OF OPERATION 89...
Страница 97: ...CHAPTER 7 THEORY OF OPERATION 91 Handshake Timing Sequence...
Страница 102: ...96 PCLS 848 P User s Manual...