\ De schemerschakelaar neemt 133 bytes in beslag. 89C2051 TARGET \ Zet doel chip ASSEMBLER P3: .2 BIT-SFR LED \ Led uitgang P3: .5 BIT-SFR LAMP \ Solid state relais uitgang P3: .6 BIT-SFR DONKER? \ Schemerschak. uitgang P3: .7 BIT-SFR HYSTERESE \ Wijzig schakel niveau WORK VARIABLE TIMER \ De afvaltijd bij zonsopgang : KNIPPER ( -- ) \ Toon opstarten 5 FOR \ Knipper 5 maal met de LED SET LED 200 MS CLEAR LED 200 MS NEXT ; : LAMP-AAN ( -- ) SET HYSTERESE \ De lichtgrens iets omhoog SET LED \ Led uit CLEAR LAMP \ Lamp aan CLEAR TIMER \ Reset afval timer ; : LAMP-UIT ( -- ) FROM TIMER 10 = IF \ Twee seconden verstreken ? CLEAR HYSTERESE \ Ja, donkergrens iets omlaag CLEAR LED \ Led aan SET LAMP \ Lamp uit ELSE INCR TIMER \ Nee, stel afschakelen uit THEN ; : SCHEMERSCHAKELAAR ( -- ) SETUP KNIPPER CLEAR TIMER \ Start schemerschakelaar BEGIN DONKER? IF \ Wordt het duister ? LAMP-AAN \ Ja, ... ELSE LAMP-UIT \ Nee, ... THEN 200 MS \ Wacht even AGAIN ; ' SCHEMERSCHAKELAAR RESET-VEC SET-VECTOR