HP3000-L Archives

May 2007, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Ric Goldman <[log in to unmask]>
Reply To:
Ric Goldman <[log in to unmask]>
Date:
Sun, 20 May 2007 14:35:49 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (40 lines)
Hi folks,

I don't seem to be able to find the documentation describing the syntax and
use of the JSINFO intrinsic.  Could someone point me in the right direction
or explain the intent of the following code snippet?

   procedure GET_CI_MESSAGE(VAR pin       : shortint;
                            VAR ci_command: char300);

   VAR
      ndx              : integer;
      itemnum1         : integer;
      ci_command_ptr   : globalanyptr;

   BEGIN
      ndx:=0;
      ci_command   := ' ';
      ci_command[1]:='+';
      ci_command_ptr:=ADDR(ci_command);
      ci_command_ptr:=ADDTOPOINTER(ci_command_ptr,1);
      itemnum1:=124;
      GETPRIVMODE;
      JSINFO(status,pin,ndx,itemnum1,ci_command_ptr,,,,,,,,);
      GETUSERMODE;


Specifically, what is being retrieved by JSINFO using item number 124?

Thanx, Ric

----------------------------------------------------------------------
Ric Goldman                          Phone: +1-650-326-6478 
Spellbinder Systems Group            Fax  : +1-309-422-4321
Palo Alto, California 94306-2436     [log in to unmask]
---------------------------------------------------------------------- 
 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2