COBOL Manual for TNS and TNS/R Programs

Creating and Compiling HP COBOL Source
Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
22-58
Symbolic Code Listing
12. PROCEDURE DIVISION.
12. 00000000 27bdfe38 addiu sp,sp,0xfffffe38
12. 00000004 3c010000 lui at,0
12. 00000008 3c0f0000 lui t7,0
12. 0000000c 25ef0014 addiu t7,t7,0x14
12. 00000010 242e0000 addiu t6,at,0
12. 00000014 afbf001c sw ra,0x1c(sp)
12. 00000018 afae0058 sw t6,0x58(sp)
12. 0000001c afaf0054 sw t7,0x54(sp)
12. 00000020 0c00ffec jal COBLIB_INITIALIZATION_COMPLETE_
12. 00000024 00002025 move a0,zero
12. 00000028 3c010000 lui at,0
12. 0000002c 9438001e lhu t8,0x1e(at)
12. 00000030 afa00080 sw zero,0x80(sp)
12. 00000034 33198000 andi t9,t8,0x8000
12. 00000038 13200008 beq t9,zero,0x5c
12. 0000003c 00000000 nop
12. 00000040 3c048000 lui a0,0x8000
12. 00000044 2405007f li a1,0x7f
12. 00000048 00003025 move a2,zero
12. 0000004c 0c00ffe1 jal COBLIB_ERROR_
12. 00000050 00003825 move a3,zero
12. 00000054 0c00ffdf jal COBLIB_ABEND_
12. 00000058 00002025 move a0,zero
12. 0000005c 3c010000 lui at,0
12. 00000060 9428001e lhu t0,0x1e(at)
14. + 00000064 3c0a0130 lui t2,0x130
14. + 00000068 354aba3a ori t2,t2,0xba3a
12. 0000006c 3509b400 ori t1,t0,0xb400
12. 00000070 a429001e sh t1,0x1e(at)
13. STARTT.
14. PERFORM VARYING STD-DATE FROM 19970618 BY 1
UNTIL STD-DATE > 19970624
14. 00000074 af8a0004 sw t2,0x4(gp)
14. 00000078 8f8b0004 lw t3,0x4(gp)
14. 0000007c 3c010130 lui at,0x130
14. 00000080 3421ba41 ori at,at,0xba41
14. 00000084 0161082a slt at,t3,at
14. 00000088 102000a2 beq at,zero,0x314
14. 0000008c afab0044 sw t3,0x44(sp)
Example 22-24. Symbolic Code Listing (NMCOBOL Compiler) (page 2 of 6)