2011-01-29 19:25:55 +01:00
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
|
|
char_toupper:
|
|
|
|
|
|
; convert character to uppercase, using cp866 encoding
|
|
|
|
|
|
; in: al=symbol
|
|
|
|
|
|
; out: al=converted symbol
|
|
|
|
|
|
cmp al, 'a'
|
|
|
|
|
|
jb .ret
|
|
|
|
|
|
cmp al, 'z'
|
|
|
|
|
|
jbe .az
|
|
|
|
|
|
cmp al, '<27>'
|
|
|
|
|
|
jb .ret
|
|
|
|
|
|
cmp al, '<27>'
|
|
|
|
|
|
jb .rus1
|
|
|
|
|
|
cmp al, '<27>'
|
|
|
|
|
|
ja .ret
|
|
|
|
|
|
; 0xE0-0xEF -> 0x90-0x9F
|
|
|
|
|
|
sub al, '<27>'-'<27>'
|
|
|
|
|
|
.ret:
|
|
|
|
|
|
ret
|
|
|
|
|
|
.rus1:
|
|
|
|
|
|
; 0xA0-0xAF -> 0x80-0x8F
|
|
|
|
|
|
.az:
|
|
|
|
|
|
and al, not 0x20
|
|
|
|
|
|
ret
|
|
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
|
|
char_todown:
|
2012-05-21 21:01:21 +02:00
|
|
|
|
; convert character to lowercase, using cp866 encoding
|
2011-01-29 19:25:55 +01:00
|
|
|
|
; in: al=symbol
|
|
|
|
|
|
; out: al=converted symbol
|
|
|
|
|
|
cmp al, 'A'
|
|
|
|
|
|
jb .ret
|
|
|
|
|
|
cmp al, 'Z'
|
|
|
|
|
|
jbe .az
|
|
|
|
|
|
cmp al, '<27>'
|
|
|
|
|
|
jb .ret
|
|
|
|
|
|
cmp al, '<27>'
|
|
|
|
|
|
jb .rus1
|
|
|
|
|
|
cmp al, '<27>'
|
|
|
|
|
|
ja .ret
|
|
|
|
|
|
; 0x90-0x9F -> 0xE0-0xEF
|
|
|
|
|
|
add al, '<27>'-'<27>'
|
|
|
|
|
|
.ret:
|
|
|
|
|
|
ret
|
|
|
|
|
|
.rus1:
|
|
|
|
|
|
; 0x80-0x8F -> 0xA0-0xAF
|
|
|
|
|
|
.az:
|
|
|
|
|
|
add al, 0x20
|
|
|
|
|
|
ret
|
|
|
|
|
|
;---------------------------------------------------------------------
|
