home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / readq.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  600 b   |  25 lines
  1. *PROCEDURE READQ( VAR KEY : CHAR );
  2. *                           A PASCAL/Z EXTERNAL PROCEDURE.
  3. * READS THE CONSOLE AND RETURNS THE KEY STRUCK IN THE VARIABLE "KEY"
  4. * ECHOES THE CHARACTER BUT DOES NOT WAIT FOR A CARRIAGE RETURN AS 
  5. * DOES THE PASCAL/Z READ PROCEDURE.
  6.  
  7.  
  8. VBYTES EQU 02              2 BYTES ON THE STACK
  9. KEYADR EQU 09
  10.  
  11.                      EXT CHARIN
  12.                      NAME READQ
  13.                      ENTRY READQ
  14.  
  15. READQ:   ENTR D,2,0
  16.          CALL CHARIN
  17.          MOV H,KEYADR(IX)
  18.          MOV L,KEYADR-1(IX)
  19.          MOV M,A
  20.          EXIT D,VBYTES
  21.  
  22.                       END READQ
  23.  
  24.  
  25.