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

Creating and Compiling HP COBOL Source
Programs
HP COBOL Manual for TNS/E Programs—520347-003
22-51
Compilation Summary
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
Example 22-20. Symbolic Code Listing (page 4 of 23)