;
;         <tsgn_0.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
;--------------------------------------------------
;
;     
     movlw 0xff
     movwf GPIO
loop
     xorwf GPIO,f
     goto loop
;    (.RC 4MHz) = 6 
; 166666,6Hz
;