.TITLE ASKCZD ; ; .IDENT /Y07.00/ ; ; ; .ENABL LC ; ; ; Copyright (C) Shell Research Ltd. 1982 ; ; ; The copyright in this computer program and associated user ; instructions contained in this document is the property of ; Shell Research Ltd.. No guarantee is given or may be implied ; as to the adequacy of the program or its suitability for any ; particular purpose and no liability is accepted for any loss ; or damage arising out of its use. ; ; ; ; Version: Y07 ; ; ; Original author: R J Carpenter 28-Apr-82 ; ; ; This version: Ray Carpenter 29-Mar-84 ; ; .PAGE .SBTTL DESCRIPTION ; ; ;++ ; This module provides a capability for a user to deal with ^Z inputs ; while using an ASK routine. The normal i.e. default condition, is that ; if ASK detects a ^Z input it will treat it as an end-of-input command ; and kill the job. This may not always be satisfactory. To avoid that ; situation the user may call this routine. One argument may be supplied, ; i.e. is a LOGICAL*1 or LOGICAL*4 variable or constant which ; determines whether ^Z means kill job or is an illegal character (.FALSE. ; = kill and .TRUE. = illegal). ; ; Calling procedure:-- ; ; CALL ASKCZD([QCZAF]) ; ; Where:- ; ; QCZAF = A logical variable or constant. If QCZAF is .TRUE. ; then ^Z's are treated as illegal input. If QCZAF ; is .FALSE. then ^Z's are treated as end-of-task. ; If omitted, then no change in the treatment of ; ^Z's occurs. ; ;-- ; ; .PAGE .SBTTL MACROS AND DEFINITONS ; ; .PSECT $ASK$ ; .DSABL GBL ; ; .PAGE .SBTTL ASKCZd ; ; ASKCZD:: mov (r5),r0 ;get # of args into r0 beq exit ;get out if no args cmp 2(r5),#-1 ;valid addr. ? beq exit ;br if not movb @2(r5),qctrlz ;copy users flag value exit: return ; .end