help me please (in french) 
Author Message
 help me please (in french)

Voici quelques corrections votre programme. J'ai entour mes
commentaires entre 2 lignes des traits d'union. Puisqu'il y avait
ainsi beaucoup d'erreurs de programmation de base je n'ai pas
examin la logique. Voici un lien que vous pouvez employer pour
traduire le fran?ais en anglais et anglais en fran?ais. Je l'avais
l'habitude pour traduire ces phrases.

http://www.*-*-*.com/

Quote:
> * utilisation des registres:                    *
> * #10 = booleen pour voir si appel 1 ou 2       *
> *                                               *

> CSECT2  CSECT
>         STM     14,12,12(13)
>         BALR    3,0
>         USING   *,3
>         * mettre les lignes d'edition a blanc *
>         MVC     LGN,BLA
>         MVC     LGN2,BLA

-------------------------------------------------------------
Error: LNG is 80 bytes, BLA is 1 byte.  A MVC instruction must have
source and target fields equal length.
-------------------------------------------------------------
Quote:
>         ST      13,SAVEAP+4
>         LA      12,SAVESP
>         ST      12,8(13)
>         LR      13,12
>         L       13,4(13)
>         LM      14,13,12(13)
>         * voir si 1er appel ou 2eme *
>         C       10,=X'1'

-------------------------------------------------------------
Error: A compare instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------
Quote:
>         BNE     APPEL2
>         * sortir l'engt de depart *
> APPEL1  LA      1,1(1)
>         MVC     LGN1+1,0(30,1)

-------------------------------------------------------------
Error: The MVC instruction has only one length value, the length of the
target field.  The "30," should be removed.
-------------------------------------------------------------
Quote:
>         XPRNT   LGN1,31
>         B       FIN
>         * sortir la base de depart, le nbre de depart et le nbre converti *
> APPEL2  C       11,=X'1'

-------------------------------------------------------------
Error: A compare instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------

Quote:
>         BNE     DEC
>         * cas de Binaire -> decimal *
> BIN     MVC     LGN2+1(8),=C'BINAIRE '

>         * cas de decimal -> binaire *
> DEC    
> RETOUR  LM      14,12,12(13)
>         BR      14

>         END
> * declaration des variables *
> ENGT    DS      CL80      
> LGN1    DC      CL31
> LGN2    DC      CL80
> BLA     DC      C' '
> SAVESP  DS      18F
> MASK    DC      X'402021202020202020'

==============================================================

- Show quoted text -

Quote:
> * UTILISATION DES REGISTRES:          *
> * #1=utilis? par le TRT               *
> * #4=calcul de la puissance           *
> * #5=Debut de l'engt                  *
> * #6=Fin de l'engt                    *
> * #7=utilis? pour la v?rification     *
> * #9=adresse de ligne                 *
> * #10= booleen (=1 pour 1er appel     *
> *      de la sortie et =2 sinon )     *
> * #11= 1 si binaire, sinon 2          *
> ***************************************        

>         TITLE   'CONVERTION B->D / D->B'
> CSECT1  CSECT   *MAIN*
>         BALR    3,0
>         USING   *,3
>         XFILI   =C'AIQ9804.DAT'
>         XFILO   =C'AIQ9804.LST'
>         XREAD   ENGT,80
>         MVC     LGNERR,BLA

-------------------------------------------------------------
Error: LNGERR is 80 bytes, BLA is 1 byte.  A MVC instruction must have
source and target fields equal length.
-------------------------------------------------------------
Quote:
> * recherche de l'enregistrement et de son type *
>         TRT     ENGT,SEEKB      * recherche du B *
>         BZ      D
>         B       BINAIRE
> D       TRT     ENGT,SEEKD      * recherche du D *
>         BZ      ERROR1          * l'engt ne commence ni par D ni par B *
>         B       DECIMAL

> * analyse de la base et convertion *
> * binaire *

> BINAIRE LA      5,1(1)           * #5= adresse du premier caractere binaire *
>         * 1er appel de la csect2 *  
>         L       10,=X'1'         * mettre 1 ds #10 car 1er appel *
>         L       11,=X'1'

-------------------------------------------------------------
Error: A load instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.  A
better solution is to use the load address instruction.  You can use it
to initialize a register to a value up to 4095.
-------------------------------------------------------------
Quote:
>         ST      14,SAVE14
>         LA      13,SAVEAP
>         L       15,=V(SP)              
>         BALR    14,15

>         C       5,=C'1'

-------------------------------------------------------------
Error: A compare instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------

- Show quoted text -

