home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB2.LBR / SISGRAPH.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  35 lines
  1. ;
  2. ;  SYSLIB Module Name:  SISGRAPH
  3. ;  Author:  Richard Conn
  4. ;  SYSLIB Version Number:  3.6
  5. ;  Module Version Number:  1.1
  6.  
  7.     public    isgraph
  8.  
  9. ;
  10. ;    ISGRAPH returns Zero Flag Set if char in A is graphic
  11. ; ( > space, < DEL).  ISGRAPH returns NZ if not.
  12. ;
  13. ;    Char in A is unaffected.
  14. ;
  15. ISGRAPH:
  16.     PUSH    BC    ; SAVE BC
  17.     LD    C,A    ; SAVE CHAR IN C
  18.     AND    7FH    ; MASK OUT MSB
  19.     CP    ' '+1    ; LESS THAN OR EQUAL TO SPACE?
  20.     JP    C,NO
  21.     CP    7FH    ; LESS THAN DELETE?
  22.     JP    Z,NO
  23.     XOR    A    ; SET FLAG
  24.     LD    A,C    ; GET CHAR
  25.     POP    BC    ; RESTORE BC
  26.     RET
  27. NO:
  28.     LD    A,0FFH    ; SET FLAG
  29.     OR    A
  30.     LD    A,C    ; GET CHAR
  31.     POP    BC    ; RESTORE BC
  32.     RET
  33.  
  34.     END
  35.