Отправлено DSN 23 сентября 2004 г. 14:42 В ответ на: понял, ну вы и извращенц )) купите лучше флэшовый ПИК отправлено DSN 23 сентября 2004 г. 14:35

ORG 0x000
;you may want to clear PCLATH and ALUSTA registers here
clrf PCLATH, F
clrf ALUSTA, F
clrf BSR, F
variable ks=1
if SECTION_NUM == 1
goto start
else
DW 0
movlw high start
movwf PCLATH
movlw low start
movwf PCL
endif
ks = $
WHILE ks < 0x008
DW 0xFFFF
ks++
ENDW

ORG 0x008
movfp PCLATH,TEMP_PCLATH
movfp WREG,TEMP_WREG
if SECTION_NUM == 1
goto intpin_isr_handler
else
DW 0
movlw high intpin_isr_handler
movwf PCLATH
movlw low intpin_isr_handler
movwf PCL
endif
ks = $
WHILE ks < 0x010
DW 0xFFFF
ks++
ENDW