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-62
Symbolic Code Listing
22. IF D = 5 THEN DISPLAY " FRIDAY" ELSE
22. 00000294 878a0000 lh t2,0(gp)
22. 00000298 24010005 li at,0x5
22. 0000029c 1541000a bne t2,at,0x2c8
22. 000002a0 a7aa0044 sh t2,0x44(sp)
22. 000002a4 3c010000 lui at,0
22. 000002a8 2425005c addiu a1,at,0x5c
22. 000002ac 3c04d000 lui a0,0xd000
22. 000002b0 24060008 li a2,0x8
22. 000002b4 00003825 move a3,zero
22. 000002b8 0c00ff46 jal COBLIB_DISPLAY_
22. 000002bc afa00010 sw zero,0x10(sp)
22. 000002c0 1000000c b 0x2f4
22. 000002c4 00000000 nop
23. IF D = 6 THEN DISPLAY " SATURDAY" END-IF
23. 000002c8 878d0000 lh t5,0(gp)
23. 000002cc 24010006 li at,0x6
23. 000002d0 15a10008 bne t5,at,0x2f4
23. 000002d4 a7ad0044 sh t5,0x44(sp)
23. 000002d8 3c010000 lui at,0
23. 000002dc 24250064 addiu a1,at,0x64
23. 000002e0 3c04d000 lui a0,0xd000
23. 000002e4 2406000a li a2,0xa
23. 000002e8 00003825 move a3,zero
23. 000002ec 0c00ff39 jal COBLIB_DISPLAY_
23. 000002f0 afa00010 sw zero,0x10(sp)
24. END-IF
25. END-IF
26. END-IF
27. END-IF
28. END-IF
29. END-IF
30. END-PERFORM.
30. 000002f4 8f8e0004 lw t6,0x4(gp)
30. 000002f8 00000000 nop
30. 000002fc 25cf0001 addiu t7,t6,0x1
30. 00000300 05e10002 bgez t7,0x30c
30. 00000304 01e0c025 move t8,t7
30. 00000308 000fc023 subu t8,zero,t7
30. 0000030c 1000ff5a b 0x78
30. 00000310 af980004 sw t8,0x4(gp)
31. STOP RUN.
31. 00000314 0c00ff2f jal COBLIB_STOP_
31. 00000318 00000000 nop
31. 0000031c 0c00ff2d jal COBLIB_STOP_
31. 00000320 00000000 nop
31. 00000324 8fbf001c lw ra,0x1c(sp)
31. 00000328 00000000 nop
31. 0000032c 03e00008 jr ra
31. 00000330 27bd01c8 addiu sp,sp,0x1c8
Example 22-24. Symbolic Code Listing (NMCOBOL Compiler) (page 6 of 6)