; define groups according to plm86 compact model
%If (%Asm286) Then (
          assume    ds:base_data
) Else (
DGroup  Group   base_data
CGroup  Group   Code
assume  ds:DGroup
assume  cs:CGroup
)FI

%*Define (Alarms (Connect_Timer, Send_Timer)) (
%If (%Asm286) Then (
code      segment   Er public
) Else (
Code     Segment Public 'Code'
)FI
Public	Connect_Alarm, Send_Alarm

%If (%Connect_Timer LT 7)
Then (
Connect_Alarm       DW  0
                    DW  1
)
Else
(
Connect_Alarm       DW  0
                    DW	(%Connect_Timer / 7 ) + 1
)
Fi

%If (%Send_Timer LT 7)
Then (
Send_Alarm          DW  0
                    DW  1
)
Else
(
Send_Alarm          DW	0
                    DW	(%Send_Timer / 7 ) + 1
)
Fi

Code ends
)

%*Define(Internal_Transmit_Buffers (Max_Outstanding_RFD_Reqs,
                                    Max_FS_Connections,
                                    DataLink_Data_Size)) (

Short_TDB_Long	Equ		164
Long_TDB_Long	Equ		386
FS_Entry_Long	Equ		1696

%If (%Asm286) Then (
code      segment   Er public
) Else (
Code     Segment Public 'Code'
)FI
Public	Short_TDB_Count, Long_TDB_Count, FS_Count, FS_Last
Public	DataLink_Data_Size

%If (%Max_Outstanding_RFD_Reqs GT 2)
Then (
Short_TDB_Count	DB		(%Max_Outstanding_RFD_Reqs / 2) + 3
Long_TDB_Count	DB		(%Max_Outstanding_RFD_Reqs / 3) + 1
FS_Count	DB		%Max_FS_Connections
FS_Last		DB		%Max_FS_Connections - 1
DataLink_Data_Size	DW	%Datalink_Data_Size
)
Else
(
Short_TDB_Count	DB		%Max_Outstanding_RFD_Reqs
Long_TDB_Count	DB		%Max_Outstanding_RFD_Reqs
FS_Count	DB		%Max_FS_Connections
FS_Last		DB		%Max_FS_Connections - 1
DataLink_Data_Size	DW	%Datalink_Data_Size
)
Fi

Code ends

%If (%Asm286) Then (
base_data      segment   Rw public
) Else (
base_data	Segment	Public 'Data'
)FI
Public	Short_TDB, Long_TDB, FS_Table, Consumer_Name_Table
Public	Short_Xlator_Table, Long_Xlator_Table

%If (%Max_Outstanding_RFD_Reqs GT 2)
Then 
(
Short_TDB	DB	((%Max_Outstanding_RFD_Reqs / 2) + 3) * Short_TDB_Long	Dup(?)
Long_TDB	DB	((%Max_Outstanding_RFD_Reqs / 3) + 1) * Long_TDB_Long	Dup(?)
Short_Xlator_Table	DB	((%Max_Outstanding_RFD_Reqs / 2) + 3) * 4		Dup(?)
Long_Xlator_Table	DB	((%Max_Outstanding_RFD_Reqs / 3) + 1) * 4		Dup(?)
FS_Table	DB	%Max_FS_Connections * FS_Entry_Long						Dup(?)
Consumer_Name_Table	DB	%Max_FS_Connections * 35						Dup(?)
)
Else
(
Short_TDB	DB	%Max_Outstanding_RFD_Reqs * Short_TDB_Long				Dup(?)
Long_TDB	DB	%Max_Outstanding_RFD_Reqs * Long_TDB_Long				Dup(?)
Short_Xlator_Table	DB	%Max_Outstanding_RFD_Reqs * 4					Dup(?)
Long_Xlator_Table	DB	%Max_Outstanding_RFD_Reqs * 4					Dup(?)
FS_Table	DB	%Max_FS_Connections * FS_Entry_Long						Dup(?)
Consumer_Name_Table	DB	%Max_FS_Connections * 35						Dup(?)
)
Fi

base_data	Ends
)