Зачем в этом учебном коде nop
? Код меняет строчные буквы на заглавные.
DATASG SEGMENT PARA
MYTEXT DB 'Our Native Town',13,10,'$'
DATASG ENDS
STACKSG SEGMENT 'Stack'
DB 12 DUP(?)
STACKSG ENDS
CODESG SEGMENT PARA 'Code'
BEGIN PROC FAR
ASSUME SS:STACKSG,CS:CODESG,DS:DATASG
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,DATASG
MOV DS,AX
LEA BX,MYTEXT
MOV CX,10H
MT1: MOV AH,[BX]
CMP AH,61H
JB MT2
CMP AH,7AH
JA MT2
CALL COR
MT2: INC BX
LOOP MT1
LEA DX,MYTEXT
MOV AH,09H
INT 21H
RET
BEGIN ENDP
COR PROC NEAR
NOP
AND AH,0DFH
MOV [BX],AH
RET
COR ENDP
CODESG ENDS
END BEGIN