WWW.REFERATCENTRAL.ORG.UA -

... , , ,

→ ̳ -

̳ -

FLAG.

0- > ,

  1. > ( )

S EQU 1. .

; DS

INIT

ORG GOTO ORG GOTO

INIT 4

PRER

2. .

BSF

STATUS,5

1.

MOVLW

B'OOOOOOOO'

MOVWF

OSCCAL

.

MOVLW

OFFH

MOVWF

ADCON1A80H

(

500 .

MOVLW

B'lOOOOlll'

=25.

MOVWF

OPTION_REGA80H

MOVLW

'

.

MOVWF

INTCON ;

CLRF

в180

.

moVlw

'00111111•

.

MOVWF

TRISAA80H ;

MOVLW

B'00010000'

MOVWF

TRISCA80H

'.

CLRF

VRCONA80H

; .

CLRF

PCONA80H

/ .

CLRF

WPUA

/ ,

CLRF

IOCA

/ .

MOVLW

. 7

MOVWF

ANSEL

RAO, RA1, RA2

BCF

STATUS,5

0.

CLRF

PORTC

.

CLRF

T1CON

,1 .

MOVLW

' .7

MOVWF

CMCON ; .

CLRF

FLAG

CLRF

CLRF

CEK1

CLRF

C022A

CLRF

C022B

CLRF

C022C

CLRF

COUA

CLRF

COUB

CLRF

coup

CLRF

COUTE

BSF

PORTC,3 / .

BTFSS

FLAG,5 ; .

GOTO

$-1

BCF

INTCON,7

; 3. - ( ). ADPA

ADPB

ADPC

MOVLW

B'lOOOOOOl"

0, ,

MOVWF

ADCONO

().

CALL

ZAD

100 .

BSF

ADCONO;1

.

BTFSC

ADCONO,1 ' ;

GOTO

$-1 • ' ,

.

MOVFW

ADRESH

MOVWF

TEKAH

.

BTFSC

TEKAH,1

1 1,

CALL

ADPU

.

BSF

STATUS,5

1.

MOVLW

21

TEKAL

MOVWF

FSR

.

MOVFW

ADRESL

MOVWF

INDF

BCF

STATUS,5

0.

BCb

STATUS,0

.

RRF

TEKAH,1

,

RRF

TEKAL,1

8 .

TSTF

TEKAL

BTFSC

STATUS,2

•( )

CALL

ADPU

• .

MOVLW

B'lOOOOlOl'

• 1, ,

MOVWF

ADCONO

• (YBX).

CALL

ZAD

• 100 . •

BSF

ADCONO,1

• .

BTFSC

ADCONO,1

GOTO

$-1

MOVFW

ADRESH

;

MOVWF

TEKBH

• .

BTFSC

TEKBH,1

; 1 1,

CALL

ADPU

; .

BSF

STATUS,5

; 1.

MOVLW

23

TEKL

MOVWF

FSR

; .

MOVFW

ADRESL

MOVWF

INDF

BCF

STATUS,5

; 0.

BCF

STATUS,0

; .

RRF

TEKBH,1

; ,

RRF

TEKBL,-1

; 8 .

TSTF

TEKBL

;

BTFSC

STATUS,2

;( )

CALL

ADPU

; .

MOVLW

BUOOOlOOl'

; 2, ,

MOVWF

ADCONO

; (YBX).

CALL

ZAD '

; 100 .

BSF

ADCONO,1

; .

BTFSC

ADCONO,1

/

GOTO $-1 /.

MOVFW ADRESH ;

MOVWF ; .

BTFSC ,1 / 1 1, .

CALL ADPU ; .

BSF STATUS,5 / 1.

MOVLW 25 ; TEKL

MOVWF FSR ; .

MOVFW • ADRESL

MOVWF INDF

BCF STATUS,5 ; 0.

BCF STATUS,0 / .

RRF ,1 / ,

RRF TEKCL,1 / 8 .

TSTF TEKCL /

BTFSC STATUS,2 /( )

CALL ADPU / .

GOTO 220

ZAD

MOVLW .25 / 100 .

ADDLW -1

BTFSS STATUS,2

GOTO $-2

RETURN

. ._.... _..^ _ _ _ _______________ _ - ___.____________

/ 4. .

220

Loading...

 
 

ֳ


...