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