a17-1.asm

汇编语言的设计

STACK SEGMENT STACK
	DW 64 DUP(?)
STACK ENDS

CODE SEGMENT
	ASSUME CS:CODE

START:	MOV BX,3000H
	MOV DX,0E010H
	MOV CX,0010H
	MOV AL,80H
	OUT 63H,AL
A1:	MOV AL,DH
	OUT 62H,AL
	MOV AL,DL
	OUT 61H,AL
	MOV AL,[BX]
	OUT 60H,AL
	MOV AL,0CH
	OUT 63H,AL
	MOV AL,0DH
	OUT 63H,AL
	INC BX
	INC DX
	LOOP A1
	MOV AL,90H
	OUT 63H,AL
	MOV BX,3000H
	MOV CX,0010H
	MOV DX,0E010H
	MOV SI,4000H
A2:	MOV AL,DH
	OUT 62H,AL
	MOV AL,DL
	OUT 61H,AL
	MOV AL,0EH
	OUT 63H,AL
	IN AL,60H
	MOV [SI],AL
	CMP AL,[BX]
	JNZ A4
	MOV AL,0FH
	OUT 63H,AL
	INC SI
	INC BX
	INC DX
	LOOP A2
	MOV AX,014FH
	INT 10H
	MOV AX,014BH
	INT 10H
A3:	JMP A3
A4:	MOV AX,0145H
	INT 10H
A5:	JMP A5
CODE ENDS
     END START