; vyuka podprogramu - rekurentni volani podprogramu 
;
   
#include p16f1708.inc


    
 udata 30
 POCITATKO res 1
    
 code 
 
  __CONFIG   _CONFIG1,  _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON  & _MCLRE_OFF & _CP_OFF & _BOREN_OFF  & _IESO_OFF &  _FCMEN_OFF & _CLKOUTEN_ON 

;   & _CLKOUTEN_OFF   timhle se da vypnout vnitrni oscilator na pinu RA4 - pin 3 
  
  
  __CONFIG   _CONFIG2,  _WRT_OFF & _LVP_OFF   & _PPS1WAY_ON & _ZCDDIS_ON & _PLLEN_OFF & _STVREN_ON &  _LPBOR_OFF & _BORV_HI & _LPBOR_OFF  

  
#define VYSILAMPISMENO FLAGPIS,0  

  
  org 0
 goto start



; interrupt 
;  automaticky se ulozi do shadow registru  register
;  STATUS register (except for TO and PD)
;  BSR register • FSR registers PCLATH register


 org 4

 
 retfie   ; RETFIE vraci registry z shadow reg. 


start: 
 

 nop
 nop
 nop
 nop
 
 movlw .6
 movwf POCITATKO
 
 call prvni
 
 nop
 nop
 nop
 nop
 
 movlw .6
 movwf POCITATKO
 
 call druhy 
 
 nop
 nop
 nop
 nop
 
 
 
 movlw .17
 movwf POCITATKO
 
 call prvni
 
    
xx01:      
 bra xx01
 
 
 
 
prvni:
    
 nop
 nop
 nop
 nop
 
 decfsz POCITATKO
 call prvni 
 
 return
 


 
druhy:
    
 nop
 nop
 
 call treti 
 nop
 nop
 
 decfsz POCITATKO
 call druhy 
 
 return
 


 
 
 
treti:
    
    nop
    nop
    nop
    nop
    
   return 
    
 
 
 
 
 
 
 
 end