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

16. nop
16. st8 [r47]=r0
16. add r48=40,sp
16. nop
16. st8 [r48]=r0
16. mov r49=r35
16. mov r50=r38
16. mov r51=r39
16. nop
16. nop
16. nop
16. nop
16. mov r52=r40
16. mov r53=r41
16. mov r54=r42
16. mov r55=r43
16. mov r56=r44
16. nop
16. br.call.sptk b0=COBLIB_FUNC_DATES_#
16. add r20=496,sp
16. ld8 r34=[r20]
16. nop
16. nop
16. nop
16. mov gp=r34
16. mov r35=r8
16. add r36=128,r0
16. zxt4 r37=r35
16. add r38=7,r0
16. nop
16. mov r49=r36
16. mov r50=r37
16. mov r51=r38
16. br.call.sptk b0=_SharedMilli_DivRem#
16. add r20=496,sp
16. ld8 r34=[r20]
16. nop
16. mov gp=r34
16. mov r35=r10
16. sxt4 r36=r35
16. nop
16. nop
16. sxt4 r37=r36
16. add r38=10,r0
16. cmp.eq p8,p0=0,r38
16. nop
16. nop
16. nop
16. (p8) break 1
16. setf.sig f6=r37
16. add r39=10,r0
16. nop
16. setf.sig f7=r39
16. nop
16. nop
16. nop
16. fcvt.xf f2=f6
16. nop
16. nop
16. fcvt.xf f3=f7
16. nop
16. nop
16. frcpa.s1 f4,p9=f2,f3
16. add r40=65501,r0
16. setf.exp f5=r40
16. nop
16. nop
16. nop
16. (p9) fma.s1 f16=f2,f4,f0
16. nop
16. nop
16. (p9) fnma.s1 f17=f3,f4,f1
16. nop
16. nop
16. (p9) fma.s1 f18=f17,f16,f16
16. nop
16. nop
16. (p9) fma.s1 f19=f17,f17,f5
16. nop
16. nop
16. (p9) fma.s1 f4=f19,f18,f18
Understanding and Controlling the Compiler Listing 781