a14-2.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 CX,000AH
A1: 	MOV AL,[DI]
	CALL SEND
	CALL DALLY
	INC DI
	LOOP A1
A2:	JMP A2
INIT:  	MOV AL,00H
	OUT 81H,AL
	CALL DALLY
	OUT 81H,AL
	CALL DALLY
	OUT 81H,AL
	CALL DALLY
	OUT 80H,AL
	CALL DALLY
	OUT 80H,AL
	CALL DALLY
	MOV AL,40H
	OUT 81H,AL
	RET
DALLY :	PUSH CX
	MOV CX,3000H
A4: 	PUSH AX
	POP AX
	LOOP A4
	POP CX
	RET
SEND: 	PUSH AX
	MOV AL,31H
	OUT 81H,AL
	POP AX
	OUT 80H,AL
A3:	IN AL,81H
	AND AL,01H
	JZ A3
	RET
CODE ENDS
     END START