A MikroPascal is eléggé letisztult egyszerű. Íme az init rész:
ADCON1 := $06; // Minden PORTA digit
TRISD := %00000000; // PORTD kimenet
TRISA := %00011111; // PORTB is output
PORTD := %00000001; // Első led bekapcs
asm
CLRF STATUS,C
end;
A Carry digit törlésére itt sincs jobb megoldás az assemblynél.
if PORTA.0 = 0 then
begin
asm
RLF PORTD,F
end;
end;
PORTA bitjeire hasonlóképpen hivatkozhatunk, mint Basicbe vagy C-ben. Itt is azért kell a PORTA.0 bitjénél a "nullaságot" vizsgálni, mert itt is tagadva van. Felengedett gomb esetén lesz 1 és lenyomott esetén lesz 0.
Az egész program letölthető egyben innen: mikropascal.zip
A cikk még nem ért véget, lapozz!
Értékeléshez bejelentkezés szükséges!
