Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 2323 → Rev 2324

/programs/develop/libraries/box_lib/trunk/filebrowser.mac
894,6 → 894,30
and al, not 0x20
ret
;---------------------------------------------------------------------
fb_char_todown:
; 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, '€'
jb .ret
cmp al, ''
jb .rus1
cmp al, 'Ÿ'
ja .ret
; 0x90-0x9F -> 0xE0-0xEF
add al, 'à'-''
.ret:
ret
.rus1:
; 0x80-0x8F -> 0xA0-0xAF
.az:
add al, 0x20
ret
;---------------------------------------------------------------------
fb_truncated_filename_char:
db '..'
fb_truncated_filename_clear: