Отправлено Илья 25 января 2002 г. 12:08 В ответ на: Ответ: отправлено zacora 25 января 2002 г. 09:34

Так да, виснет, НО УБИРАЕМ КОМЕНТАРИИ И _ВСЁ_РАБОТАЕТ_

errorlevel -302
LIST P=16F84
__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC

INCLUDE "p16f84.inc"

RAM equ h'20'

cblock RAM
TempC, DigitC
endc

org h'000'
GOTO START
org h'100'
START
call UpdateDisplay
goto START
UpdateDisplay
; movlw HIGH LedTable
; movwf PCLATH
movf PORTA,W
clrf PORTA
andlw 0x0f
movwf TempC ;save sink value in tempC
decf TempC,W
btfsc STATUS,Z
movlw 0x09
movwf TempC ;save sink value in tempC
addlw DigitC
movwf FSR
movf INDF,W
andlw B'00011111'
call LedTable ;get digit output

movwf PORTB ;drive leds
movf TempC,W ;get sink value in w
movwf PORTA
movlw HIGH $
movwf PCLATH
return

org h'300'
LedTable
addwf PCL,f ;add to PC low
retlw B'10111101' ; '0'
retlw B'00100001' ; '1'
retlw B'10111101' ; '2'
retlw B'00100001' ; '3'
retlw B'10111101' ; '4'
retlw B'00100001' ; '5'
retlw B'10111101' ; '6'
retlw B'00100001' ; '7'
retlw B'10111101' ; '8'
retlw B'00100001' ; '9'
retlw B'10111101' ; '10'
retlw B'00100001' ; '11'
retlw B'10111101' ; '12'
retlw B'00100001' ; '13'
retlw B'10111101' ; '14'
retlw B'00100001' ; '15'
retlw B'10111101' ; '16'
retlw B'00100001' ; '17'
retlw B'10111101' ; '18'
retlw B'00100001' ; '19'
retlw B'10111101' ; '20'
retlw B'00100001' ; '21'
retlw B'10111101' ; '22'
retlw B'00100001' ; '23'
retlw B'10111101' ; '24'
retlw B'00100001' ; '25'
retlw B'10111101' ; '26'
retlw B'00100001' ; '27'
retlw B'10111101' ; '28'
retlw B'00100001' ; '29'
retlw B'10111101' ; '30'
retlw B'00100001' ; '31'
end