电梯.txt

单片机控制步进电机程序

  ORG   0100H
             MAIN:MOV   R3,#01H
                  MOV   10H,#0F9H
                  MOV   11H,#0C4H
                  MOV   12H,#0D0H
                  MOV   13H,#99H
                  MOV   R1,#10H
                  MOV   P0,@R1
                  CLR   P2.2
                  CLR   P2.3
           SMKEY1:ORL   P3,#0FFH
                  MOV   A,P3
                  JNB   ACC.0,L1
                  JNB   ACC.1,L2
                  JNB   ACC.2,L2
                  JNB   ACC.3,L3
                  JNB   ACC.4,L3
                  JNB   ACC.5,L4
                  SJMP  SMKEY2
               L1:MOV   R4,#01H
                  SJMP  PANDUAN
               L2:MOV   R4,#02H
                  SJMP  PANDUAN
               L3:MOV   R4,#03H
                  SJMP  PANDUAN
               L4:MOV   R4,#04H
          PANDUAN:CLR   C
                  MOV   A,R4
                  SUBB  A,R3
                  JC    FFF
                  JZ    OK1
                  MOV   R6,A
                  LCALL ZHENGZHUAN
              OK1:LCALL KAIMEN
                  LCALL GUANMEN
                  SJMP  SMKEY2
              FFF:CLR   C
                  MOV   A,R3
                  SUBB  A,R4
                  MOV   R6,A
                  LCALL FANZHUAN
                  LCALL KAIMEN
                  LCALL GUANMEN
           SMKEY2:ORL   P1,#0FH
                  MOV   A,P1
                  JNB   ACC.0,M1
                  JNB   ACC.1,M2
                  JNB   ACC.2,M3
                  JNB   ACC.3,M4
                  SJMP  SMEKY2
               M1:MOV   R4,#01H
                  SJMP  KKK
               M2:MOV   R4,#02H
                  SJMP  KKK
               M3:MOV   R4,#03H
                  SJMP  KKK
               M4:MOV   R4,#04H
              KKK:CLR   C
                  MOV   A,R4
                  SUBB  A,R3
                  JZ    OK2
                  JC    HHH
 MOV   R6,A
                  LCALL ZHENGZHUAN
              OK2:LCALL KAIMEN 
                  LCALL GUANMEN
                  SJMP  SMKEY1
              HHH:CLR   C
                  MOV   A,R3
                  SUBB  A,R4
                  MOV   R6,A
                  LCALL FANZHUAN
                  LCALL KAIMEN
                  LCALL GUANMEN
                  SJMP  SMKEY1
       ZHENGZHUAN:SETB  P2.2
           MOV   R7,#14H
       ZHG:MOV   A,#40H
           CPL   A
           MOV   P1,A
           LCALL DELAY
           MOV   A,#60H
           CPL   A
           MOV   P1,A
           LCALL DELAY
           MOV   A,#C0H
           CPL   A
           MOV   P1,A
           LCALL DELAY
           MOV   A,#90H
           CPL   A
           MOV   P1,A
           LCALL DELAY
           DJNZ  R7,ZHG
           INC   R3
           INC   R1
           MOV   P0,@R1
           DJNZ  R6,ZHENGZHUAN
           CLR   P2.2
           MOV   P1,#0FFH
           RET
FANZHUAN:SETB  P2.3
         MOV   R7,#14H
    FANZ:MOV   A,#90H
         CPL   A
         MOV   P1,A
         LCALL DELAY
         MOV   A,#C0H
         CPL   A
         MOV   P1,A
         LCALL DELAY
         MOV   A,#60H
         CPL   A
         MOV   P1,A
         LCALL DELAY
         MOV   A,#40H
         CPL   A
         MOV   P1,A
         LCALL DELAY
         DJNZ  R7,FANZ
         DEC   R3
         DEC   R1
         MOV   P0,@R1
         DJNZ  R6,FANZHUAN
         CLR   P2.3
         MOV   P1,#0FFH
         RET
KAIMEN:MOV   R2,#5
     K:CPL   P2.2
       LCALL DELY
                  CPL   P2.2
                  LCALL DELY
                  DJNZ  R2,K
                  RET
          GUANMEN:MOV   R2,#5
                G:CPL   P2.3
                  LCALL DELY
                  CPL   P2.3
                  LCALL DELY
                  DJNZ  R2,G
                  RET
             DELY:MOV   R4,#50
            DELY1:MOV   R5,#250
                  MOV   R7,#250
            DELY2:DJNZ  R7,DELY2
            DELY3:DJNZ  R5,DELY3
                  DJNZ  R4,DELY1
                  RET
            DELAY:MOV   02H,#18H
             DEL1:PUSH  02H
             DEL2:PUSH  02H
             DEL3:PUSH  02H
             DEL4:DJNZ  R2,DEL4
                  POP   02H
                  DJNZ  R2,DEL3
                  POP   02H
                  DJNZ  R2,DEL2
                  POP   02H
                  DJNZ  R2,DEL1
                  RET
                  END