00001 #include <p18cxxx.inc> 00002 udata_acs 00003 i res 2 00004 j res 2 00005 k res 2 00006 00007 RST CODE 00008 goto start 00009 PGM CODE 00010 start: 00011 movf j+1,W 00012 xorwf i+1,W 00013 btfss WREG,7 00014 bra kivonas 00015 rlcf i+1,W 00016 bra cvizsga 00017 kivonas: 00018 movf i,W 00019 subwf j,W 00020 movf i+1,W 00021 subwfb j+1,W 00022 cvizsga: 00023 bc if_vege 00024 if_torzs: 00025 movf i,W 00026 subwf j,W 00027 movwf k 00028 movf i+1,W 00029 subwfb j+1,W 00030 movwf k+1 00031 if_vege: 00032 ; további utasítások 00033 goto start 00034 END