TMR2_TIME_CYCLE

poc1 equ 21h
poc2 equ 22h

  org   0           ;prvni pusteni
  goto start        ;jdi to nastavit

  org 4             ;sem chodí kdyz ho prerusim, tolikrat kolik si vypocitam F. podle periody tu zadá T=1/F
  decf poc1,1       ;odecitam od poc1 (to si nastavim v setupu podle toho kolik period chci)
  btfsc STATUS,2      ;zjistuju jestli nahodou poc1 neni nulovy, tj koukam na ZERO BIT
  goto sem1         ;když zero bit = 1 -> skoci na sem1

  !!!! TED NEVIM JESTLI TOHLETO PREVRACENI KODU A MAZANI FLAGU NEMA BEJT NAD TIM VYKONEM AKCE NEBO AZ POD NIM?
                                 [PORAD PLS!!]
  bcf   PIR1,TMR2IF ;mazu flag, abych mohl zase pocitat
  comf  PORTB,1     ;prevracim hranu signalu na PortB
  retfie            ;vrací se k preruseni a automaticky ho povoluje aby zase jelo...


start:
   bsf STATUS,RP0   ;tohle chci resit na str1 proto 1 v rp0 statusu
   clrf ANSEL       ;vypnu prevodnik
   movlw 60h        ;tohle je hodnota
   movwf OSCCON     ;jakou mi jede OSC - 4mHz

   clrf TRISB       ;TRISB => OUTPUT

   ;x= ((fosc/4)/f)/(PRESC*POSTSC))-1

   movlw .x         ;sem si dosadim ze vzorce vypocet
   movwf PR2        ;a bouchnu to do registru citace
   movlw 02         ;tohle je co kurva?!!!!!!!!!!!!!!!!!!!     [PORAD PLS!!]
   movwf PIE1       ;dam to sem a PIC pouziva TMR2

   bcf   STATUS,RP0 ;zpet na str 0
   clrf PORTB       ;kdyby tam neco bylo

   movlw .y         ; y je kolikrat to prevrati hranu nez to prerusim
   movwf poc1       ; od toho pak dekrementuju samozrejme

   movlw z          ; z je nastaveni T2CON coz sou preddelicky a postdelicky atd.
   movwf T2CON      ; Jak si to mam kurva pamatovat
   ; !! PS !! Muzu to nastavovat tady? nebo radsi vejs? nebo je to fuk?    [PORAD PLS!!]

   movlw 0C0        ; 11000000 -> povoli GIE a PEIE
   movwf INTCON     ; tzn spustí to citani...

Sem1                ;sem skoci kdyz se vypise dost tech period
   nop              ;nic
   Sem2             ;sem sám prejde?  pujde to?
   decf poc2,1      ;odecte od poc2 - coz je to, kolikrat mi tu probehne to blbnuti kvuli ty pauze
   btfss STATUS,2   ;pokud je poc2 uz nula tak -> Sem1    (reaguje na 1 proto SS!)
   goto Sem2        ;pokud ne tak znova Sem2 ->odecsist
   goto Sem1        ;jinak ... kam? odtud asi do behu zpatky? return?   [PORAD PLS!!]
    end             ; ????            [PORAD PLS!!]