atmel program kellene

[Gyapai Jozsef]

Hi!

Ugy gondoltam, csinalok egy strandszefet.
Egy kis atmeles panel kellne, ezt meg talan meg is tudom csinalni, de 
programozni mar nem fogok tudni ilyen gyorsan, mert ugye hamarosan mar 
kellene a kuty. Szoval ha valakinek volna kedve, kepessege, ideje vagy 
barmije, akkor kellene nekem az a kis programocska.
Irtam egy pascal stilusut, kb. errol lenne szo:

{LED0	bekapcsolt allapotot jelzi}
{}
{inb0	mikrokapcsolok}
{inb1	reed rele}
{}
{outb0	LED0}
{outb1	szirena}

begin
	repeat

	outb1:=0;			{szirena kikapcsolva}
	repeat
		inb1:=portin and 02h;	(reed allapota}
	until inb1=1;			{reed zarva}
	{keslelteto ciklus a prell miatt, kb. 0.3 sec}
	repeat
		inb1:=portin and 02h;	(reed allapota}
	until inb1=0;			{reed nyitva}
	outb0:=1;			{LED0 bekapcsolva, riaszto aktiv}
	repeat
		inb0:=portin and 01h;	{mikrokapcsolok}
		if inb0=1 then
		begin
			outb1:=1;	{riasztas, szirena uvolt}
			varakozas (5 sec);
			outb1:=0;	{szirena kikapcsolva}
		end;
	until inb1=1;			{reed zarva}
	{keslelteto ciklus a prell miatt, kb. 0.3 sec}
	repeat
		inb1:=portin and 02h;	(reed allapota}
	until inb1=0;			{amig reed nyitva}
	outb0:=0;			{riaszto kikapcsolva}

	until false;
end.

Valami legolcsobb, de kaphato es programozo nelkul programozhato (pc 
parhuzamos port) tipusra gondoltam.

Udv.:
gyapo at axelero.hu