bgdsq.asm

学习单片机一个简单程序和硬件的开发

        ORG 0000H
        CLR P1.0
    KEY:JB P2.0,$
        LCALL DEL10MS
        JB P2.0,KEY
        MOV A,P0
        MOV R0,A
        ANL A,#0F0H
        SWAP A
        MOV B,#10
        MUL AB
        MOV R1,A
        MOV A,R0
        ANL A,#0FH
        ADD A,R1
        SETB P1.0
        LCALL DEL
        CLR P1.0
        SJMP KEY
DEL10MS:MOV R0,#20
     D1:MOV R1,#250
        DJNZ R1,$
        DJNZ R0,D1
        RET
    DEL:MOV R2,A
   DEL1:MOV R3,#4
   DEL2:MOV R4,#250
   DEL3:MOV R5,#250
   DEL4:NOP
        NOP
        DJNZ R5,DEL4
        DJNZ R4,DEL3
        DJNZ R3,DEL2
        DJNZ R2,DEL1
        RET
        END