home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scaps.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  436 b   |  25 lines
  1. ;
  2. ; SYSLIB Module Name:  SCAPS
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CAPS
  8. ; Module External References:
  9. ;    None
  10. ;
  11.  
  12. ;
  13. ;  CAPS -- Capitalize ASCII Character in A
  14. ;
  15. CAPS::
  16.     ANI    7FH    ; MASK OUT MSB
  17.     CPI    61H    ; LESS THAN SMALL LETTER A?
  18.     RC
  19.     CPI    7AH+1    ; BETWEEN SMALL A AND SMALL Z?
  20.     RNC
  21.     ANI    5FH    ; REMOVE BIT 5 TO CAPITALIZE (0X0X XXXX)
  22.     RET
  23.  
  24.     END
  25.