步进电机

ASTEP EQU 01H
BSTEP EQU 02H
CSTEP EQU 04H
DSTEP EQU 08H
CODE SEGMENT
      ASSUME CS:CODE
START:
      MOV DX,8003H
      MOV AL,82H
      OUT DX,AL;
    K0:MOV DX,8000H
       MOV AL,0
       OUT DX,AL;
       MOV DX,8001H
       IN AL,DX
       TEST AL,01H
        JNZ K1
        TEST AL,02H
        JNZ K2
        TEST AL,04H
        JNZ k3
        JMP K0
k1:MOV BX,4000H
      MOV DX,8000H
      MOV AL,ASTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,ASTEP+BSTEP
      OUT DX,AL
      CALL DELAY
      MOV AL,BSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,BSTEP+CSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,CSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,CSTEP+DSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,DSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,DSTEP+ASTEP
      OUT DX,AL;
      CALL DELAY
      k2:MOV BX,2000H
      MOV DX,8000H
      MOV AL,ASTEP+BSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,BSTEP+CSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,CSTEP+DSTEP
      OUT DX,AL;
      CALL DELAY
      MOV AL,DSTEP+ASTEP
      OUT DX,AL;
      CALL DELAY
      JMP K0
k3:MOV BX,1000H
       MOV DX,8000H
       MOV AL,DSTEP
       OUT DX,AL;
       CALL DELAY
       MOV AL,CSTEP
       OUT DX,AL;
       CALL DELAY
       MOV AL,BSTEP
       OUT DX,AL;
       CALL DELAY  
       MOV AL,ASTEP
       OUT DX,AL;
       CALL  DELAY
       JMP K0
DELAY PROC NEAR
      PUSH CX
      MOV CX,BX
   DD1:NOP
       LOOP DD1
       POP CX
       RET
   DELAY ENDP
       CODE ENDS
         END START