list   p=16f84
   #include   <p16f84.inc>
   __CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
w   EQU   0
f   EQU   1
   cblock   h'0c'
   i
   temp1;mlad6i byte na temperaturata   
   temp2;star6i byte na temperaturata
   buffer
   endc
#define   ck   PORTB,0
#define   IO   PORTB,1
#define   fan   PORTB,2
#define   CS   PORTB,3   

   ORG   H'0000'
   goto   start

start   bsf   STATUS,RP0
   bcf   TRISB,0
   bcf   TRISB,2
   bsf   TRISB,3
   nop
   nop
   nop
   nop   
   bcf   STATUS,RP0
   bcf   CS
   CLRF   PORTB
   goto   main
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
clock   bcf   ck
   nop
   nop
   nop
   nop
   nop
   bsf   ck
   return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
proverka   btfsc   EECON1,WR
   goto   proverka
   bcf   STATUS,RP0
   return
pisane   movlw   H'01'
   movwf   EEADR
   movf   temp1,w
   movwf   EEDATA
   bsf   STATUS,RP0
   bsf   EECON1,WREN
   movlw   H'55'
   movwf   EECON2
   movlw   H'AA'
   movwf   EECON2   
   BSF   EECON1,WR
   call   proverka
   
   movlw   H'00'
   movwf   EEADR
   movf   temp2,w
   movwf   EEDATA
   bsf   STATUS,RP0
   bsf   EECON1,WREN
   movlw   H'55'
   movwf   EECON2
   movlw   H'AA'
   movwf   EECON2   
   BSF   EECON1,WR

   call   proverka

   return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
noname   btfss   IO
   bcf   STATUS,C
   bsf   STATUS,C
   rlf   buffer,f
   return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
chetene   movlw   0
   movwf   buffer
chetene_   call    clock
   call   noname
   decfsz   i,f
   goto   chetene_
   movf   buffer,w
   return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
main   bsf   STATUS,RP0
   BSF   TRISB,1
   bcf   STATUS,RP0
   movlw   D'5'
   movwf   i
   call   chetene
   movwf   temp2
   movlw   D'8'
   movwf   i
   call   chetene
   movwf   temp2
ni6to   movlw   D'3'
   movwf   i
ni6to_   call   clock
   decfsz   i,f
   goto   ni6to_
   goto   izvejdane
izvejdane;16 posledovatelni 0
   bsf   STATUS,RP0
   bcf   TRISB,1
   bcf   STATUS,RP0
   bcf   IO
   movlw   D'16'
   movwf   i
izvejdane_   call   clock
   decfsz   i,f
   goto   izvejdane_
   call   pisane
   goto   main

   END