|
delay(500); end;
procedure acquisition; begin
port[b+4]: = 0; d:=0; port[b+4]:=2;port[b+4]:=2; port[b+4]:=2;port[b+4]:=0; for f:=0 to n-1 do begin
port[b+4]:=2; e:=port [b+6] and 16; port[b+4]:=0;
if e=16 then d:=d+exp((n-1-f)*ln(2)); end;
d: = (5*d)/(exp((n)*ln(2))-l); port [b+4]:=1; end;
procedure affiche; begin
acquisition; d:=(int(100*d))/100; writeln(d); delay(500); end;
begin
clrscr;
init;
for g:=l to 20 do
begin
affiche;
end; end. (* COPYRIGHT 1997 Patrick GUEULLE *)
Драйвер на языке BASIC, предназначенный для устройств на базе TIC 549 (рис. 4.1 и 4.13), называется 8BITS.BAS. Он также предназначен для работы с последовательным портом СОМ1 (3F8h),
10 REM----8BITS----
20 KEY OFF:CLS
30 B=&H3F8:REMCOM1:
40 N=8; REM число разрядов
50 OUTB+4, l
60 FOR T=0 TO 100:NEXT T
70 OUTB+3, 64
80 FOR T=0 TO 500:NEXT T
90 GOTO 200
100 OUT B+4, 0 : D=0: REM ACQUISITION
110 FOR F=0 TO N-1
120 OUT B+4, 2
|
|||||
| |||||