-
 

  - >

,

 
11.06.2012, 00:05   #1
samko
Junior Member
 
: 10.06.2012
: 63
: 4
: 100/0
samko will become famous soon enoughsamko will become famous soon enough
 . .. 4.

!
: " "- . 4., - ( ).
: ( teled.asm)- - . ?. !.
:

= TELED.ASM
; : 29-09-05.
; : MPLAB IDE, : 5.70.40.
;
LIST P=16F73
#INCLUDE P16F73.INC
__CONFIG 3FB9H
;================================================= =======
; 4,096 M.
; 16,
; TMR0 256 , 4 250
; 1 (416256x250=4096000).
;================================================= =======
; RB0 - RB7 - .
; RA0 - RA3 - .
; RC0 - / DS18B20, .
; RC1 - / DS1820, .
; RC5 - "", RC4 - "".
; RC3 - "" ( - - ).
; RC6 - .
; RA4 - , .
; RC2 - , .
; RC7 - .
;==============================================
; .
;==============================================
KATOD EQU 22H ; .
KATOD2 EQU 23H ; .
MINL EQU 24H ; .
MINH EQU 25H ; .
HOUL EQU 26H ; .
HOUH EQU 27H ; .
TEMP EQU 28H ;.
ZAN EQU 29H ; .
COUN EQU 2AH ; .
LSB EQU 2BH ; DS.
COU EQU 2DH ; .
MCK EQU 2FH ;.
WTEMP EQU 31H ;.
STEMP EQU 32H ;.
FTEMP EQU 33H ;.
SEC EQU 34H ; .
MIN EQU 35H ; .
HOU EQU 36H ; .
DSMH EQU 37H ; .
LSMH EQU 38H ;
HSMH EQU 39H ; .
SEG EQU 3AH ;.
REIN EQU 3BH ; .
ZPTI EQU 3CH ; .
SECIN EQU 3DH ; .
;
BYEM EQU 40H ; .
BYDM EQU 41H ; .
BYEH EQU 42H ; .
BYDH EQU 43H ; .
IN0 EQU 44H ;0 .
IN1 EQU 45H ;1.
IN2 EQU 46H ;2.
IN3 EQU 47H ;3.
BYHO EQU 48H ; .
BYM EQU 49H ; .
;
LSBH EQU 50H ; .
EDID EQU 51H ; .
DESD EQU 52H ;.
DSTD EQU 53H ;.
ZHAKY EQU 54H ; .
EDIY EQU 55H ;.
DESY EQU 56H ;.
DSTY EQU 57H ; .
KOP EQU 58H ; .
LSBZ EQU 59H ; .
DSTZ EQU 5AH ; .
;==============================================
; .
;==============================================
FLAG EQU 5BH ;
; 0-> . 1-.
; 1-> 9 .
; 3-> "".
; 4-> "".
; 5-> "".
; 6-> .
; 7-> 1 .
FLAG1 EQU 5CH ;
; 0-> .
; 1-> 1 .
; 2-> .
; 3-> .
; 4-> .
; 7-> 1 .
FLAG2 EQU 5DH ;
; 0-> - 8 .
; 1-> - 6 .
; 2-> - 6 .
; 3-> 8 .
; 4-> 6 .
; 5-> 6 .
;=======================================
DSD EQU 0 ; DS, .
DS EQU 1 ; DS, .
BYP EQU 4 ;, .
TER EQU 7 ;.
SBR EQU 5 ;.
YCT EQU 5 ;.
PAZ EQU 4 ;.
PEJ EQU 3 ;.
;=======================================
; 1. .
;======================
ORG 0
GOTO INIT
ORG 4
GOTO PRER
;======================
; 2. .
;======================
INIT
BCF STATUS,RP1 ;
BSF STATUS,RP0 ; 1.
MOVLW B'00000011' ; , =16 ...11,
MOVWF OPTION_REG^80H ;
MOVLW B'10100000' ; .
MOVWF INTCON ;
MOVLW B'00100000' ;RA5 - , - .
MOVWF TRISA^80H
MOVLW B'00000000' ; - .
MOVWF TRISB^80H
MOVLW B'11111011' ;RC2 - , - .
MOVWF TRISC^80H
CLRF PIE1^80H ; .
CLRF PIE2^80H ;
MOVLW 0x07 ; .
MOVWF ADCON1 ;
BCF STATUS,RP0 ; 0.
CLRF CCP1CON ; .
CLRF RCSTA ;USART .
MOVLW B'00000001' ; 2 , K=4:1.
MOVWF T2CON ;
CLRF CCPR1H ; .
BSF T2CON,2 ; .
MOVLW 0x5F ;95.
MOVWF CCPR1L ; .
CLRF ADCON0 ; .
CLRF T1CON ; 1 .
MOVLW .254 ;
MOVWF KATOD ; .
CLRF TMR0 ; .
CLRF SECIN
CLRF FLAG
CLRF FLAG1
CLRF FLAG2
BSF FLAG2,0 ; .
CLRF PORTA
CLRF PORTB
CLRF PORTC
BSF PORTA,BYP ; .
CLRF REIN
CLRF MCK
CLRF HSMH
CLRF LSMH
CLRF SEC
CLRF MIN
CLRF HOU
CLRF HOUL
CLRF HOUH
CLRF MINL
CLRF MINH
CLRF IN0
CLRF IN1
CLRF IN2
CLRF IN3
CLRF ZPTI
CLRF KATOD2
CLRF EDID
CLRF DESD
CLRF DSTD
CLRF EDIY
CLRF DESY
CLRF DSTY
CLRF LSBZ
CLRF DSTZ
CLRF BYEM
CLRF BYDM
CLRF BYEH
CLRF BYDH
CLRF BYHO
CLRF BYM
MOVLW 0x00 ; .
MOVWF KOP
MOVLW .12 ;
MOVWF ZHAKY ; .
BSF FLAG1,1 ; .
GOTO ZDEM
;========================================
; 3. .
;========================================
WIND
MOVFW KATOD2 ;
ADDWF PCL,1 ;
GOTO IND0 ;
GOTO IND1 ;
GOTO IND2 ;
GOTO IND3 ;
;=========================================
; 4. .
;=========================================
DESATI
ADDWF PCL,1 ;
RETLW .0 ;0
RETLW .1 ;1
RETLW .1 ;2
RETLW .2 ;3
RETLW .3 ;4
RETLW .3 ;5
RETLW .4 ;6
RETLW .4 ;7
RETLW .5 ;8
RETLW .6 ;9
RETLW .6 ;10
RETLW .7 ;11
RETLW .7 ;12
RETLW .8 ;13
RETLW .9 ;14
RETLW .9 ;15
;=======================================
; 5. .
;=======================================
SEGDATA ;7, 6, 5, 4, 3, 2, 1, 0.
ADDWF PCL,F ;H, G, F, E, D, C, B, A.
;
RETLW B'00111111' ; 0 B'11000000'
RETLW B'00000110' ; 1 B'11111001'
RETLW B'01011011' ; 2 B'10100100'
RETLW B'01001111' ; 3 B'10110000'
RETLW B'01100110' ; 4 B'10011001'
RETLW B'01101101' ; 5 B'10010010'
RETLW B'01111101' ; 6 B'10000010'
RETLW B'00000111' ; 7 B'11111000'
RETLW B'01111111' ; 8 B'10000000'
RETLW B'01101111' ; 9 B'10010000'
RETLW 0 ; 10 .
RETLW B'01100011' ; 11 .
RETLW B'01000000' ; 12 .
RETLW B'11100011' ; 13 .
;=======================================
; 6. .
;=======================================
VUBOR
BTFSS PORTC,PEJ ; ,
RETURN ; .
BCF FLAG,4 ; .
MOVFW REIN ;
ADDWF PCL,1 ; .
GOTO INDH ;.
GOTO INDHY ; .
GOTO INDBYM ; .
;=======================================
; 7. .
;=======================================
YCTA
BTFSS PORTC,YCT ; ,
RETURN ; .
BTFSS FLAG1,0 ; ,
RETURN ; .
BCF FLAG,3 ; .
BTFSC FLAG,6 ; ,
GOTO YCTBY ; .
MOVFW ZPTI ;
ADDWF PCL,1 ; .
GOTO YC0 ;
GOTO YC1 ;
GOTO YC2 ;
GOTO YC3 ;
YCTBY
MOVFW ZPTI ;
ADDWF PCL,1 ; .
GOTO BYC0 ;
GOTO BYC1 ;
GOTO BYC2 ;
GOTO BYC3 ;
;================================================= =======
; 8. .
;================================================= =======
DEBIN
ADDWF PCL,1 ;
RETLW .0
RETLW .10
RETLW .20
RETLW .30
RETLW .40
RETLW .50
;=======================================
; 9. .
;=======================================
KHOP
BTFSC FLAG,3 ; ,
CALL YCTA ; .
BTFSS PORTC,YCT ; ,
BSF FLAG,3 ; .
BTFSC FLAG,5 ; ,
CALL YCTPAZ ; .
BTFSS PORTC,PAZ ; ,
BSF FLAG,5 ; .
BTFSC FLAG2,2 ;
RETURN ; .
BTFSC FLAG2,1 ;
RETURN ;
BTFSS PORTC,PEJ ; ,
BSF FLAG,4 ; .
BTFSS FLAG,4 ; ,
GOTO VUBOR ; .
BTFSS PORTC,PEJ ; ,
GOTO VUBOR ; .
BCF FLAG,4 ; .
INCF REIN,1 ; .
MOVLW .3 ;3 .
SUBWF REIN,0 ; ,
BTFSS STATUS,2 ; .
GOTO VUBOR ; .
CLRF REIN ; .
BCF FLAG1,0 ; .
GOTO VUBOR ; .
;=================================================
; 10. .
;=================================================
YCTPAZ
BTFSS FLAG1,0 ; ,
RETURN ; .
BTFSS PORTC,PAZ ;
RETURN ; .
BTFSS FLAG,5 ;
RETURN ;.
BCF FLAG,5 ; .
INCF ZPTI,1 ; .
MOVLW .4 ; 3.
SUBWF ZPTI,0 ;
SKPC ;
RETURN ;
CLRF ZPTI ; .
RETURN ;
;=======================================
; 11. .
;=======================================
YC3
INCF HOUH,1 ; .
MOVLW .3 ; 2.
SUBWF HOUH,0 ;
SKPNC ;
CLRF HOUH ; , .
MOVFW HOUH ;
CALL DEBIN ; .
ADDWF HOUL,0 ;
MOVWF HOU ; .
ADDLW -18H ; - 24.
SKPC ; 24,
RETURN
CLRF HOU ;
CLRF HOUL ;
CLRF HOUH ; .
RETURN ;.
YC2
INCF HOUL,1 ; .
MOVLW .10 ; 9.
SUBWF HOUL,0 ;
SKPNC ;
CLRF HOUL ; , .
MOVFW HOUH ;
CALL DEBIN ; .
ADDWF HOUL,0 ;
MOVWF HOU ;
ADDLW -18H ; - 24.
SKPC ; 24,
RETURN
CLRF HOU ;
CLRF HOUL ;
CLRF HOUH ; .
RETURN
YC1
INCF MINH,1 ; .
MOVLW .6 ; 5.
SUBWF MINH,0 ;
SKPNC ; 6,
CLRF MINH ; .
MOVFW MINH ;
CALL DEBIN ; .
ADDWF MINL,0 ;
MOVWF MIN ; .
RETURN
YC0
INCF MINL,1 ; .
MOVLW .10 ; 9.
SUBWF MINL,0 ;
SKPNC ; 10,
CLRF MINL ; .
MOVFW MINH ;
CALL DEBIN ; .
ADDWF MINL,0 ;
MOVWF MIN ; .
RETURN
CIGHAL
CLRF MIN ;
CLRF MINL ;
CLRF MINH ;
CLRF SEC ; .
RETURN
;=======================================
; 12. .
;=======================================
BYC3
INCF BYDH,1 ; .
MOVLW .3 ; 2.
SUBWF BYDH,0 ;
SKPNC ;
CLRF BYDH ; , .
MOVFW BYDH ;
CALL DEBIN ; .
ADDWF BYEH,0 ;
MOVWF BYHO ; .
ADDLW -19H ;25. 24 - . .
SKPC ; 25,
RETURN
CLRF BYHO ;
CLRF BYEH ;
CLRF BYDH ; .
RETURN ;.
BYC2
INCF BYEH,1 ; .
MOVLW .10 ; 9.
SUBWF BYEH,0 ;
SKPNC ;
CLRF BYEH ; , .
MOVFW BYDH ;
CALL DEBIN ; .
ADDWF BYEH,0 ; .
MOVWF BYHO ;
ADDLW -19H ;25.
SKPC ; 25,
RETURN
CLRF BYHO ;
CLRF BYEH ;
CLRF BYDH ; .
RETURN
BYC1
INCF BYDM,1 ; .
MOVLW .6 ; 5.
SUBWF BYDM,0 ;
SKPNC ; 6,
CLRF BYDM ; .
MOVFW BYDM ;
CALL DEBIN ; .
ADDWF BYEM,0 ;
MOVWF BYM ; .
RETURN
BYC0
INCF BYEM,1 ; .
MOVLW .10 ; 9.
SUBWF BYEM,0 ;
SKPNC ; 10,
CLRF BYEM ; .
MOVFW BYDM ;
CALL DEBIN ; .
ADDWF BYEM,0 ;
MOVWF BYM ; .
RETURN
;=======================================
; 13. 2- 2_10.
;=======================================
BIDE ;
CLRF COU ; .
ADDLW -.10 ; 10.
BTFSS STATUS,0; ,
GOTO $+4 ; .
MOVWF TEMP ; .
INCF COU,1 ; .
GOTO $-5 ; .
MOVFW COU ; ( ) .
RETURN ;.
;================================================= ===============
; 14. .
;================================================= ===============
PRER
MOVWF WTEMP ; W
MOVFW STATUS ;STATUS,
MOVWF STEMP ;
MOVFW FSR ;FSR.
MOVWF FTEMP ;
CALL S1 ; .
CALL IND ;.
REPER ; .
MOVFW STEMP ; :
MOVWF STATUS ;STATUS,
MOVFW FTEMP ;
MOVWF FSR ;FSR,
MOVFW WTEMP ;W.
BCF INTCON,2; TMR0.
RETFIE ; .
;=============================================
; 15. --.
;=============================================
S1
INCF MCK,1 ; 1 .
MOVFW MCK ;
ADDLW -0FAH ; 250.
BTFSS STATUS,2;
RETURN ;
CLRF MCK ;.
BSF FLAG,7 ;1 .
BTFSC FLAG1,7 ;
GOTO $+3 ;
BSF FLAG1,7 ; 1 .
GOTO $+2 ;
BCF FLAG1,7 ;
BTFSS FLAG1,2 ; ,
GOTO $+4 ; .
BSF PORTA,BYP; .
BTFSS FLAG1,7 ; ,
BCF PORTA,BYP; .
MOVFW SEC ; . .
ADDLW -3BH ; 59.
BZ M1 ; 0, , M1,
INCF SEC,1 ; 1 .
RETURN ;
M1
CLRF SEC ; .
BSF FLAG1,1 ;1 .
MOVFW MIN ; . .
ADDLW -3BH ;-59.
BZ H1 ; 0, , H1.
INCF MIN,1 ; 1 .
MOVFW MIN ;MIN1 >W.
MOVWF DSMH ;W >DSMH.
CALL BINDECH ; . .
MOVFW LSMH ;LSMH >W .
MOVWF MINL ;W > M_LOW .
MOVFW HSMH ;HSMH >W .
MOVWF MINH ;W > M_HIGH .
CLRF HSMH ; . . ..
CLRF LSMH ; . . ..
RETURN ;
H1
CLRF MIN ; .
CLRF MINL ; .
CLRF MINH ; .
MOVFW HOU ; . .
ADDLW -17H ;- 23.
BZ H10 ; 0, , H10.
INCF HOU,1 ; 1 .
MOVFW HOU ;HOU >W.
MOVWF DSMH ;W >DSMH.
CALL BINDECH ; ..
MOVFW LSMH ;LSMH >W .
MOVWF HOUL ;W > H_LOW .
MOVFW HSMH ;HSMH >W .
MOVWF HOUH ;W > H_HIGH .
CLRF HSMH ; . . ..
CLRF LSMH ; . . ..
RETURN ;
H10
CLRF HOU ; .
CLRF HOUL ; .
CLRF HOUH ; .
RETURN
;==============================
; 16. .
;==============================
IND
BTFSS PORTA,SBR; ,
CALL HEPABHO ; .
BTFSS PORTC,6 ; ,
GOTO TEMHO ; .
BTFSC PORTC,TER ; ,
GOTO $+3 ;
CALL INDD ; .
GOTO OKHA ;
BTFSC FLAG1,0 ; ,
GOTO OKHA ; .
BTFSS FLAG1,3 ; ,
GOTO $+3 ;
CALL INDY ;
GOTO OKHA ; .
BTFSS FLAG1,4 ; ,
GOTO $+3 ;
CALL INDD ;
GOTO OKHA ; .
BTFSS FLAG1,2 ; ,
GOTO $+3 ;
CALL INDH ; .
GOTO OKHA ;
BTFSS FLAG,7 ; ,
GOTO OKHA ; .
BCF FLAG,7 ; 1 .
INCF SECIN,1 ; .
BTFSC FLAG2,1 ; ,
GOTO OKHO3 ; .
BTFSC FLAG2,2 ; ,
GOTO OKHO2 ; .
MOVFW SECIN ; . .
ADDLW -8 ; 8.
BTFSS STATUS,2; .
GOTO OKHO ; .
CLRF SECIN ; ,
BSF FLAG2,1 ;
BCF FLAG2,2 ; .
BCF FLAG2,0 ;
GOTO OKHO ; .
OKHO3
MOVFW SECIN ; . .
ADDLW -6 ; 6.
BTFSS STATUS,2; .
GOTO OKHO ; .
CLRF SECIN ; ,
BSF FLAG2,2 ;
BCF FLAG2,1 ; .
BCF FLAG2,0 ;
GOTO OKHO ; .
OKHO2
MOVFW SECIN ; . .
ADDLW -6 ; 6.
BTFSS STATUS,2; .
GOTO OKHO ; .
CLRF SECIN ; .
BSF FLAG2,0 ;
BCF FLAG2,2 ;
BCF FLAG2,1 ;
OKHO
BTFSC FLAG2,1 ; ,
CALL INDY ; .
BTFSC FLAG2,2 ; ,
CALL INDD ; .
BTFSC FLAG2,0 ; ,
CALL INDH ; .
OKHA
MOVFW KATOD2 ;
ADDLW -4 ; 3.
BTFSS STATUS,2;
GOTO WIND ; .
MOVLW .254 ;
MOVWF KATOD ; .
CLRF KATOD2 ; .
GOTO WIND ; .
IND0
MOVFW IN0 ; .
GOTO INDZ ;.
IND1
MOVFW IN1 ; -
GOTO INDZ ; .
IND2
MOVFW IN2 ;
GOTO INDZ ;
IND3
MOVFW IN3 ;
INDZ
CALL SEGDATA ; .
MOVWF SEG ; .
BTFSS PORTA,BYP; .
BCF KATOD,BYP; .
BTFSC PORTA,BYP; ,
BSF KATOD,BYP; .
MOVFW ZPTI ;
SUBWF KATOD2,0; .
SKPNZ ; , .
BSF SEG,7 ; .
MOVFW SEG ;
MOVWF PORTB ; B.
MOVFW KATOD ; .
MOVWF PORTA ; A.
BSF STATUS,0; =1, 1.
RLF KATOD,1 ; .
INCF KATOD2,1; .
RETURN ;.
TEMHO
MOVLW .255 ; ,
MOVWF KATOD ; .
BTFSS FLAG1,2 ; ,
GOTO $+3 ; .
BTFSC FLAG1,7 ; ,
BCF KATOD,BYP; .
MOVFW KATOD ; .
MOVWF PORTA ; A.
RETURN ;
;================================================= ========
; 17. . 2-10 (2-_-2-10).
;================================================= ========
BINDECH
MOVLW .10 ;10 >W.
BDH
BSF STATUS,0 ; "" STATUS.
SUBWF DSMH,1 ; 10 > DSMH.
BNC BINDECL ; .
INCF HSMH,1 ; 1 .
GOTO BDH ;.
BINDECL
MOVF DSMH,0 ;
ADDLW .10 ;10+W >W.
MOVWF LSMH ; .
RETURN ;
;=========================================
; 18. DS.
;=========================================
INIDSD
CALL HYLD ; .
MOVLW 0xCC ; .
CALL POSILD ;.
MOVLW 0x4E ; 0,1 .
CALL POSILD ;.
MOVLW 0x7D ; +125. .
CALL POSILD ;.
MOVLW 0x77 ; -55. .
CALL POSILD ;.
MOVLW 0x7F ; 11 = 0,1 .
CALL POSILD ;.
CALL HYLD ; .
MOVLW 0xCC ; DS.
CALL POSILD ;.
MOVLW 0x44 ; .
CALL POSILD ;.
MOVLW .3 ; 0,75 .
MOVWF COUN ; 750 .
SPLU
MOVLW .255
MOVWF ZAN
PLUS
MOVLW .255
NOP
NOP
NOP
NOP
NOP
NOP
ADDLW -1
BTFSS STATUS,2
GOTO $-2
DECFSZ ZAN,1
GOTO PLUS
DECFSZ COUN,1
GOTO SPLU
GOTO PRIEMD ; .
HYLD
CALL WUXD ; .
MOVLW .125 ;
ADDLW -1 ;= 500 .
BTFSS STATUS,2 ;
GOTO $-2 ;
CALL WXOD ; .
MOVLW .125 ; =
ADDLW -1 ;500 .
BTFSS STATUS,2 ;
GOTO $-2 ;
RETURN
;=======================================
; 19. /.
;=======================================
WUXD
BCF PORTC,DSD ; .
BSF STATUS,5 ; 1.
BCF TRISC^80H,DSD ; .
BCF STATUS,5 ; 0.
RETURN
WXOD
BSF STATUS,5 ; 1.
BSF TRISC^80H,DSD ; .
BCF STATUS,5 ; 0.
RETURN
;====================================
; 20. 16 DS .
;====================================
PRIEMD
CALL HYLD ; .
MOVLW 0xCC ; .
CALL POSILD ;.
MOVLW 0xBE ; .
CALL POSILD ;.
BCF INTCON,7 ; .
CALL PRIED ; .
MOVFW LSBH ;
MOVWF LSB ; .
BCF INTCON,7 ; .
CALL PRIED ; .
GOTO CXETD ; .
PRIED
MOVLW .8
MOVWF COUN ; .
CLRF LSBH ; .
PRID
CALL WUXD ; .
CALL WXOD ; .
MOVLW .2 ;
CALL X4 ;8 .
MOVFW PORTC ;
MOVWF TEMP ; .
BTFSS TEMP,DSD ;
BCF STATUS,0 ; .
BTFSC TEMP,DSD ;
BSF STATUS,0 ; .
RRF LSBH,1 ; .
MOVLW .12 ; 60 .
CALL X4 ;
DECFSZ COUN,1 ; .
GOTO PRID ; .
BSF INTCON,7 ; .
RETURN ;.
;==========================================
; 21. DS.
;==========================================
POSILD
BCF INTCON,7 ; .
MOVWF TEMP ; .
MOVLW .8 ; .
MOVWF COUN ;
POSID
RRF TEMP,1 ; .
BTFSS STATUS,0 ; ,
GOTO W0D ; .
GOTO W1D ; .
POSD
DECFSZ COUN,1 ; .
GOTO POSID ; .
BSF INTCON,7 ; .
RETURN ;.
W0D
CALL WUXD ; .
MOVLW .15 ; 60 .
CALL X4 ;
CALL WXOD ; = 1 .
GOTO POSD ;.
W1D
CALL WUXD ; .
CALL WXOD ; = 1 .
MOVLW .15 ; 60 .
CALL X4 ;
GOTO POSD ;.
;==================================
; 22. .
;==================================
CXETD
TSTF KOP ;
BZ $+.13 ;
BTFSC KOP,4 ; ,
GOTO $+6 ; .
MOVFW KOP ;
ADDWF LSB,1 ;.
BTFSC STATUS,C ; ,
INCF LSBH,1 ; .
GOTO $+6 ; .
BCF KOP,4 ; .
MOVFW KOP ;
SUBWF LSB,1 ; .
BTFSS STATUS,C ; ,
DECF LSBH,1 ; .
MOVFW LSB ; .
ANDLW B'00001111' ;.
CALL DESATI ; .
MOVWF DSTD ; .
MOVLW .4 ; 4
MOVWF COUN ;
BCF STATUS,0 ; .
RRF LSBH,1 ;
RRF LSB,1 ;
DECFSZ COUN,1 ;
GOTO $-4 ;
BTFSS PORTC,TER ; ,
GOTO COMP ; .
MOVFW DSTD ;
MOVWF DSTZ ;
MOVFW LSB ;
GOTO ZAPINT ; .
;===================================
; 23. .
;===================================
COMP
MOVFW LSBZ ;
SUBWF LSB,0 ; ,
BTFSS STATUS,0 ; .
GOTO ZAPIN ;.
BTFSS STATUS,2 ; ,
GOTO $+5 ;
MOVFW DSTZ ; .
SUBWF DSTD,0 ;
BTFSS STATUS,0 ; ,
GOTO ZAPIN ;
MOVFW LSB ;
MOVWF LSBZ ;
MOVFW DSTD ; .
MOVWF DSTZ ;
;=======================================
; 24. 2- 2_10.
;=======================================
ZAPIN
MOVFW LSBZ ;
ZAPINT
MOVWF TEMP ; 2- 2_10-.
CALL BIDE ; 99!
MOVWF DESD ;
MOVFW TEMP ;
MOVWF EDID ;
MOVLW .10 ; ,
SUBWF DESD,0 ; 10,
SKPC ;
RETURN ; .
TER0
CLRF EDID ;
CLRF DESD ; .
CLRF DSTD ;
CLRF LSBZ ;
CLRF DSTZ ;
RETURN ; .
;====================================
; 25. .
;====================================
INDH
BCF FLAG1,0 ;
BCF FLAG,6 ; .
MOVFW MINL ;
MOVWF IN0 ; .
MOVFW MINH ;
MOVWF IN1 ;
MOVFW HOUL ;
MOVWF IN2 ;
MOVFW HOUH ;
MOVWF IN3 ;
BTFSS FLAG1,7 ; ,
GOTO $+4 ;
MOVLW .2 ;
MOVWF ZPTI ; 2 .
RETURN
MOVLW 4 ; . 4 .
MOVWF ZPTI ;
RETURN
INDY
BTFSS PORTA,SBR; ,
CALL IDYF ; .
BTFSS FLAG1,3 ; ,
GOTO $+4 ;
MOVLW .13 ; .
MOVWF IN0 ;
GOTO $+3 ;
MOVLW .11 ; .
MOVWF IN0 ;
MOVFW EDIY ;
MOVWF IN1 ;
MOVFW DESY ;
MOVWF IN2 ;
MOVFW ZHAKY ; .
MOVWF IN3 ;
TSTF DSTY ; ,
BZ $+4 ;
MOVLW 1 ; 1
MOVWF ZPTI ;.
RETURN
MOVLW 4 ; .
MOVWF ZPTI ;
RETURN
IDYF
BTFSS FLAG1,7 ; 1 .
RETURN ;
BCF FLAG1,7 ;
BTFSC FLAG1,3 ; .
GOTO $+3 ;
BSF FLAG1,3 ;
RETURN ;
BCF FLAG1,3 ;
RETURN ;
INDD
BTFSC PORTC,TER; ,
GOTO $+4 ;
BTFSS PORTA,SBR; .
CALL TER0 ; .
GOTO $+4 ;
BTFSS PORTA,SBR; ,
CALL IDDF ; .
BTFSS FLAG1,4 ; ,
GOTO $+4 ;
MOVLW .13 ; .
MOVWF IN0 ;
GOTO $+3 ;
MOVLW .11 ; .
MOVWF IN0 ;
MOVFW DSTZ ;
MOVWF IN1 ;
MOVFW EDID ;
MOVWF IN2 ;
MOVFW DESD ;
MOVWF IN3 ;
MOVLW .2 ; .
MOVWF ZPTI ;
RETURN
IDDF
BTFSS FLAG1,7 ; 1 .
RETURN ;
BCF FLAG1,7 ;
BTFSC FLAG1,4 ; .
GOTO $+3 ;
BSF FLAG1,4 ;
RETURN ;
BCF FLAG1,4 ;
RETURN ;
INDHY
BSF FLAG1,0 ; . .
BTFSS PORTA,SBR; ,
CALL CIGHAL ; .
MOVFW MINL ;
MOVWF IN0 ; .
MOVFW MINH ;
MOVWF IN1 ;
MOVFW HOUL ;
MOVWF IN2 ;
MOVFW HOUH ;
MOVWF IN3 ;
RETURN
INDBYM
BSF FLAG1,0 ; .
BSF FLAG,6 ; .
MOVLW .2 ; 2.
SUBWF ZPTI,0 ; 3 ,
SKPNC ;
GOTO INDBYH ; .
MOVFW BYEM ; .
MOVWF IN0 ;
MOVFW BYDM ;
MOVWF IN1 ;
MOVLW .10 ;
MOVWF IN2 ;.
MOVWF IN3 ;
RETURN
INDBYH
MOVLW .10 ;
MOVWF IN0 ;.
MOVWF IN1 ;
MOVFW BYEH ; .
MOVWF IN2 ;
MOVFW BYDH ;
MOVWF IN3 ;
RETURN
;==================================
; 26. , 4.
;==================================
X4
ADDLW -1 ;
BTFSS STATUS,2 ;
GOTO $-2 ;
RETURN ;
;=========================================
; 27. DS .
;=========================================
INIDS
CALL HYL ; .
MOVLW 0xCC ; DS.
CALL POSIL ;.
MOVLW 0x44 ; .
CALL POSIL ;.
GOTO PRIEM ; .
HYL
CALL WUX ; .
MOVLW .125 ;
ADDLW -1 ;= 500 .
BTFSS STATUS,2 ;
GOTO $-2 ;
CALL WXO ; .
MOVLW .125 ; =
ADDLW -1 ;500 .
BTFSS STATUS,2 ;
GOTO $-2 ;
RETURN
;=======================================
; 28. /.
;=======================================
WUX
BCF PORTC,DS ;
BSF STATUS,5 ; 1.
BCF TRISC^80H,DS ; .
BCF STATUS,5 ; 0.
RETURN
WXO
BSF STATUS,5 ; 1.
BSF TRISC^80H,DS ; .
BCF STATUS,5 ; 0.
RETURN
;====================================
; 29. 9 DS .
;====================================
PRIEM
CALL HYL ; .
MOVLW 0xCC ; .
CALL POSIL ;.
MOVLW 0xBE ; .
CALL POSIL ;.
BCF INTCON,7 ;
CALL PRIE ; .
BSF FLAG,1 ; 9 .
BCF INTCON,7 ;
CALL PRI ; .
BSF INTCON,7 ;
BCF FLAG,1 ; .
BTFSS TEMP,DS ; = 0,
BCF FLAG,0 ; .
BTFSC TEMP,DS ;
BSF FLAG,0 ; .
BTFSS FLAG,0 ;, .
GOTO CXET ;.
COMF LSB,0 ;.
ADDLW .1 ; 1
MOVWF LSB ; .
GOTO CXET ; .
PRIE
MOVLW .8
MOVWF COUN ; .
CLRF LSB ; .
PRI
CALL WUX ; .
CALL WXO ; .
MOVLW .2 ;
CALL X4 ;8 .
MOVFW PORTC ;
MOVWF TEMP ; .
BTFSC FLAG,1 ; 9 ,
RETURN ;.
BTFSS TEMP,DS ;
BCF STATUS,0 ; .
BTFSC TEMP,DS ;
BSF STATUS,0 ; .
RRF LSB,1 ; .
MOVLW .15 ; 60 .
CALL X4 ;
DECFSZ COUN,1 ; .
GOTO PRI ; .
BSF INTCON,7 ;
RETURN ;.
;==========================================
; 30. DS .
;==========================================
POSIL
BCF INTCON,7 ;
MOVWF TEMP ; .
MOVLW .8 ; .
MOVWF COUN ;
POSI
RRF TEMP,1 ; .
BTFSS STATUS,0 ; ,
GOTO W0 ; .
GOTO W1 ; .
POS
DECFSZ COUN,1 ; .
GOTO POSI ; .
BSF INTCON,7 ;
RETURN ;.
W0
CALL WUX ; .
MOVLW .15 ; 60 .
CALL X4 ;
CALL WXO ; = 1 .
GOTO POS ;.
W1
CALL WUX ; .
CALL WXO ; = 1 .
MOVLW .15 ; 60 .
CALL X4 ;
GOTO POS ;.
;==================================
; 31. .
;==================================
CXET
MOVLW .10 ;
MOVWF ZHAKY ; .
BTFSS FLAG,0 ; 9 = 1,
GOTO $+3 ;
MOVLW .12 ; .
MOVWF ZHAKY ;
BCF STATUS,0 ;
RRF LSB,1 ; 2.
BTFSS STATUS,0 ; = 1,
GOTO $+4 ;
MOVLW .5 ;
MOVWF DSTY ; 5.
GOTO $+2 ;
CLRF DSTY ; = 0.
MOVFW LSB ;
MOVWF TEMP ; 2- 2_10-.
CALL BIDE ; 99!
MOVWF DESY ;
MOVFW TEMP ;
MOVWF EDIY ;
RETURN
;====================================
; 32. .
;====================================
CPABH
BCF FLAG1,1 ; 1 .
MOVFW BYHO ; .
SUBWF HOU,0 ;
SKPZ ;
GOTO HEPABHO ;.
MOVFW BYM ;.
SUBWF MIN,0 ;
SKPZ ; ,
GOTO HEPABHO ; .
BSF FLAG1,2 ; .
MOVLW 0F ; .
MOVWF CCP1CON ; .
BCF PORTA,BYP;
RETURN ;
HEPABHO
BCF FLAG1,2 ; .
CLRF CCP1CON ;
BSF PORTA,BYP; .
RETURN ;
;===================================
; 33. .
;===================================
ZDEM
BTFSC FLAG1,1 ; 1 ,
CALL CPABH ; .
BTFSS PORTC,6 ; ,
GOTO ZDEM ; .
BTFSC FLAG1,2 ; ,
GOTO ZDEM ; .
CALL INIDSD ; .
CALL INIDS ; .
CALL KHOP ; .
GOTO ZDEM ;.
;========================================
END
;========================================
samko   
11.06.2012, 00:40   #2
tester
Super Moderator
 
  tester
 
