; tohle bude uz opravdu neco delat
;
   
#include p16f1708.inc

#define bitik PORTA,1
    
 udata 30
 bunka 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: 
 
    
  banksel ANSELA
  clrf ANSELA
  
  banksel TRISA
  movlw 0xff
  movwf TRISA
  
  banksel PORTA
    
  nop
  nop
  nop
  nop
  nop     ; do wiev - watch si dejte PCL , a divejte se, co dela  
          ; PCL je jenom dolnich 8 bitu PC registru 
  goto nekam   ;  absolutni nepodmineny skok
  
  nop
  nop
sem:  
  nop
  nop
  goto tam
  nop
  
nekam:
  nop
  nop
  nop
  nop
  goto sem
  
tam:
    
 bra jinam
  nop
  nop
  nop
  nop
  
jinam:
  nop
  nop
  nop
  nop
  
  
 clrf bunka 
 
cyklime: 
 movf bunka,0
 btfss STATUS,Z
 goto nenitonula
 nop
 nop   ;   do bunky  bunka si ve Variables dejte nejake jine cislo, nez 0
 nop   ;   a tim vylezete z cyklu 
 bra cyklime
 
 
nenitonula: 
 nop
 nop
 nop
 
xx03:  
 btfsc PORTA,0 
 goto RA0_je_H
 
 nop
 nop   ;   tady cyklime, dokud nenastavite ve STIMULUS port RA0 do log. 1
 nop
 bra xx03
 
 
RA0_je_H:
 nop
 nop

xx05: 
 btfsc bitik    ; definovano nahore pomoci #define 
 bra  RA1_je_H  
 nop
 nop
 nop
 nop
 bra xx05
    
    
RA1_je_H:
 nop
 nop
 nop
    
    
    
 
  
xx01:      
 bra xx01
 
 
 end