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 / SLIB1.LBR / SCAPS.Z80 < prev    next >
Text File  |  2000-06-30  |  384b  |  22 lines
  1. ;
  2. ; SYSLIB Module Name:  SCAPS
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    caps
  8.  
  9. ;
  10. ;  CAPS -- Capitalize ASCII Character in A
  11. ;
  12. CAPS:
  13.     AND    7FH    ; MASK OUT MSB
  14.     CP    61H    ; LESS THAN SMALL LETTER A?
  15.     RET    C
  16.     CP    7AH+1    ; BETWEEN SMALL A AND SMALL Z?
  17.     RET    NC
  18.     AND    5FH    ; REMOVE BIT 5 TO CAPITALIZE (0X0X XXXX)
  19.     RET
  20.  
  21.     END
  22.