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