Курсовая работа: Розробка термореле

MOVLW .2

CALL X4

MOVFW PORTA

MOVWF TEMP

BTFSC FLAG,1

RETURN

BTFSS TEMP,DS1

BCF STATUS,0

BTFSC TEMP,DS1

BSF STATUS,0

RRF LSB,1

MOVLW .15

CALL X4

DECFSZ COUN,l

GOTO PRI1

RETURN

;затримка мкс

X4:

ADDLW -1

BTFSS STATUS,2

GOTO $-2

RETURN

;посилка команди вDS

POSIL1:

MOVWF TEMP

MOVLW .8

MOVWF COUN

POSI1:

RRF TEMP,1