testad.asm

这是接口课程设计时做的一个控制电机转动的程序

STACK SEGMENT STACK
	DB 100 DUP(?)
STACK ENDS

DATA SEGMENT PUBLIC
	
DATA ENDS


CODE SEGMENT PUBLIC
	ASSUME CS:CODE
	
	main PROC FAR
		start:
			;call initParallel
			PUSH DX
			MOV AX,0
			POP DX
			
			MOV DX,1400H
			OUT DX,AL
			CALL delay
			next:
				OUT DX,AL
				CALL delay
				
				IN AL,DX
				CALL delay
				
				MOV AH,0BH
				INT 21H
				CMP AL,0
				JNZ exit
				LOOP next
			exit:
				NOP
	main ENDP
	
	initParallel PROC NEAR
		MOV DX,1403H
		MOV AL,10H
		OUT DX,AL
		NOP
		RET	
	initParallel ENDP
	
	delay PROC NEAR
		MOV CX,30H
		count:
			NOP
			LOOP count
		RET
	delay ENDP
CODE ENDS 
	END START