DATA	SEGMENT
DAT	DB	800H	DUP(0)
DA	DB	'01234567'
DATA 	ENDS
STACK1	SEGMENT	PARA	STACK
	DW	200H	DUP(0)
STACK1	ENDS
COSEG	SEGMENT
	ASSUME CS:COSEG,DS:DATA,SS:STACK1
START:	MOV 	AX,DATA
	MOV 	DS,AX
	LEA 	SI,DA
	LEA 	DI,DAT
	MOV	CX,100
	MOV	BX,8
L0:	MOV 	DX,288H
L1:	MOV	AL,0
	OUT	DX,AL
	CALL	DELAY
	IN	AL,DX
	MOV	[DI],AL
	MOV	DL,[SI]
	MOV	AH,02H
	INT	21H
	MOV	AL,[DI]
	AND	AL,0F0H
	PUSH	CX
	MOV	CL,4
	SHR	AL,CL
	CMP	AL,9
	JA	L2
	ADD	30H
	JMP	L3
L2:	ADD 	AL,37H
L3:	MOV 	DL,AL
	MOV	AH,02H
	INT	21H
	MOV	AL,[DI]
	AND	AL,0FH
	CMP	AL,9
	ADD	AL,30H
	JB	L4
	ADD	AL,7H
L4:	MOV	DL,AL
	MOV	AH,2
	INT	21H
	MOV	DL,' '
	MOV	AH,02H
	INT	21H
	INC	SI
	INC	DI	
	POP	CX
	INC	DX
	DEC	BX
	JNE	L1
	LOOP	L0
	MOV	AH,4CH
	INT 	21H
DELAY	PROC
	PUSH	CX
	MOV	CX,0F000H
YS:	NOP
	LOOP	YS
	POP	CX
	RET
DELAY	ENDP
COSEG	ENDP
	END	START