a14-3.asm

汇编语言的设计

STACK SEGMENT STACK
	DW 64 DUP(?)
STACK ENDS

CODE SEGMENT
	ASSUME CS:CODE

START:	MOV AL,0B6H
	OUT 43H,AL
	MOV AL,1BH
	OUT 42H,AL
	MOV AL,3AH
	OUT 42H,AL
	CALL INIT
	CALL DALLY
	MOV AL,7EH
	OUT 81H,AL
	CALL DALLY
	MOV AL,34H
	OUT 81H,AL
	CALL DALLY
	MOV DI,3000H
	MOV SI,4000H
	MOV CX,000AH
A1:	MOV AL,[SI]
	PUSH AX
	MOV AL,37H
	OUT 81H,AL
	POP AX
 	OUT 80H,AL 
A2:	IN AL,81H
	AND AL,01H
	JZ A2
	CALL DALLY
A3:	IN AL,81H
	AND AL,02H
	JZ A3
	IN AL,80H
	MOV [DI],AL
	INC DI
	INC SI
	LOOP A1
A4:	JMP A4
INIT:	MOV AL,00H
	OUT 81H,AL
	CALL DALLY
	OUT 81H,AL
	CALL DALLY
	OUT 81H,AL
	CALL DALLY
	OUT 81H,AL
	CALL DALLY
	OUT 80H,AL
	CALL DALLY
	MOV AL,40H
	OUT 81H,AL
	RET
DALLY:  PUSH CX
	MOV CX,3000H
A5:	PUSH AX
	POP AX
	LOOP A5
 	POP CX
	RET		
CODE ENDS
     END START