mirror of https://github.com/AR1972/DOS3.3
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
372 B
34 lines
372 B
.xlist
|
|
include cmacros.inc
|
|
.list
|
|
|
|
sBegin code
|
|
assumes cs,code
|
|
|
|
;
|
|
; c = IToupper (c, routine);
|
|
;
|
|
; c is char to be converted
|
|
; routine is case map call in international table
|
|
;
|
|
|
|
cProc IToupper,<PUBLIC>
|
|
parmW c
|
|
parmD routine
|
|
cBegin
|
|
mov ax,c
|
|
or ah,ah
|
|
jnz donothing
|
|
cmp al,'a'
|
|
jb noconv
|
|
cmp al,'z'
|
|
ja noconv
|
|
sub al,20H
|
|
noconv:
|
|
call routine
|
|
donothing:
|
|
cEnd
|
|
|
|
sEnd
|
|
|
|
end
|