add CTYPE.INC

SRC/CTYPE.INC

@@ -0,0 +1,74 @@
+;------------------------------------------------
+; ctype.inc
+;
+;		Copyright (c) 1992 by c.mos
+;------------------------------------------------
+
+;----- Equations -----
+
+_10		equ	00000010b		; 10 digit
+_UP		equ	00000100b		; upper case
+_LO		equ	00001000b		; lower case
+_16		equ	00010000b		; hexa decimal
+_FN		equ	10000000b		; file name char
+
+
+;----- Is upper/lower/alpha/digit/kanji? -----
+;--> AL :char
+;<-- CY :yes
+
+		public	isupper,isalpha,islower,isdigit,iskanji
+isupper:	cmp	al,'A'
+		jb	isnot
+		cmp	al,'Z'+1
+		ret
+
+isalpha:	call	isupper
+		jc	isal9
+islower:	cmp	al,'a'
+		jb	isnot
+		cmp	al,'z'+1
+isal9:		ret
+
+isdigit:	cmp	al,'0'
+		jb	isnot
+		cmp	al,'9'+1
+		ret
+
+iskanji:	ifkanji yes
+isnot:		clc
+		ret
+
+;----- Is file name? -----
+;--> AL :char (20h<=AL<80h)
+;<-- CY :file name
+
+		public	isfilename
+isfilename	proc
+		pushm	<bx,cx>
+		mov	cl,al
+		and	cl,7
+		mov	ch,80h
+		shr	ch,cl
+		mov	bl,al
+		clr	bh
+		shrm	bx,3
+		add	bx,offset cgroup: fnbittbl - 4
+		test	byte ptr [bx],ch
+		popm	<cx,bx>
+		jz	isfl9
+yes:		stc
+isfl9:		ret
+isfilename	endp
+
+fnbittbl	db	01011111b,11000100b,11111111b,11000000b
+;			 !"#$%&'  ()*+,-./  01234567  89:;<=>?
+		db	11111111b,11111111b,11111111b,11100011b
+;			@ABCDEFG  HIJKLMNO  PQRSTUVW  XYZ[\]^_
+		db	11111111b,11111111b,11111111b,11110110b
+;			`abcdefg  hijklmno  pqrstuvw  xyz{|}~
+
+;------------------------------------------------
+;	End of ctype.inc
+;------------------------------------------------
+