NetIPC 3000/XL Programmer's Reference Manual (5958-8600)

Chapter 4 159
NetIPC Examples
Example 4
Example 4
Example 4 is a pair of programs designated SNMIPC1 and SNMIPC2
using direct access to X.25 level 3. These programs can be compiled in
native mode. The program comments describe which of the X.25
features are used in these sample programs.
Program 4A (SNMIPC1)
(************************************************************************)
(* This program pair, SNMIPC1 and SNMIPC2, tests X25 features including:*)
(* *)
(* 1. Call User Data up to 128 bytes *)
(* 2. fast select *)
(* 3. special facilities *)
(* 4. catch all socket *)
(* 5. transfer of 2000 bytes packet *)
(* 6. no address flag *)
(* 7. deferred connection acceptance *)
(* 8. display calling node's x25 address *)
(* *)
(* Since this program uses the catch all socket, the NA capability is *)
(* required. *)
(* To compile in Native Mode, compile with "pasxl SNMIPC1,,$null" and *)
(* link with "link $oldpass, NMIPC1". Run NMIPC1 before running NMIPC2.*)
(* *)
(* CONFIGURATION ENVIRONMENT : *)
(* Network Name : DIRECT *)
(* Facility Name : FACFULL (contains Fast Select flag) *)
(* SVCPATH : POOL with IO security *)
(* X25 address : 30101 *)
(* No Network Directory entries needed. *)
(* *)
(************************************************************************)
$stats off$ (* compiler option *)
$statement_number on$
$code_offsets on$
$tables on$
$lines 120$
$standard_level 'hp_modcal'$
$type_coercion 'conversion'$
program nmipc1 (input,output);
TYPE
byte = 0..255; (* this is one byte long *)
bit4 = 0..15; (* this is one nibble long *)
shortint = -32768..32767; (* this is two bytes long *)