COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

3. add r41=32768,r0
3. and r42=r40,r41
3. nop
3. cmp4.ne p8,p0=r42,r0
3. add r19=0,r0
3. (p8) add r19=1,r0
3. add r20=568,sp
3. st8 [r20]=r19
3. nop
3. nop
3. nop
3. (p8) br.cond.dpnt.many .b1_4
3. add r34=@ltoff(__PUCB__TESTT#),gp
3. ld8 r35=[r34]
3. nop
3. add r36=30,r35
3. ld2 r37=[r36]
3. nop
3. nop
3. nop
3. zxt2 r38=r37
3. add r39=46080,r0
3. or r40=r38,r39
3. nop
3. nop
3. nop
3. zxt2 r41=r40
3. add r42=@ltoff(__PUCB__TESTT#),gp
3. ld8 r43=[r42]
3. nop
3. add r44=30,r43
3. nop
3. nop
3. st2 [r44]=r41
4. ENVIRONMENT DIVISION.
5. CONFIGURATION SECTION.
6. SOURCE-COMPUTER. ABD.
7. OBJECT-COMPUTER. ABD.
8. DATA DIVISION.
9. WORKING-STORAGE SECTION.
10. 01 D PICTURE 9 USAGE COMPUTATIONAL.
11. 01 STD-DATE PICTURE 9(8) USAGE COMPUTATIONAL.
12. PROCEDURE DIVISION.
13. STARTT.
14. PERFORM VARYING STD-DATE FROM 20041004 BY 1 UNTIL STD-DATE > 20041010
14. movl r45=0x00131cd2c
14. add r46=@gprel(pack_TESTT_STD-DATE_#),gp
14. st4 [r46]=r45
14. nop
14. .b1_5:
14. add r34=@gprel(pack_TESTT_STD-DATE_#),gp
14. nop
14. nop
14. ld4 r35=[r34]
14. movl r36=0x00131cd32
14. cmp4.gtu p8,p0=r35,r36
14. add r19=0,r0
14. (p8) add r19=1,r0
14. add r20=576,sp
14. st8 [r20]=r19
14. nop
14. nop
14. nop
14. (p8) br.cond.dpnt.many .b1_8
15. DISPLAY STD-DATE
15. nop
15. nop
15. mov r34=r0
15. add r35=@gprel(pack_TESTT_STD-DATE_#),gp
15. ld4 r36=[r35]
15. nop
15. nop
15. nop
15. zxt4 r37=r36
15. add r38=128,r0
15. add r39=472,sp
15. add r40=r39,r34
15. add r41=8,r0
15. mov r49=r38
15. mov r50=r37
15. nop
Understanding and Controlling the Compiler Listing 779