Этого же и хотел вопрошающий, ему и было вывалено:Смотрим промежуточные асмовские файлы и охереваем с сишных наворотов
Код: Выделить всё
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Протон
Memory Summary:
Program space used 2Bh ( 43) of 400h words ( 4.2%)
Data space used 6h ( 6) of 40h bytes ( 9.4%)
EEPROM space used 0h ( 0) of 80h bytes ( 0.0%)
Data stack space used 0h ( 0) of 3Ah bytes ( 0.0%)
Configuration bits used 1h ( 1) of 1h word (100.0%)
ID Location space used 0h ( 0) of 4h bytes ( 0.0%)
