home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / zcpr33 / syslbsrc.lbr / SCAPINE.ZY0 / SCAPINE.ZY0
Text File  |  1989-09-17  |  1KB  |  37 lines
  1. ;    TITLE    "SCAPINE - Syslib 4.0"
  2.     NAME    ('CAPINE')
  3. ;=================================================================
  4. ;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
  5. ;-----------------------------------------------------------------
  6. ; Author  : Harold F. Bower
  7. ;        Derived from SCAPIN.Z80 Ver 1.1 by Richard Conn
  8. ; Date    : 17 Sep 89
  9. ; Version : 1.2
  10. ; Module  : SCAPINE
  11. ; Abstract:  This module contains the routine CAPINE Gets a char
  12. ;    in capital letters from the CON: device and echoes it.
  13. ; Revision:
  14. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  15. ; Module Entry Points
  16.  
  17.     PUBLIC        CAPINE
  18.  
  19. ; From SYSLIB Get..
  20.  
  21.     EXT        CAPIN, COUT
  22.  
  23.     .Z80
  24.     CSEG
  25. ;===============================================================
  26. ; NAME - CAPINE - Get char, capitalize and echo
  27. ; Entry: - None
  28. ; Exit :  A - Contains the capitalized char read from CON:
  29. ; Uses : AF
  30. ; Special Requirements: None
  31. ;===============================================================
  32.  
  33. CAPINE:    CALL    CAPIN        ; Get char
  34.     JP    COUT
  35.  
  36.     END
  37.