Quote:
>         BH      COMPL            * nombre negatif *        
>         * trouver la fin de l'engt *
>         TRT     0(30,5),TFINB
>         LR      6,1
>         SR      1,5
>         CVD     1,LONG
>         * verifier que l'engt n'est compose que de 0 et de 1 *
>         ZAP     INDICE,=P'1'
>         ZAP     I,=P'0'
>         LR      7,5
> BCL     CP      INDICE,LONG
>         BNL     SUITE
>         TRT     0(1,7),TBIN
>         BZ      ERROR2           * L'engt n'est pas compose que de 0 et 1 *
>         LA      7,1(0,7)
>         AP      INDICE,=P'1'
>         B       BCL
> SUITE   C       5,=C'1'
>         BH      COMPL            * nombre negatif *        
> BCL2    CR      5,6
>         BE      FINBIN
>         CVB     I,4

-------------------------------------------------------------
Error: A CVB instruction always specifies the register first.  The
correct form is "CVB 4,I".  The field "I" must be 8 bytes long and it
must be aligned on a doubleword boundary.  Specify it as "I  DS  D".
-------------------------------------------------------------
Quote:
> IF      C       6,=C'1'

-------------------------------------------------------------
Error: A compare instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------
Quote:
>         BNE     ENDIF
> BCLPUI  AP      NOMBRE,=P'2'        
>         BCT     4,BCLPUI         * calcul de l'exposant *
> ENDIF   AP      I,=P'1'
>         BCTR    6,0              * adresse precedante *
>         B       BCL2
> COMPL   * utiliser un TR ? *        
> FINBIN  * appeler la csect2 *

> * decimal *

> DECIMAL LA      5,1(1)           * #5= adresse du premier caractere ZONED *
>         * 1er appel de la csect2 *
>         L       10,=X'1'         * mettre 1 ds #10 car 1er appel *

-------------------------------------------------------------
Error: A load instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------

- Show quoted text -

Quote:
>         ST      14,SAVE14
>         LA      13,SAVEAP
>         L       15,=V(SP)              
>         BALR    14,15

>         * trouver la fin de l'engt *
>         TRT     0(30,5),TFIND
>         LR      6,1
>         SR      1,5
>         CVD     1,LONG
>         * verifier que l'engt est bien du zoned *
>         ZAP     INDICE,=P'1'
>         ZAP     I,=P'0'
>         LR      7,5
> BCL3    CP      INDICE,LONG
>         BNL     SUITE2
>         TRT     0(1,7),TDEC
>         BZ      ERROR3           * L'engt n'est pas du ZONED *
>         LA      7,1(0,7)
>         AP      INDICE,=P'1'
>         B       BCL3
>         LA      9,LGN
> SUITE2  PACK    NOMBRE,          * comment packer le nombre sur une longueur LONG??? *      
>         CP      NOMBRE,=P'0'
>         BL      DECNEG
> DECPOS  DP      NOMBRE,=P'2'
>         ZAP     RESTE,NOMBRE+7(1)
>         ZAP     NOMBRE,NOMBRE(7)
>         CP      RESTE,=P'1'  
>         BL      ZERO
>         L       9(1),=P'1'

-------------------------------------------------------------
Error: A load instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------
Quote:
>         B       CARSVT
> ZERO    L       9(1),=P'0'

-------------------------------------------------------------
Error: A load instruction must have the storage field equal to the
length of the register which is 4 bytes.  The field should be =F'1'.
-------------------------------------------------------------

- Show quoted text -

Quote:
> CARSVT  LA      9,1(9)
>         B       DECPOS
> DECNEG  * ???? *
> FINDEC  TR     LGN,TABINV       * inverser les 0 et les 1 *

>         END
> * declaration des variables *

> ENGT    DC      CL80
> SEEKB   DC      194X'0',X'B',61X'0'
> SEEKD   DC      196X'0',X'D',59X'0'
> TBIN    DC      240X'0',2X'1',14X'0'
> TFIND   DC      64X'0',X' ',191X'0'
> TFINB   DC      64X'0',X' ',191X'0'
> TDEC    DC      192X'0',10X'C',6X'0',10X'D',16X'0',10X'F',6X'0'    
> TABINV  DC      * ????????????????????? *
> LONG    DC      PL2
> INDICE  DC      PL2
> I       DC      PL2
> LGN     DC      CL30
> SAVEAP  DS      18F
> LGNERR  DC      CL80
> BLA     DC      CL' '

---== http://www.*-*-*.com/ - Largest Usenet Server In The World! ==---

---== http://www.*-*-*.com/ - Largest Usenet Server In The World! ==---



Thu, 21 Jun 2001 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Please help a french guy !!!

2. Please help a french guy !!!

3. please, please, please, please, help

4. will someone please, please, please, please HELP me?!!

5. ANNOUNCE [In French] a French Tutorial on Smalltalk-80 via WWW

6. VSE 3.1 Repository Problem: Please help (please please?)

7. PLEASE PLEASE PLEASE HELP !!!!!!!!!!!!

8. please,please please do help us

9. help please-----please help about array in DLL

10. HELP !..PLEASE,PLEASe,PLEAse,PLEase,PLease,Please,please.....

11. Ord Function HELP Please HELP HELP HELP

12. Help- Apprenticeship in India for French Engineering Students

 

 
Powered by phpBB® Forum Software