Subversion Repositories Kolibri OS

Rev

Rev 1666 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1666 Rev 2324
Line 892... Line 892...
892 
; 0xA0-0xAF -> 0x80-0x8F
 892 
; 0xA0-0xAF -> 0x80-0x8F
893 
.az:
 893 
.az:
894 
	and	al, not 0x20
 894 
	and	al, not 0x20
895 
	ret
 895 
	ret
896 
;---------------------------------------------------------------------
 896 
;---------------------------------------------------------------------
- 
 
 897 
fb_char_todown:
- 
 
 898 
; convert character to uppercase, using cp866 encoding
- 
 
 899 
; in: al=symbol
- 
 
 900 
; out: al=converted symbol
- 
 
 901 
	cmp	al, 'A'
- 
 
 902 
	jb	.ret
- 
 
 903 
	cmp	al, 'Z'
- 
 
 904 
	jbe	.az
- 
 
 905 
	cmp	al, '€'
- 
 
 906 
	jb	.ret
- 
 
 907 
	cmp	al, ''
- 
 
 908 
	jb	.rus1
- 
 
 909 
	cmp	al, 'Ÿ'
- 
 
 910 
	ja	.ret
- 
 
 911 
; 0x90-0x9F -> 0xE0-0xEF
- 
 
 912 
	add	al, 'à'-''
- 
 
 913 
.ret:
- 
 
 914 
	ret
- 
 
 915 
.rus1:
- 
 
 916 
; 0x80-0x8F -> 0xA0-0xAF
- 
 
 917 
.az:
- 
 
 918 
	add	al, 0x20
- 
 
 919 
	ret
- 
 
 920 
;---------------------------------------------------------------------
897 
fb_truncated_filename_char:
 921 
fb_truncated_filename_char:
898 
	db	'..'
 922 
	db	'..'
899 
fb_truncated_filename_clear:
 923 
fb_truncated_filename_clear:
900 
	db	'  '
 924 
	db	'  '
901 
;---------------------------------------------------------------------
 925 
;---------------------------------------------------------------------