00001
00002 #include "p18cxxx.inc"
00003 udata_acs ; Adatterület lefoglalása
00004 adat res 1 ; 1 bájtnyi területet foglal
00005 kimenet res 1 ; 1 bájtnyi területet foglal
00006 RST CODE
00007 goto start
00008 PGM CODE ; Itt kezdődik a program
00009 start: movlw 0 ; adat<0>=0 lesz
00010 movwf adat
00011 ciklus: btfsc adat,0 ; átugorja a következőt, ha adat<0>=0
00012 goto paratlan
00013 paros: movlw 0
00014 movwf kimenet
00015 movlw 2
00016 movwf kimenet
00017 movlw 4
00018 movwf kimenet
00019 goto ujra
00020 paratlan: movlw 1
00021 movwf kimenet
00022 movlw 3
00023 movwf kimenet
00024 movlw 5
00025 movwf kimenet
00026 ujra: incf adat ; megnöveljük adat értékét
00027 goto ciklus ; végtelen ciklus
00028 END
00029
00030