My Cobol mainline calls the subroutine like this:
CALL "SENDFUNCMSG" USING WS-LDEV-NO,
WS-MESSAGE,
WS-LENGTH
END-CALL
The working storage definitions are:
01 WS-PARMS.
05 WS-LDEV-NO PIC S9(09) COMP.
05 WS-MESSAGE PIC X(256).
05 WS-LENGTH PIC S9(09) COMP.
:RUN CHATROOM.NMPRG.E3K;XL="XL.PUB.E3K";debug
DEBUG/iX C.25.06
DEBUG Intrinsic at: 32e.000564a0 ?chatroom
$1 ($5e) nmdebug > dc sendfuncmsg, d0/4
PUB $31b.5c7cc
0005c7cc sendfuncmsg 6bc23fd9 STW r2,-20(sr0,r30)
0005c7d0 sendfuncmsg+$4 6fc30380 STWM r3,448(sr0,r30)
0005c7d4 sendfuncmsg+$8 47150000 LDH 0(sr0,r24),r21
0005c7d8 sendfuncmsg+$c 34010200 LDO 256(r0),r1
0005c7dc sendfuncmsg+$10 d2bc1ff0 EXTRS r21,31,16,r28
0005c7e0 sendfuncmsg+$14 08180243 OR r24,r0,r3
0005c7e4 sendfuncmsg+$18 6bda3c91 STW r26,-440(sr0,r30)
0005c7e8 sendfuncmsg+$1c 883c61e0 COMBF,<= r28,r1,sendfuncmsg+$114
0005c7ec sendfuncmsg+$20 6bd93c99 STW r25,-436(sr0,r30)
0005c7f0 sendfuncmsg+$24 230e5000 LDIL $5c800,r24
0005c7f4 sendfuncmsg+$28 371601e0 LDO 240(r24),r22
0005c7f8 sendfuncmsg+$2c 4ad50000 LDW 0(sr0,r22),r21
0005c7fc sendfuncmsg+$30 4ad40008 LDW 4(sr0,r22),r20
0005c800 sendfuncmsg+$34 341f000e LDO 7(r0),r31
0005c804 sendfuncmsg+$38 37c13d31 LDO -360(r30),r1
0005c808 sendfuncmsg+$3c 6bdf3d21 STW r31,-368(sr0,r30)
0005c80c sendfuncmsg+$40 6bd53d29 STW r21,-364(sr0,r30)
0005c810 sendfuncmsg+$44 0c343306 STBYS,E r20,3(sr0,r1)
0005c814 sendfuncmsg+$48 44740000 LDH 0(sr0,r3),r20
0005c818 sendfuncmsg+$4c 4bd73d21 LDW -368(sr0,r30),r23
0005c81c sendfuncmsg+$50 d29a1ff0 EXTRS r20,31,16,r26
0005c820 sendfuncmsg+$54 34193fed LDO -10(r0),r25
0005c824 sendfuncmsg+$58 3416000c LDO 6(r0),r22
0005c828 sendfuncmsg+$5c 0af674c0 SUBT,> r22,r23,r0
0005c82c sendfuncmsg+$60 e85f1e35 BL ?sendfuncmsg+$1c,r2
0005c830 sendfuncmsg+$64 37d83d33 LDO -359(r30),r24
0005c834 sendfuncmsg+$68 34190002 LDO 1(r0),r25
0005c838 sendfuncmsg+$6c 97220802 SUBIO 1,r25,r2
0005c83c sendfuncmsg+$70 44630000 LDH 0(sr0,r3),r3
0005c840 sendfuncmsg+$74 4bdf3c99 LDW -436(sr0,r30),r31
0005c844 sendfuncmsg+$78 d0781ff0 EXTRS r3,31,16,r24
0005c848 sendfuncmsg+$7c 085f061a ADD r31,r2,r26
0005c84c sendfuncmsg+$80 b3004000 ADDIT,< 0,r24,r0
0005c850 sendfuncmsg+$84 37d93d37 LDO -357(r30),r25
0005c854 sendfuncmsg+$88 b7170810 ADDIO 8,r24,r23
0005c858 sendfuncmsg+$8c b6f30fff ADDIO -1,r23,r19
0005c85c sendfuncmsg+$90 b26075f1 ADDIT,> -264,r19,r0
0005c860 sendfuncmsg+$94 ebff1a75 BL $$lr_unk_unk,r31
0005c864 sendfuncmsg+$98 08000240 OR r0,r0,r0
0005c868 sendfuncmsg+$9c 4bd73d21 LDW -368(sr0,r30),r23
0005c86c sendfuncmsg+$a0 0a775880 COMCLR,>= r23,r19,r0
0005c870 sendfuncmsg+$a4 6bd33d21 STW r19,-368(sr0,r30)
0005c874 sendfuncmsg+$a8 e85f1de5 BL ?sendfuncmsg+$3c,r2
0005c878 sendfuncmsg+$ac 08000240 OR r0,r0,r0
0005c87c sendfuncmsg+$b0 341a3822 LDO 7185(r0),r26
0005c880 sendfuncmsg+$b4 34193fff LDO -1(r0),r25
0005c884 sendfuncmsg+$b8 d7bf1811 ZDEPI -1,31,15,r29
0005c888 sendfuncmsg+$bc 37d83d21 LDO -368(r30),r24
0005c88c sendfuncmsg+$c0 0bb874c0 SUBT,> r24,r29,r0
0005c890 sendfuncmsg+$c4 d67f19ef ZDEPI -1,16,17,r19
0005c894 sendfuncmsg+$c8 0a7844c0 SUBT,< r24,r19,r0
0005c898 sendfuncmsg+$cc 4bdc3c91 LDW -440(sr0,r30),r28
$2 ($5e) nmdebug >
The setdump is:
START CALL TO SENDFUNCMSG=>+000000020>YOU ARE INVITED TO CHAT/3000
<
SUBSCRIPT/INDEX/REFMOD/DEP-ON out of BOUNDS (COBERR 751)
Program file: CHATROOM.NMPRG.E3K
Trap type = 00080000 (12,00), at pc = 0000031B.0005C88E
range error
DEBUG/iX C.25.06
HPDEBUG Intrinsic at: b9.00259304 cob_trap.print_message+$5ec
$$$$ Trap occurred at: sendfuncmsg+$c0, at ????
PC=31b.0005c88c sendfuncmsg+$c0
* 0) SP=41854630 RP=31b.0005c738 ?sendfuncmsg+$8
export stub: 32e.000643f8 chatroom$002$+$1524
1) SP=41854470 RP=32e.00000000
(end of NM stack)
$$$$ The variable 1099252928 > 32767 (limit)
============================================================
**** COB_QUIT 751 ****
ABORT: CHATROOM.NMPRG.E3K
R0 =00000000 d61c4018 0005c87e 00000000 R4 =0000005a 4185421c 4185439c
00068e90
R8 =4164a000 00053c10 30303030 20202020 R12=4164c000 00000001 00067970
00067800
R16=00067978 00000000 00000000 00000000 R20=00000080 0000031b 0000007e
d61c2018
R24=418544c0 ffffffff 00001c11 41845038 R28=00000001 00007fff 41854630
00000000
IPSW=0006000f=thlnxbCVmrQPDI PRIV=2
SAR=1 PCQF=31b.5c88e 31b.5c892
SR0=0000000a 000001d6 00000000 00000000 SR4=0000031b 000001d6 0000000b
0000000a
TR0=418855a0 00000050 00227c04 41857d90 TR4=41857d10 00000000 c0202008
00143000
PID1=0000015c=000000ae(W) PID2=00000000=00000000(W)
PID3=00000000=00000000(W) PID4=00000000=00000000(W)
RCTR=00000000 ISR=000001d6 IOR=4184c4c1 IIR=0bb874c0 IVA=00143000
ITMR=f981a4fd
EIEM=ffffffff EIRR=00000000 CCR=0
RUN CHATROOM.NMPRG.E3K;XL="XL.PUB.E3K"
Program terminated in an error state. (CIERR 976)
Brians World:
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|