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

Creating and Compiling HP COBOL Source
Programs
HP COBOL Manual for TNS/E Programs520347-003
22-55
Compilation Summary
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
16. nop
16. nop
16. mov f20=f4
16. nop
16. nop
16. fcvt.fx.trunc.s1 f21=f20
16. nop
16. nop
16. xma.l f22=f7,f21,f0
16. nop
16. getf.sig r41=f22
16. sub r42=r37,r41
16. nop
16. mov r43=r42
16. cmp4.ge p10,p0=r43,r0
16. add r19=0,r0
16. nop
16. nop
16. (p8) add r19=1,r0
16. add r20=592,sp
16. st8 [r20]=r19
16. add r19=0,r0
16. nop
16. nop
16. (p9) add r19=1,r0
16. add r20=600,sp
16. st8 [r20]=r19
16. nop
16. add r20=608,sp
16. st8 [r20]=r42
16. nop
16. add r20=616,sp
16. st8 [r20]=r43
16. add r19=0,r0
16. nop
16. nop
16. (p10) add r19=1,r0
16. add r20=624,sp
16. st8 [r20]=r19
16. nop
16. nop
16. nop
Example 22-20. Symbolic Code Listing (page 8 of 23)