DataMuseum.dk

top - download

    Length: 5996 (0x176c)
    Types: TextFile
    Names: »HDLC.ENV«

└─⟦623820077⟧ Bits:30010493 DVBS1.SW50070.rel.1.0-2 SW500700 MegaSwitch Development Toolset Rel 1.0 DISK 2/2
    └─⟦this⟧ »PAXENV\HDLC.ENV« 

TextFile

hdlcenv;
const
hdlc_lineid=13*4+0;
hdlc_mem_layout=14*4+0;
hdlc_call_request=19*4+0;
hdlc_wait_call=20*4+0;
hdlc_return_wait_call=21*4+0;
hdlc_clear_request=22*4+0;
hdlc_connect=1*4+0;
hdlc_disconnect=2*4+0;
hdlc_disconnect_immediate=28*4+0;
hdlc_return_all=3*4+0;
hdlc_return_unused_buf=4*4+0;
hdlc_modem_control=6*4+0;
hdlc_sense_status=0+0;
hdlc_sense_version=5*4+0;
hdlc_sense_linespeed=9*4+0;
hdlc_get_last_FRMR=17*4+0;
hdlc_read_statistics=7*4+0;
hdlc_read_clear_stat=8*4+0;
hdlc_read_X21stat=23*4+0;
hdlc_read_clear_X21stat=24*4+0;
hdlc_event=10*4+0;
hdlc_control_event=25*4+0;
hdlc_FCS_control=26*4+0;
hdlc_exchange_lcpid=27*4+0;
hdlc_busy_control=18*4+0;
hdlc_halt=29*4+0;
hdlc_continue=30*4+0;
hdlc_check_restart=62*4+0;
hdlc_receive=0+1;
hdlc_transmit=0+2;
hdlc_ok=0+0;
hdlc_already_connected=1*8+0;
hdlc_not_processed=0+1;
hdlc_xmit_not_processed=1*8+1;
hdlc_too_large_mem_request=0+3;
hdlc_em_init_trouble=2*8+3;
hdlc_no_free_memory=3*8+3;
hdlc_chio_init_problem=4*8+3;
hdlc_mbx_pointer_nil=5*8+3;
hdlc_lapb_exception=6*8+3;
hdlc_chio_exception=7*8+3;
hdlc_adaptor_init_trouble=10*8+3;
hdlc_lapb_init_trouble=11*8+3;
hdlc_adapter_exception=12*8+3;
hdlc_driver_exception=13*8+3;
hdlc_illegal_opcode=0+4;
hdlc_illegal_size=0+4;
hdlc_invalid_param=0+4;
hdlc_illegal_priority=0+4;
hdlc_illegal_state=1*8+4;
hdlc_protocol_not_implemented=2*8+4;
hdlc_framing_length=4;
hdlc_ext_framing_length=5;
hdlc_com204_controller=3;
hdlc_com205_controller=16;
hdlc_com206_controller=19;
hdlc_mega_controller=50;
hdlc_v24_interface=0;
hdlc_x21_interface=1;
hdlc_connected_state=0;
hdlc_connecting_state=1;
hdlc_disconnecting_state=2;
hdlc_disconnected_state=3;
hdlc_passive_state=4;
hdlc_ev_connected=0;
hdlc_ev_RNR_timeout=1;
hdlc_ev_reset=2;
hdlc_ev_disconnected_mess=3;
hdlc_ev_discon_by_other_end=4;
hdlc_ev_unsol_U=5;
hdlc_ev_rec_FRMR=6;
hdlc_ev_undef_frame=7;
hdlc_ev_unsol_S=8;
hdlc_ev_ill_I_length=9;
hdlc_ev_invalid_NR=10;
hdlc_ev_timeout_connected=11;
hdlc_ev_timeout_connecting=12;
hdlc_ev_rec_error=13;
hdlc_ev_line_error=14;
hdlc_ev_parity_error=15;
hdlc_ev_modem_clock=18;
hdlc_ev_idle_channel=19;
hdlc_ev_port_closed=20;
hdlc_ev_disconnected=21;
hdlc_ev_unsol_DM=22;
hdlc_ev_ill_S_U_length=23;
hdlc_ev_con_by_user=26;
hdlc_ev_con_by_nmc=27;
hdlc_ev_disc_by_user=28;
hdlc_ev_disc_by_nmc=29;
hdlc_ev_start=40;
hdlc_ev_stop=41;
hdlc_ev_release=42;
hdlc_ev_nmc_reset=43;
type
hdlc_protocol_type=
$if target<>rc5000
packed record
$else
packed3502 record
$endif
d7,empty_I,d5,d4,
x75,mlp,year,modulo:boolean;
end;
hdlc_mem_layout_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
REC_N1,
REC_BUFS,
XMIT_BUFS,
REC_TEST_ELEM_PR_BUF,
XMIT_TEST_ELEM_PR_BUF,
CNTRL_TEST_ELEM_PR_BUF,
TEST_BUFS:integer;
PROTOCOL:hdlc_protocol_type;
LINEID:byte;
XMIT_N1,
T3:integer;
end;
const
hdlc_default_protocol=
hdlc_protocol_type(:false,true,false,false,false,false,true,false:);
hdlc_default_mem_layout=
hdlc_mem_layout_type(:
$if fln>0
?,?,?,
$endif
256,7,7,16,16,16,6,hdlc_default_protocol,0,256,0:);
type
hdlc_connect_mode_type=
$if target<>rc5000
packed record
$else
packed3502 record
$endif
RNR_DISC,
AUTO_RETURN,
NO_S_COMMANDS,
NO_POLL,
DELAY_INF,
EXTENDED_MESSAGE,
FINAL_ALARM,
AUTO_CONNECT:boolean;
end;
hdlc_fill_type=array(1..5)of integer;
hdlc_connect_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
MODE:hdlc_connect_mode_type;
CONNECT_IDENT,
T1,
N2,
K,
FRAMESPACE,
ABORTSPACE,
N_POLL:integer;
FILL:hdlc_fill_type;
end;
const
hdlc_default_connect_mode=
hdlc_connect_mode_type(:false,true,false,false,false,true,false,false:);
hdlc_default_fill=hdlc_fill_type(:0,0,0,0,0:);
hdlc_default_connect=
hdlc_connect_type(:
$if fln>0
?,?,?,
$endif
hdlc_default_connect_mode,1,1600,10,7,0,0,10,hdlc_default_fill:);
type
hdlc_modem_control_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
UPDATE_RTS,
RTS,
UPDATE_DTR,
DTR:boolean;
end;
hdlc_sense_status_result_type=
$if target<>rc5000
packed record
$else
packed3502 record
$endif
LINE_STATE,
CI,
CTS,
DCD,
DSR:bit;
RESULT_FIELD:0..7;
end;
hdlc_sense_status_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
LINE_STATE:byte;
end;
hdlc_sense_version_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
COM_ID,
INTERFACE,
ADAPTOR_VERSION,
ADAPTOR_RELEASE,
LAPB_VERSION,
LAPB_RELEASE:byte;
end;
hdlc_sense_version204_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
COM_ID,
DRIVER_VERSION,
ROM88_VERSION,
ROM89_VERSION,
RAMSIZE,
ROM88_SUBVERSION,
ROM89_SUBVERSION:byte;
end;
hdlc_sense_linespeed_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
COUNT,
TIME:integer;
end;
hdlc_last_FRMR_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
INF_FIELD:array(1..5)of byte;
end;
hdlc_v24_signals_type=
record
CTS_OFF,
DSR_OFF,
DCD_OFF,
CI_ON,
SQD_OFF:integer;
end;
hdlc_frmr_inf_type=
$if target<>rc5000
packed record
$else
packed3502 record
$endif
REJ_C_FIELD:byte;
VR:0..7;
RESPONSE:boolean;
VS:0..7;
D0,
D1,D2,D3,D4:bit;
Z,Y,X,W:boolean;
end;
const
hdlc_zero_frmr_inf=hdlc_frmr_inf_type(:0,0,false,0,0,0,0,0,0,false,false,false,false:);
type
hdlc_stat_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
RECEIVED,
TRANSMITTED,
SKIPPED,
RETRANSMITTED:double;
REC_RNR,
XMIT_RNR,
REC_REJ,
XMIT_REJ,
ACK_TIMEOUTS:integer;
MODEM_SIGNALS:hdlc_v24_signals_type;
LAST_FRMR_DATA:hdlc_frmr_inf_type;
REC_OVERRUN,
XMIT_UNDERRUN,
REC_ABORT,
REC_ERRORS,
ZERO_INF,
REC_INVALID:integer;
NO_REC_BUFFER:byte;
COM_ID:byte;
REC_SABM,
XMIT_SABM:integer;
REC_BYTES,
XMIT_BYTES,
REC_DATA_BYTES,
XMIT_DATA_BYTES:double;
end;
hdlc_event_result_type=
$if target<>rc5000
packed record
$else
packed3502 record
$endif
EVENT_LOST:boolean;
CAUSE:0..15;
RESULT_FIELD:0..7;
end;
hdlc_event_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
EXT_CAUSE,
LOST_EVENTS,
LINE_STATE:byte;
end;
hdlc_event_control_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
EXT_EVENTS,
NOT_REPEATED:boolean;
CLEAR_BUFFER:byte;
end;
hdlc_exchange_lcpid_type=
record
$if fln>0
FIRST,LAST,NEXT:integer;
$endif
USER_INDEX,
USER_LCPID,
SERVER_LCPID:integer;
end;
.