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

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. 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
16. (p10) br.cond.dpnt.many .b1_14
16. add r20=608,sp
16. ld8 r34=[r20]
16. nop
16. sub r35=r0,r34
16. nop
16. sxt4 r36=r35
16. add r20=632,sp
16. st8 [r20]=r36
16. nop
16. nop
16. nop
16. br.cond.sptk.many .b1_15
16. .b1_14:
16. add r20=616,sp
16. ld8 r34=[r20]
16. nop
16. nop
16. nop
16. mov r35=r34
16. add r20=632,sp
16. st8 [r20]=r35
16. nop
16. .b1_15:
16. add r20=632,sp
16. ld8 r34=[r20]
16. nop
16. nop
16. zxt4 r35=r34
782 Creating and Compiling HP COBOL Source Programs