.TITLE ASKS ; ; .IDENT /X01.00/ ; ; ; .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: X01 ; ; ; Original author:R J Carpenter 12-Nov-79 ; ; ; This version: ; ; .PAGE .SBTTL CODE ; ; .GLOBL ASKT,ASK ; ; ASKS:: MOV #ASKT,R2 ;SET UP THE CALL ADDR. FOR CALL ASK ;CALL ARG. CHECKER AND F4 RTN DESPATCHER RETURN ;RETURN TO CALLER ; ; .END