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

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
17. (p8) add r19=1,r0
17. add r20=640,sp
17. st8 [r20]=r19
17. nop
17. nop
17. nop
17. (p8) br.cond.dpnt.many .b1_16
17. mov r34=r0
17. add r35=472,sp
17. add r36=r35,r34
17. add r37=@gprel($cob_internal$6#),gp
17. add r38=8,r0
17. mov r49=r36
17. mov r50=r37
17. mov r51=r38
17. add r20=648,sp
17. st8 [r20]=r34
17. nop
17. br.call.sptk b0=_SharedMilli_MOVB_FWD_NOOVERLAP#
17. add r20=496,sp
17. ld8 r34=[r20]
17. nop
17. mov gp=r34
17. movl r35=0xd000000000000000
17. nop
17. nop
17. add r36=472,sp
17. add r20=648,sp
17. ld8 r37=[r20]
17. nop
17. nop
17. nop
17. add r38=8,r37
17. mov r39=r0
17. mov r40=r0
17. mov r41=r0
17. nop
17. nop
17. mov r42=r0
17. mov r43=r0
17. add r44=16,sp
17. nop
17. st8 [r44]=r0
17. add r45=24,sp
17. nop
17. st8 [r45]=r0
17. add r46=32,sp
17. nop
17. st8 [r46]=r0
17. add r47=40,sp
17. nop
17. st8 [r47]=r0
17. mov r49=r35
17. mov r50=r36
17. mov r51=r38
17. nop
17. nop
17. nop
17. nop
17. mov r52=r39
17. mov r53=r40
17. mov r54=r41
Understanding and Controlling the Compiler Listing 783