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

17. mov r55=r42
17. mov r56=r43
17. nop
17. br.call.sptk b0=COBLIB_DISPLAY_#
17. add r20=496,sp
17. ld8 r34=[r20]
17. nop
17. mov gp=r34
17. nop
17. br.cond.sptk.many .b1_42
18. IF D = 1 THEN DISPLAY " MONDAY" ELSE
18. .b1_16:
18. add r34=@gprel(pack_TESTT_D_#),gp
18. ld2 r35=[r34]
18. nop
18. nop
18. zxt2 r36=r35
18. nop
18. cmp4.ne p8,p0=1,r36
18. add r19=0,r0
18. (p8) add r19=1,r0
18. add r20=656,sp
18. st8 [r20]=r19
18. nop
18. nop
18. nop
18. (p8) br.cond.dpnt.many .b1_19
18. mov r34=r0
18. add r35=472,sp
18. add r36=r35,r34
18. add r37=@gprel($cob_internal$7#),gp
18. add r38=8,r0
18. mov r49=r36
18. mov r50=r37
18. mov r51=r38
18. add r20=664,sp
18. st8 [r20]=r34
18. nop
18. br.call.sptk b0=_SharedMilli_MOVB_FWD_NOOVERLAP#
18. add r20=496,sp
18. ld8 r34=[r20]
18. nop
18. mov gp=r34
18. movl r35=0xd000000000000000
18. nop
18. nop
18. add r36=472,sp
18. add r20=664,sp
18. ld8 r37=[r20]
18. nop
18. nop
18. nop
18. add r38=8,r37
18. mov r39=r0
18. mov r40=r0
18. mov r41=r0
18. nop
18. nop
18. mov r42=r0
18. mov r43=r0
18. add r44=16,sp
18. nop
18. st8 [r44]=r0
18. add r45=24,sp
18. nop
18. st8 [r45]=r0
18. add r46=32,sp
18. nop
18. st8 [r46]=r0
18. add r47=40,sp
18. nop
18. st8 [r47]=r0
18. mov r49=r35
18. mov r50=r36
18. mov r51=r38
18. nop
18. nop
18. nop
18. nop
18. mov r52=r39
18. mov r53=r40
784 Creating and Compiling HP COBOL Source Programs