home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol027 / getchar.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  520 b   |  23 lines
  1. ;    THIS IS A ROUTINE WHICH WILL INPUT ONE CHARACTER
  2. ;    FROM THE CONSOLE AND RETURN IT TO THE PASCAL
  3. ;    PROCEDURE.  A CP/M CALL IS USED TO ACTUALLY INPUT
  4. ;    THE CHARACTER.
  5. ;
  6. ;    THIS FUNCTION SHOULD BE DECLARED EXTERNAL IN THE
  7. ;    PASCAL PROGRAM
  8. ;
  9. ;    FUNCTION GETCAR : CHAR; EXTERNAL;
  10. ;
  11.      NAME GETCAR
  12.      ENTRY     GETCAR
  13. CREAD:    EQU  1
  14. GETCAR:   PUSH H
  15.           MVI  C,CREAD
  16.           CALL 5
  17.           MOV  E,A
  18.           XRA  A
  19.           MOV  D,A
  20.           POP  H
  21.           RET
  22.  
  23.