Version imprimable
Bonjour,
Est-ce que c'est possible SVP de m'expliquer ce BIB 100 :
OU S'il y a un lien ou un document qui explique ce BIB 100 seras plus MerciCode:
2
3
4
5
6
7
8
9
10
11
12MODIF CSECT USING *,9 CLC 173(6,11),=C'300400' BE TEST BNER 14 TEST MVC VAR1,177(11) MVC 177(3,11),=C' ' MVC 180(7,11),VAR1 MVC 215(3,11),=C'IBM' BR 14 VAR1 DC C'AAAAAAA' END
Merci Beaucoup
Alors, une réponse 2 ans après... ça servira peut être aux générations futures qui veulent faire de l'assembleur :P
(Je précise je suis novice en Assembleur, merci de me corriger si je dis une bourde)
D'après ce que je comprends, pour la section MODIF, ça cherche dans une chaîne de caractères en colonne 174 (colonne 1 = colonne 0 en ASM), sur 6 caractères de long, la chaîne "300400" au format caractère et ça la stocke dans le registre 11
CLC 173(6,11),=C'300400'
___________________________________________________
La chaîne extraite est stockée dans TEST
BE TEST
___________________________________________________
Pour la section TEST, ça déplace le contenu de VAR1 en colonne 178 depuis le registre 11
MVC VAR1,177(11)
___________________________________________________
Ensuite, on remplace le contenu de la chaîne en colonne 178 sur 3 de long par 3 espaces au format caractère
MVC 177(3,11),=C' '
___________________________________________________
Ensuite on déplace le contenu de VAR1 en colonne 181 sur 7 de long dans la chaîne
MVC 180(7,11),VAR1
___________________________________________________
Ensuite en colonne 216, on écrit IBM au format caractère sur 3 caractères
MVC 215(3,11),=C'IBM'
___________________________________________________
Ensuite on lit le contenu du registre 14
BR 14
___________________________________________________
La section VAR1 jusque END doit être la déclaration de variable utilisée plus haut
VAR1 DC C'AAAAAAA'
END
___________________________________________________
Comme j'ai dit plus haut n'hésitez pas à reprendre les erreurs que j'aurais pu faire, je suis novice en assembleur
___________________________________________________
___________________________________________________
SkyLyn,
Hello,
Attention, moi aussi je débute :)
Je crois qu'il y a méprise sur la notation D(L,B), comme dans CLC 173(6,11)....
La notation D(,B) doit être reconnue comme une adresse mémoire, dont la valeur est stockée dans le registre B (Base register) auquel on ajouté le D (Displacement).
CLC compare deux chaînes de caractères, l'une pointée par le premier argument et la deuxième pointée par le deuxième argument. Autrement dit, CLC compare la chaîne pointée par l'adresse 173(,11), c'est-à-dire la valeur contenue dans le R11+173, et la valeur passée C'300400'. Le Condition Code est testé ensuite par le BE de la ligne suivante.
Le L indique la longueur de la comparaison à effectuer.
Pour info, la bible reste le bouquin "zArchitecture Principles of Operations" :ccool:
J'avais pas vu le BR 14 à la fin ! C'est en fait un BRANCH sur l'adresse contenue dans le registre 14.
Quand un programme est lancé, plusieurs paramètres lui sont donnés, comme par exemple en R1 une liste de paramètres (le forma de cette liste varie selon le mode d'appel), et R13 un pointer vers la save area (zone où le programme appelé peut stocker la valeur des registres de l'appelant) et R14 l'adresse de la prochaine adresse du programme appelant.
Autrement dit, faire un BR 14 équivaut à mettre fin à la procédure en cours et redonner la main au programme appelant, un peu comme un return en C ou exit en Pascal. :)
Le bien connu IEFBR14 tient son nom de ça (enfin je suppose), vu qu'il ne fait rien à part rendre la main au programme appelant.
J'avais cru que 11 était juste le registre de stockage.Citation:
Envoyé par wormful_sickfoot
J'ai testé un programme assembleur dans ce genre et j'ai mis 10 en colonne et c'est bien la colonne 11 qui a changé:roll:
________________________________________
________________________________________
Skylyn,
Tu entends quoi par colonne ? Dans le cas précédent, l'adresse pointe sur la valeur contenue dans R11 + le déplacement soit 173.
Si R11 contient A0000, alors l'adresse pointée est A00AD.
Bonjour,
Je me permets donc d'intervenir : je ne suis pas d'accord avec ton interprétation, et donc même si certes le post est vieux et que le principal intéressé n'a pas vraiment l'air de s'y intéresser, je vais faire mes remarques.Citation:
Envoyé par Skylyn
Aussi, ça fait déjà quelque temps que je n'ai pas fais assembleur, donc n'hésitez pas à corriger aussi.
Alors ça c'est du déclaratif de section, j'ai plus le détail exact des instructions de tête. Ce n'est pas important pour la compréhension globale du traitement (mais ça peut l'être pour la compréhension précise mais avec le contexte : systèmes connexes, paramétrage machine, etc car ça peut changer des petits détails)Code:
2
3MODIF CSECT USING *,9
[/code]Code:
2CLC 173(6,11),=C'300400'
CLC = Compare jesaisplusquoi, c'est un opérateur de comparaison qui compare les 2 opérandes et place le flag de comparaison en conséquence. (le LC permet de préciser les types et spécificités des opérandes, mais pareil, je n'ai plus le détail de tête)
Donc la on compare les 6 caractères à partir du 173ème depuis l'adresse pointée par le registre 11 à la valeur '300400'
BE = Branch Equal : on débranche si le flag de comparaison est positionné à "Egal" (c'est 0 ou 1, mais je ne sais plus dans quel sens il fonctionne celui ci)Code:
2BE TEST
Donc si la comparaison d'avant (le CLC) est vrai alors on débranche sur l'étiquette TEST
BNER = Branch Not Equal to Register : on débranche sur l'adresse pointée par le registre passé en opérande si le flag de comparaison est sur "différent".Code:
2BNER 14
Donc là, si on a pas l'égalité sur la comparaison, alors on débranche sur l'adresse pointée par le R14, qui comme dit par wormful_sickfoot, quitte le programme
Là c'est du move :Code:
2
3
4
5TEST MVC VAR1,177(11) MVC 177(3,11),=C' ' MVC 180(7,11),VAR1 MVC 215(3,11),=C'IBM'
- on stocke les données à partir du 177ème caractère depuis le R11 dans Var1
- on cale 3 caratères de blanc à la place
- on recolle le Var 1 après ces 3 caractères (donc en fait on a juste décalé des données de 3 caractères)
- on colle un "IBM" loin après (en 215)
On sort !Code:
2BR 14
Déclaration de la variable VAR1 (ça c'est un truc bien de l'assembleur : on peut déclarer les variables à la fin :D )Code:
2
FIN !!!!!Code:
2END
Donc globalement, en COBOL ça donnerait un truc du genre :
Le R11 correspond à la donnée pointée par le registre 11 dans le code assembleur : au pif, je dirai bien que c'est le record d'un fichier en entrée.Code:
2
3
4
5
6
7
8
9
10
1177 VAR1 pic X(7) value 'AAAAAAA'. ... MODIF. IF R11(173:6) = '300400' MOVE R11(177:7) TO VAR1 MOVE ' ' TO R11(177:3) MOVE VAR1 TO R11(180:7) MOVE 'IBM' TO R11(215:3). RETURN.
Le USING *,9, c'est pour indiquer que le registre de base dans cette CSECT est le registre 9. C'est important pour la génération du code machine, précisément pour la gestion des symboles et leur remplacement par des offsets et des adresses mémoire.
L'impact est que le registre de base n'est plus utilisable pour autre chose dans la suite du programme.
Défini dans le "Principles of operation" comme :Citation:
Envoyé par Pico-----
COMPARE LOGICAL Storage-and-storage format
Mon interprétation n'était pas si loin :mouarf:
C'est juste que je l'ai expliqué "grosso merdo" quoi
Merci pour les indications supplémentaires et la notion de "GOTO" avec des systèmes de "débranchement"
____________________________________________
____________________________________________
Skylyn,