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

22. st8 [r46]=r0
22. add r47=40,sp
22. nop
22. st8 [r47]=r0
22. mov r49=r35
22. mov r50=r36
22. mov r51=r38
22. nop
22. nop
22. nop
22. nop
22. mov r52=r39
22. mov r53=r40
22. mov r54=r41
22. mov r55=r42
22. mov r56=r43
22. nop
22. br.call.sptk b0=COBLIB_DISPLAY_#
22. add r20=496,sp
22. ld8 r34=[r20]
22. nop
22. mov gp=r34
22. nop
22. br.cond.sptk.many .b1_42
23. IF D = 6 THEN DISPLAY " SATURDAY" END-IF
23. .b1_31:
23. add r34=@gprel(pack_TESTT_D_#),gp
23. ld2 r35=[r34]
23. nop
23. nop
23. zxt2 r36=r35
23. nop
23. cmp4.ne p8,p0=6,r36
23. add r19=0,r0
23. (p8) add r19=1,r0
23. add r20=736,sp
23. st8 [r20]=r19
23. nop
23. nop
23. nop
23. (p8) br.cond.dpnt.many .b1_42
23. mov r34=r0
23. add r35=480,sp
23. add r36=r35,r34
23. add r37=@ltoff($cob_internal$13#),gp
23. ld8 r38=[r37]
23. add r39=10,r0
23. nop
23. mov r49=r36
23. mov r50=r38
23. mov r51=r39
23. add r20=744,sp
23. nop
23. st8 [r20]=r34
23. nop
23. br.call.sptk b0=_SharedMilli_MOVB_FWD_NOOVERLAP#
23. add r20=496,sp
23. ld8 r34=[r20]
23. nop
23. mov gp=r34
23. movl r35=0xd000000000000000
23. nop
23. nop
23. add r36=480,sp
23. add r20=744,sp
23. ld8 r37=[r20]
23. nop
23. nop
23. nop
23. add r38=10,r37
23. mov r39=r0
23. mov r40=r0
23. mov r41=r0
23. nop
23. nop
23. mov r42=r0
23. mov r43=r0
23. add r44=16,sp
23. nop
23. st8 [r44]=r0
23. add r45=24,sp
Understanding and Controlling the Compiler Listing 789