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-60
Symbolic Code Listing
16. 00000148 2401000a li at,0xa
16. 0000014c 240c0007 li t4,0x7
16. 00000150 afac003c sw t4,0x3c(sp)
16. 00000154 afb90040 sw t9,0x40(sp)
16. 00000158 00004012 mflo t0
16. 0000015c 000848c0 sll t1,t0,3
16. 00000160 01284823 subu t1,t1,t0
16. 00000164 03295023 subu t2,t9,t1
16. 00000168 0141001a div t2,at
16. 0000016c afaa0044 sw t2,0x44(sp)
16. 00000170 00005812 mflo t3
16. 00000174 000b6880 sll t5,t3,2
16. 00000178 01ab6821 addu t5,t5,t3
16. 0000017c 000d6840 sll t5,t5,1
16. 00000180 014d7023 subu t6,t2,t5
16. 00000184 05c10002 bgez t6,0x190
16. 00000188 01c07825 move t7,t6
16. 0000018c 000e7823 subu t7,zero,t6
17. + 00000190 000fc400 sll t8,t7,16
17. + 00000194 00186403 sra t4,t8,16
17. + 00000198 1580000a bne t4,zero,0x1c4
16. 0000019c a78f0000 sh t7,0(gp)
17. IF D = 0 THEN DISPLAY " SUNDAY" ELSE
17. 000001a0 3c010000 lui at,0
17. 000001a4 24250028 addiu a1,at,0x28
17. 000001a8 3c04d000 lui a0,0xd000
17. 000001ac 24060008 li a2,0x8
17. 000001b0 00003825 move a3,zero
17. 000001b4 0c00ff87 jal COBLIB_DISPLAY_
17. 000001b8 afa00010 sw zero,0x10(sp)
17. 000001bc 1000004d b 0x2f4
17. 000001c0 00000000 nop
18. IF D = 1 THEN DISPLAY " MONDAY" ELSE
18. 000001c4 87880000 lh t0,0(gp)
18. 000001c8 24010001 li at,0x1
18. 000001cc 1501000a bne t0,at,0x1f8
18. 000001d0 a7a80044 sh t0,0x44(sp)
18. 000001d4 3c010000 lui at,0
18. 000001d8 24250030 addiu a1,at,0x30
18. 000001dc 3c04d000 lui a0,0xd000
18. 000001e0 24060008 li a2,0x8
18. 000001e4 00003825 move a3,zero
18. 000001e8 0c00ff7a jal COBLIB_DISPLAY_
18. 000001ec afa00010 sw zero,0x10(sp)
18. 000001f0 10000040 b 0x2f4
18. 000001f4 00000000 nop
Example 22-24. Symbolic Code Listing (NMCOBOL Compiler) (page 4 of 6)