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
    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