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

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