;    THIS IS A ROUTINE WHICH WILL INPUT ONE CHARACTER
;    FROM THE CONSOLE AND RETURN IT TO THE PASCAL
;    PROCEDURE.  A CP/M CALL IS USED TO ACTUALLY INPUT
;    THE CHARACTER.
;
;    THIS FUNCTION SHOULD BE DECLARED EXTERNAL IN THE
;    PASCAL PROGRAM
;
;    FUNCTION GETCAR : CHAR; EXTERNAL;
;
    NAME GETCAR
    ENTRY     GETCAR
CREAD:    EQU  1
GETCAR:   PUSH H
         MVI  C,CREAD
         CALL 5
         MOV  E,A
         XRA  A
         MOV  D,A
         POP  H
         RET