: 28.02.2007
: 40
: 3,577
: 4345/115
tester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond reputetester has a reputation beyond repute
 Re: . .. 4.

, .
http://www.microchip.su/showthread.php?t=149
tester   
11.06.2012, 02:10   #3
allplayer
Junior Member
 
: 06.06.2012
: 20
: 100/19
allplayer will become famous soon enoughallplayer will become famous soon enough
 Re: . .. 4.

- , - , , , :

bcf- 0()
bsf- 1()

:
:
bcf PORTA,1 ;//     1
bsf PORTB,0 ;//     0
: http://www.microchip.ru/?mid=3&tab=12#1
allplayer   
11.06.2012, 02:13   #4
allplayer
Junior Member
 
: 06.06.2012
: 20
: 100/19
allplayer will become famous soon enoughallplayer will become famous soon enough
 Re: . .. 4.

, bcf bsf, , bsf bcf ,
, bcf bsf,
allplayer   
11.06.2012, 09:51   #5
Senior Member
 
: 04.02.2012
:
: 638
: 1005/35
 has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of
 Re: . .. 4.

:
allplayer
, bcf bsf, , bsf bcf ,
, ... , !
   
11.06.2012, 11:13   #6
Senior Member
 
: 04.02.2012
:
: 638
: 1005/35
 has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of has much to be proud of
 Re: . .. 4.

