;
;         <tsgn_1.txt>     
;                
;
;------------------------------------------------------------------------------
; OSCCAL RESTORE (not required if internal OSC is not used)
;------------------------------------------------------------------------------
;
START
        errorlevel -302
        BSF     STATUS,RP0    ; set file register bank to 1 
        CALL    0x3FF         ; retrieve factory calibration value
        MOVWF   OSCCAL        ; update register with factory cal value 
        BCF     STATUS,RP0    ; set file register bank to 0
;
;------------------------------------------------------------------------------
; PLACE USER PROGRAM HERE
;------------------------------------------------------------------------------
;
;      
;
hard_init
       MOVLW 07h ; Set GP<2:0> to 
       MOVWF CMCON ; digital IO
       movlw 0xff
       movwf GPIO
;   ""  (OPTION_REG./GPPU = 1)
       bank_set 1
       movlw b'00001000'
       movwf TRISIO
       bank_set 0
;--------------------------------------------------
;
;     
;    
    incf PCLATH,f ;   00100:001FF
     movlw 0xff
     movwf GPIO
lp1
    movlw genom
    movwf cnt0
loop
    movf cnt0,w
    call tabgen
     movwf GPIO
    decfsz cnt0,f
     goto loop
     movf cnt0,w
    call tabgen
     movwf GPIO ;   0
     goto lp1
;    (.RC 4MHz) = 22 
;    45454,54Hz
;       
;     12 
;
;--------------------------------------------------
;
;     
;     1    
; 
;    clrf cnt0
;    movlw 0xff
;    movwf GPIO
;loop
;    movf cnt0,w
;    call tabgen
;    movwf GPIO
;    incf cnt0,f
;    goto loop
;--------------------------------------------------
;