txz64.asm

跑马灯程序

ORG 0000H
LJMP 1000H
ORG  1000H
MOV DPTR,#0003h
MOV A,#80H
MOVX @DPTR,A

START:MOV R2,#3
MOV R7,#8
MOV DPTR,#0000H
WW2:MOV A,#1
WW1:MOVX @DPTR,A
    RL A
    INC A
    LCALL DELAY500
    DJNZ R7,WW1
    INC DPTR
    MOV R7,#8
    DJNZ R2,WW2

LCALL ALL_ON
LCALL DELAY500
LCALL DELAY500
LCALL ALL_OFF
LCALL DELAY500
LCALL DELAY500

MOV R2,#4
XX1:MOV R3,#0FFH
    MOV R4,#0FH
    MOV R5,#0
    LCALL FUZHI
    LCALL DELAY500
    LCALL QIUFAN
    LCALL FUZHI
    LCALL DELAY500
    DJNZ R2,XX1
    LCALL ALL_ON
    LCALL DELAY500
    LCALL ALL_OFF
    LCALL DELAY500

    MOV R3,#1
    MOV R4,#0
    MOV R5,#0
    MOV R2,#48
    CLR C
XX2:LCALL NI_D
    LCALL DELAY300
    DJNZ R2,XX2
    LCALL ALL_OFF

    MOV R2,#48
    MOV R3,#0
    MOV R4,#0
    MOV R5,#80H
    CLR C
XX3:LCALL SHUN_D
    LCALL DELAY300
    DJNZ R2,XX3
    LCALL ALL_OFF

    MOV R3,#00000011B
    MOV R4,#0
    MOV R5,#0
    MOV R2,#23
    CLR C
XX4:LCALL NI_D
    LCALL DELAY400
    DJNZ R2,XX4
    LCALL ALL_OFF

    MOV R2,#23
    MOV R3,#0
    MOV R4,#0
    MOV R5,#0C0H
    CLR C
XX5:LCALL SHUN_D
    LCALL DELAY400
    DJNZ R2,XX5
    LCALL ALL_OFF


    MOV R3,#01010101B
    MOV A,R3
    CPL A
    MOV R4,A
    MOV R5,#01011010B
    LCALL FUZHI
    LCALL DELAY600
    MOV R7,#20                 ;次数
XX6:LCALL QIUFAN
    LCALL FUZHI
    LCALL DELAY600
    DJNZ R7,XX6
    LCALL ALL_OFF

    MOV R3,#00110011B
    MOV A,R3
    CPL A
    MOV R5,A
    MOV R4,#11000011B
    LCALL FUZHI
    LCALL DELAY600
    MOV R7,#20
XX7:LCALL QIUFAN
    LCALL FUZHI
    LCALL DELAY600
    DJNZ R7,XX7
    LCALL ALL_OFF

    MOV R3,#01001001B
    MOV R4,#10010010B
    MOV R5,#00100100B
    MOV R2,#10
    CLR C
XX8:LCALL NI_D
    LCALL DELAY400
    DJNZ R2,XX8
    LCALL ALL_OFF

    CLR C
    MOV A,#0
    MOV R2,#10
XX9:LCALL FUZHI2
    RL A
    LCALL DELAY400
    DJNZ R2,XX9
    LCALL ALL_OFF

MOV R3,#01000001B
MOV R4,#00010000B
MOV R5,#00000100B
MOV R2,#16
CLR C
XX10:LCALL NI_D
     LCALL DELAY400
     DJNZ R2,XX10
     LCALL ALL_OFF

     CLR C
     MOV A,#1
     MOV R2,#20
XX11:LCALL FUZHI
     RL A
     LCALL DELAY400
     DJNZ R2,XX11
     LCALL ALL_OFF

    MOV R3,#0FFH
    MOV R4,#0
    MOV R5,#0
    MOV R2,#24
    CLR C
XX12:LCALL NI_D
    LCALL DELAY300
    DJNZ R2,XX12
    LCALL ALL_OFF


PMD_X:MOV A,#00001111B
     MOV R7,#10
     MOV R3,A
     MOV R4,A
     MOV R5,A
EE1:LCALL FUZHI
    LCALL DELAY600
    LCALL QIUFAN
    DJNZ R7,EE1

    LCALL ALL_OFF

    MOV R7,#16
EE2:MOV R3,#01100000B
    MOV R4,#0
    MOV R5,#00000110B
    LCALL FUZHI
    LCALL DELAY600
    MOV R5,#00001111B
    MOV R3,#11110000B
    LCALL FUZHI
    LCALL DELAY600
    MOV R3,#01101000B
    MOV R5,#00010110B
    MOV R4,#10000001B
    LCALL FUZHI
    LCALL DELAY600
    MOV R3,#01100100B
    MOV R4,#01000010B
    MOV R5,#00100110B
    LCALL FUZHI
    LCALL DELAY600
    MOV R3,#01100010B
    MOV R4,#00100100B
    MOV R5,#01000110B
    LCALL FUZHI
    LCALL DELAY600
    MOV R3,#01100001B
    MOV R4,#00011000B
    MOV R5,#01100001B
    LCALL FUZHI
    LCALL DELAY600
    DJNZ R7,EE2

