home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
turbopas
/
tppop16.arc
/
UPPRCASE.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-02-21
|
775b
|
44 lines
public UpperCase
stk_struc struc
old_bp dw ?
return dw ?
line dd ?
stk_struc ends
cseg segment para public 'code'
assume cs:cseg
UpperCase proc near
push bp
mov bp,sp
push ds
cld
lds si,line[bp]
mov cl,[si]
xor ch,ch
jcxz done
next_char:
inc si
cmp byte ptr [si],'a'
jb no_change
cmp byte ptr [si],'z'
ja no_change
sub byte ptr [si],20h
no_change:
loop next_char
done:
pop ds
pop bp
ret 4
UpperCase endp
cseg ends
end