bujindianji.txt

bujidianji,first 135 centigrade,then 180 centigrade,then 45 centigrade,then taking a round

STACK SEGMENT
      DW 256 DUP(?)
STACK ENDS
DATA SEGMENT
TABLE1 DB 04H,0CH,08H,18H,10H,30H,20H,24H
TABLE2 DB 10H,30H,20H,24H, 04H,0CH,08H,18H
DATA ENDS
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
       MOV DS,AX
 MAIN: MOV AL,80H
       OUT 63H,AL
  MOV DL,04H
 A1:   MOV BX,OFFSET TABLE1
       MOV CX,0008H
 A2:   MOV AL,[BX]
       OUT 60H,AL
       CALL DALLY1
       INC BX
       LOOP A2
       DEC DL
       JNZ A1
CALL A3
       CALL DALLY2
       CALL DALLY2
       CALL B
       CALL DALLY2
       CALL DALLY2
       CALL C
       CALL DALLY2
       CALL DALLY2
JMP MAIN
 A3:   MOV BX,OFFSET TABLE1
       MOV CX,0004H
 A4:   MOV AL,[BX]
       OUT 60H,AL
       CALL DALLY1
       INC BX
       LOOP A4
B:   MOV DL,06H
B1:  MOV BX,OFFSET TABLE2
       MOV CX,0008H
B2:  MOV AL,[BX]
       OUT 60H,AL
       CALL DALLY1
       INC BX
       LOOP B2
       DEC DL
       JNZ B1
       RET
C:   MOV DL,01H
C1:  MOV BX,OFFSET TABLE2
       MOV CX,0008H
C2:  MOV AL,[BX]
       OUT 60H,AL
       CALL DALLY1
       INC BX
       LOOP C2
       DEC DL
       JNZ C1
       CALL D3
       RET
  D3:  MOV BX,OFFSET TABLE2
       MOV CX,0004H
  D4:   MOV AL,[BX]
       OUT 60H,AL
       CALL DALLY1
       INC BX
       LOOP D4
 DALLY1:PUSH CX
        MOV CX,5000H
 A5:    PUSH AX
        POP AX
        LOOP A5
        POP CX
        RET
 DALLY2:PUSH CX
        MOV CX,0FFFFH
 A6:    PUSH AX
        POP AX
        LOOP A6
        POP CX
        RET
 CODE ENDS
        END START
;说明：
    本设计中采用四相八拍步进电机，步进角为3.75度，因此，走135度需要走36步,即4个周期再加4步，此时步进电机停在走完第4步的位置，延时暂停，再走180度，即48步，6个周期，但此时步序要从135度停留的位置开始，即表1的步序5开始，走步，延时暂停，再走45度，即12步，一个周期再加4步，此时的步序也要从表1的步序5开始，因为180度走的是完整的周期。走完45度，步进电机停在步序为8的位置，延时暂停，步进电机再从步序1开始走135度，如此循环。
bujidianji,first 135 centigrade,then 180 centigrade,then 45 centigrade,then taking a round