blinker23.mod

oberon 07 clock for lpc23xx NXP (Philips) chip

MODULE Blinker23;

IMPORT SYSTEM, Timer, LPC, LPC2300, Main;

VAR led:INTEGER;

PROCEDURE LedOff(CONST num: INTEGER);
BEGIN
SYSTEM.PUT(LPC2300.FIo2Clr, {num});
END LedOff;

PROCEDURE LedOn(CONST num: INTEGER);
BEGIN
SYSTEM.PUT(LPC2300.FIo2Set, {num});
END LedOn;

PROCEDURE Run();
BEGIN
SYSTEM.PUT(LPC2300.PinSel10, {}); (* clear pinsel10 - disable etm *)
SYSTEM.PUT(LPC2300.FIo2Dir, {0..7}); (* set P2.0 to P2.7 to output *)
SYSTEM.PUT(LPC2300.FIo2Mask, {});

WHILE TRUE DO
FOR led := 0 TO 7 DO
LedOn(led);
END;
FOR led := 7 TO 0 DO
LedOff(led);
END;
END;
END Run;

BEGIN
Run();
END Blinker23.