上.txt

来自「步进电机的控制相当好用的东东步进电机的控制相当好用的」· 文本 代码 · 共 104 行

文件头:
       C8279 EQU 20AH

       D8279 EQU 208H

       C8255 EQU 203H

       P8255C EQU 202H

CODE SEGMENT

  ASSUME CS:CODE,DS:CODE

  START:PUSH CS

        POP DS

    INI:MOV DX,C8255

        MOV AL,80H

        OUT DX,AL

        MOV DX,C8279

        MOV AL,00H

        OUT DX,AL

        MOV AL,2AH

        OUT DX,AL

	MOV AL,90H

	OUT DX,AL

        MOV AL,0D1H

        OUT DX,AL

	JMP SHORT $+2

  WAIT1:IN AL,DX

        MOV AH,AL

        AND AL,80H

        JNZ WAIT1

        MOV AL,AH

        AND AL,0FH

        CMP AL,00H

        JE WAIT1

        LEA BX,STEP

    RUN:CALL CHKKEY

        CALL DISPLAY

        MOV CX,08H

  LOOP3:MOV DX,P8255C

        MOV AL,[SI]

        OUT DX,AL

        INC SI

        CALL DELAY

        LOOP LOOP3

        JMP RUN

CHKKEY PROC NEAR

  RDKEY:MOV DX,C8279

        IN AL,DX

        MOV AH,AL

        AND AL,80H

        CMP AL,80H

        JE RDKEY

        MOV AL,AH

        AND AL,0FH

        CMP AL,00H

        JE RTN

        M