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

23. nop
23. st8 [r45]=r0
23. add r46=32,sp
23. nop
23. st8 [r46]=r0
23. add r47=40,sp
23. nop
23. st8 [r47]=r0
23. mov r49=r35
23. mov r50=r36
23. mov r51=r38
23. nop
23. nop
23. nop
23. nop
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.
31. .b1_8:
31. nop
31. nop
31. br.call.sptk b0=COBLIB_STOP_#
31. add r20=496,sp
31. ld8 r34=[r20]
31. nop
31. mov gp=r34
790 Creating and Compiling HP COBOL Source Programs