"5. ". , :
:
SEGDATA ;7, 6, 5, 4, 3, 2, 1, 0.
ADDWF PCL,F ;H, G, F, E, D, C, B, A.
RETLW B'11000000' ; 0 
RETLW B'11111001' ; 1 
RETLW B'10100100' ; 2 
RETLW B'10110000' ; 3 
RETLW B'10011001' ; 4 
RETLW B'10010010' ; 5 
RETLW B'10000010' ; 6 
RETLW B'11111000' ; 7 
RETLW B'10000000' ; 8 
RETLW B'10010000' ; 9 
RETLW B'11111111' ; 10 .
RETLW B'10011100' ; 11 . 
RETLW B'10111111' ; 12 . 
RETLW B'00011100' ; 13   .
"3. ." "16. .". .

; 11.06.2012 11:20.
   
11.06.2012, 12:17   #7
samko
Junior Member
 
: 10.06.2012
: 63
: 4
: 100/0
samko will become famous soon enoughsamko will become famous soon enough
 Re: . .. 4.

, . .
samko   
11.06.2012, 12:48   #8
AlexPv
Senior Member
 
: 02.03.2009
: Russia
: 1,800
: 565/53
AlexPv is a name known to allAlexPv is a name known to allAlexPv is a name known to allAlexPv is a name known to allAlexPv is a name known to allAlexPv is a name known to all
 Re: . .. 4.

