a14-1.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
	CLI
	CALL INIT
	CALL DALLY
	MOV AL,7EH
	OUT 81H,AL 
	CALL DALLY
	MOV AL,34H
	OUT 81H,AL 
	CALL DALLY
	MOV AX,0152H
	INT 10H
	MOV DI,3000H
	MOV CX,000AH
A1:  	IN AL,81H
	AND AL,02H
	JZ A1
	IN AL,80H
	AND AL,7FH
	MOV [DI],AL
	INC DI
	LOOP A1
	MOV AL,00H
	MOV SI,300AH
	MOV [SI],AL
	MOV AH,06H
	MOV BX,3000H
	INT 10H
	STI
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
A3: 	PUSH AX
	POP AX
	LOOP A3
	POP CX
	RET
CODE ENDS
     END START