home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol157 / upcase.a86 < prev    next >
Text File  |  1985-03-14  |  151b  |  15 lines
  1.     TITLE    'UPPERCASE FUNCTION'
  2.     PUBLIC    CAPS
  3.  
  4.     CSEG
  5.  
  6. ;CAPITALIZE AL
  7.  
  8. CAPS:    CMP    AL,'a'
  9.     JL    RETURN
  10.     CMP    AL,'z'
  11.     JG    RETURN
  12.     AND    AL,01011111B
  13. RETURN:    RET
  14.     END
  15.