a13-1.asm

汇编语言的设计

STACK SEGMENT STACK
	DW 64 DUP(?)
STACK ENDS

CODE SEGMENT
	ASSUME CS:CODE

START:	CALL INIT
A1:     CALL SEND
	MOV CX,0001H
A2:	MOV AX,01E0H
A3:	DEC AX
	JNZ A3
	LOOP A2
	JMP A1
INIT:	MOV AL,0B6H
	OUT 43H,AL
	MOV AL,1BH
	OUT 42H,AL
	MOV AL,3AH
	OUT 42H,AL

	CALL RESET
	CALL DALLY
	MOV AL,7EH
	OUT 81H,AL
	CALL DALLY
	MOV AL,34H
	OUT 81H,AL
	CALL DALLY
	RET
RESET:	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:	MOV AL,31H
	OUT 81H,AL
	MOV AL,55H
	OUT 80H,AL
	RET
CODE ENDS
     END START