, ...
:
; : 29-09-05.
;   : MPLAB IDE, : 5.70.40.
;
    LIST P=16F73
            #INCLUDE P16F73.INC
            __CONFIG 3FB9H
;========================================================
;    4,096 M.
;     16,  
;  TMR0 256  ,  4     250
;    1  (416256x250=4096000).
;========================================================
; RB0 - RB7 - .
; RA0 - RA3 - .
; RC0 - /  DS18B20, .
; RC1 - /  DS1820, .
; RC5 -  "", RC4 -  "".
; RC3 -  "" ( -   -  ).
; RC6 -    .
; RA4 -  , .
; RC2 -  , .
; RC7 -  .
;==============================================
;   .
;==============================================
KATOD    EQU    22H    ;  .
KATOD2    EQU    23H    ;  .
MINL    EQU    24H    ; .
MINH    EQU    25H    ; .
HOUL    EQU    26H    ; .
HOUH    EQU    27H    ; .
TEMP    EQU    28H    ;.
ZAN    EQU    29H    ; .
COUN    EQU    2AH    ; .
LSB    EQU    2BH    ;  DS.
COU    EQU    2DH    ; .
MCK    EQU    2FH    ;.
WTEMP    EQU    31H    ;.
STEMP    EQU    32H    ;.
FTEMP    EQU    33H    ;.
SEC    EQU    34H    ; .
MIN    EQU    35H    ; .
HOU    EQU    36H    ; .
DSMH    EQU    37H    ; .
LSMH    EQU    38H    ; 
HSMH    EQU    39H    ;  .
SEG    EQU    3AH    ;.
REIN    EQU    3BH    ; .
ZPTI    EQU    3CH    ; .
SECIN    EQU    3DH    ; .
;
BYEM    EQU    40H    ;  .
BYDM    EQU    41H    ; .
BYEH    EQU    42H    ; .
BYDH    EQU    43H    ; .
IN0    EQU    44H    ;0  .
IN1    EQU    45H    ;1.
IN2    EQU    46H    ;2.
IN3    EQU    47H    ;3.
BYHO    EQU    48H    ;   .
BYM    EQU    49H    ;   .
;
LSBH    EQU    50H    ;    .
EDID    EQU    51H    ; .
DESD    EQU    52H    ;.
DSTD    EQU    53H    ;.
ZHAKY    EQU    54H    ; .
EDIY    EQU    55H    ;.
DESY    EQU    56H    ;.
DSTY    EQU    57H    ; .
KOP    EQU    58H    ; .
LSBZ    EQU    59H    ;  .
DSTZ    EQU    5AH    ;  .
;==============================================
;     .
;==============================================
FLAG    EQU    5BH    ;
;    0-> . 1-.
;    1->  9 .
;    3->  "".
;    4->  "".
;    5->  "".
;    6->  .
;    7-> 1 .
FLAG1    EQU    5CH    ;
;    0-> .
;    1-> 1 .
;    2->  .
;    3->   .
;    4->   .
;    7-> 1  .
FLAG2    EQU    5DH    ;
;    0->    - 8 .
;    1->     - 6 .
;    2->     - 6 .
;    3->   8 .
;    4->   6 .
;    5->   6 .
;=======================================
DSD    EQU    0    ; DS, .
DS    EQU    1    ; DS, .
BYP    EQU    4    ;, .
TER    EQU    7    ;.
SBR    EQU    5    ;.
YCT    EQU    5    ;.
PAZ    EQU    4    ;.
PEJ    EQU    3    ;.
;=======================================
; 1. .
;======================
        ORG 0
    GOTO    INIT
        ORG 4
    GOTO    PRER
