PASO A MAYUSCULAS

    Para crear lo básico de STRING, comenzaremos por la función de paso a mayusculas de una cadena. La función la llamo MAY aunque la macro se llama STRUPR.

   Esta función es necesaria para posteriormente convertir las cadenas en números en ATOI.

MAY.ASM

; Copyright (C) 2013  José Ángel Moneo Fernández

;    This program is free software: you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation, either version 3 of the License, or
;   (at your option) any later version.

;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.

;    You should have received a copy of the GNU General Public License
;    along with this program.  If not, see <http://www.gnu.org/licenses/>.

include main.mac
_modelo exe

_code 

rutina _may text

        push bx

        mov bx,[bp].text

mayusc:

        cmp byte ptr [bx],0

        je fin

        cmp byte ptr [bx],'a'

        jb otro

        cmp byte ptr [bx],'z'

        ja otro

        sub byte ptr [bx],'a'-'A'

        jmp otro1

otro:

        cmp byte ptr [bx],'¤'

        jne otro1

        mov byte ptr [bx],'¥'

otro1:

        inc bx

        jmp mayusc

fin:

        pop bx

        pop bp

        ret
endp
_data

_end