Reménytelennek tartottam hogy MPLAB-ban szerkesszem, így a saját IDE-jében írtam mindent.
OPTIMISER_LEVEL = 6
Device = 16F877
XTAL = 4
Init rész elég egyszerű.
ALL_DIGITAL = True ' Minden portot digitálisra
TRISA = %00011111 ' PORTA bemenet
TRISD = %00000000 ' PORTD kimenet
A portkonfig sem sokkal bonyolultabb. Egy dolog dicséretes ebben a fordítóban, hogy nagyon szépen nevesít mindent. Gondolok itt az ALL_DIGITAL-ra. Ezenfelül minden olyan mint a sima Basic nyelvben, semm idegen dologgal nem fogunk találkozni.
Sajnos itt sem találtam compilerbe épített rotate függvényt, tehát megint ASM-re áttérve forgattam a bitet:
If PORTA.0 = 0 Then
@ rlf PORTD, F ; Rotate left asm-ben
EndIf
Az egész kész, Proton PICBASIC-el írt program letölthető itt: picbasic.zip
Nézzük a pascal nyelvet...
A cikk még nem ért véget, lapozz!
Értékeléshez bejelentkezés szükséges!