;======================
; 2. .
;======================
INIT
 BCF    STATUS,RP1    ;
 BSF    STATUS,RP0    ;   1.
 MOVLW    B'00000011'    ;  , =16 ...11,
 MOVWF    OPTION_REG^80H    ;
 MOVLW    B'10100000'    ;    .
 MOVWF    INTCON        ;
 MOVLW    B'00100000'    ;RA5 - ,  -  .
 MOVWF    TRISA^80H
 MOVLW    B'00000000'    ; -  .
 MOVWF    TRISB^80H
 MOVLW    B'11111011'    ;RC2 - ,  - .
 MOVWF    TRISC^80H
 CLRF    PIE1^80H    ;   .
 CLRF    PIE2^80H    ;
 MOVLW    0x07        ;  .
 MOVWF    ADCON1        ;
 BCF    STATUS,RP0    ;   0.
 CLRF    CCP1CON        ; .
 CLRF    RCSTA        ;USART .
 MOVLW    B'00000001'    ; 2 , K=4:1.
 MOVWF    T2CON        ;
 CLRF    CCPR1H        ;   .
 BSF    T2CON,2        ; .
 MOVLW    0x5F        ;95.
 MOVWF    CCPR1L        ;  .
 CLRF    ADCON0        ; .
 CLRF    T1CON        ; 1 .
 MOVLW    .254        ;   
 MOVWF    KATOD        ;  .
 CLRF    TMR0        ;   .
 CLRF    SECIN
 CLRF    FLAG
 CLRF    FLAG1
 CLRF    FLAG2
 BSF    FLAG2,0        ; .
 CLRF    PORTA
 CLRF    PORTB
 CLRF    PORTC
 BSF    PORTA,BYP    ; .
 CLRF    REIN
 CLRF    MCK
 CLRF    HSMH
 CLRF    LSMH
 CLRF    SEC
 CLRF    MIN
 CLRF    HOU
 CLRF    HOUL
 CLRF    HOUH
 CLRF    MINL
 CLRF    MINH
 CLRF    IN0
 CLRF    IN1
 CLRF    IN2
 CLRF    IN3
 CLRF    ZPTI
 CLRF    KATOD2
 CLRF    EDID
 CLRF    DESD
 CLRF    DSTD
 CLRF    EDIY
 CLRF    DESY
 CLRF    DSTY
 CLRF    LSBZ
 CLRF    DSTZ
 CLRF    BYEM
 CLRF    BYDM
 CLRF    BYEH
 CLRF    BYDH
 CLRF    BYHO
 CLRF    BYM
 MOVLW    0x00        ; .
 MOVWF    KOP
 MOVLW    .12        ;  
 MOVWF    ZHAKY        ; .
 BSF    FLAG1,1        ; .
 GOTO    ZDEM
;========================================
; 3.   .
;========================================
WIND
    MOVFW    KATOD2    ;
    ADDWF    PCL,1    ;
    GOTO    IND0    ;
    GOTO    IND1    ;
    GOTO    IND2    ;
    GOTO    IND3    ;
;=========================================
; 4.     .
;=========================================
DESATI
    ADDWF    PCL,1    ;
    RETLW    .0    ;0
    RETLW    .1    ;1
    RETLW    .1    ;2
    RETLW    .2    ;3
    RETLW    .3    ;4
    RETLW    .3    ;5
    RETLW    .4    ;6
    RETLW    .4    ;7
    RETLW    .5    ;8
    RETLW    .6    ;9
    RETLW    .6    ;10
    RETLW    .7    ;11
    RETLW    .7    ;12
    RETLW    .8    ;13
    RETLW    .9    ;14
    RETLW    .9    ;15
;=======================================
; 5.     .
;=======================================
SEGDATA                      ;7, 6, 5, 4, 3, 2, 1, 0.
         ADDWF   PCL,F       ;H, G, F, E, D, C, B, A.
;                               
    RETLW   B'00111111'    ; 0 B'11000000'
    RETLW   B'00000110'    ; 1 B'11111001'
    RETLW   B'01011011'    ; 2 B'10100100'
    RETLW   B'01001111'    ; 3 B'10110000'
    RETLW   B'01100110'    ; 4 B'10011001'
    RETLW   B'01101101'    ; 5 B'10010010'
    RETLW   B'01111101'    ; 6 B'10000010'
    RETLW   B'00000111'    ; 7 B'11111000'
    RETLW   B'01111111'    ; 8 B'10000000'
    RETLW    B'01101111'    ; 9 B'10010000'
    RETLW    0        ; 10 .
    RETLW    B'01100011'    ; 11 .
    RETLW    B'01000000'    ; 12 .
    RETLW    B'11100011'    ; 13   .
;=======================================
; 6.   .
;=======================================
VUBOR
    BTFSS    PORTC,PEJ    ;  ,
    RETURN            ;  .
    BCF    FLAG,4        ;  .
    MOVFW    REIN        ; 
    ADDWF    PCL,1        ; .
    GOTO    INDH        ;.
    GOTO    INDHY        ; .
    GOTO    INDBYM        ; .
;=======================================
; 7.   .
;=======================================
YCTA
    BTFSS    PORTC,YCT    ;  ,
    RETURN            ;  .
    BTFSS    FLAG1,0        ;  ,
    RETURN            ;   .
    BCF    FLAG,3        ;  .
    BTFSC    FLAG,6        ;   ,
    GOTO    YCTBY        ;  .
    MOVFW    ZPTI        ; 
    ADDWF    PCL,1        ;  .
    GOTO    YC0        ;
    GOTO    YC1        ;
    GOTO    YC2        ;
    GOTO    YC3        ;
YCTBY
    MOVFW    ZPTI        ; 
    ADDWF    PCL,1        ;  .
    GOTO    BYC0        ;
    GOTO    BYC1        ;
    GOTO    BYC2        ;
    GOTO    BYC3        ;
;========================================================
; 8.      .
;========================================================
DEBIN
    ADDWF    PCL,1    ;
    RETLW    .0
    RETLW    .10
    RETLW    .20
    RETLW    .30
    RETLW    .40
    RETLW    .50
;=======================================
; 9.  .
;=======================================
KHOP
    BTFSC    FLAG,3        ;    ,
    CALL    YCTA        ;    .
    BTFSS    PORTC,YCT    ;  ,
    BSF    FLAG,3        ; .
    BTFSC    FLAG,5        ;    ,
    CALL    YCTPAZ        ;    .
    BTFSS    PORTC,PAZ    ;  ,
    BSF    FLAG,5        ; .
    BTFSC    FLAG2,2        ;   
    RETURN            ;   .
    BTFSC    FLAG2,1        ;
    RETURN            ;
    BTFSS    PORTC,PEJ    ;  ,
    BSF    FLAG,4        ; .
    BTFSS    FLAG,4        ;    ,
    GOTO    VUBOR        ;     .
    BTFSS    PORTC,PEJ    ;  ,
    GOTO    VUBOR        ;     .
    BCF    FLAG,4        ;  .
    INCF    REIN,1        ;  .
    MOVLW    .3        ;3  .
    SUBWF    REIN,0        ; ,
    BTFSS    STATUS,2    ;   .
    GOTO    VUBOR        ;    .
    CLRF    REIN        ; .
    BCF    FLAG1,0        ;  .
    GOTO    VUBOR        ;   .
;=================================================
; 10.   .
;=================================================
YCTPAZ
    BTFSS    FLAG1,0        ; ,
    RETURN            ;  .
    BTFSS    PORTC,PAZ    ;  
    RETURN            ;  .
    BTFSS    FLAG,5        ; 
    RETURN            ;.
    BCF    FLAG,5        ; .
    INCF    ZPTI,1        ;   .
    MOVLW    .4        ;  3.
    SUBWF    ZPTI,0        ;
    SKPC            ;
    RETURN            ;
    CLRF    ZPTI        ; .
    RETURN            ;
;=======================================
; 11.  .
;=======================================
YC3
        INCF    HOUH,1        ;  .
        MOVLW    .3        ;  2.
        SUBWF    HOUH,0        ;
        SKPNC            ;
        CLRF    HOUH        ; ,  .
    MOVFW    HOUH        ;  
    CALL    DEBIN        ; .
    ADDWF    HOUL,0        ; 
    MOVWF    HOU        ;   .
        ADDLW    -18H        ;   - 24.
    SKPC            ;    24,
    RETURN
    CLRF    HOU        ;   
    CLRF    HOUL        ;  
    CLRF    HOUH        ; .
        RETURN            ;.
YC2
    INCF    HOUL,1        ;  .
    MOVLW    .10        ;  9.
    SUBWF    HOUL,0        ;
    SKPNC            ;
    CLRF    HOUL        ; ,  .
    MOVFW    HOUH        ;  
    CALL    DEBIN        ; .
    ADDWF    HOUL,0        ; 
    MOVWF    HOU        ;   
        ADDLW    -18H        ;   - 24.
    SKPC            ;    24,
    RETURN
    CLRF    HOU        ;   
    CLRF    HOUL        ;  
    CLRF    HOUH        ; .
    RETURN
YC1
        INCF    MINH,1        ;  .
        MOVLW    .6        ;  5.
        SUBWF    MINH,0        ;
        SKPNC            ;    6,
        CLRF    MINH        ; .
    MOVFW    MINH        ;  
    CALL    DEBIN        ; .
    ADDWF    MINL,0        ;  
    MOVWF    MIN        ;   .
        RETURN
