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-61
Symbolic Code Listing
19. IF D = 2 THEN DISPLAY " TUESDAY" ELSE
19. 000001f8 87990000 lh t9,0(gp)
19. 000001fc 24010002 li at,0x2
19. 00000200 1721000a bne t9,at,0x22c
19. 00000204 a7b90044 sh t9,0x44(sp)
19. 00000208 3c010000 lui at,0
19. 0000020c 24250038 addiu a1,at,0x38
19. 00000210 3c04d000 lui a0,0xd000
19. 00000214 24060009 li a2,0x9
19. 00000218 00003825 move a3,zero
19. 0000021c 0c00ff6d jal COBLIB_DISPLAY_
19. 00000220 afa00010 sw zero,0x10(sp)
19. 00000224 10000033 b 0x2f4
19. 00000228 00000000 nop
20. IF D = 3 THEN DISPLAY " WEDNESDAY" ELSE
20. 0000022c 87890000 lh t1,0(gp)
20. 00000230 24010003 li at,0x3
20. 00000234 1521000a bne t1,at,0x260
20. 00000238 a7a90044 sh t1,0x44(sp)
20. 0000023c 3c010000 lui at,0
20. 00000240 24250044 addiu a1,at,0x44
20. 00000244 3c04d000 lui a0,0xd000
20. 00000248 2406000b li a2,0xb
20. 0000024c 00003825 move a3,zero
20. 00000250 0c00ff60 jal COBLIB_DISPLAY_
20. 00000254 afa00010 sw zero,0x10(sp)
20. 00000258 10000026 b 0x2f4
20. 0000025c 00000000 nop
21. IF D = 4 THEN DISPLAY " THURSDAY" ELSE
21. 00000260 878b0000 lh t3,0(gp)
21. 00000264 24010004 li at,0x4
21. 00000268 1561000a bne t3,at,0x294
21. 0000026c a7ab0044 sh t3,0x44(sp)
21. 00000270 3c010000 lui at,0
21. 00000274 24250050 addiu a1,at,0x50
21. 00000278 3c04d000 lui a0,0xd000
21. 0000027c 2406000a li a2,0xa
21. 00000280 00003825 move a3,zero
21. 00000284 0c00ff53 jal COBLIB_DISPLAY_
21. 00000288 afa00010 sw zero,0x10(sp)
21. 0000028c 10000019 b 0x2f4
21. 00000290 00000000 nop
Example 22-24. Symbolic Code Listing (NMCOBOL Compiler) (page 5 of 6)