

CODE  SEGMENT
ASSUME  CS:CODE, DS:CODE, ES:CODE, SS:CODE

PPICW   EQU     1FH
PPIA    EQU     19H

ORG  1000H



MOV  AL, 80H    ; sending control word
OUT  PPICW, AL  

PREPARE:
    MOV BX, 0     ; preparing for traversal
PRINT:
    CALL TIMER
    MOV AL, DAT[BX]
	OUT PPIA, AL
	INC BX
	CMP BX, 10  ; displaying the 9 character
	JL PRINT
	JMP PREPARE
	
	INT 3

TIMER:
    MOV CX, 0FFFFH	
TIME:
	NOP 
	NOP
	NOP
	NOP
	LOOP TIME
	RET
DAT DB 0C0H, 0F9H, 0A8H, 0B0H, 99H, 92H, 82H, 0F8H, 80H, 90H	
	
CODE ENDS
END