спаять простеший тестер для LPT - с 8

спаять простеший тестер для LPT - с 8 светодиоами - помнится для лаб во время учёбы такое делали и на паскале программу написать с выводом в порт (эх вспомнить бы тот паскаль).
Но типа того:
port[378]:=1;
delay(1000);
port[378]:=0;
и так в цикле погонять.
Правда не помню возможно номер порта надо из Hex перевести в Dec.