home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / PASCALZ4.ZIP / D3 / CONSOL.SRC < prev    next >
Text File  |  1999-04-05  |  768b  |  28 lines
  1. ;CONSOLE ROUTINES
  2. ;
  3.     NAME CONSOL
  4.     ENTRY .CSTS,.CI,.CO
  5.     EXT .POPHDB,.PUSHBD
  6.     INCLUDE DEFLT.SRC
  7. ;
  8. .CSTS    CALL    .PUSHBD        ;SAVE ALL REGISTERS EXCEPT A
  9.     MVI    C,11        ; CP/M CODE FOR CONSOLE STATUS.
  10.     CPM        
  11.     ORA    A        ;TEST A FOR RETURN CODE.
  12.     JZ    .POPHDB
  13.     MVI    A,0FFH
  14.     JMP    .POPHDB
  15.  
  16. ;CONSOLE IN READS AND ECHOS A CHARACTER FROM THE CONSOLE.
  17. .CI    CALL    .PUSHBD        ;SAVE ALL REGISTERS EXCEPT A
  18.     MVI    C,1        ;CP/M CODE FOR CONSOLE READ.
  19.     CPM        
  20.     JMP    .POPHDB        ;RESTORE REGISTERS AND RETURN.
  21.  
  22. ;CONSOLE OUT PROCEDURE PRINTS A CHARACTER PASSED IN REGISTER C ON THE CONSOLE.
  23. .CO    CALL    .PUSHBD        ;SAVE ALL REGISTERS EXCEPT A
  24.     MOV    E,C        ;CP/M WANTS THE CHARACTER IN E.
  25.     MVI    C,2
  26.     CPM        
  27.     JMP    .POPHDB        ;RESTORE REGISTERS AND RETURN.
  28.