.TITLE ASKERR ; ; .IDENT /X01.03/ ; ; ; .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.03 ; ; ; Original author:R J Carpenter 6-Nov-79 ; ; ; This version: J P Lamargot 10-Sep-82 ; ;+++ ; Traduction des messages en francais. ; Gestion du curseur sur une VT 100 pour ; - Ecriture des messages eventuels sur la 24eme ligne ; - Saisie de la nouvelle reponse au meme endroit que ; celle qui etait erronnee, apres effacement de celle-ci ;--- ; ; .PAGE .SBTTL DESCRIPTION ; ; ;++ ; This FORTRAN calleable module prints the errors involved in the ; use of the ASKx subroutines ;-- ; ; .PAGE .SBTTL MACROS AND DEFINITIONS ; ; .PSECT ASK ; ; .MCALL .PRINT ; ; ;+++ MXASK == 5 ;--- ; ; .PAGE .SBTTL CODE ; ; FORTRAN ENTRY POINT ; ASKERR:: MOV @2(R5),R1 ;GET ERROR CODE INTO R1 BR AE1 ;JOIN COMMON CODE ; ; MACRO ENTRY POINT (WITH ERROR CODE IN R0) ; ASKERM:: MOV R0,R1 ;GET ERROR CODE INTO R1 ; ; REST OF CODE IS COMMON ; AE1: BGT 1$ ;BR IF > 0 CLR R1 ;ELSE CLEAR IT 1$: CMP R1,#MXASK ;ERROR CODE EXCEEDED ? BLE 2$ ;BR IF NOT CLR R1 ;CLEAR IT 2$: ASL R1 ;WORD OFFSET .PRINT #ASKMS0 ;PRINT HEADER MOV ASKLST(R1),R0 ;GET START ADDR. INTO R0 .PRINT ;PRINT IT .PRINT #ASKMS1 ;ASK FOR NEW INPUT RETURN ;RETURN TO CALLER ; ; .PAGE .SBTTL ERROR MESSAGES ; ; .NLIST BEX ;+++ ; ; ASKLST: .WORD ASKER0,ASKER1,ASKER2,ASKER3,ASKER4,ASKER5 ; ; ASKER0: .ASCII /Probleme dans ASK./<200> ASKER1: .ASCII /Reponse incorrecte./<200> .PSECT ASKER,D,GBL,REL,OVR ASKER2: .ASCII /Valeur trop faible (Mini: )./<200> ASKER3: .ASCII /Valeur trop forte (Maxi: )./<200> ASKER4: .ASCII /Texte trop court (Mini: )./<200> ASKER5: .ASCII /Texte trop long (Maxi: )./<200> .PSECT ASKMES,D,GBL,REL,OVR ASKMS0: .ASCII <33>/[24;01H/<33>/[K/<7>/?ASK-F-/<200> ASKMS1: .ASCII / Recommencez SVP : /<33>/8/<33>/[K/<200> ; <7> Rings the bell ; <33>[24;01H Move cursor to line 24, column 1 ; <33>8 Restore cursor ; <33>[K Erase from cursor to end of line ; ; .EVEN ; ; .END