|
Устройство на базе МАХ 1243 также требует особого драйвера, версия которого на языке BASIC называется MAXIM8.BAS. Он определяет 8-разрядный режим работы для данного компонента, вообще-то представляющего собой 10-разрядное устройство,
10 REM - - - - MAXIM8 - - - -
20 KEYOFF:CLS
30 B=&H3F8:REM COM1:
40 N=8:REM число разрядов
50 OUT B+4, 1
60 FOR T=0 TO l00:NEXT T
70 OUT B+3, 64
80 FOR T=0 TO 500 : NEXT T
90 GOTO 200
100 OUT B+4 , 0 : D=0: REM ACQUISITION
105 OUT B+4, 2 : OUT B+4 , 0
110 FOR F=0 TO N-l
120 OUT B+4, 2
130 E=INР(В+6) AND 16
140 OUT B+4, 0
150 IF E=16 THEN D=D+2^(N-1-F)
160 NEXT F
170 D=5*D/(2^N-1)
180 OUT B+4, 1 : RETURN
190 REM (c) 1997 Patrick GUEULLE
Шестнадцатеричная величина 3F8 в строке 30 предполагает, что устройство подключено к последовательному порту СОМ1. Чтобы иметь возможность использовать COM2 вместо СОМ1, надо заменить эту величину на 2F8, а при использовании COM3 или COM4 рекомендуется предварительно проверить установки BIOS по экрану настройки SETUP, выводимому на дисплей при включении ПК.
Версия на языке TurboPASCAL называется MAXIM8.PAS и также включает небольшую прикладную часть, выводящую на экран результаты двадцати измерений,
program maxim8; uses crt; var n,f,e:byte;
b,g;integer;
d:real; procedure init; begin
b:=$3F8; n:=B; port[b+4]:=1; delay(100); port [b+3] := 64;
|
|||||
| |||||