INCF ML,1 ;ÈÍÀ×Å ÓÂÅËÈ×ÈÌ ÌÈÍÓÒÛ.
RETURN
MIH
BSF FLAG1,4 ;ÏÐÎØËÎ 10 ÌÈÍÓÒ ÊÓÐÑÎÐ ÂÛÊËÞ×ÀÅÒÑß.
BCF FLAG,7 ;ÍÅÒ ÓÑÒÀÍÎÂÊÈ.
CLRF KYPC ;ÍÅÒ ÊÓÐÑÎÐÀ.
CLRF ML ;ÎÁÍÓËÈÌ ÅÄÈÍÈÖÛ ÌÈÍÓÒ.
MOVFW MH ;ÅÑËÈ ÄÅÑßÒÊÈ ÌÈÍÓÒ
ADDLW -5H ;ÐÀÂÍÛ 5,
BZ HOL ;ÈÄÅÌ ÑÐÀÂÍÈÂÀÒÜ ×ÀÑÛ.
INCF MH,1 ;ÈËÈ ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ÌÈÍÓÒ.
HOL
BCF FLAG1,5 ;ÍÀÏÎÌÈÍÀÍÈÅ ÎÁ ÀÂÀÐÈÈ ÍÀÏÐßÆÅÍÈß.
CLRF MH ;ÎÁÍÓËÈÌ ÄÅÑßÒÊÈ ÌÈÍÓÒ.
MOVFW HH ;ÅÑËÈ ÄÅÑßÒÊÈ ×ÀÑÎÂ
ADDLW -2H ;ÐÀÂÍÛ 2,
BZ HL4 ;ÏÐÎÂÅÐÈÌ ÅÄÈÍÈÖÛ ×ÀÑÎÂ.
MOVFW HL ;ÅÑËÈ ÅÄÈÍÈÖÛ ×ÀÑΠÐÀÂÍÛ 9,
ADDLW -9H ;
BZ $+3 ;ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ×ÀÑÎÂ.
INCF HL,1 ;ÈËÈ ÓÂÅËÈ×ÈÌ ÅÄÈÍÈÖÛ ×ÀÑÎÂ.
CLRF HL ;
INCF HH,1 ;
HL4
MOVFW HL ;ÅÑËÈ ÅÄÈÍÈÖÛ ×ÀÑÎÂ
ADDLW -3H ;ÐÀÂÍÛ 3,
BZ HOH ;ÈÄÅÌ ÎÁÍÓËßÒÜ.
INCF HL,1 ;ÈËÈ ÏÐÈÁÀÂÈÌ ÅÄÈÍÈÖÓ.
HOH
CLRF HH ;ÎÁÍÓËÈÌ ÄÅÑßÒÊÈ ×ÀÑÎÂ.
RETURN ;
;=============================================
; 14. ÒÀÉÌÅÐ.
TAIM
BSF FLAG,5 ;ÑËÅÄÓÞÙÀß ÎÑÒÀÍÎÂÊÀ ÒÀÉÌÅÐÀ.
MOVLW .9 ;ÅÑËÈ ÓÆÅ 9 ÑÅÊÓÍÄ,
SUBWF TCL,0 ;
BC $+3 ;ÈÄÅÌ ÍÀ ÑÐÀÂÍÅÍÈÅ ÄÅÑßÒÊÎÂ ÑÅÊÓÍÄ.
INCF TCL,1 ;ÈÍÀ×Å ÏÐÈÁÀÂÈÌ ÅÄÈÍÈÖÓ.
CLRF TCL ;ÎÁÍÓËÈÌ ÑÅÊÓÍÄÛ.
MOVFW TCH ;ÅÑËÈ ÄÅÑßÒÊÈ ÑÅÊÓÍÄ
BZ $+3 ;ÈÄÅÌ ÑÐÀÂÍÈÂÀÒÜ ÌÈÍÓÒÛ.
INCF TCH,1 ;ÈÍÀ×Å ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ÑÅÊÓÍÄ.
CLRF TCH ;ÎÁÍÓËÈÌ ÄÅÑßÒÊÈ ÑÅÊÓÍÄ.
MOVFW TML ;ÅÑËÈ ÅÄÈÍÈÖÛ ÌÈÍÓÒ
ADDLW -9H ;ÐÀÂÍÛ 9,
BZ $+3 ;ÈÄÅÌ ÑÐÀÂÍÈÂÀÒÜ ÄÅÑßÒÊÈ.
INCF TML,1 ;ÈÍÀ×Å ÓÂÅËÈ×ÈÌ ÌÈÍÓÒÛ.
CLRF TML ;ÎÁÍÓËÈÌ ÅÄÈÍÈÖÛ ÌÈÍÓÒ.
MOVFW TMH ;ÅÑËÈ ÄÅÑßÒÊÈ ÌÈÍÓÒ
BZ $+3 ;ÓÂÅËÈ×ÈÌ ×ÀÑÛ.
INCF TMH,1 ;ÈËÈ ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ÌÈÍÓÒ.
CLRF TMH ;ÎÁÍÓËÈÌ ÄÅÑßÒÊÈ ÌÈÍÓÒ.
MOVFW THL ;ÅÑËÈ ÅÄÈÍÈÖÛ ×ÀÑΠÐÀÂÍÛ 9,
INCF THL,1 ;ÈËÈ ÓÂÅËÈ×ÈÌ ÅÄÈÍÈÖÛ ×ÀÑÎÂ.
CLRF THL ;ÎÁÍÓËÈÌ ×ÀÑÛ.
MOVFW THH ;ÅÑËÈ ÄÅÑßÒÊÈ ×ÀÑΠÐÀÂÍÛ 9,
BZ $+3 ;ÎÁÍÓËÈÌ.
INCF THH,1 ;ÈËÈ ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ×ÀÑÎÂ.
CLRF THH ;
T00
BTFSS FLAG,5 ;
GOTO $+4 ;
BCF FLAG,2 ;ÒÀÉÌÅÐ ÂÛÊËÞ×ÅÍ.
BCF FLAG,5 ;ÑËÅÄÓÞÙÅÅ ÂÊËÞ×ÅÍÈÅ ÒÀÉÌÅÐÀ.
CLRF TCL ;ÂÑÅ ÎÁÍÓËßÅÌ.
CLRF TCH ;
CLRF TML ;
CLRF TMH ;
CLRF THL ;
BSF FLAG,2 ;ÂÊËÞ×ÈÌ ÒÀÉÌÅÐ.
;===================================================
; 15. ÀÖÏ - ÏÐÅÎÁÐÀÇÎÂÀÍÈß (ÈÇÌÅÐÅÍÈÅ ÂÕÎÄÍÛÕ ÂÅËÈ×ÈÍ).
ADP
MOVLW B'10000001' ;ÑÈÍÕÐÎÍÈÇÀÖÈß ÎÒ RC
MOVWF ADCON0 ;ÃÅÍÅÐÀÒÎÐÀ, ÂÕÎÄ 0, ÂÊËÞ×ÅÍÈÅ ÀÖÏ (YBX).
CALL ZAD ;
BSF ADCON0,1 ;ÂÊËÞ×ÈÌ ÏÐÅÎÁÐÀÇÎÂÀÍÈÅ.
BTFSC ADCON0,1 ;ÎÆÈÄÀÅÌ ÇÀÂÅÐØÅÍÈß
GOTO $-1 ;ÏÐÅÎÁÐÀÇÎÂÀÍÈß.
MOVFW ADRESH ;ÏÅÐÅÏÈØÅÌ ÐÅÇÓËÜÒÀÒ ÏÐÅÎÁÐÀÇÎÂÀÍÈß
MOVWF TEKH ;Â ÑÒÀÐØÈÉ ÒÅÊÓÙÈÉ ÐÅÃÈÑÒÐ.
BSF STATUS,5 ;ÏÅÐÅÕÎÄÈÌ Â ÁÀÍÊ 1.
MOVLW 58 ;
MOVWF FSR ;ÏÎ ÊÎÑÂÅÍÍÎÉ ÀÄÐÅÑÀÖÈÈ
MOVFW ADRESL ;ÇÀÏÈÑÜ ÌË. ÐÅÃÈÑÒÐÀ ÀÖÏ
MOVWF INDF ;Â ÐÅÃÈÑÒÐ TEKL.
BCF STATUS,5 ;ÏÅÐÅÕÎÄÈÌ Â ÁÀÍÊ 0.
CALL COMPA ;
GOTO BINDEC ;ÏÅÐÅÊÎÄÈÐÓÅÌ Â 2_10 ÊÎÄ.
ZAD
MOVLW .5 ;ÇÀÄÅÐÆÊÀ 20 ÌÊÑ.
ADDLW -1 ;
BTFSS STATUS,2 ;
GOTO $-2 ;
;===========================
; 16. ÑÐÀÂÍÅÍÈÅ Ñ ÓÑÒÀÍÎÂÊÎÉ.
COMPA
TSTF TEKL ;
BTFSC STATUS,2;
GOTO VUKL ;
MOVFW YCTL ;ÓÑÒÀÍÎÂÊÀ ÌÀÊÑÈÌÓÌÀ.
SUBWF TEKL,0 ;ÈÇÌÅÐÅÍÈÅ,
BTFSC STATUS,0;ÅÑËÈ ÁÎËÜØÅ ÈËÈ ÐÀÂÍÎ,
GOTO VUKL ;ÒÎ ÂÊËÞ×ÀÅÒÑß ÇÓÌÌÅÐ.
MOVFW YCTLI ;ÓÑÒÀÍÎÂÊÀ ÌÈÍÈÌÓÌÀ.
BTFSS STATUS,0;ÅÑËÈ ÌÅÍÜØÅ,
BTFSC STATUS,2;ÅÑËÈ ÐÀÂÍÎ,
BCF FLAG1,4 ;ÇÓÌÌÅÐ ÂÛÊËÞ×ÅÍ.
BCF FLAG1,5 ;ÇÓÌÌÅÐ ÂÛÊËÞ×ÅÍ.
BCF PORTC,0 ;ÂÛÊËÞ×ÈÌ ÑÈÃÍÀË.
VUKL
BTFSC PORTA,KY;
GOTO $+5 ;
BSF FLAG1,5 ;ÏÎÑÒÀÂÈÌ ÑÒÎÐÎÆÎÊ ÍÀ 1 ×ÀÑ.
BTFSC FLAG1,5 ;ÅÑËÈ 1 ×ÀÑ ÏÐÎØÅË, ÒÎ ÂÊËÞ×ÈÌ ÑÈÃÍÀË.
BTFSC FLAG1,4 ;ÅÑËÈ ÂÛÕÎÄ ÓÆÅ ÂÛÊËÞ×ÅÍ,
RETURN ;ÑÐÀÂÍÅÍÈÉ ÍÅÒ.
BSF PORTC,0 ;ÂÊËÞ×ÈÌ ÑÈÃÍÀË.
BSF FLAG1,4 ;ÇÓÌÌÅÐ ÂÊËÞ×ÅÍ.
;======================================================
; 17. ÏÅÐÅÊÎÄÈÐÎÂÊÀ ÈÇ 16-È ÐÀÇÐßÄÍÎÃÎ 2-ÃÎ Â 5- ÐÀÇÐßÄÍÎÅ 2-10-Å.
; ÀËÃÎÐÈÒÌ ÏÅÐÅÊÎÄÈÐÎÂÊÈ ÎÑÍÎÂÛÂÀÅÒÑß ÍÀ ÏÐÈÁÀÂËÅÍÈÈ 3 Â ÌËÀÄØÈÉ
; È ÑÒÀÐØÈÉ ÏÎËÓÁÀÉÒÛ. ÅÑËÈ ÐÅÇÓËÜÒÀÒ ÑÏÅÐÅÍÎÑÎÌ 1  3 ÐÀÇÐßÄ (10=7+3), ÒÎ ÇÀÏÈÑÛÂÀÅÌ
; ÍÎÂÎÅ ÇÍÀ×ÅÍÈÅ Â ÐÅÃÈÑÒÐ. ÂÛÏÎËÍßÅÌ 16 ÐÀÇ ÑÄÂÈÃÀß ÁÈÒÛ ÐÅÃÈÑÒÐÎÂ.
BINDEC
MOVLW .16 ;ÇÀÏÈØÅÌ ×ÈÑËÎ ÑÄÂÈÃÎÂ
MOVWF COU ; Ñ×ÅÒ×ÈÊ.
BIDE
BCF STATUS,0 ;ÎÁÍÓËÈÌ ÁÈÒ "Ñ".
RLF TEKL,1 ;ÑÄÂÈÍÅÌ ÏÅÐÅÊÎÄÈÐÓÅÌÎÅ
RLF TEKH,1 ;×ÈÑËÎ ÏÅÐÅÌÅÙÀß ÅÃÎ ÑÒÀÐØÈÉ ÁÈÒ
RLF EDA,1 ;Â ÌËÀÄØÈÉ ÁÈÒ ÐÅÃÈÑÒÐÎÂ
RLF DEA,1 ;ÐÅÇÓËÜÒÀÒÀ.
DECFSZ COU,1 ;ÇÀÔÈÊÑÈÐÓÅÌ ÑÄÂÈà  Ñ×ÅÒ×ÈÊÅ.
GOTO RASDEC ;ÏÐÎÂÅÐÈÌ ÏÎËÓÁÀÉÒÛ ÍÀ ÑÅÌÅÐÊÓ.
GOTO MESTO ;ÅÑËÈ Ñ×ÅÒ×ÈÊ ÏÓÑÒ, ÇÀÏÎËÍÈÌ ÐÅÃÈÑÒÐÛ ÈÍÄÈÊÀÖÈÈ.
RASDEC
MOVLW EDA ;ÇÀÏÈØÅÌ ÀÄÐÅÑ ÐÅÃÈÑÒÐÀ
MOVWF FSR ;Â ÐÅÃÈÑÒÐ ÊÎÑÂÅÍÍÎÉ ÀÄÐÅÑÀÖÈÈ.
CALL BCD ;ÏÐÎÂÅÐÈÌ ÇÍÀ×ÅÍÈÅ ÐÅÃÈÑÒÐÀ ÍÀ 7.
MOVLW DEA ;ÀÍÀËÎÃÈ×ÍÛÅ ÎÏÅÐÀÖÈÈ ÏÐÎÄÅËÀÅÌ
MOVWF FSR ;Ñ ÄÐÓÃÈÌÈ ÐÅÃÈÑÒÐÀÌÈ.
CALL BCD ;
GOTO BIDE ;ÏÎÉÄÅÌ ÏÎÂÒÎÐßÒÜ ÑÄÂÈÃ.
BCD
MOVLW 3 ;0000 0011
ADDWF 0,0 ;ÏÐÈÁÀÂÈÌ 3 Ê ÐÅÃÈÑÒÐÓ È ÐÅÇÓËÜÒÀÒ
MOVWF TEMP ;ÇÀÏÈØÅÌ ÂÎ ÂÐÅÌÅÍÍÛÉ ÐÅÃÈÑÒÐ.
BTFSC TEMP,3 ;ÏÐÎÂÅÐÈÌ 3 ÁÈÒ È ÅÑËÈ ÎÍ ÐÀÂÅÍ ÍÓËÞ,
MOVWF 0 ;ÏÐÎÏÓÑÊÀÅÌ ÇÀÏÈÑÜ ÐÅÇÓËÜÒÀÒÀ Â ÐÅÃÈÑÒÐ.
MOVLW 30 ;48=0011 0000
ADDWF 0,0 ;ÏÐÈÁÀÂÈÌ 3 Ê ÑÒÀÐØÅÌÓ ÏÎËÓÁÀÉÒÓ ÐÅÃÈÑÒÐÀ È ÐÅÇÓËÜÒÀÒ
BTFSC TEMP,7 ;ÅÑËÈ ÁÈÒ ÅÄÈÍÈ×ÍÛÉ,
MOVWF 0 ;ÒÎ ÇÀÏÈØÅÌ ÍÎÂÎÅ ÇÍÀ×ÅÍÈÅ Â ÐÅÃÈÑÒÐ.
RETURN ;ÂÅÐÍÅÌÑß ÄËß ÇÀÃÐÓÇÊÈ ÍÎÂÎÃÎ ÇÍÀ×ÅÍÈß ÐÅÃÈÑÒÐÀ.
; 18. ÈÇÂËÅÊÀÅÌ ÏÎËÓÁÀÉÒÛ ÈÇ ÐÅÃÈÑÒÐΠÑ×ÅÒÀ  ÐÅÃÈÑÒÐÛ ÈÍÄÈÊÀÖÈÈ.
MESTO
MOVLW B'00001111' ;ÈÇÂËÅÊÀÅÌ ÏÎËÓÁÀÉÒÛ
ANDWF DEA,0 ;Â ÐÅÃÈÑÒÐÛ ÈÍÄÈÊÀÖÈÈ.
MOVWF COI ;
MOVLW B'11110000' ;
ANDWF EDA,0 ;
MOVWF DEI ;
SWAPF DEI,1 ;
MOVLW B'00001111' ;
MOVWF EDI ;
CLRF EDA ;
CLRF DEA ;
;==================================================
; 19. ÑÌÅÍÀ ÈÍÄÈÊÀÖÈÈ ÏÐÈ ÑÌÅÍÅ ÐÅÆÈÌÀ.
INDH
BTFSC FLAG,7 ;ÅÑËÈ ÊÓÐÑÎÐ ÅÑÒÜ,
CALL YCT ;ÒÎ ÈÄÅÌ ÍÀ ÓÑÒÀÍÎÂÊÓ.
MOVLW .10 ;ÏÓÑÒÎ.
CALL SEG ;ÇÀÏÎËÍÈÌ ÐÅÃÈÑÒÐÛ ÈÍÄÈÊÀÖÈÈ.
MOVWF R1 ;
MOVWF R2 ;
MOVWF R8 ;
BTFSS FLAG,6 ;
GOTO $+6 ;
MOVLW .11 ;ÏÐÎ×ÅÐÊ ÑÐÅÄÍÈÉ.
CALL SEG ;
MOVWF R5 ;
BCF FLAG,6 ;
MOVLW .12 ;ÏÐÎ×ÅÐÊ ÍÈÆÍÈÉ.
BSF FLAG,6 ;
MOVFW ML ;
MOVWF R3 ;
MOVFW MH ;
MOVWF R4 ;
MOVFW HL ;
MOVWF R6 ;
MOVFW HH ;
MOVWF R7 ;
BSF FLAG,1 ;ÂÊËÞ×ÈÌ ÐÅÆÈÌ ×ÀÑÎÂ.
CLRF ZPT ;
INDT
BTFSS PORTA,KY;ÅÑËÈ ÊÍÎÏÊÀ ÍÀÆÀÒÀ,
CALL T00 ;ÒÎ ÈÄÅÌ ÎÁÍÓËßÒÜ ÒÀÉÌÅÐ.
MOVFW TCL ;ÇÀÏÎËÍÈÌ ÐÅÃÈÑÒÐÛ ÈÍÄÈÊÀÖÈÈ
CALL SEG ;ÌÈÍÓÒ È ÑÅÊÓÍÄ ÏÐÀÂÛÕ ×ÀÑÎÂ.
MOVFW TCH ;
MOVFW TML ;
MOVFW TMH ;
MOVLW .11 ;ÏÐÎ×ÅÐÊ.
MOVFW THL ;
MOVFW THH ;
BCF FLAG,1 ;ÐÅÆÈÌ ×ÀÑÛ ÂÛÊËÞ×ÅÍ.
INDU
MOVFW COI ;
MOVFW DEI ;
MOVFW EDI ;
BSF ZPT,4 ;
; 20. ÐÀÑÏÐÅÄÅËÈÒÅËÜ.
PAC
BTFSS FLAG1,1 ;ÆÄÅÌ 1 ÑÅÊÓÍÄÓ.
GOTO $-1 ;
CALL ADP ;
CALL KHOP ;ÍÀ ÏÐÎÂÅÐÊÓ ÊÍÎÏÎÊ.
CALL IND ;ÍÀ ÈÍÄÈÊÀÖÈÞ.
BCF FLAG1,1 ;
GOTO PAC ;ÏÎÂÒÎÐÈÌ.
;=====================================================
; 21. ÓÑÒÀÍÎÂÊÀ ÂÐÅÌÅÍÈ.
YC0
INCF ML,1 ;ÓÂÅËÈ×ÈÌ ÅÄÈÍÈÖÛ ÌÈÍÓÒ.
MOVLW .10 ;ÍÅ ÁÎËÅÅ 9.
SUBWF ML,0 ;
SKPNC ;ÅÑËÈ ÁÎËÜØÅ ÈËÈ ÐÀÂÍÎ 10,
CLRF ML ;ÒÎ ÎÁÍÓËÈÌ.
YC1
INCF MH,1 ;ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ÌÈÍÓÒ.
MOVLW .6 ;ÍÅ ÁÎËÅÅ 5.
SUBWF MH,0 ;
SKPNC ;ÅÑËÈ ÁÎËÜØÅ ÈËÈ ÐÀÂÍÎ 6,
CLRF MH ;ÒÎ ÎÁÍÓËÈÌ.
YC2
INCF HL,1 ;ÓÂÅËÈ×ÈÌ ÅÄÈÍÈÖÛ ×ÀÑÎÂ.
SUBWF HL,0 ;
SKPNC ;
CLRF HL ;ÅÑËÈ ÁÎËÜØÅ, ÒÎ ÎÁÍÓËÈÌ.
MOVFW HH ;ÏÅÐÅÊÎÄÈÐÓÅÌ Â ÄÂÎÈ×ÍÛÉ
CALL DEBIN ;ÊÎÄ ÄÅÑßÒÊÈ.
ADDWF HL,0 ;ÏÐÈÁÀÂÈÌ ÅÄÈÍÈÖÛ
MOVWF HOU ;ÄÂÎÈ×ÍÎÅ ÇÍÀ×ÅÍÈÅ ÍÅ ÄÎËÆÍÎ
ADDLW -18H ;ÏÐÅÂÛØÀÒÜ - 24.
SKPC ;ÅÑËÈ ÁÎËÜØÅ ÈËÈ ÐÀÂÍÎ 24,
CLRF HOU ;ÒÎ ÎÁÍÓËÈÌ ×ÀÑÛ ÄÂÎÈ×ÍÛÅ
CLRF HL ;È ÐÀÇÐßÄÛ ÑÒÀÐØÈÉ
CLRF HH ;È ÌËÀÄØÈÉ.
YC3
INCF HH,1 ;ÓÂÅËÈ×ÈÌ ÄÅÑßÒÊÈ ×ÀÑÎÂ.
MOVLW .3 ;ÍÅ ÁÎËÅÅ 2.
SUBWF HH,0 ;
CLRF HH ;ÅÑËÈ ÁÎËÜØÅ, ÒÎ ÎÁÍÓËÈÌ.
MOVWF HOU ;È ÏÎËÓ×ÈÌ ÄÂÎÈ×ÍÎÅ ×ÈÑËÎ.
ADDLW -18H ;
RETURN ;ÂÅÐÍÅÌÑß.
YCE
CLRF CL ;ÎÁÍÓËÅÍÈÅ.
CLRF CH ;
CLRF ML ;
END
Ñòðàíèöû: 1, 2, 3, 4, 5, 6