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-56
Compilation Summary
16. (p10) br.cond.dpnt.many .b1_14
16. add r20=608,sp
16. ld8 r34=[r20]
16. nop
16. sub r35=r0,r34
16. nop
16. sxt4 r36=r35
16. add r20=632,sp
16. st8 [r20]=r36
16. nop
16. nop
16. nop
16. br.cond.sptk.many .b1_15
16. .b1_14:
16. add r20=616,sp
16. ld8 r34=[r20]
16. nop
16. nop
16. nop
16. mov r35=r34
16. add r20=632,sp
16. st8 [r20]=r35
16. nop
16. .b1_15:
16. add r20=632,sp
16. ld8 r34=[r20]
16. nop
16. nop
16. zxt4 r35=r34
16. zxt2 r36=r35
16. add r37=@gprel(pack_TESTT_D_#),gp
16. st2 [r37]=r36
17. IF D = 0 THEN DISPLAY " SUNDAY" ELSE
17. nop
17. add r38=@gprel(pack_TESTT_D_#),gp
17. ld2 r39=[r38]
17. nop
17. nop
17. zxt2 r40=r39
17. nop
17. cmp4.ne p8,p0=r40,r0
17. add r19=0,r0
17. (p8) add r19=1,r0
17. add r20=640,sp
17. st8 [r20]=r19
17. nop
17. nop
17. nop
Example 22-20. Symbolic Code Listing (page 9 of 23)