a15-1.asm

汇编语言的设计

STACK SEGMENT STACK
	DW 64 DUP(?)
STACK ENDS

DATA SEGMENT
TABLE DB 41H,44H,30H,38H,30H,39H,3AH,49H,4EH,30H,20H,20H,00H
DATA ENDS

CODE SEGMENT
	ASSUME CS:CODE,DS:DATA

START:	MOV AX,DATA
	MOV DS,AX
	OUT 00H,AL
	CALL DALLY
	IN AL,00H
	MOV CH,AL
	AND AL,0F0H
	MOV CL,04H
	SHR AL,CL
	CMP AL,09H
	JG A1
	ADD AL,30H
	JMP A2
A1:	ADD AL,37H
A2:	MOV BX,OFFSET TABLE
	MOV AH,06H
	INT 10H
	MOV AH,01H
	INT 10H
	MOV AL,CH
	AND AL,0FH
	CMP AL,09H
	JG A3
	ADD AL,30H
	JMP A4
A3:	ADD AL,37H
A4:	MOV AH,01H
	INT 10H
	CALL DALLY
	MOV AX,010D
	INT 10H
	JMP START
DALLY:	PUSH CX
	PUSH AX
	MOV CX,0040H
A5:	MOV AX,056CH
A6:	DEC AX
	JNZ A6
	LOOP A5
	POP AX
	POP CX
	RET
	
CODE ENDS
     END START