DATA SEGMENT
MEM DB 56,69,84,82,73,88,99,63,80,100
LEN EQU $-MEM
RESULT0 DB 0
RESULT60 DB 0
RESULT70 DB 0
RESULT80 DB 0
RESULT90 DB 0
RESULT100 DB 0
STRING_0 DB 'RESULT0',0DH,0AH,'$'
STRING_60 DB 'RESULT60',0DH,0AH,'$'
STRING_70 DB 'RESULT70',0DH,0AH,'$'
STRING_80 DB 'RESULT80',0DH,0AH,'$'
STRING_90 DB 'RESULT90',0DH,0AH,'$'
STRING_100 DB 'RESULT100',0DH,0AH,'$'
DATA ENDS
MEM DB 56,69,84,82,73,88,99,63,80,100
LEN EQU $-MEM
RESULT0 DB 0
RESULT60 DB 0
RESULT70 DB 0
RESULT80 DB 0
RESULT90 DB 0
RESULT100 DB 0
STRING_0 DB 'RESULT0',0DH,0AH,'$'
STRING_60 DB 'RESULT60',0DH,0AH,'$'
STRING_70 DB 'RESULT70',0DH,0AH,'$'
STRING_80 DB 'RESULT80',0DH,0AH,'$'
STRING_90 DB 'RESULT90',0DH,0AH,'$'
STRING_100 DB 'RESULT100',0DH,0AH,'$'
DATA ENDS
STACK SEGMENT PARA STACK 'STACK'
DB 100 DUP(?)
STACK ENDS
DB 100 DUP(?)
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,SS:STACK
ASSUME CS:CODE,DS:DATA,SS:STACK
START:
MOV AX,DATA
MOV DS,AX
MOV AX,STACK
MOV SS,AX
MOV BX,OFFSET MEM
MOV CX,10
MOV AX,DATA
MOV DS,AX
MOV AX,STACK
MOV SS,AX
MOV BX,OFFSET MEM
MOV CX,10
again:
mov al,[bx]
cmp al,100
jnc d0
cmp al,90
jnc d1
cmp al,80
jnc d2
cmp al,70
jnc d3
cmp al,60
mov al,[bx]
cmp al,100
jnc d0
cmp al,90
jnc d1
cmp al,80
jnc d2
cmp al,70
jnc d3
cmp al,60