home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / simtel20 / syslib / slib2.lbr / SISALPHA.Z80 < prev    next >
Encoding:
Text File  |  1986-02-06  |  768 b   |  38 lines
  1. ;
  2. ;  SYSLIB Module Name:  SISALPHA
  3. ;  Author:  Richard Conn
  4. ;  SYSLIB Version Number:  3.6
  5. ;  Module Version Number:  1.1
  6.  
  7.     public    isalpha
  8.  
  9.     EXT    CAPS
  10.  
  11. ;
  12. ;    ISALPHA returns Zero Flag Set if char in A is alphabetic (A-Z,a-z).
  13. ; ISALPHA returns NZ if not.
  14. ;
  15. ;    Char in A is unaffected.
  16. ;
  17. ISALPHA:
  18.     PUSH    BC    ; SAVE BC
  19.     LD    C,A    ; SAVE CHAR IN C
  20.     AND    7FH    ; MASK OUT MSB
  21.     CALL    CAPS    ; CAPITALIZE
  22.     CP    'A'    ; LESS THAN A?
  23.     JP    C,NO
  24.     CP    'Z'+1    ; LESS THAN OR EQUAL TO Z?
  25.     JP    NC,NO
  26.     XOR    A    ; SET FLAG
  27.     LD    A,C    ; GET CHAR
  28.     POP    BC    ; RESTORE BC
  29.     RET
  30. NO:
  31.     LD    A,0FFH    ; SET FLAG
  32.     OR    A
  33.     LD    A,C    ; GET CHAR
  34.     POP    BC    ; RESTORE BC
  35.     RET
  36.  
  37.     END
  38.