You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
mov ah,09h<br />
int 21h<br />
MOV DX, OFFSET VTEXT2<br />
MOV AH,09H<br />
INT 21H<br />
call paraMayus<br />
paraMayus proc<br />
mov ax,DATO<br />
mov ds,ax<br />
mov si,0<br />
JMP otroMayus<br />
otroMayus:<br />
mov al,vtext2[si]<br />
cmp al,'$'<br />
jz finMay<br />
cmp al,'z'<br />
jg sigueMay<br />
cmp al,'a'<br />
jl sigueMay<br />
sub al,20H<br />
sigueMay:mov dl,al<br />
mov ah,2<br />
int 21h<br />
inc si<br />
jmp otroMayus<br />
finMay:<br />
;comentario<br />
;otro comentario<br />
mov dx,offset mayusculas<br />
mov ah,09h<br />
int 21h<br />
paraMayus endp<br />
MOV AX,4C00H<br />
INT 21H<br />
CODIGO ENDS<br />
END MAIN<br />
43
Change language