jrdmdyqt.asm

用增强型单片机51RD2做的控制器

;
;       ******  打开LCD背光灯  ******
;
Openlight:      CLR     CloselightCtrl
                MOV     MinTimerA,#0
                RET
;
;       ******* 十五分钟无键按下自动关闭LCD背光 *******
;
Closelight:     MOV     A,MinTimerA
                CLR     C
                SUBB    A,#CloselightTime
                JNC     Closelight2
                RET
Closelight2:    SETB    CloselightCtrl
                RET


;
;       ******  不可中断的秒延时  ******
;
SecDelay:       MOV     SecTimerA,#0
                MOV     R7,A
SecDelay1:      ;CPL     ResetWd
                MOV     A,SecTimerA
                CLR     C
                SUBB    A,R7
                JC      SecDelay1
                RET
;
DL500MS:        MOV     R5,#04H                  ; delay=500MS
DL4:            MOV     R6,#0F0H
DL5:            MOV     R7,#0EEH
DL6:            DJNZ    R7,DL6
;                CPL     ResetWd
                DJNZ    R6,DL5
;                CPL     ResetWd
                DJNZ    R5,DL4
                RET
DL100MS:        MOV     R6,#180                 ; delay=100MS
DL7:            MOV     R7,#0FFH
DL8:            DJNZ    R7,DL8
;                CPL     ResetWd
                DJNZ    R6,DL7
                RET

DL50MS:         MOV     R6,#90                   ; delay=50MS
DL9:            MOV     R7,#0FFH
DL10:           DJNZ    R7,DL10
;                CPL     ResetWd
                DJNZ    R6,DL9
                RET
DL10MS:         MOV     R6,#19                  ; delay=10MS
DL11:           MOV     R7,#0FFH
DL12:           DJNZ    R7,DL12
;                CPL     ResetWd
                DJNZ    R6,DL11
                RET

DL1MS:          MOV     R6,#1                   ; delay=1MS
DL13:           MOV     R7,#150
DL14:           ;CPL     ResetWd
                DJNZ    R7,DL14
                DJNZ    R6,DL13
                RET




;
;       ******  显示"一行空"(清除一行)  ******
;
ClearYihang:    MOV     R1,#ShowBuf
                MOV     R2,#20
ClearYihang1:   MOV     A,#TSK
                MOVX    @R1,A
                INC     R1
                MOV     A,#10                 ; 空
                MOVX    @R1,A
                INC     R1
                DJNZ    R2,ClearYihang1
                MOV     LcdShowX,#00
                MOV     LcdShowY,EditShowY
                MOV     LcdShowC,#20
                LCALL   DdShowString2
                RET

                END