00001 #include "p18cxxx.inc" 00002 global adat, lepes, blep 00003 udata_acs ; Adatterület lefoglalása 00004 adat res 1 ; adat 00005 lepes res 1 ; léptetések száma 00006 00007 PGM CODE 00008 ;--- blep: balra lepteti 'adat'-ot, 'lepes' helyiértékkel 00009 blep: movf lepes,f 00010 bl_ciklus: 00011 bz bl_vege ;lepes=0? 00012 bcf STATUS,C 00013 rlcf adat,f ; adat = adat << 1 00014 decf lepes ; lepes-- 00015 bra bl_ciklus 00016 bl_vege: 00017 return ; eredmény 'adat'-ban van 00018 END