1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
|
/* Ici est l'instruction qui teste si w-tally est supérieur à 0 et qui va en fin de boucle si cela ne l'est pas (GLB.60) */
IF
00000416 0FB71590010000 movzx edx,%GWA+00000190 : W-TALLY
0000041D 0FCA bswap edx
0000041F C1EA10 shr edx,10
00000422 0FBFD2 movsx edx,dx
00000425 83FA00 cmp edx,00
00000428 0F8EXXXXXXXX jle GLB.60
/*
* Ici commence la boucle perform On initialise W-i
*/
--- 39 --- PERFORM
0000042E 0FBF0538000000 movsx eax,%COA+00000038 : +00001
00000435 83F800 cmp eax,00
00000438 7DXX jge GLB.16
0000043A F7D8 neg eax
0000043C GLB.16
00000439 02
0000043C 0FC8 bswap eax
0000043E C1E810 shr eax,10
00000441 66A392010000 mov %GWA+00000192,ax : W-I
00000447 EBXX jmp GLB.19
/*
* Fin Initialisation w-i
*/
/*
* GLB.17 est le point de retour de la boucle perform
* Il ne s execute pas au premeir passage et consiste à incrementer w-i
* Au premier passage on passe directement à GLB.19
*/
00000449 GLB.17
00000449 0FB71592010000 movzx edx,%GWA+00000192 : W-I
00000450 0FCA bswap edx
00000452 C1EA10 shr edx,10
00000455 6683C201 add dx,01
00000459 0FBFCA movsx ecx,dx
0000045C 83F900 cmp ecx,00
COBOL97 V50L10 REPCSV MON APR 18 08:50:38 2016 0007
ADDR OBJECT CODE LABEL INSTRUCTION
0000045F 7DXX jge GLB.18
00000461 F7D9 neg ecx
00000463 GLB.18
00000460 02
00000463 0FC9 bswap ecx
00000465 C1E910 shr ecx,10
00000468 66890D92010000 mov %GWA+00000192,cx : W-I
/*
* Debut de test pour mettre fin à la boucle perform
*/
0000046F GLB.19
00000448 26
0000046F 0FB71590010000 movzx edx,%GWA+00000190 : W-TALLY
00000476 0FCA bswap edx
00000478 C1EA10 shr edx,10
0000047B 0FB70592010000 movzx eax,%GWA+00000192 : W-I
00000482 0FC8 bswap eax
00000484 C1E810 shr eax,10
00000487 6639D0 cmp ax,dx
0000048A 0F8FXXXXXXXX jg GLB.60
/*
* A ce niveau on va en fin de boucle (GLB.60) la meme que celle du test w-tally >0 si w-i est supérieur à w-tally
*/
--- 41 --- INSPECT |
Partager