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-62
Compilation Summary
20. add r38=11,r37
20. mov r39=r0
20. mov r40=r0
20. mov r41=r0
20. nop
20. nop
20. mov r42=r0
20. mov r43=r0
20. add r44=16,sp
20. nop
20. st8 [r44]=r0
20. add r45=24,sp
20. nop
20. st8 [r45]=r0
20. add r46=32,sp
20. nop
20. st8 [r46]=r0
20. add r47=40,sp
20. nop
20. st8 [r47]=r0
20. mov r49=r35
20. mov r50=r36
20. mov r51=r38
20. nop
20. nop
20. nop
20. nop
20. mov r52=r39
20. mov r53=r40
20. mov r54=r41
20. mov r55=r42
20. mov r56=r43
20. nop
20. br.call.sptk b0=COBLIB_DISPLAY_#
20. add r20=496,sp
20. ld8 r34=[r20]
20. nop
20. mov gp=r34
20. nop
20. br.cond.sptk.many .b1_42
21. IF D = 4 THEN DISPLAY " THURSDAY" ELSE
21. .b1_25:
21. add r34=@gprel(pack_TESTT_D_#),gp
21. ld2 r35=[r34]
21. nop
21. nop
21. zxt2 r36=r35
21. nop
21. cmp4.ne p8,p0=4,r36
21. add r19=0,r0
21. (p8) add r19=1,r0
21. add r20=704,sp
21. st8 [r20]=r19
21. nop
21. nop
21. nop
Example 22-20. Symbolic Code Listing (page 15 of 23)