New Micros NMIY-0031, Руководство пользователя

Страница: 161 / 188

2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2 1 6 1
N M I L - 4 0 0 4 1 - C H A N N E L , 1 2 - B I T A / D
F O R T H S A M P L E C O D E
: SCALE-1-DISP ( -- )
CR
8 0
DO
0 START-CONV DELAY READ-A/D SCALE-1V DISP
1 START-CONV DELAY READ-A/D SCALE-1V DISP
2 START-CONV DELAY READ-A/D SCALE-1V DISP
3 START-CONV DELAY READ-A/D SCALE-1V DISP
4 START-CONV DELAY READ-A/D SCALE-1V DISP
5 START-CONV DELAY READ-A/D SCALE-1V DISP
6 START-CONV DELAY READ-A/D SCALE-1V DISP
7 START-CONV DELAY READ-A/D SCALE-1V DISP
CR
LOOP
8 0 DO
08 EMIT
13 EMIT
LOOP
;
: SCALE-10-DISP ( -- )
CR 8 0 DO
0 START-CONV DELAY READ-A/D SCALE-10V DISP
1 START-CONV DELAY READ-A/D SCALE-10V DISP
2 START-CONV DELAY READ-A/D SCALE-10V DISP
3 START-CONV DELAY READ-A/D SCALE-10V DISP
4 START-CONV DELAY READ-A/D SCALE-10V DISP
5 START-CONV DELAY READ-A/D SCALE-10V DISP
6 START-CONV DELAY READ-A/D SCALE-10V DISP
7 START-CONV DELAY READ-A/D SCALE-10V DISP CR
LOOP
8 0 DO
08 EMIT
13 EMIT
LOOP
;
HEX
: SPACE-6 ( -- )
20 EMIT 20 EMIT
20 EMIT 20 EMIT
20 EMIT 20 EMIT
;
: MAKE-HEADER ( -- )
CR 20 EMIT 20 EMIT
." 1" SPACE-6
." 2" SPACE-6
." 3" SPACE-6
." 4" SPACE-6
." 5" SPACE-6
." 6" SPACE-6
." 7" SPACE-6
." 8" CR
35 0 DO 5F EMIT LOOP
;
: PUT-TITLE ( -- )
1A 0 DO 0A EMIT LOOP
1A 0 DO 0D EMIT 08 EMIT LOOP
14 0 DO 20 EMIT LOOP
." CHANNEL READINGS"
;