home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol021 / keyin.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  874 b   |  39 lines
  1. ;===================================================
  2. ;  PROGRAM TITLE:    KEYIN
  3. ;
  4. ;  WRITTEN BY:    RAYMOND E. PENLEY
  5. ;  DATE WRITTEN:    14 APRIL 1980
  6. ;            modified for Pascal/Z vers 3.0
  7. ;            8 May 1980
  8. ;
  9. ;  SUMMARY:
  10. ;    Keyin reads the Console directly. It
  11. ;    bypasses the CCP and goes to the Console
  12. ;    routine through the BIOS.
  13. ;    It will work with both CP/M ver 1.4 and ver 2.0
  14. ;
  15. ;CALL AS:
  16. ;
  17. ;    PROCEDURE KEYIN(VAR X:char); EXTERNAL;
  18. ;
  19. ;
  20.     NAME    KEYIN
  21. ;
  22.     ENTRY    KEYIN
  23. ;
  24. KEYIN:
  25.     CALL    $K2    ;---Char returns in "A" reg
  26.     POP    D    ;---return addr to DE
  27.     POP    H    ;---param addr to HL
  28.     MOV    M,A    ;---Store char (HL)
  29.     XRA    A    ;---Satisfy Pascal/Z. LET A:=0
  30.     XCHG        ;---HL := DE
  31.     PCHL        ;---Done, return
  32. ;
  33. $K2:    LHLD    1    ;---BIOS address
  34.     LXI    D,6    ;---CONIN offset
  35.     DAD    D    ;---Add in offset
  36.     PCHL        ;---Continue from here
  37.     ;
  38. ;===================================================
  39.