.TITLE ASKL ; ; .IDENT /Y07.10/ ; ; ; .ENABL LC ; ; ; Copyright (C) Shell Research Ltd. 1979 ; ; ; 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 ; ; ; Author: R J Carpenter 12-Nov-79 ; ; ; Revised: R J Carpenter 21-Mar-84 ; ; .page .sbttl user called routine ; ; .psect $ask$ ; .dsabl gbl ; .globl iskfl,$askac ; .enabl lsb ; iaskl:: askl:: movb qclc,-(sp) ;save current upper/lower case flag movb #377,qclc ;say want upper to lower conversion call $askac ;call arg. checker call iskfl ;cal F4 routine movb (sp)+,qclc ;restore entry upper/lower case flag return ;return to caller ; ; .end