home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zslsrc36.lbr / REVCAS.ZZ0 / REVCAS.Z8°
Encoding:
Text File  |  1991-07-15  |  640 b   |  26 lines
  1. ; Library:    ZSLIB
  2. ; Version:    3.0
  3. ; Module:    REVCAS
  4. ; Version:    1.0
  5. ; Author:    Gene Pizzetta
  6. ; Date:        July 15, 1991
  7. ;
  8. ; REVCAS -- Reverses case of alphabetic character in A.
  9. ;
  10. ; Entry:  A = character
  11. ; Exit:      A = character with case reversed
  12. ; Uses:      AF
  13. ; Notes:  High bits are reset
  14. ;
  15.     PUBLIC    REVCAS
  16. ;
  17.     EXTRN    UNCAPS        ; ZSLIB
  18.     EXTRN    CAPS        ; SYSLIB
  19. ;
  20. REVCAS:    and    7Fh        ; reset high bit
  21.     cp    'a'        ; less than lower-case?
  22.     jp    m,UNCAPS    ; yes, jump to CAPS and return
  23.     jp    CAPS        ; otherwise, jump to UNCAPS and return
  24. ;
  25.     end
  26.