[Assembleur 390] Instruction NC et TR

Salut à tous,

Je doit convertir un programme assembleur en code VB et j'aurais besoin d'un petit coup de main de traduction.

Le programme est en assembleur 390 (IBM MVS) et voila les 2 bouts de codes qui me posent des problèmes :

Code:

---

1 2	NC 0(12,R1), MAGC12

---

R1 contenant "066070060737"
et
la "fonction" MAGC12 est ;

Code:

---

DC X'0F1F2F0F1F2F0F1F2F0F1F2F'

---

La fonction DC génère une chaine
J'ai cru comprendre que la fonction NC etait un AND mais je vois pas trop le AND boolean de 2 chaines :?

on peut voir que la chaine R1 contient 12 caractères, et la chaine suivante 12 valeurs hexadécimales, mais j'ai pas compris plus.

Second problème :

Le resultat de cette fonction NC passe ensuite dans ;

Code:

---

TR 0(12,R1),TABNUM

---

TABNUM etant :

Code:

---

1 2 3 4

DC X'03041014010511150206000000000000' DC X'11020406101214160103000000000000' DC X'14010203040506071011000000000000' DC X'00010203040506071011000000000000'

---

Que fais ce TR ?

Tabnum est un tableau je suppose...

PS : j'ai compris que le 0(12,R1) etait simplement :arrow: 12 caractère de R1 à partir du caractère 0 (début de chaine)

Merci d'avance, si quelqu'un peut m'aider.

@+

Gaël

J'ai jamais vu ce genre de trucs ^^ Puisque ce sont des opérations sur des chaines, ca peut très bien être un and bit a bit, octet par octet. Enfin bref, je n'ai aucune solution. Tu n'as pas moyen d'émuler ou de tester les valeurs ? Tu as essayé google ?

Merci de ta réponse.

J'ai effectivement regardé sur google mais très peu de site traite de ce sujet (de l'ordre d'une dizaine grand max)

Après avoir fait des tests voila ce que j'obtiens :

En code EBCDIC (equivalent ASCII de chez IBM) les codes F0,F1,F2,F3 (et oui il faut inverser !!!) représente le caractère 0,1,2,3 le code 03 indique END Of Text.

Et la suite logique c'est celle si ;

En fait on prends dans TABNUM :

Code:

---

1 2 3 4

DC X'03041014010511150206000000000000' DC X'11020406101214160103000000000000' DC X'14010203040506071011000000000000' DC X'00010203040506071011000000000000'

---

La ligne correspondant à 0,1,2 ou 3 ou rien si "End Of Text"
La colonne correspondant à la valeur R1 ("066070060737")

Donc pour 1 exemple concret :
on prend le 0 de R1 ce qui correspond à 0F dans mon MAGC12 et donc on prend la ligne 0 colonne 0, la valeur retenue est donc 03

ensuite on prends le 6 -> 1F -> ligne 1 colonne 6 -> 14

la chaine est donc 0314....

etc...etc....

Qui a dit capilotracté ?

Bonjour !

Pourrais-tu donner l'un ou l'autre lien, S.V.P. ?
Ce serait intéressant car Google est en effet à peu près muet sur la question.

Je n'ai malheuresement pas de lien à te fournir, car j'avais simplement quelques resultats de ce traitement et les données en entrées grace auquel j'ai pu extrapoler la transformation adéquat mais uniquement à "l'instinct" donc je ne sais pas exactement ce que font ces 2 fonctions NC et TR....

NC semblerait etre une espece de décalage de registre mais comment ca fonctionne....:koi:
TR semblerait etre un Translate qui transforme un jeu de valeur en fournissant des coordonnées dans le tableau...

Bonjour,

Aurais tu les quelqus instructions qui ornent ces deux là ?


Blustuff.

J'en ai 3 pages, mais pour des raisons de données confidentielles je ne peux pas mettre le code précis,

voila la liste des instructions et ce que j'en ai compris :


Les affectations

:arrow: L
:arrow: LA
:arrow: DC

L et LA est une affectation
DC semble etre utilisé pour toutes les chaines et prends 1 argument


L A,B met la valeur de B dans A
LA A,1 met 1 dans A

L prends 2 variables
LA prends une variable et une valeur

DC C'S'
DC X'SALUT'

DC C semble généré 1 caractère
DC X semble généré une chaine


Les manipulations de chaines :

:arrow: MVC
:arrow: MVI

MVC et MVI sont des opérations de décalage de chaine
MVC (Move Character) est utilisé pour déplacé une chaine dans une autre chaine ayant en argument 2 variables.

MVI (Move Immediate) est utilisé pour déplacé une chaine dans une autre chaine ayant en argument 1 variable et une chaine (et non une variable contenant la chaine).

Exemple :
MVI 0(A),C'0' Met le caractère "0" à la premiere position dans la variable A

LA B,C'0'
MVC 0(A),0(B) Met le caractère "0" à la premiere position dans la variable A

Les opérations numériques

:arrow: SR

SR = Soustraction (Substract Registry)

SR A,A remet à 0 la variable A

:arrow: AR

AR : addition (Add Registry)
AR B,2 ajoute 2 à B


Les comparaisons logiques :

:arrow: CLC
:arrow: CLI

CLC (Compare .... Character) compare 2 variables chaine
CLI (Compare .... Immediate) compare une chaine et une valeur

Exemple :
CLC A,B
CLI A, C'0'

Les sauts conditionnels :

:arrow: BNE
:arrow: BE
:arrow: BZ
:arrow: BL

BNE (Bump non Equal) saut si la condition n'est pas rempli avant le dernier CLI, CLC ou autre
BE Bump Equal

BL et BZ :?:

Les retours de saut :

:arrow: BR

BR (.... Return) retourne dans la fonction appellante avec un argument en retour.

Exemple : BR A

J'ai finalement trouvé une page intéressante :

http://www.simotime.com/simoi370.htm#ProblemState

donc CLC et CLI c'est Compare Logical Characters et Compare Logical Immediate