5 4
PCLS-848-P User's Manual
addr,length
:
integer;
instr
:
lstring;
s
:
char;
begin
repeat
writeln;(‘ ENTER DATA :’);
write(‘ From which address ?’);
read(addr); writeln;
writeln(, Entering string ...’);
ieenter(addr,instr);
iochk;
writeln(‘ Entered string : ‘,instr),
write(‘ Enter data again ?(y/n)’);
read(s); writeln;
until s=’n’;
end;
var
sel
:
integer;
begin
ieinit(S2B8,21,0);
repeat
ieabort;
clrscr;
writeln(‘*** Demo Program for the IEEE-488 Interface ***’);
writeln(‘ 1 : OUTPUT DATA’);
writeln;
writeln(‘ 2 : ENTER DATA’)
writeln;
writeln(‘ 3 : EXIT’);
writeln;
write(‘ Select a function :’);
read(sel); writeln:
if (sel<4) and (sel>0) then
begin
case sel of
1 : outputdata;
2 : enterdata;
3 : ;
else
writeln(‘******* SOMEThING WRONG ~ *******’);
end;
end;
until sel=3;
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...