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-59
Symbolic Code Listing
15. DISPLAY STD-DATE
15. 00000090 afa0002c sw zero,0x2c(sp)
15. 00000094 8fae002c lw t6,0x2c(sp)
15. 00000098 8f8d0004 lw t5,0x4(gp)
15. 0000009c afae0034 sw t6,0x34(sp)
15. 000000a0 afad0030 sw t5,0x30(sp)
15. 000000a4 8faf0030 lw t7,0x30(sp)
15. 000000a8 8fb80034 lw t8,0x34(sp)
15. 000000ac 27ac0040 addiu t4,sp,0x40
15. 000000b0 afac003c sw t4,0x3c(sp)
15. 000000b4 07010007 bgez t8,0xd4
15. 000000b8 afaf0038 sw t7,0x38(sp)
15. 000000bc 2419002d li t9,0x2d
15. 000000c0 a1990000 sb t9,0(t4)
15. 000000c4 8fa8003c lw t0,0x3c(sp)
15. 000000c8 00000000 nop
15. 000000cc 25090001 addiu t1,t0,0x1
15. 000000d0 afa9003c sw t1,0x3c(sp)
15. 000000d4 8faa0034 lw t2,0x34(sp)
15. 000000d8 8fab0038 lw t3,0x38(sp)
15. 000000dc afaa002c sw t2,0x2c(sp)
15. 000000e0 afab0030 sw t3,0x30(sp)
15. 000000e4 8fa50030 lw a1,0x30(sp)
15. 000000e8 8fa4002c lw a0,0x2c(sp)
15. 000000ec 8fa6003c lw a2,0x3c(sp)
15. 000000f0 0c00ffb8 jal $n_CQA_T1
15. 000000f4 24070008 li a3,0x8
15. 000000f8 8fad003c lw t5,0x3c(sp)
15. 000000fc 27af0040 addiu t7,sp,0x40
15. 00000100 25ae0008 addiu t6,t5,0x8
15. 00000104 afae003c sw t6,0x3c(sp)
15. 00000108 01cf3023 subu a2,t6,t7
15. 0000010c 01e02825 move a1,t7
15. 00000110 3c04d000 lui a0,0xd000
15. 00000114 00003825 move a3,zero
15. 00000118 0c00ffae jal COBLIB_DISPLAY_
15. 0000011c afa00010 sw zero,0x10(sp)
16. MOVE FUNCTION REM
(FUNCTION INTEGER-OF-DATE (STD-DATE) 7) TO D
16. 00000120 8f980004 lw t8,0x4(gp)
16. 00000124 3c04c000 lui a0,0xc000
16. 00000128 24060002 li a2,0x2
16. 0000012c afb80038 sw t8,0x38(sp)
16. 00000130 0c00ffa8 jal COBLIB_FUNC_DATES_
16. 00000134 03002825 move a1,t8
16. 00000138 afa20034 sw v0,0x34(sp)
16. 0000013c 8fb90034 lw t9,0x34(sp)
16. 00000140 24010007 li at,0x7
16. 00000144 0321001a div t9,at
Example 22-24. Symbolic Code Listing (NMCOBOL Compiler) (page 3 of 6)