; Inicializálás
; ADRESH, ADRESL legyen jobbra igazitva (right justified)!

init:
   clrf HiReg	; Eredmény felső byte
   clrf LoReg	; Eredmény alsó byte
   return



;Ha megvan a következő eredmény:
hozza_ad:
   movf ADRESH,w
   addwf HiReg,f
   movf ADRESL,w
   addwf LoReg,f
   btfsc STATUS,C
   incf HiReg,f
   return


; És végül az "osztás" 8 minta esetén
atlag:
   rrf HiReg,f ;LSB a Carry/ben lesz, átmegy LoReg-be
   rrfLoReg,f
   rrf HiReg,f
   rrfLoReg,f
   rrf HiReg,f
   rrfLoReg,f
   movlw 0x1F
   andwf HiReg,f ; Töröljük a felső 3 bitet ami a Carry-ből feltöltődött.
   return