Můj zdroják vypadá takto:
Kód: Vybrat vše
program Timing;
{ Declarations section }
// 16F628A 4MHz internal
var
i:byte;
procedure Zap_Vyp20s();
begin
for i:=0 to 19 do
begin
RA1_bit:=not RA1_bit;
Delay_ms(1000);
end;
end;
procedure Cekej_100s();
begin
RA1_bit:=0;
for i:=0 to 99 do
begin
Delay_ms(1000);
end;
end;
begin
{ Main program }
CMCON:=7; //Komparatory vypnuty
TRISA:=0; // vše IO výstup
PORTA:=0; // PORTA v log 0.
TRISB:=0; //vše IO výstup
PORTB:=0; // PORTB v log 0.
//-Vystup sa zapne a bude sa zapinat/vypinat v sekundovych intervaloch po dobu 20 sekund
Zap_Vyp20s;
//-Vystup sa na 100 sekund vypne
Cekej_100s;
//-Vystup sa zapne a bude sa zapinat/vypinat v sekundovych intervaloch po dobu 20 sekund
Zap_Vyp20s;
//-Vystup sa vypne
RA1_bit:=0;
While true do nop; //čeká se na reset procesoru
end.
Po zjednodušení:
Kód: Vybrat vše
:020000003628A0
:1000060083120313A001023085060630FB0013306D
:10001600FC00AD30FD00FD0B0E28FC0B0E28FB0B83
:100026000E28000000002008133A03191C28A00A15
:040036000628080090
:10003A00831203138510A0010630FB001330FC0065
:10004A00AD30FD00FD0B2728FC0B2728FB0B2728CA
:10005A00000000002008633A03193528A00A212865
:02006A0008008C
:10006C000730831203139F008316850183128501C9
:10007C00831686018312860103201D200320851020
:06008C0000004628482890
:02400E00582137
:00000001FF
kdyz si to napises tak tam ten delay muzes mit 
.