ORG 0000H
START:MOV 20H,#0EH;A
MOV 21H,#0DH;B
MOV 22H,#0BH ;C
MOV 23H,#07H ;D正轉
MOV 24H,#00H;A
MOV 25H,#0EH ;反轉
MOV 26H,#07H
MOV 27H,#0BH
MOV 28H,#0DH
MOV 29H,#00H
MOV 30H,#00H
MM:JNB P1.0,FZ
ZZ:CLR 7CH
   CLR 7DH
   CLR C
   MOV C ,7DH
   AJMP KK
FZ:SETB 7CH
   SETB 7DH
   CLR C
   MOV C, 7DH
KK:JC ROTE
   MOV R0,#20H
   AJMP LOOP
ROTE:MOV R0,#25H
LOOP:MOV A,@R0
     SWAP A
     MOV P1,A
     CLR C
     MOV C,7CH
     JC KK1
     SETB P1.0
     AJMP KK2
 KK1:CLR P1.0
 KK2:SETB P1.1
     SETB P1.2
     SETB P1.3
    ACALL DL5MS
INC R0
MOV A,#00H
ORL A,@R0
JZ TPL
AJMP LOOP
TPL:MOV A,R0
    CLR C
    SUBB A,#04H
    MOV R0,A
    AJMP START
  DL1MS:MOV R6,#14H
      DL1:MOV R7,#19H
      DL2:DJNZ R7,DL2
          DJNZ R6,DL1
          RET
  DL5MS:MOV 63H,#5
   DL3:LCALL  DL1MS
       DJNZ 63H,DL3
       RET
 DL05S:MOV 64H,#20
 DL5:LCALL  DL5MS
       DJNZ 64H,DL5
       RET
  AUTO:CLR P3.4
       LCALL DL05S
       SETB P3.4
    RET