YC0
    INCF    MINL,1        ;  .
    MOVLW    .10        ;  9.
    SUBWF    MINL,0        ;
    SKPNC            ;    10,
    CLRF    MINL        ; .
    MOVFW    MINH        ;  
    CALL    DEBIN        ; .
    ADDWF    MINL,0        ;  
    MOVWF    MIN        ;   .
    RETURN
CIGHAL
    CLRF    MIN        ; 
    CLRF    MINL        ;  
    CLRF    MINH        ;   
    CLRF    SEC        ; .
    RETURN
;=======================================
; 12.   .
;=======================================
BYC3
        INCF    BYDH,1        ;  .
        MOVLW    .3        ;  2.
        SUBWF    BYDH,0        ;
        SKPNC            ;
        CLRF    BYDH        ; ,  .
    MOVFW    BYDH        ;  
    CALL    DEBIN        ; .
    ADDWF    BYEH,0        ; 
    MOVWF    BYHO        ;   .
        ADDLW    -19H        ;25. 24  - . .
    SKPC            ;    25,
    RETURN
    CLRF    BYHO        ;   
    CLRF    BYEH        ;  
    CLRF    BYDH        ; .
        RETURN            ;.
BYC2
    INCF    BYEH,1        ;  .
    MOVLW    .10        ;  9.
    SUBWF    BYEH,0        ;
    SKPNC            ;
    CLRF    BYEH        ; ,  .
    MOVFW    BYDH        ;  
    CALL    DEBIN        ; .
    ADDWF    BYEH,0        ; .
    MOVWF    BYHO        ;
        ADDLW    -19H        ;25.
    SKPC            ;    25,
    RETURN
    CLRF    BYHO        ;   
    CLRF    BYEH        ;  
    CLRF    BYDH        ; .
    RETURN
BYC1
        INCF    BYDM,1        ;  .
        MOVLW    .6        ;  5.
        SUBWF    BYDM,0        ;
        SKPNC            ;    6,
        CLRF    BYDM        ; .
    MOVFW    BYDM        ;  
    CALL    DEBIN        ; .
    ADDWF    BYEM,0        ;  
    MOVWF    BYM        ;   .
        RETURN
BYC0
    INCF    BYEM,1        ;  .
    MOVLW    .10        ;  9.
    SUBWF    BYEM,0        ;
    SKPNC            ;    10,
    CLRF    BYEM        ; .
    MOVFW    BYDM        ;  
    CALL    DEBIN        ; .
    ADDWF    BYEM,0        ;  
    MOVWF    BYM        ;   .
    RETURN
;=======================================
; 13.   2-  2_10.
;=======================================
BIDE            ; 
    CLRF    COU    ; .
    ADDLW    -.10    ; 10.
    BTFSS    STATUS,0;    ,
    GOTO    $+4    ;  .
    MOVWF    TEMP    ;     .
    INCF    COU,1    ; .
    GOTO    $-5    ; .
    MOVFW    COU    ;  (  )    .
    RETURN        ;.
;================================================================
; 14.       .
;================================================================
PRER
        MOVWF    WTEMP    ;   W 
        MOVFW    STATUS    ;STATUS,
        MOVWF    STEMP    ;
        MOVFW    FSR    ;FSR.
        MOVWF    FTEMP    ;
    CALL    S1    ; .
    CALL    IND    ;.
REPER                   ;  .
        MOVFW    STEMP    ; :
        MOVWF    STATUS    ;STATUS,
        MOVFW    FTEMP    ;
        MOVWF    FSR    ;FSR,
        MOVFW    WTEMP    ;W.
        BCF    INTCON,2;    TMR0.
        RETFIE          ;  .
;=============================================
; 15.     --.
;=============================================
S1
    INCF    MCK,1    ; 1   .
    MOVFW    MCK    ;
    ADDLW    -0FAH    ;  250.
    BTFSS    STATUS,2;
    RETURN        ;
    CLRF    MCK    ;.
    BSF    FLAG,7    ;1 .
    BTFSC    FLAG1,7    ;
    GOTO    $+3    ;
    BSF    FLAG1,7    ; 1 .
    GOTO    $+2    ;
    BCF    FLAG1,7    ;
    BTFSS    FLAG1,2    ;  ,
    GOTO    $+4    ;  .
    BSF    PORTA,BYP; .
    BTFSS    FLAG1,7    ; ,
    BCF    PORTA,BYP;  .
    MOVFW    SEC    ;    . .
    ADDLW    -3BH    ;   59.
    BZ    M1    ;  0,   ,   M1,
    INCF    SEC,1    ;  1   .
    RETURN        ;
M1
    CLRF    SEC    ;   .
    BSF    FLAG1,1    ;1  .
    MOVFW    MIN    ;   . .
    ADDLW    -3BH    ;-59.
    BZ    H1    ;  0,  ,   H1.
    INCF    MIN,1    ; 1  .
    MOVFW    MIN    ;MIN1 >W.
    MOVWF    DSMH    ;W >DSMH.
    CALL    BINDECH    ;  . .
    MOVFW    LSMH    ;LSMH >W .
    MOVWF    MINL    ;W > M_LOW     .
    MOVFW    HSMH    ;HSMH >W .
    MOVWF    MINH    ;W > M_HIGH      .
    CLRF    HSMH    ; . . ..
    CLRF    LSMH    ; . . ..
    RETURN        ;
H1
    CLRF    MIN    ;   .
    CLRF    MINL    ;   .
    CLRF    MINH    ;   .
    MOVFW    HOU    ;   . .
    ADDLW    -17H    ;- 23. 
    BZ    H10    ;  0,  ,   H10.
    INCF    HOU,1    ; 1  .
    MOVFW  HOU    ;HOU >W.
    MOVWF  DSMH    ;W >DSMH.
    CALL   BINDECH    ;  ..
    MOVFW  LSMH    ;LSMH >W .
    MOVWF  HOUL    ;W > H_LOW     .
    MOVFW  HSMH    ;HSMH >W .
    MOVWF  HOUH    ;W > H_HIGH      .
    CLRF   HSMH    ; . . ..
    CLRF   LSMH    ; . . ..
    RETURN        ;
H10
    CLRF   HOU    ;  .
    CLRF   HOUL    ;  .
    CLRF   HOUH    ;  .
    RETURN
;==============================
; 16. .
;==============================
IND
    BTFSS    PORTA,SBR;  ,
    CALL    HEPABHO    ;  .
    BTFSS    PORTC,6    ;   ,
    GOTO    TEMHO    ;  .
    BTFSC    PORTC,TER    ;   ,
    GOTO    $+3    ;
    CALL    INDD    ;   .
    GOTO    OKHA    ;
    BTFSC    FLAG1,0    ;  ,
    GOTO    OKHA    ;   .
    BTFSS    FLAG1,3    ;  ,
    GOTO    $+3    ;
    CALL    INDY    ;
    GOTO    OKHA    ;   .
    BTFSS    FLAG1,4    ;  ,
    GOTO    $+3    ;
    CALL    INDD    ;
    GOTO    OKHA    ;   .
    BTFSS    FLAG1,2    ;  ,
    GOTO    $+3    ;
    CALL    INDH    ;    .
    GOTO    OKHA    ;
    BTFSS    FLAG,7    ;   ,
    GOTO    OKHA    ;  .
    BCF    FLAG,7    ;  1 .
    INCF    SECIN,1    ; .
    BTFSC    FLAG2,1    ;    ,
    GOTO    OKHO3    ;   .
    BTFSC    FLAG2,2    ;    ,
    GOTO    OKHO2    ;    .
    MOVFW    SECIN    ;    . .
    ADDLW    -8    ;   8.
    BTFSS    STATUS,2;     .
    GOTO    OKHO    ;   .
    CLRF    SECIN    ;   ,
    BSF    FLAG2,1    ;   
    BCF    FLAG2,2    ;  .
    BCF    FLAG2,0    ;
    GOTO    OKHO    ;   .
OKHO3
    MOVFW    SECIN    ;    . .
    ADDLW    -6    ;   6.
    BTFSS    STATUS,2;     .
    GOTO    OKHO    ;   .
    CLRF    SECIN    ;   ,
    BSF    FLAG2,2    ;   
    BCF    FLAG2,1    ;  .
    BCF    FLAG2,0    ;
    GOTO    OKHO    ;   .
OKHO2
    MOVFW    SECIN    ;    . .
    ADDLW    -6    ;   6.
    BTFSS    STATUS,2;     .
    GOTO    OKHO    ;   .
    CLRF    SECIN    ; .
    BSF    FLAG2,0    ;  
    BCF    FLAG2,2    ;
    BCF    FLAG2,1    ;
OKHO
    BTFSC    FLAG2,1    ;    ,
    CALL    INDY    ;      .
    BTFSC    FLAG2,2    ;    ,
    CALL    INDD    ;    .
    BTFSC    FLAG2,0    ;    ,
    CALL    INDH    ;    .
OKHA
    MOVFW    KATOD2    ;  
    ADDLW    -4    ;  3.
    BTFSS    STATUS,2;
    GOTO    WIND    ;  .
    MOVLW    .254    ;   
    MOVWF    KATOD    ;  .
    CLRF    KATOD2    ;   .
    GOTO    WIND    ;  .
IND0
    MOVFW    IN0    ;  .
    GOTO    INDZ    ;.
IND1
    MOVFW    IN1    ;  -
    GOTO    INDZ    ; .
IND2
    MOVFW    IN2    ;
    GOTO    INDZ    ;
IND3
    MOVFW    IN3    ;
INDZ
    CALL    SEGDATA    ;  .
    MOVWF    SEG    ;   .
    BTFSS    PORTA,BYP;    .
    BCF    KATOD,BYP;   .
    BTFSC    PORTA,BYP;  ,
    BSF    KATOD,BYP;   .
    MOVFW    ZPTI    ;  
    SUBWF    KATOD2,0;  .
    SKPNZ        ;   ,   .
    BSF    SEG,7    ;  .
    MOVFW    SEG    ; 
    MOVWF    PORTB    ;  B.
    MOVFW    KATOD    ; .
    MOVWF    PORTA    ;  A.
    BSF    STATUS,0;  =1,     1.
    RLF    KATOD,1    ;    .
    INCF    KATOD2,1;   .
    RETURN        ;.
