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

15. nop
15. mov r51=r40
15. mov r52=r41
15. add r20=584,sp
15. nop
15. st8 [r20]=r34
15. nop
15. br.call.sptk b0=_SharedMilli_CQA#
15. add r20=496,sp
15. ld8 r34=[r20]
15. nop
15. mov gp=r34
15. movl r35=0xd000000000000000
15. nop
15. nop
15. add r36=472,sp
15. add r20=584,sp
15. ld8 r37=[r20]
15. nop
15. nop
15. nop
15. add r38=8,r37
15. mov r39=r0
15. mov r40=r0
15. mov r41=r0
15. nop
15. nop
15. mov r42=r0
15. mov r43=r0
15. add r44=16,sp
15. nop
15. st8 [r44]=r0
15. add r45=24,sp
15. nop
15. st8 [r45]=r0
15. add r46=32,sp
15. nop
15. st8 [r46]=r0
15. add r47=40,sp
15. nop
15. st8 [r47]=r0
15. mov r49=r35
15. mov r50=r36
15. mov r51=r38
15. nop
15. nop
15. nop
15. nop
15. mov r52=r39
15. mov r53=r40
15. mov r54=r41
15. mov r55=r42
15. mov r56=r43
15. nop
15. br.call.sptk b0=COBLIB_DISPLAY_#
15. add r20=496,sp
15. ld8 r34=[r20]
15. nop
15. mov gp=r34
16. MOVE FUNCTION REM (FUNCTION INTEGER-OF-DATE (STD-DATE) 7) TO D
16. movl r35=0xc000000000000000
16. add r36=@gprel(pack_TESTT_STD-DATE_#),gp
16. ld4 r37=[r36]
16. nop
16. nop
16. nop
16. sxt4 r38=r37
16. add r39=2,r0
16. mov r40=r0
16. mov r41=r0
16. nop
16. nop
16. mov r42=r0
16. mov r43=r0
16. mov r44=r0
16. add r45=16,sp
16. st8 [r45]=r0
16. add r46=24,sp
16. nop
16. st8 [r46]=r0
16. add r47=32,sp
780 Creating and Compiling HP COBOL Source Programs