Программное управление выводом в регистры параллельного порта

Задача: Требуется на линии параллельного порта с базовым адресом $378 (Base = $378) сформировать следующую диаграмму напряжений:

Программа:

Const

Base= $378

Begin

{ =CR [2]; Адрес CR=Base+2;

если CR [2] =1, то =0

если CR [2] =0, то =1(5 Вольт);

управляющая константа: xxxx’x0xx = 0000’0000}

port [Base + 2]:= 0; {точка 1}

delay (1000); {точка 2}

{управляющая константа хххх’х1хх = 0000’0100 =$04 =4}

port [Base + 2]:= $04;

delay (1); {точка 3}

port [Base + 2]:= 0;

End.