proton#code#start
    org 0
    goto proton#main#start
    org 4
    movwf WSAVE
    movf STATUS,W
    clrf STATUS
    movwf SSAVE
    movf FSR,W
    movwf FSRSAVE
    goto ISR_Handler
proton#main#start
    clrf STATUS
F1_SOF equ $ ; TUTORIAL1.BAS
F1_000044 equ $ ; IN [TUTORIAL1.BAS] GOTO MAIN
    goto MAIN
ISR_Handler
ram_bank = 0
F1_000046 equ $ ; IN [TUTORIAL1.BAS] CONTEXT SAVE
    movf PP7,W
    movwf _High__Context_Store#0
    movf PP7H,W
    movwf _High__Context_Store#1
F1_000047 equ $ ; IN [TUTORIAL1.BAS] IF INTCON.2 = 1 THEN
    btfss INTCON,2
    goto _LBL__3
F1_000048 equ $ ; IN [TUTORIAL1.BAS] INTCON.2 = 0
    bcf INTCON,2
F1_000049 equ $ ; IN [TUTORIAL1.BAS] TICK_COUNT=TICK_COUNT+1
    incf tick_count,F
    btfsc STATUS,2
    incf tick_countH,F
F1_000050 equ $ ; IN [TUTORIAL1.BAS] GPIO=GPIO^(0X01  |0X02  )
    clrf PP7H
    movlw 3
    movwf PP7
    movf PP7,W
    xorwf GPIO,F
F1_000051 equ $ ; IN [TUTORIAL1.BAS] ENDIF
_LBL__3
F1_000052 equ $ ; IN [TUTORIAL1.BAS] CONTEXT RESTORE
    movf _High__Context_Store#0,W
    movwf PP7
    movf _High__Context_Store#1,W
    movwf PP7H
    movf FSRSAVE,W
    movwf FSR
    movf SSAVE,W
    movwf STATUS
    swapf WSAVE,F
    swapf WSAVE,W
    retfie
MAIN
F1_000057 equ $ ; IN [TUTORIAL1.BAS] OPTION_REG =OPTION_REG&( ~(0X20  |0X07 ))
    clrf PP7H
    movlw 39
    movwf PP7
    comf PP7,F
    comf PP7H,F
    movf PP7,W
    bsf STATUS,5
ram_bank = 1
    andwf OPTION_REG,F
F1_000058 equ $ ; IN [TUTORIAL1.BAS] TRISIO =TRISIO  & (~(0X01  |0X02  ))
    bcf STATUS,5
ram_bank = 0
    clrf PP7H
    movlw 3
    movwf PP7
    comf PP7,F
    comf PP7H,F
    movf PP7,W
    bsf STATUS,5
ram_bank = 1
    andwf TRISIO,F
F1_000059 equ $ ; IN [TUTORIAL1.BAS] ANSEL=0
    clrf ANSEL
F1_000060 equ $ ; IN [TUTORIAL1.BAS] INTCON = INTCON |(0X20 |0X80 )
    bcf STATUS,5
ram_bank = 0
    clrf PP7H
    movlw 160
    movwf PP7
    movf PP7,W
    iorwf INTCON,F
F1_000061 equ $ ; IN [TUTORIAL1.BAS] CMCON =0X07
    movlw 7
    movwf CMCON
F1_000062 equ $ ; IN [TUTORIAL1.BAS] GPIO = 0X01
    movlw 1
    movwf GPIO
LOOP
F1_000063 equ $ ; IN [TUTORIAL1.BAS] LOOP: GOTO LOOP
    goto LOOP
F1_EOF equ $ ; TUTORIAL1.BAS
_PBLB__4
    goto _PBLB__4
__EOF
__config XT_OSC & WDT_OFF & PWRTE_ON & CP_OFF & MCLRE_ON
    end

Device=12F675
$define INTCON_T0IE 0x20
$define INTCON_GIE  0x80
$define INTCON_T0IF 0x04
$define INTCON_PEIE 0x40

$define OPTION_GPPU   0x80
$define OPTION_INTDEG 0x40
$define OPTION_T0CS   0x20
$define OPTION_T0SE   0x10
$define OPTION_PSA    0x08
$define OPTION_PS0    0x04
$define OPTION_PS1    0x02
$define OPTION_PS2    0x01

$define TMR0_PSC      0x07

$define ALL_DIGIT     0x07

$define GPIO_0        0x01
$define GPIO_1        0x02
$define GPIO_2        0x04
$define GPIO_3        0x08
$define GPIO_4        0x10
$define GPIO_5        0x20
$define GPIO_6        0x40
$define GPIO_7        0x80

$define TRIS_0       0x01
$define TRIS_1       0x02
$define TRIS_2       0x04
$define TRIS_3       0x08
$define TRIS_4       0x10
$define TRIS_5       0x20
$define TRIS_6       0x40
$define TRIS_7       0x80


Dim tick_count As Word

$define LED   GPIO_0
$define LED1  GPIO_1
On_Hardware_Interrupt   GoTo  ISR_Handler
GoTo MAIN
ISR_Handler:
Context Save  ' Save any variables or SFRs used
If INTCONbits_T0IF = 1 Then ' Is it Timer0 that caused the interrupt?
 INTCONbits_T0IF = 0  ' Clear the Timer0 overflow flag
 tick_count=tick_count+1
 GPIO=GPIO^(LED|LED1)
EndIf
Context Restore ' Restore any variables or SFRs used and exit



MAIN:
    OPTION_REG =OPTION_REG&( ~(OPTION_T0CS |TMR0_PSC))
    TRISIO =TRISIO  & (~(LED|LED1))
    ANSEL=0;
    INTCON = INTCON |(INTCON_T0IE|INTCON_GIE)   
    CMCON =ALL_DIGIT
    GPIO = LED
LOOP: GoTo LOOP