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-67
Compilation Summary
23. mov r52=r39
23. mov r53=r40
23. mov r54=r41
23. mov r55=r42
23. mov r56=r43
23. nop
23. br.call.sptk b0=COBLIB_DISPLAY_#
23. add r20=496,sp
23. ld8 r34=[r20]
23. nop
23. mov gp=r34
24. END-IF
25. END-IF
26. END-IF
27. END-IF
28. END-IF
29. END-IF
29. nop
29. nop
29. .b1_42:
29. add r34=@gprel(pack_TESTT_STD-DATE_#),gp
29. ld4 r35=[r34]
29. nop
29. nop
29. nop
29. zxt4 r36=r35
29. add r37=1,r0
29. nop
29. zxt4 r38=r37
29. add r39=r36,r38
29. movl r40=0x0ffffffff
29. cmp.leu p8,p0=r39,r40
29. add r19=0,r0
29. (p8) add r19=1,r0
29. add r20=752,sp
29. st8 [r20]=r19
29. nop
29. nop
29. nop
29. (p8) br.cond.dpnt .b1_43
29. add r34=2,r0
29. break 2
29. nop
29. .b1_43:
29. add r34=@gprel(pack_TESTT_STD-DATE_#),gp
29. ld4 r35=[r34]
29. nop
29. nop
29. nop
29. add r36=1,r35
29. add r37=@gprel(pack_TESTT_STD-DATE_#),gp
29. st4 [r37]=r36
29. nop
29. nop
29. nop
29. br.cond.sptk.many .b1_5
30. END-PERFORM.
31. STOP RUN.
Example 22-20. Symbolic Code Listing (page 20 of 23)