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

19. nop
19. nop
19. mov r52=r39
19. mov r53=r40
19. mov r54=r41
19. mov r55=r42
19. mov r56=r43
19. nop
19. br.call.sptk b0=COBLIB_DISPLAY_#
19. add r20=496,sp
19. ld8 r34=[r20]
19. nop
19. mov gp=r34
19. nop
19. br.cond.sptk.many .b1_42
20. IF D = 3 THEN DISPLAY " WEDNESDAY" ELSE
20. .b1_22:
20. add r34=@gprel(pack_TESTT_D_#),gp
20. ld2 r35=[r34]
20. nop
20. nop
20. zxt2 r36=r35
20. nop
20. cmp4.ne p8,p0=3,r36
20. add r19=0,r0
20. (p8) add r19=1,r0
20. add r20=688,sp
20. st8 [r20]=r19
20. nop
20. nop
20. nop
20. (p8) br.cond.dpnt.many .b1_25
20. mov r34=r0
20. add r35=480,sp
20. add r36=r35,r34
20. add r37=@ltoff($cob_internal$10#),gp
20. ld8 r38=[r37]
20. add r39=11,r0
20. nop
20. mov r49=r36
20. mov r50=r38
20. mov r51=r39
20. add r20=696,sp
20. nop
20. st8 [r20]=r34
20. nop
20. br.call.sptk b0=_SharedMilli_MOVB_FWD_NOOVERLAP#
20. add r20=496,sp
20. ld8 r34=[r20]
20. nop
20. mov gp=r34
20. movl r35=0xd000000000000000
20. nop
20. nop
20. add r36=480,sp
20. add r20=696,sp
20. ld8 r37=[r20]
20. nop
20. nop
20. nop
20. add r38=11,r37
20. mov r39=r0
20. mov r40=r0
20. mov r41=r0
20. nop
20. nop
20. mov r42=r0
20. mov r43=r0
20. add r44=16,sp
20. nop
20. st8 [r44]=r0
20. add r45=24,sp
20. nop
20. st8 [r45]=r0
20. add r46=32,sp
20. nop
20. st8 [r46]=r0
20. add r47=40,sp
20. nop
20. st8 [r47]=r0
20. mov r49=r35
786 Creating and Compiling HP COBOL Source Programs