PROG SEGMENT
   ASSUME CS:PROG,DS:PROG
FIRST:MOV AX,PROG
      MOV DS,AX
      MOV SI,5000H
      MOV DI,5050H
      MOV CX,50H
      MOV AH,80H
      MOV AL,0
AGAIN:CMP (SI),AH
      JNE SMALL
      INC AL
SMALL:INC SI
      LOOP AGAIN
      MOV (DI),AL     
PROG ENDS
END FIRST

PROG SEGMENT
   ASSUME CS:PROG,DS:PROG
FIRST: MOV AX,PROG
       MOV DS,AX
       MOV AH,2       ;  מדפיס 0 על המסך
       MOV DL,'0'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 1 על המסך  
       MOV DL,'1'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 2 על המסך
       MOV DL,'2'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 3על המסך
       MOV DL,'3'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 4 על המסך
       MOV DL,'4'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 5 על המסך
       MOV DL,'5'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 6 על המסך
       MOV DL,'6'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 7על המסך
       MOV DL,'7'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 8 על המסך
       MOV DL,'8'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
       MOV AH,2       ;  מדפיס 9 על המסך
       MOV DL,'9'
       INT 21H
       MOV BX,1000    ;  מחכה שניה
    Y: MOV CX,0FFFFH
       LOOP $
       DEC BX
       JNZ Y
PROG ENDS
END FIRST