.1 = 1; P2.2 = 1; P2.0 = 1; end;; PERT0 = 0;; p1.2 = 0 then do; pred = 2; if napr = 1 then P2.1 = 0;/* гасимо слідом */napr = 0 then P2.3 = 0;
If napr = 3 then do;/* визначаємо напрямок руху */
if pred = 1 then do; napr = 1; p2 = 11111100b; end; if pred = 3 then do; napr = 0; p2 = 00000111b; end; do; P2.1 = 1; P2.2 = 1; P2.3 = 1; end;; PERT0 = 0;; p1.3 = 0 then do; pred = 3; if napr = 1 then P2.2 = 0;/* гасимо слідом */napr = 0 then P2.4 = 0;
If napr = 3 then do;/* визначаємо напрямок руху */
if pred = 2 then do; napr = 1; p2 = 11111000b; end; if pred = 4 then do; napr = 0; p2 = 00001111b; end; do; P2.2 = 1; P2.3 = 1; P2.4 = 1; end;; PERT0 = 0;; p1.4 = 0 then do; pred = 4; if napr = 1 then P2.3 = 0;/* гасимо слідом */napr = 0 then P2.5 = 0;
If napr = 3 then do;/* визначаємо напрямок руху */
if pred = 3 then do; napr = 1; p2 = 11110000b; end; if pred = 5 then do; napr = 0; p2 = 00011111b; end; do; P2.3 = 1; P2.4 = 1; P2.5 = 1; end;; PERT0 = 0;; p1.5 = 0 then do; pred = 5; if napr = 1 then P2.4 = 0;/* гасимо слідом */napr = 0 then P2.6 = 0;
If napr = 3 then do;/* визначаємо напрямок руху */
if pred = 4 then do; napr = 1; p2 = 11100000b; end; if pred = 6 then do; napr = 0; p2 = 00111111b; end; do; P2.4 = 1; P2.4 = 1; P2.6 = 1; end;; PERT0 = 0; end; p1.6 = 0 then do; pred = 6; if napr = 1 then P2.5 = 0;/* гасимо слідом */ napr = 0 then P2.5 = 0;
If napr = 3 then do;/* визначаємо напрямок руху */
if pred = 5 then do; napr = 1; p2 = 11000000b; end; if pred = 7 then do; napr = 0; p2 = 01111111b; end; do; P2.5 = 1; P2.5 = 1; P2.7 = 1; end;; PERT0 = 0; end; p1.7 = 0 then do; napr = 0; P2 = 0ffh; P0.4 = 1; PERT0 = 0;;/* запалюємо всі */sled = 0 then do; napr = 0 then P2 = 0ffh; PERT0 = 0;;/* запалюємо всі * /; end; osvech;
контролер управління освітлення програма
Схема пристрою
В