COBOL Manual for TNS and TNS/R Programs

ManualsBrandsHP ManualsServerHP NonStop G-Series

1221

Creating and Compiling HP COBOL Source

Programs

HP COBOL Manual for TNS and TNS/R Programs—522555-006

22-56

Symbolic Code Listing

* 000000 7 CON %000000 7 CON %000040 7 CON %020040 ...

000006 7 CON %000000 7 CON %000000 0 LDI +000 ...

000014 7 PCAL 000 0 LWP -007 7 STAR 7 ...

000022 7 BAZ +007 0 LDI +177 2 ZERD ...

000030 7 PCAL 000 7 PCAL 000 7 ADDS +007 ...

000036 2 LDI +007 7 MOVW 047 0 LADR L+000 ...

000044 3 LDA 3 DLRS 01 2 STAR 2 ...

000052 2 LDLI +040 2 ORRI 040 3 LDRA 1 ...

000060 2 EXCH 3 LDI +001 1 MOVW 001 ...

000066 0 LOAD G+000,7 1 LDLI +264 0 LOR ...

STARTT

14. 000072 0 LDLI +001 0 ORRI 060 1 LDLI +272 ...

000100 2 LDLI +001 2 ORRI 060 3 LDLI +272 ...

15. 000106 0 LDI +000 1 LADR S-000 1 LADI +001 ...

000114 3 LDD L+007,I 5 CDQ 6 LDRA 1 ...

000122 0 LDI +010 2 ONED 3 LDLI +350 ...

000130 7 ADDS -004

16. 000131 1 LDD L+007,I 2 LDI +002 7 PUSH 722 ...

000137 3 PUSH 333 1 DDIV 3 POP 331 ...

000145 1 DSUB 3 DDUP 4 LDI +000 ...

000153 5 LDI +012 3 DMPY 1 DSUB ...

000161 7 STOR L+006

17. 000162 0 LOAD L+006 7 BANZ +030

17. 000164 0 LDI +000 1 LADR S-000 1 LADI +001 ...

000172 1 BUN +004 1 CON %020040 1 CON %051525 ...

000200 2 LADI -005 2 LLS 01 3 LDI +010 ...

000206 3 LDLI +350 4 LDI -005 7 PUSH 744 ...

18. 000214 0 LOAD L+006 7 CMPI +001 7 BNEQ +030

18. 000217 0 LDI +000 1 LADR S-000 1 LADI +001 ...

000225 1 BUN +004 1 CON %020040 1 CON %046517 ...

000233 2 LADI -005 2 LLS 01 3 LDI +010 ...

000241 3 LDLI +350 4 LDI -005 7 PUSH 744 ...

19. 000247 0 LOAD L+006 7 CMPI +002 7 BNEQ +032

19. 000252 0 LDI +000 1 LADR S-000 1 LADI +001 ...

000260 1 BUN +005 1 CON %020040 1 CON %052125 ...

000266 2 RDP 2 LADI -006 2 LLS 01 ...

000274 2 ONED 3 LDLI +350 4 LDI -005 ...

000302 7 BUN +162 7 INDC %000167 w

20. 000304 0 LOAD L+006 7 CMPI +003 7 BNEQ +032

20. 000307 0 LDI +000 1 LADR S-000 1 LADI +001 ...

000315 1 BUN +006 1 CON %020040 1 CON %053505 ...

000323 1 CON %054440 Y 2 RDP 2 LADI -007 ...

000331 0 LDI +013 2 ONED 3 LDLI +350 ...

Example 22-23. Symbolic Code Listing (COBOL85 Compiler) (page 2 of 3)