home *** CD-ROM | disk | FTP | other *** search
- include compiler.inc
- ttl ISLOWER, 1.03, 08-03-86 clr
-
- ;char function - returns 1 if 'a'-'z', else 0
-
- dseg
-
- cseg
-
- procdef islower, <<chr, byte>>
-
- mov al,chr
- mov dx,0
- cmp al,'a'
- jb L0028
- cmp al,'z'
- ja L0028
- inc dx
- L0028: mov ax,dx
- pret
-
- pend islower
-
- finish