LCALL ALL_OFF
    MOV R7,#16
EE3:MOV R3,#01100000B
    MOV R4,#0
    MOV R5,#00000110B
    LCALL FUZHI
    LCALL DELAY600
    LCALL ALL_ON
    LCALL DELAY100
    LCALL ALL_OFF
    MOV R5,#00001111B
    MOV R3,#11110000B
    LCALL FUZHI
    LCALL DELAY600
    LCALL ALL_ON
    LCALL DELAY100
    LCALL ALL_OFF
    MOV R3,#01101000B
    MOV R5,#00010110B
    MOV R4,#10000001B
    LCALL FUZHI
    LCALL DELAY600
    LCALL ALL_ON
    LCALL DELAY100
    LCALL ALL_OFF
    MOV R3,#01100100B
    MOV R4,#01000010B
    MOV R5,#00100110B
    LCALL FUZHI
    LCALL DELAY600
    LCALL ALL_ON
    LCALL DELAY100
    LCALL ALL_OFF
    MOV R3,#01100010B
    MOV R4,#00100100B
    MOV R5,#01000110B
    LCALL FUZHI
    LCALL DELAY600
    LCALL ALL_ON
    LCALL DELAY100
    LCALL ALL_OFF
    MOV R3,#01100001B
    MOV R4,#00011000B
    MOV R5,#01100001B
    LCALL FUZHI
    LCALL DELAY600
    LCALL ALL_ON
    LCALL DELAY100
    LCALL ALL_OFF
    DJNZ R7,EE3

    LCALL ALL_OFF
PMD_3:MOV R7,#2
BB6:MOV R6,#8
    MOV R4,#1
    MOV R5,#80H
BB3:MOV DPTR,#0000H
    MOV A,R4
    MOVX @DPTR,A
    RL A
    MOV R4,A
    MOV DPTR,#0002H
    MOV A,R5
    MOVX @DPTR,A
    RR A
    MOV R5,A
    LCALL DELAY300
    DJNZ R6,BB3
    LCALL ALL_OFF
    MOV DPTR,#0001H
    MOV R6,#8
    MOV R4,#1
    MOV R5,#80H
BB4:MOV A,R4
   ADD A,R5
   MOVX @DPTR,A
   LCALL DELAY300
   MOV A,R4
   RL A
   MOV R4,A
   MOV A,R5
   RR A
   MOV R5,A
   DJNZ R6,BB4
   LCALL ALL_OFF
   MOV R6,#8
   MOV R4,#80H
   MOV R5,#1
BB5:MOV DPTR,#0000H
    MOV A,R4
    MOVX @DPTR,A
    RR A
    MOV R4,A
    MOV DPTR,#0002H
    MOV A,R5
    MOVX @DPTR,A
    RL A
    MOV R5,A
    LCALL DELAY300
    DJNZ R6,BB5
    LCALL ALL_OFF
    LJMP START 


;子程序
FUZHI2:MOV DPTR,#0000H
       MOVX @DPTR,A
       INC DPTR
       MOVX @DPTR,A
       INC DPTR
       MOVX @DPTR,A
       RET

ALL_ON:MOV A,#0FFH
LCALL FUZHI2
RET
ALL_OFF:MOV A,#00H
LCALL FUZHI2
RET

FUZHI:MOV DPTR,#0000H
MOV A,R3
MOVX @DPTR,A
INC DPTR
MOV A,R4
MOVX @DPTR,A
INC DPTR
MOV A,R5
MOVX @DPTR,A
RET

DELAY:MOV R1,#250
DL1:NOP
NOP
NOP
NOP
NOP
NOP
DJNZ R1,DL1
DJNZ R0,DELAY
RET
DELAY100:MOV R0,#50
LCALL DELAY
RET
DELAY300:MOV R0,#150
LCALL DELAY
RET
DELAY400:MOV R0,#200
LCALL DELAY
RET
DELAY500:MOV R0,#250
LCALL DELAY
RET
DELAY600:LCALL DELAY300
LCALL DELAY300
RET



NI_D:MOV DPTR,#0000H
MOV A,R3
MOVX @DPTR,A
RLC A
MOV R3,A
INC DPTR
MOV A,R4
MOVX @DPTR,A
RLC A
MOV R4,A
INC DPTR
MOV A,R5
MOVX @DPTR,A
RLC A
MOV R5,A
RET

SHUN_D:MOV DPTR,#0002H
MOV A,R5
MOVX @DPTR,A
RRC A
MOV R5,A
MOV DPTR,#0001H
MOV A,R4
MOVX @DPTR,A
RRC A
MOV R4,A
MOV DPTR,#0000H
MOV A,R3
MOVX @DPTR,A
RRC A
MOV R3,A
RET

QIUFAN:MOV DPTR,#0000H
MOVX A,@DPTR
CPL A
MOV R3,A
INC DPTR
MOVX A,@DPTR
CPL A
MOV R4,A
INC DPTR
MOVX A,@DPTR
CPL A
MOV R5,A
RET

END