00001 #include "p18cxxx.inc" 00002 extern fibo 00003 udata_acs 00004 j res 1 00005 k res 1 00006 RST CODE 00007 goto start 00008 PGM CODE 00009 start: lfsr FSR1,0x100 ;veremmutató beállítása 00010 lfsr FSR2,0x100 ;keretmutató beállítása 00011 movlw .12 00012 movwf j ; j = 12 00013 movff j,POSTINC1 ;paraméter átadása 00014 rcall fibo ;a fibo(j) meghívása 00015 movf POSTDEC1,F ;a verem ürítése 00016 movwf k ;az eredmény eltárolása 00017 vege: goto $ 00018 END