TEMHO
    MOVLW    .255    ; ,
    MOVWF    KATOD    ;  .
    BTFSS    FLAG1,2    ;  ,
    GOTO    $+3    ;  .
    BTFSC    FLAG1,7    ; ,
    BCF    KATOD,BYP;  .
    MOVFW    KATOD    ; .
    MOVWF    PORTA    ;  A.
    RETURN        ;
;=========================================================
; 17. .     2-10  (2-_-2-10).
;=========================================================
BINDECH
        MOVLW   .10      ;10 >W.
BDH
        BSF     STATUS,0 ;  ""  STATUS.
        SUBWF   DSMH,1   ;   10 > DSMH.
        BNC     BINDECL  ;    .
        INCF    HSMH,1   ; 1   .
        GOTO    BDH      ;.                
BINDECL
        MOVF    DSMH,0   ;   
        ADDLW   .10      ;10+W >W.               
        MOVWF   LSMH     ;    .
        RETURN           ;
;=========================================
; 18.  DS.
;=========================================
INIDSD
    CALL    HYLD        ;  .
    MOVLW    0xCC        ; .
    CALL    POSILD        ;.
    MOVLW    0x4E        ;   0,1 .
    CALL    POSILD        ;.
    MOVLW    0x7D        ;  +125.    .
    CALL    POSILD        ;.
    MOVLW    0x77        ;  -55. .
    CALL    POSILD        ;.
    MOVLW    0x7F        ; 11 = 0,1 .
    CALL    POSILD        ;.
    CALL    HYLD        ;  .
    MOVLW    0xCC        ;   DS.
    CALL    POSILD        ;.
    MOVLW    0x44        ; .
    CALL    POSILD        ;.
    MOVLW    .3        ; 0,75 .
    MOVWF    COUN        ; 750 .
SPLU
        MOVLW   .255
        MOVWF   ZAN
PLUS
        MOVLW   .255
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
        ADDLW   -1
        BTFSS   STATUS,2
        GOTO    $-2
        DECFSZ  ZAN,1
        GOTO    PLUS
    DECFSZ    COUN,1
    GOTO    SPLU
    GOTO    PRIEMD        ;  .
HYLD
    CALL    WUXD        ; .
    MOVLW    .125        ; 
    ADDLW    -1        ;= 500 .
    BTFSS    STATUS,2    ;
    GOTO    $-2        ;
    CALL    WXOD        ; .
    MOVLW    .125        ; =
    ADDLW    -1        ;500 .
    BTFSS    STATUS,2    ;
    GOTO    $-2        ;
    RETURN
;=======================================
; 19.    /.
;=======================================
WUXD
    BCF    PORTC,DSD    ; .
    BSF    STATUS,5    ;   1.
    BCF    TRISC^80H,DSD    ; .
    BCF    STATUS,5    ;   0.
    RETURN
WXOD
    BSF    STATUS,5    ;   1.
    BSF    TRISC^80H,DSD    ; .
    BCF    STATUS,5    ;   0.
    RETURN
;====================================
; 20.  16   DS .
;====================================
PRIEMD
    CALL    HYLD        ;  .
    MOVLW    0xCC        ; .
    CALL    POSILD        ;.
    MOVLW    0xBE        ;   .
    CALL    POSILD        ;.
    BCF    INTCON,7    ; .
        CALL     PRIED        ; .
    MOVFW    LSBH        ;  
    MOVWF    LSB        ;  .
    BCF    INTCON,7    ; .
    CALL    PRIED        ;   .
    GOTO    CXETD        ; .
PRIED
    MOVLW    .8
    MOVWF    COUN        ;  .
        CLRF    LSBH        ;  .
PRID
    CALL    WUXD        ;     .
    CALL    WXOD        ; .
    MOVLW    .2        ;
    CALL    X4        ;8 .
        MOVFW    PORTC        ;
    MOVWF    TEMP        ; .
    BTFSS    TEMP,DSD    ;
    BCF    STATUS,0    ;    .
    BTFSC    TEMP,DSD        ;
    BSF    STATUS,0    ; .
        RRF    LSBH,1        ;  .
    MOVLW    .12        ;  60 .
        CALL    X4        ;
        DECFSZ    COUN,1        ; .
        GOTO    PRID        ; .
    BSF    INTCON,7    ; .
        RETURN            ;.
;==========================================
; 21.    DS.
;==========================================
POSILD
    BCF    INTCON,7    ; .
    MOVWF    TEMP        ;  .
    MOVLW    .8        ;  .
        MOVWF    COUN        ;
POSID
    RRF    TEMP,1        ;  .
        BTFSS    STATUS,0    ;  ,
    GOTO    W0D        ;  .
    GOTO    W1D        ; .
POSD
    DECFSZ    COUN,1        ; .
        GOTO    POSID        ;  .
    BSF    INTCON,7    ; .
        RETURN            ;.
W0D
    CALL    WUXD        ;   .
    MOVLW    .15        ; 60 .
    CALL     X4        ;
        CALL    WXOD        ;  = 1  .
        GOTO    POSD        ;.
W1D
    CALL    WUXD        ;  .
        CALL    WXOD        ;  = 1  .
        MOVLW    .15        ; 60 .
    CALL    X4        ;
        GOTO    POSD        ;.
;==================================
; 22. .
;==================================
CXETD
    TSTF    KOP        ;
    BZ    $+.13        ;
    BTFSC    KOP,4        ;   ,
    GOTO    $+6        ;  .
    MOVFW    KOP        ; 
    ADDWF    LSB,1        ;.
    BTFSC    STATUS,C    ;  ,
    INCF    LSBH,1        ;   .
    GOTO    $+6        ; .
    BCF    KOP,4        ; .
    MOVFW    KOP        ;
    SUBWF    LSB,1        ; .
    BTFSS    STATUS,C    ;  ,
    DECF    LSBH,1        ;  .
    MOVFW    LSB        ; .
    ANDLW    B'00001111'    ;.
    CALL    DESATI        ;  .
    MOVWF    DSTD        ;   .
    MOVLW    .4        ;   4 
    MOVWF    COUN        ;
    BCF    STATUS,0    ;  .
    RRF    LSBH,1        ;
    RRF    LSB,1        ;
    DECFSZ    COUN,1        ;
    GOTO    $-4        ;
    BTFSS    PORTC,TER    ;  ,
    GOTO    COMP        ; .
    MOVFW    DSTD        ;
    MOVWF    DSTZ        ;
    MOVFW    LSB        ;
    GOTO    ZAPINT        ;  .
;===================================
; 23. .
;===================================
COMP
    MOVFW    LSBZ        ;  
    SUBWF    LSB,0        ; ,
    BTFSS    STATUS,0    ;  .
    GOTO    ZAPIN        ;.
    BTFSS    STATUS,2    ;  ,
    GOTO    $+5        ;
    MOVFW    DSTZ        ;  .
    SUBWF    DSTD,0        ; 
    BTFSS    STATUS,0    ; ,
    GOTO    ZAPIN        ;
    MOVFW    LSB        ;   
    MOVWF    LSBZ        ;
    MOVFW    DSTD        ; .
    MOVWF    DSTZ        ;
;=======================================
; 24.   2-  2_10.
;=======================================
ZAPIN
    MOVFW    LSBZ        ;  
ZAPINT
    MOVWF    TEMP        ; 2-  2_10-.
    CALL    BIDE        ;  99!
    MOVWF    DESD        ;
    MOVFW    TEMP        ;
    MOVWF    EDID        ;
    MOVLW    .10        ; ,  
    SUBWF    DESD,0        ;   10,
    SKPC            ;
    RETURN            ; .
TER0
    CLRF    EDID        ;  
    CLRF    DESD        ;  .
    CLRF    DSTD        ;
    CLRF    LSBZ        ;
    CLRF    DSTZ        ;
    RETURN            ; .
;====================================
; 25.    .
;====================================
INDH
    BCF    FLAG1,0    ;  
    BCF    FLAG,6    ;  .
    MOVFW    MINL    ;  
    MOVWF    IN0    ;   .
    MOVFW    MINH    ;
    MOVWF    IN1    ;
    MOVFW    HOUL    ;
    MOVWF    IN2    ;
    MOVFW    HOUH    ;
    MOVWF    IN3    ;
    BTFSS    FLAG1,7    ;  ,
    GOTO    $+4    ;
    MOVLW    .2    ;
    MOVWF    ZPTI    ;   2 .
    RETURN
    MOVLW    4    ;  . 4  .
    MOVWF    ZPTI    ;
    RETURN
INDY
    BTFSS    PORTA,SBR;  ,
    CALL    IDYF    ;  .
    BTFSS    FLAG1,3    ;  ,  
    GOTO    $+4    ;
    MOVLW    .13    ;   .
    MOVWF    IN0    ;
    GOTO    $+3    ;
    MOVLW    .11    ; .
    MOVWF    IN0    ;
    MOVFW    EDIY    ;
    MOVWF    IN1    ;
    MOVFW    DESY    ;
    MOVWF    IN2    ;
    MOVFW    ZHAKY    ; .
    MOVWF    IN3    ;
    TSTF    DSTY    ;    ,
    BZ    $+4    ;
    MOVLW    1    ;  1 
    MOVWF    ZPTI    ;.
    RETURN
    MOVLW    4    ;  .
    MOVWF    ZPTI    ;
    RETURN
IDYF
    BTFSS    FLAG1,7    ; 1 .
    RETURN        ;
    BCF    FLAG1,7    ;
    BTFSC    FLAG1,3    ;   .
    GOTO    $+3    ;
    BSF    FLAG1,3    ;
    RETURN        ;
    BCF    FLAG1,3    ;
    RETURN        ;
INDD
    BTFSC    PORTC,TER;  ,
    GOTO    $+4    ;
    BTFSS    PORTA,SBR;   .
    CALL    TER0    ; .
    GOTO    $+4    ;
    BTFSS    PORTA,SBR;  ,
    CALL    IDDF    ;  .
    BTFSS    FLAG1,4    ;  ,  
    GOTO    $+4    ;
    MOVLW    .13    ;   .
    MOVWF    IN0    ;
    GOTO    $+3    ;
    MOVLW    .11    ; .
    MOVWF    IN0    ;
    MOVFW    DSTZ    ;
    MOVWF    IN1    ;
    MOVFW    EDID    ;
    MOVWF    IN2    ;
    MOVFW    DESD    ;
    MOVWF    IN3    ;
    MOVLW    .2    ;  .
    MOVWF    ZPTI    ;
    RETURN
