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

Creating and Compiling HP COBOL Source
Programs
HP COBOL Manual for TNS/E Programs—520347-003
22-54
Compilation Summary
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
Example 22-20. Symbolic Code Listing (page 7 of 23)