! ******************************************************************************************************************************** ! Created: 23-JUN-2005 16:27:43 by OpenVMS SDL EV1-53 ! Source: 22-MAY-1991 15:13:27 X25DEVEL$VMS$ROOT:[LESV3.SRC]PSILIB.SDL;1 ! ******************************************************************************************************************************** !*** MODULE $psidef *** ! ! PSI: ! These are Network Connect Block codes and various status codes. ! literal psi$c_ncb_null = 0; ! Network connect null data type literal psi$c_ncb_remdte = 1; ! Remote DTE address literal psi$c_ncb_remsubadr = 2; ! Remote DTE sub-address literal psi$c_ncb_locdte = 3; ! Local DTE address literal psi$c_ncb_locsubadr = 4; ! Local DTE subaddress literal psi$c_ncb_userdata = 5; ! Outgoing call data literal psi$c_ncb_respdata = 6; ! Response data field literal psi$c_ncb_objname = 7; ! Process to handle call literal psi$c_ncb_endtoend = 8; ! Outgoing end to end acknowledgment (D-bit) literal psi$c_ncb_endtoendr = 9; ! Call requires end to end acknowledgment (D-bit) literal psi$c_ncb_gateway = 10; ! Gateway name literal psi$c_ncb_ici = 11; ! Incoming call identifier literal psi$c_ncb_revchg = 12; ! Reverse charge for this call literal psi$c_ncb_locfacr = 13; ! Facilities for call accept literal psi$c_ncb_fsel = 14; ! Fast select for outgoing call literal psi$c_ncb_fsel_res = 15; ! Restricted response fast select literal psi$c_ncb_thrucls = 16; ! Throughput class literal psi$c_ncb_cug = 17; ! Closed user group name literal psi$c_ncb_diagcode = 18; ! Clear 8 bit diagnostics code literal psi$c_ncb_cause = 19; ! Clear 8 bit cause code literal psi$c_ncb_reason = 20; ! Clear 8 bit reason code literal psi$c_ncb_pktsize = 21; ! Packet size-must be power of 2 literal psi$c_ncb_winsize = 22; ! Window size literal psi$c_ncb_locfac = 23; ! Local facilities literal psi$c_ncb_pvcnam = 24; ! PVC name ! ! The following codes are mainly for internal use. ! They may not normally be used by a user program ! (require PHYSIO and SYSPRV privileges) ! ! Used to be ncb_dte (or ncb_line) literal psi$c_ncb_pvcset = 26; ! Set up PVC literal psi$c_ncb_lcn = 27; ! Select LCN literal psi$c_ncb_cugn = 28; ! Closed user group number literal psi$c_ncb_cugnb = 29; ! Bilateral closed user group number literal psi$c_ncb_locnet = 30; ! Local network name ! ! The following codes are for use in gateway/access. ! literal psi$c_ncb_network = 30; ! For use in gateway access (Same as NCB_LOCNET) literal psi$c_ncb_userid = 31; ! User id literal psi$c_ncb_password = 32; ! Password literal psi$c_ncb_account = 33; ! Account ! ! The following are general NCB item codes ! literal psi$c_ncb_pridst = 34; ! priority of the activated destination literal psi$c_ncb_prired = 35; ! priority to skip in redirection literal psi$c_ncb_rcv_quota = 36; ! receive buffer quota ! ! New CCITT 1984 facilities ! literal psi$c_ncb_net_user_id = 37; ! Network User Identification facility literal psi$c_ncb_charging_info = 38; ! Charging Information facility (request) literal psi$c_ncb_charge_mon = 39; ! Charging Information facility (monetary units) literal psi$c_ncb_charge_seg = 40; ! Charging Information facility (segment count) literal psi$c_ncb_charge_time = 41; ! Charging Information facility (duration) literal psi$c_ncb_rpoa = 42; ! RPOA Selection facility literal psi$c_ncb_addr_mod_rsn = 43; ! Called Line Address Modified Notification facility (reason) literal psi$c_ncb_call_redir_rsn = 44; ! Call Redirection facility (reason) literal psi$c_ncb_call_redir_orig = 45; ! Call Redirection facility (original address) literal psi$c_ncb_transit_delay = 46; ! Transit Delay Selection and Notification facility ! ! CCITT specified DTE facilities for OSI network service ! literal psi$c_ncb_calling_extension = 47; ! Calling Address Extension facility literal psi$c_ncb_called_extension = 48; ! Called Address Extension facility literal psi$c_ncb_min_thrucls = 49; ! Minimum Throughput Class facility literal psi$c_ncb_expedite = 50; ! Expedited Data Negotiation facility ! ! ISO end-to-end transit delay facility fields ! literal psi$c_ncb_cum_trst_dly = 51; ! Cumulative Transit Delay (in outgoing and incoming calls) literal psi$c_ncb_cum_trst_dly_r = 52; ! Cumulative Transit Delay (in call accepts) literal psi$c_ncb_ete_trst_dly = 53; ! End-to-end Transit Delay literal psi$c_ncb_max_trst_dly = 54; ! Maximum Acceptable End-to-end Transit Delay literal psi$c_ncb_incoming_dte = 55; ! Incoming DTE address ( from called dte field). ! ! X.29 PAD reselection DTE field ! literal psi$c_ncb_reselect_dte = 56; ! Reselection DTE ! ! Phase V items ! literal psi$c_ncb_template = 57; ! template literal psi$c_ncb_local_id = 58; ! name of local user. literal psi$c_ncb_def_dteclass = 59; ! default dteclass (NW uses this to pass ! the translation of PSI$NETWORK. literal psi$c_ncb_flt_pri = 60; ! priority of phase V filter literal psi$c_ncb_flt_redpri = 61; ! priority of phase V filter literal psi$c_ncb_snm_cug = 62; ! simplename of group literal psi$c_ncb_snm_dteclass = 63; ! simplename of dteclass literal psi$c_ncb_snm_filter = 64; ! simplename of filter literal psi$c_ncb_snm_template = 65; ! simplename of template literal psi$c_ncb_snm_pvcnam = 66; ! simplename of pvc name literal psi$c_ncb_snm_port = 67; ! simplename of port name ! ! Added to supply device unit number to user interface ! literal psi$c_ncb_unit_number = 68; ! longword item ! ! User defined NCB items ! literal psi$c_ncb_last_itm = 69; ! Marks the end of PSI items to allow for ! user defined items ! literal psi$c_ncb_dteclass = 30; literal psi$c_ncb_filter = 7; ! ! Item List Codes for Network Process Declaration ! literal psi$c_ntd_acclvl = 1; ! Access level (X.25 or X.29) literal psi$c_ntd_salo = 2; ! DTE subaddress range low end literal psi$c_ntd_sahi = 3; ! DTE subaddress range high end literal psi$c_ntd_remdte = 4; ! Remote DTE address literal psi$c_ntd_usrgrp = 5; ! CUG/BCUG Name literal psi$c_ntd_usrdata = 6; ! User data field literal psi$c_ntd_datmsk = 7; ! User data mask literal psi$c_ntd_priority = 8; ! Priority literal psi$c_ntd_redrsn = 9; ! Redirect reason literal psi$c_ntd_network = 10; ! Network name literal psi$c_ntd_rcvdte = 11; ! Receiving dte literal psi$c_ntd_called_dte = 12; ! Called dte literal psi$c_ntd_incdte = 13; ! Incoming dte literal psi$c_ntd_extmsk = 14; ! Called extension mask literal psi$c_ntd_extval = 15; ! Called extension value literal psi$c_ntd_name = 16; ! Name of destination created literal psi$c_ntd_local_id = 17; ! Name of local user. literal psi$c_ntd_uic = 18; ! Users UIC literal psi$c_ntd_flt_pri = 19; ! Phase V priority value literal psi$c_ntd_snm_security_filter = 20; ! Security entity used for this filter literal psi$c_ntd_snm_usrgrp = 21; ! Simplename for CUG/BCUG literal psi$c_ntd_snm_dteclass = 22; ! Simplename for dteclass literal psi$c_ntd_snm_filter = 23; ! Simplename for filter literal psi$c_ntd_filter = 16; literal psi$c_ntd_dteclass = 10; ! ! Codes for redirect reason ! literal psi$c_redrsn_busy = 0; literal psi$c_redrsn_out_of_order = 1; literal psi$c_redrsn_systematic = 2; ! ! Clear/Reset/Restart Cause Codes from Level 3 ! literal psi$c_l3_local = 1; ! Host requested literal psi$c_l3_netwrk = 2; ! Network initiated literal psi$c_l3_neterr = 3; ! Network protocol error literal psi$c_l3_locerr = 4; ! Local protocol error literal psi$c_l3_lnkrst = 5; ! Link reset literal psi$c_l3_lnkdwn = 6; ! Link down literal psi$c_l3_lnkup = 7; ! Link up literal psi$c_l3_lnkrrt = 8; ! Link restarted literal psi$c_l3_locmgt = 9; ! Network management function literal psi$c_l3_calcol = 10; ! Call collision literal psi$c_l3_nettim = 11; ! Timeout on network literal psi$c_l3_gatdisc = 12; ! Gap logical link disconnected by gateway literal psi$c_l3_netdisc = 13; ! Gap logical link lost ! ! I/O Status Returns ! literal psi$m_moredata = %X'1'; literal psi$m_qualified = %X'2'; literal psi$m_sts_pvc = %X'1'; literal psi$m_sts_locdtelng = %X'2'; literal psi$m_sts_remdtelng = %X'4'; literal psi$m_sts_userlng = %X'8'; literal psi$m_sts_winbad = %X'10'; literal psi$m_sts_pktbad = %X'20'; literal psi$m_sts_thrbad = %X'40'; literal psi$m_sts_rpoalng = %X'80'; literal psi$m_sts_wordbad = %X'100'; macro psi$v_moredata = 0,0,1,0 %; ! More data follows (M-bit) macro psi$v_qualified = 0,1,1,0 %; ! Qualified sub-channel (Q-bit) ! ! Status flags for IOST2 ! macro psi$v_sts_pvc = 0,0,1,0 %; ! PVC setup MUST BE LOW ORDER BIT macro psi$v_sts_locdtelng = 0,1,1,0 %; ! Local dte address too long - truncated macro psi$v_sts_remdtelng = 0,2,1,0 %; ! Remote dte address too long - truncated macro psi$v_sts_userlng = 0,3,1,0 %; ! Too much user data supplied - truncated macro psi$v_sts_winbad = 0,4,1,0 %; ! Invalid window size - nearest valid chosen macro psi$v_sts_pktbad = 0,5,1,0 %; ! Invalid packet size - nearest valid chosen macro psi$v_sts_thrbad = 0,6,1,0 %; ! Invalid throughput class - nearest valid chosen macro psi$v_sts_rpoalng = 0,7,1,0 %; ! RPOA not a multiple of 4 digits - truncated macro psi$v_sts_wordbad = 0,8,1,0 %; ! A word facility (Transit delay) reduced to %xFFFF ! ! Error codes returned in IOST2 ! literal psi$c_err_unknown = 0; ! Unspecified internal error literal psi$c_err_faclng = 1; ! Facilities too long literal psi$c_err_invitem = 2; ! Invalid item code literal psi$c_err_conflict = 3; ! Conflicting items specified literal psi$c_err_badparm = 4; ! Bad parameter specified literal psi$c_err_notrans = 5; ! No translation for this name (e.g. unknown user group) literal psi$c_err_recurlmt = 6; ! Recursion limit reached literal psi$c_err_invnum = 7; ! Invalid ASCII number literal psi$c_err_noici = 8; ! No internal call identifier specified literal psi$c_err_manyici = 9; ! More than one internal call identifier given literal psi$c_err_notimp = 10; ! A feature that is not yet implemented was requested literal psi$c_err_nodtes = 11; ! No DTE is available on which to make the call literal psi$c_err_nosuchdte = 12; ! The specified DTE is not known literal psi$c_err_nosuchpvc = 13; ! The specified PVC is not known literal psi$c_err_nosuchnet = 14; ! The specified network is not known literal psi$c_err_nolocal = 15; ! The ACP has run out of local workspace memory literal psi$c_err_nononpag = 16; ! There is insufficient free non-paged pool literal psi$c_err_nol3 = 17; ! Internal error literal psi$c_err_badname = 18; ! Bad counted string parameter literal psi$c_err_l3err = 19; ! Error returned from level 3 literal psi$c_err_pvcalracc = 20; ! PVC already accessed literal psi$c_err_bad_pvcname = 21; ! Accessing PVC on wrong channel literal psi$c_err_nosuchgroup = 22; ! The specified GROUP is not known literal psi$c_err_invexp = 23; ! Invalid use of expedited data negotiation literal psi$c_err_invtrstdly = 24; ! Invalid use of ISO end-to-end transit delay facility ! ! Phase V additions ! literal psi$c_err_NoAccess = 25; ! The X25 Access module has not been ! created/enabled. literal psi$c_err_DteNotInClass = 26; ! The requested dte is not a member of the ! resolved dteclass. literal psi$c_err_DteNotAvailable = 27; ! The requested dte can't carry calls. literal psi$c_err_NoActiveMembers = 28; ! The resolved dteclass has no active members. literal psi$c_err_NoSuchTemplate = 29; ! The requested template does not exist. literal psi$c_err_NoSuchPort = 30; ! The port to be cleared does not exist. literal psi$c_err_NoSuchFilter = 31; ! The requested filter does not exist. literal psi$c_err_FilterAlreadySet = 32; ! ACPCONTROL - filter already in use or ! already created. literal psi$c_err_DteNotInGroup = 33; ! The resolved dte is not a member of the ! specified group. literal psi$c_err_DteClassNotSpecified = 34; ! no dteclass could be resolved literal psi$c_err_Security = 35; ! Security error literal psi$c_err_NoSuchSecurityFilter = 36; ! the named security filter was not found literal psi$c_err_NoSuchSecurityDtecls = 37; ! the named security dteclass was not found literal psi$c_err_DestNotKnown = 38; ! Destination unknown literal psi$c_err_NoTransit = 39; ! Transit Error literal psi$c_err_AddressNotReachable = 40; ! Called address not reachable literal psi$c_err_IncompatibleLCN = 41; ! Incompatible or reserved LCN literal psi$c_err_ClearedByDirective = 42; ! Clear directive issued literal psi$c_err_InvalidParameter = 43; ! Invalid parameter ! For compatibility only literal psi$c_msl_table_base = 26; literal psi$c_err_nosuchdteclass = 14; literal psi$c_err_nolines = 11; literal psi$c_err_nosuchline = 12; ! ! Special function codes for IO$_NETCONTROL ! literal psi$c_interrupt = 1; ! Interrupt NETCONTROL function code literal psi$k_interrupt = 1; ! Interrupt NETCONTROL function code literal psi$c_intack = 2; ! Interrupt acknowledge NETCONTROL literal psi$k_intack = 2; ! Interrupt acknowledge NETCONTROL literal psi$c_reset = 3; ! Reset NETCONTROL function Code literal psi$k_reset = 3; ! Reset NETCONTROL function Code ! ! Values 4 to 6 inclusive reserved for all time. ! They were the old NV IO$_NETCONTROL functions. ! literal psi$c_restart = 7; ! Acknowlege Restart on PVC literal psi$k_restart = 7; ! Acknowlege Restart on PVC literal psi$c_x29_set = 8; ! Set Parameter for an NV unit literal psi$k_x29_set = 8; ! literal psi$c_x29_read = 9; ! Read Parameter for an NV unit literal psi$k_x29_read = 9; ! literal psi$c_x29_read_specific = 10; ! Read specific Parameter for an NV unit literal psi$k_x29_read_specific = 10; ! ! ! Parameter type codes for use with x29_set and x29_read ! literal psi$k_x29_temp_nohang = 1; ! NV tempory NoHangup literal psi$k_x29_pad_params = 2; ! PAD parameters literal psi$k_x29_int_action = 3; ! NV action on receiving an interrupt literal psi$k_x29_break_action = 4; ! NV action on receiving a break indication literal psi$k_x29_hold_timer = 5; ! NV output data hold timer literal psi$k_x29_host_echo_params = 6; ! NV host echo params literal psi$k_x29_local_echo_params = 7; ! NV local echo params literal psi$k_x29_hangup_params = 8; ! NV hangup params, for clearing call literal psi$k_x29_pad_reselection = 9; ! NV PAD reselection facility literal psi$m_x29_calculated = %X'1'; literal psi$m_x29_add_value = %X'2'; literal psi$m_x29_user_value = %X'4'; literal psi$m_x29_if_changed = %X'8'; literal psi$c_x29_param_length = 8; ! length of block literal psi$k_x29_param_length = 8; ! length of block macro psi$_x29_param = 0,0,0,0 %; literal psi$s_psi$_x29_param = 8; macro psi$w_x29_param_ref = 0,0,16,0 %; ! The x.29 parameter reference macro psi$w_x29_param_flags = 2,0,16,0 %; literal psi$s_x29_param_flags = 2; ! Flags controlling this parameter macro psi$v_x29_calculated = 2,0,1,0 %; ! Value is calculated macro psi$v_x29_add_value = 2,1,1,0 %; ! Add value to parameter macro psi$v_x29_user_value = 2,2,1,0 %; ! Use last value supplied in x29_pad_params macro psi$v_x29_if_changed = 2,3,1,0 %; ! only set param if changed macro psi$v_x29_fill_2 = 2,4,12,0 %; literal psi$s_x29_fill_2 = 12; ! unused bits Must be zero macro psi$b_x29_param_value = 4,0,8,0 %; ! Value for the parameter macro psi$v_x29_fill_1 = 4,8,24,0 %; literal psi$s_x29_fill_1 = 24; ! unused must be zero literal psi$m_x29_action_reset = %X'1'; literal psi$m_x29_action_purge = %X'2'; literal psi$m_x29_action_clear = %X'4'; literal psi$c_x29_action_length = 20; ! Length of the action block literal psi$k_x29_action_length = 20; ! Length of the action block macro psi$_x29_flags = 0,0,0,0 %; literal psi$s_psi$_x29_flags = 20; macro psi$l_x29_action_flags = 0,0,32,0 %; literal psi$s_x29_action_flags = 4; macro psi$v_x29_action_reset = 0,0,1,0 %; ! Reset circuit macro psi$v_x29_action_purge = 0,1,1,0 %; ! Purge input data in NV macro psi$v_x29_action_clear = 0,2,1,0 %; ! Clear circuit macro psi$t_x29_action_string = 4,0,0,0 %; literal psi$s_x29_action_string = 16; ! counted action string ! ! X29 PAD parameter types, used with x29_pad_params. ! ! Key: ! B - boolean ! M - bit mask ! C - character ! I - integer ! literal psi$k_x29_par_escape = 1; ! BC PAD escape to command mode character literal psi$k_x29_par_echo = 2; ! B Echoing literal psi$k_x29_par_forward = 3; ! M Data forwarding terminators literal psi$k_x29_par_timeout = 4; ! BI Forwarding timeout literal psi$k_x29_par_hostsync = 5; ! B Host sync literal psi$k_x29_par_messages = 6; ! M PAD message control literal psi$k_x29_par_break = 7; ! M Action on break literal psi$k_x29_par_discard = 8; ! B Discard output at PAD literal psi$k_x29_par_crfill = 9; ! I CR fill literal psi$k_x29_par_wrap = 10; ! BI Wrap column literal psi$k_x29_par_speed = 11; ! I Terminal line speed literal psi$k_x29_par_ttsync = 12; ! B TT sync literal psi$k_x29_par_new_line = 13; ! M Line feed insertion by PAD literal psi$k_x29_par_lffill = 14; ! I LF fill literal psi$k_x29_par_edit = 15; ! B PAD editing enable literal psi$k_x29_par_delete = 16; ! C Delete-character character literal psi$k_x29_par_line_delete = 17; ! C Delete-line character literal psi$k_x29_par_redisplay = 18; ! C Redisplay-line character literal psi$k_x29_par_display_edit = 19; ! MC Editing service signals literal psi$k_x29_par_restrict_echo = 20; ! M Echo mask literal psi$k_x29_par_parity = 21; ! M Parity generation and checking literal psi$k_x29_par_page_wait = 22; ! BI Page wait line literal psi$k_x29_last_1980_x3_param = 18; literal psi$k_x29_last_1984_x3_param = 22; ! ! PSI accounting record definitions ! literal acr$k_psi = 15; ! PSI record type literal acr$k_psi_vct = 1; ! PSI virtual circuit termination packet ! ! Virtual circuit termination packet layout ! literal acr$m_psi_out = %X'1'; literal acr$m_psi_pvc = %X'2'; literal acr$m_psi_x29 = %X'4'; literal acr$m_psi_access = %X'8'; literal acr$m_psi_gateway = %X'10'; literal acr$m_psi_fail = %X'20'; literal acr$m_psi_revchg = %X'1'; literal acr$m_psi_fast = %X'2'; literal acr$m_psi_cug = %X'4'; literal acr$m_psi_bcug = %X'8'; literal acr$m_psi_fast_res = %X'10'; literal acr$m_psi_busy = %X'1'; literal acr$m_psi_out_of_order = %X'2'; literal acr$m_psi_systematic = %X'4'; macro psi$_acr_vct = 0,0,0,0 %; literal acr$s_psi$_acr_vct = 130; macro acr$w_psi_vctype = 4,0,16,0 %; literal acr$s_psi_vctype = 2; ! Type of circuit macro acr$v_psi_out = 4,0,1,0 %; ! Outgoing SVC macro acr$v_psi_pvc = 4,1,1,0 %; ! PVC macro acr$v_psi_x29 = 4,2,1,0 %; ! X29 circuit macro acr$v_psi_access = 4,3,1,0 %; ! Used PSI-access macro acr$v_psi_gateway = 4,4,1,0 %; ! Used gateway or multi-host macro acr$v_psi_fail = 4,5,1,0 %; ! Access failed macro acr$w_psi_lcn = 6,0,16,0 %; ! Logical channel number macro acr$q_psi_start_time = 8,0,0,0 %; literal acr$s_psi_start_time = 8; ! Start time macro acr$w_psi_source = 16,0,16,0 %; ! Offset to Source macro acr$w_psi_association = 18,0,16,0 %; ! Offset to Call Association macro acr$w_psi_rdte = 20,0,16,0 %; ! Offset to remote DTE address macro acr$w_psi_ldte = 22,0,16,0 %; ! Offset to local DTE address macro acr$w_psi_dteclass = 24,0,16,0 %; ! Offset to DTE Class macro acr$w_psi_pvc_name = 26,0,16,0 %; ! Offset to PVC name macro acr$w_psi_remote_nsap = 28,0,16,0 %; ! Offset to Remote NSAP macro acr$w_psi_local_nsap = 30,0,16,0 %; ! Offset to Local NSAP macro acr$q_psi_bytes_tx = 32,0,0,0 %; literal acr$s_psi_bytes_tx = 8; ! Bytes sent macro acr$q_psi_bytes_rx = 40,0,0,0 %; literal acr$s_psi_bytes_rx = 8; ! Bytes received macro acr$q_psi_segments_tx = 48,0,0,0 %; literal acr$s_psi_segments_tx = 8; ! Segments sent macro acr$q_psi_segments_rx = 56,0,0,0 %; literal acr$s_psi_segments_rx = 8; ! Segments received macro acr$q_psi_packets_tx = 64,0,0,0 %; literal acr$s_psi_packets_tx = 8; ! Packets sent macro acr$q_psi_packets_rx = 72,0,0,0 %; literal acr$s_psi_packets_rx = 8; ! Packets received macro acr$q_psi_messages_tx = 80,0,0,0 %; literal acr$s_psi_messages_tx = 8; ! Messages sent macro acr$q_psi_messages_rx = 88,0,0,0 %; literal acr$s_psi_messages_rx = 8; ! Messages received macro acr$w_psi_inc_thru = 96,0,16,0 %; ! Incoming thruput class macro acr$w_psi_out_thru = 98,0,16,0 %; ! Outgoing thruput class macro acr$w_psi_inc_window = 100,0,16,0 %; ! Incoming window size macro acr$w_psi_out_window = 102,0,16,0 %; ! Outgoing window size macro acr$w_psi_inc_psize = 104,0,16,0 %; ! Incoming packet size macro acr$w_psi_out_psize = 106,0,16,0 %; ! Outgoing packet size macro acr$w_psi_fac_req = 108,0,16,0 %; literal acr$s_psi_fac_req = 2; ! Facilities requested macro acr$v_psi_revchg = 108,0,1,0 %; ! Reverse charging macro acr$v_psi_fast = 108,1,1,0 %; ! Fast select macro acr$v_psi_cug = 108,2,1,0 %; ! Closed user group used macro acr$v_psi_bcug = 108,3,1,0 %; ! Bilateral CUG used macro acr$v_psi_fast_res = 108,4,1,0 %; ! Fast select (restricted response) macro acr$w_psi_cug_number = 110,0,16,0 %; ! Closed user group number macro acr$w_psi_orig_dte = 112,0,16,0 %; ! Offset to Originally Called DTE macro acr$w_psi_clear_facs = 114,0,16,0 %; ! Offset to clearing facilities macro acr$w_psi_call_facs = 116,0,16,0 %; ! Offset to calling facilities macro acr$w_psi_accept_facs = 118,0,16,0 %; ! Offset to accepting facilities macro acr$b_psi_reason = 120,0,8,0 %; ! Clearing reason macro acr$b_psi_cause = 121,0,8,0 %; ! Clearing cause macro acr$b_psi_diag = 122,0,8,0 %; ! Clearing diagnostic macro acr$b_psi_redirect = 123,0,8,0 %; literal acr$s_psi_redirect = 1; ! Redirect reason macro acr$v_psi_busy = 123,0,1,0 %; ! Number busy macro acr$v_psi_out_of_order = 123,1,1,0 %; ! Number out of order macro acr$v_psi_systematic = 123,2,1,0 %; ! Number systematically redirected macro acr$w_psi_unit = 124,0,16,0 %; ! Offset to NW or NV unit name macro acr$w_psi_protocol = 126,0,16,0 %; ! Offset to protocol ID string macro acr$w_psi_group = 128,0,16,0 %; ! Offset to CUG Name ! Start of variable length part literal acr$k_psi_vct_var = 130; ! Start of variable part