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

3. add r20=528,sp
3. st8 [r20]=r38
3. nop
3. add r20=536,sp
3. nop
3. nop
3. st8 [r20]=r39
3. add r20=544,sp
3. nop
3. st8 [r20]=r40
3. add r20=552,sp
3. nop
3. st8 [r20]=r41
3. add r20=560,sp
3. nop
3. st8 [r20]=r42
3. add r20=504,sp
3. nop
3. ld8 r34=[r20]
3. nop
3. mov r49=r34
3. add r20=512,sp
3. ld8 r35=[r20]
3. nop
3. nop
3. nop
3. mov r50=r35
3. add r20=520,sp
3. ld8 r36=[r20]
3. nop
3. nop
3. nop
3. mov r51=r36
3. add r20=528,sp
3. ld8 r37=[r20]
3. nop
3. nop
3. nop
3. mov r52=r37
3. add r20=536,sp
3. ld8 r38=[r20]
3. nop
3. nop
3. nop
3. mov r53=r38
3. add r20=544,sp
3. ld8 r39=[r20]
3. nop
3. nop
3. nop
3. mov r54=r39
3. add r20=552,sp
3. ld8 r40=[r20]
3. nop
3. nop
3. nop
3. mov r55=r40
3. add r20=560,sp
3. ld8 r41=[r20]
3. nop
3. mov r56=r41
3. nop
3. br.call.sptk b0=COBLIB_INITIALIZATION_COMPLETE_#
3. add r20=496,sp
3. ld8 r34=[r20]
3. nop
3. nop
3. nop
3. mov gp=r34
3. add r35=64,sp
3. st4 [r35]=r0
3. nop
3. add r36=@ltoff(__PUCB__TESTT#),gp
3. ld8 r37=[r36]
3. nop
3. add r38=30,r37
3. ld2 r39=[r38]
3. nop
3. nop
3. nop
3. zxt2 r40=r39
778 Creating and Compiling HP COBOL Source Programs