; PORTD кіріс/шығысқа орнату нұсқаулары
CLRF TRISC
MOVLW b'00001111'; PORTD жұмысын.
MOVWF TRISD; 0-3 биттерін кіріске, 4-7 шығысқа реттейміз.
BCF STATUS, 5
CLRF PORTC
; Программаның жұмысшы бөлігі
MOVLW B'11110000'; клавиатураның К4-К7 аяқшаларына қорек
MOVWF PORTD;кернеуін береміз.
MOVLW B'10000000'
MOVWF PORTC;қорек кернеу бар екенін сигнализациямен көрсетеміз. Sled_det
BTFSS PORTD, 2; Pusk1(2)кнопкасы басылғанын тексереміз
GOTO Sled_det;егер кнопка әлі де басылмаса тексеруді қайталаймыз.
BSF PORTC, 0; егер басылса S1 дыбыстық сигнализацияны қосамыз.
MOVLW d'40'; S1 сигнализацияның жұмыс істеу уақытын береміз.
CALL Timer
MOVLW B'10001110'
MOVWF PORTC; D1 және D2 қозғалтқышын, L1сигнализацияны қосамыз.
MOVLW d'60'; D1 жұмыс істеу уақытын береміз.
CALL Timer
BCF PORTC, 2; D1 өшіреміз, D2, L1 және L2 жұмыс істей береді.
MOVLW d'20'; L1 және вентилятордың жұмыс істеу уақытын береміз.
CALL Timer
MOVLW B'10000000'
MOVWF PORTC; D2 вентилятор және L1 сигнализацияны өшіреміз.
MOVLW d’20’; детальды ауыстыруға кететін уақытты береміз.
CALL Timer
GOTO Sled_det; қондырғыны қайта қосу үшін Sled_det белгісіне көшу.
GOTO $; ішкі программа мен негігі программаны бөлу.
Timer; ішкі программада Stop кнопкасы бар ішкі цикл ғана көрсетілген.
M_in; ішкі санағыштың белгісі.
BTFSC PORTD, 1; Stop1 және Stop2 кнопкасы басылғанын тексереміз.
GOTO Stop; басылса, онда камераны тоқтату нұсқауына өту.
DECF Sch_in, F; Sch_in санағыш мәнін 1-ге кемітеміз.
BTFSS STATUS, Z; егер Sch_in=0 болса (Z=1), GOTO-ды аттап кетеміз.
GOTO M_in; Z=0 кезінде орындалады.
....
RETURN
Stop CLRF PORTC; бояу камерасының жұмысын тоқтату.
GOTO Sled_det; немесе GOTO $ қою қажет
END
Дата добавления: 2015-07-19; просмотров: 90 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Жұмыс тақырыбы бойынша қысқаша теориялық ақпарат | | | Жұмыс тақырыбы бойынша қысқаша теориялық ақпарат |