home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG091.ARK / QCHEK.MAC < prev    next >
Text File  |  1984-04-29  |  777b  |  35 lines
  1.     TITLE QCHEK
  2.     SUBTTL JULY 1981
  3.     PUBLIC    QCHEK
  4. ;
  5. ; Written by Victor De Pinto
  6. ; Revised July 1981
  7. ;
  8. DOS    EQU    5    ;CPM ENTRY POINT
  9. ;
  10. ;CHECK FOR 'Q' FROM CONSOLE
  11. ;Subroutine. Parameter is a logical variable.
  12. ;Returns logical .TRUE. if 'Q' was typed
  13. ;
  14. QCHEK:    PUSH    H    ;SAVE HL. IT POINTS TO PARAMETER
  15.     MVI    C,0BH    ;FUNCTION CODE FOR CONSOLE STATUS CHECK.
  16.     CALL    DOS    ;CPM WILL PUT FF IN ACC IF CHARACTER; OTHERWISE 00
  17.     ORA    A
  18.     JZ    NOTQ
  19.     MVI    C,1    ;A CHAR. WAITS GET IT AND SEE IF IT IS 'Q'
  20.     CALL    DOS    ;CALL CPM WITH CONSOLE INPUT CODE
  21.     CPI    'Q'    ;SEE IF CHARACTER IS 'Q'
  22.     JZ    Q
  23.     CPI    'q'
  24.     JZ    Q
  25. NOTQ:    POP    H    ;GET PARAMETER POINTER
  26.     XRA    A    ;SET PARAMETER TO .FALSE.
  27.     MOV    M,A
  28.     RET
  29. Q:    POP    H    ;GET PARAMETER POINTER
  30.     MVI    A,0FFH    ;SET PARAMETER TO .TRUE.
  31.     MOV    M,A
  32.     RET
  33. ;
  34.     END
  35.