IDDF
    BTFSS    FLAG1,7    ; 1 .
    RETURN        ;
    BCF    FLAG1,7    ;
    BTFSC    FLAG1,4    ;   .
    GOTO    $+3    ;
    BSF    FLAG1,4    ;
    RETURN        ;
    BCF    FLAG1,4    ;
    RETURN        ;
INDHY
    BSF    FLAG1,0    ;  .  .
    BTFSS    PORTA,SBR;  ,
    CALL    CIGHAL    ;    .
    MOVFW    MINL    ;  
    MOVWF    IN0    ;   .
    MOVFW    MINH    ;
    MOVWF    IN1    ;
    MOVFW    HOUL    ;
    MOVWF    IN2    ;
    MOVFW    HOUH    ;
    MOVWF    IN3    ;
    RETURN
INDBYM
    BSF    FLAG1,0    ;  .
    BSF    FLAG,6    ; .
    MOVLW    .2    ;  2.
    SUBWF    ZPTI,0    ;   3 ,
    SKPNC        ;
    GOTO    INDBYH    ;  .
    MOVFW    BYEM    ;  .
    MOVWF    IN0    ;
    MOVFW    BYDM    ;
    MOVWF    IN1    ;
    MOVLW    .10    ; 
    MOVWF    IN2    ;.
    MOVWF    IN3    ;
    RETURN
INDBYH
    MOVLW    .10    ; 
    MOVWF    IN0    ;.
    MOVWF    IN1    ;
    MOVFW    BYEH    ; .
    MOVWF    IN2    ;
    MOVFW    BYDH    ;
    MOVWF    IN3    ;
    RETURN
;==================================
; 26.  ,   4.
;==================================
X4
    ADDLW    -1        ;
    BTFSS    STATUS,2    ;
    GOTO    $-2        ;
    RETURN            ;
;=========================================
; 27.  DS  .
;=========================================
INIDS
    CALL    HYL        ;  .
    MOVLW    0xCC        ;   DS.
    CALL    POSIL        ;.
    MOVLW    0x44        ; .
    CALL    POSIL        ;.
    GOTO    PRIEM        ;  .
HYL
    CALL    WUX        ; .
    MOVLW    .125        ; 
    ADDLW    -1        ;= 500 .
    BTFSS    STATUS,2    ;
    GOTO    $-2        ;
    CALL    WXO        ; .
    MOVLW    .125        ; =
    ADDLW    -1        ;500 .
    BTFSS    STATUS,2    ;
    GOTO    $-2        ;
    RETURN
;=======================================
; 28.    /.
;=======================================
WUX
    BCF    PORTC,DS    ;
    BSF    STATUS,5    ;   1.
    BCF    TRISC^80H,DS    ; .
    BCF    STATUS,5    ;   0.
    RETURN
WXO
    BSF    STATUS,5    ;   1.
    BSF    TRISC^80H,DS    ; .
    BCF    STATUS,5    ;   0.
    RETURN
;====================================
; 29.  9   DS .
;====================================
PRIEM
    CALL    HYL        ;  .
    MOVLW    0xCC        ; .
    CALL    POSIL        ;.
    MOVLW    0xBE        ;   .
    CALL    POSIL        ;.
    BCF    INTCON,7    ;
        CALL     PRIE        ; .
    BSF    FLAG,1        ; 9 .
    BCF    INTCON,7    ;
    CALL    PRI        ;  .
    BSF    INTCON,7    ;
    BCF    FLAG,1        ; .
    BTFSS    TEMP,DS        ;   = 0,
    BCF    FLAG,0        ;   .
    BTFSC    TEMP,DS        ;
    BSF    FLAG,0        ; .
    BTFSS    FLAG,0        ;,  .
    GOTO    CXET        ;.
    COMF    LSB,0        ;.
    ADDLW    .1        ; 1  
    MOVWF    LSB        ; .
    GOTO    CXET        ; .
PRIE
    MOVLW    .8
    MOVWF    COUN        ;  .
        CLRF    LSB        ;  .
PRI
    CALL    WUX        ;     .
    CALL    WXO        ; .
    MOVLW    .2        ;
    CALL    X4        ;8 .
        MOVFW    PORTC        ;
    MOVWF    TEMP        ; .
    BTFSC    FLAG,1        ;  9 ,
    RETURN            ;.
    BTFSS    TEMP,DS        ;
    BCF    STATUS,0    ;    .
    BTFSC    TEMP,DS        ;
    BSF    STATUS,0    ; .
        RRF    LSB,1        ;  .
    MOVLW    .15        ; 60 .
        CALL    X4        ;
        DECFSZ    COUN,1        ; .
        GOTO    PRI        ; .
    BSF    INTCON,7    ;
        RETURN            ;.
;==========================================
; 30.    DS .
;==========================================
POSIL
    BCF    INTCON,7    ;
    MOVWF    TEMP        ;  .
    MOVLW    .8        ;  .
        MOVWF    COUN        ;
POSI
    RRF    TEMP,1        ;  .
        BTFSS    STATUS,0    ;  ,
    GOTO    W0        ;  .
    GOTO    W1        ; .
POS
    DECFSZ    COUN,1        ; .
        GOTO    POSI        ;  .
    BSF    INTCON,7    ;
        RETURN            ;.
W0
    CALL    WUX        ;   .
    MOVLW    .15        ; 60 .
    CALL     X4        ;
        CALL    WXO        ;  = 1  .
        GOTO    POS        ;.
W1
    CALL    WUX        ;  .
        CALL    WXO        ;  = 1  .
        MOVLW    .15        ; 60 .
    CALL    X4        ;
        GOTO    POS        ;.
;==================================
; 31.   .
;==================================
CXET
    MOVLW    .10        ; 
    MOVWF    ZHAKY        ; .
    BTFSS    FLAG,0        ; 9  = 1,
    GOTO    $+3        ;
    MOVLW    .12        ;   .
    MOVWF    ZHAKY        ;
    BCF    STATUS,0    ;
    RRF    LSB,1        ;   2.
    BTFSS    STATUS,0    ;   = 1,
    GOTO    $+4        ;
    MOVLW    .5        ; 
    MOVWF    DSTY        ; 5.
    GOTO    $+2        ;
    CLRF    DSTY        ; = 0.
    MOVFW    LSB        ;  
    MOVWF    TEMP        ; 2-  2_10-.
    CALL    BIDE        ;  99!
    MOVWF    DESY        ;
    MOVFW    TEMP        ;
    MOVWF    EDIY        ;
    RETURN
;====================================
; 32.    .
;====================================
CPABH
    BCF    FLAG1,1    ;  1 .
    MOVFW    BYHO    ; .
    SUBWF    HOU,0    ;
    SKPZ        ;
    GOTO    HEPABHO    ;.
    MOVFW    BYM    ;.
    SUBWF    MIN,0    ;
    SKPZ        ; ,
    GOTO    HEPABHO    ; .
    BSF    FLAG1,2    ; .
    MOVLW    0F    ; .
    MOVWF    CCP1CON    ; .
    BCF    PORTA,BYP;
    RETURN        ;
HEPABHO
    BCF    FLAG1,2    ; .
    CLRF    CCP1CON    ;
    BSF    PORTA,BYP; .
    RETURN        ;
;===================================
; 33.  .
;===================================
ZDEM
    BTFSC    FLAG1,1    ; 1  ,
    CALL    CPABH    ;  .
    BTFSS    PORTC,6    ;  ,
    GOTO    ZDEM    ;   .
    BTFSC    FLAG1,2    ;  ,
    GOTO    ZDEM    ;   .
    CALL    INIDSD    ;  .
    CALL    INIDS    ;  .
    CALL    KHOP    ; .
    GOTO    ZDEM    ;.
;========================================
    END
;========================================
.
AlexPv   
11.06.2012, 13:03   #9
samko
Junior Member
 
: 10.06.2012
: 63
: 4
: 100/0
samko will become famous soon enoughsamko will become famous soon enough
 Re: . .. 4.

, , :
 : rar .rar (82.6 , 30 )
samko   
11.06.2012, 15:47   #10
ROGALIK
Senior Member
 
  ROGALIK
 
: 27.08.2007
: 54
: 179
: 321/39
ROGALIK is a jewel in the roughROGALIK is a jewel in the roughROGALIK is a jewel in the roughROGALIK is a jewel in the rough
 Re: . .. 4.

" " .
, :
:
    MOVLW .254 ;   
    MOVWF KATOD ;  .
:
:
    MOVLW 0b00110001 ;   
    MOVWF KATOD ;  .
:
:
    MOVLW    .255    ; ,
    MOVWF    KATOD    ;  .
:
:
    MOVLW    0b00110000      ; ,
    MOVWF    KATOD    ;  .

:
    RLF KATOD,1 ; 1   .

:
    BSF KATOD,4
    BSF KATOD,5

ROGALIK; 11.06.2012 16:02. : ,
ROGALIK   
11.06.2012, 21:04   #11
fantom
Senior Member
 
: 27.02.2007
:
: 41
: 2,610
: 2570/88
fantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond repute
 Re: . .. 4.

:
samko
- ( ).
:
: http://radeon.net.ua/index.php?optio...d=20&Itemid=22
:http://elecomp.ru/index.php?ukey=pro...roductID=22622
fantom   
12.06.2012, 09:26   #12
samko
Junior Member
 
: 10.06.2012
: 63
: 4
: 100/0
samko will become famous soon enoughsamko will become famous soon enough
 Re: . .. 4.

samko   

« | »

: 1 (: 0 , : 1)
 


.
HTML .



- PIC16F628A (clock_4c_02) 81 2 21.05.2011 23:58
RDS DS1307 Airat 14 30.10.2009 16:32
pic16f84a - ds3231 andrix MICROCHIP 10 23.09.2009 17:21
Supermaster MICROCHIP 2 19.11.2008 00:14


GMT +3, : 16:33.

- -

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. : zCarot