(*# call(reg_param=>(),reg_saved=>(di,si,ds,es,st0,st1,st2,st3,st4,st5,st6),near_call=>off,seg_name=>APACK2) *)
(*# data(near_ptr=>off,seg_name=>APACK2) *)
(*# module(init_code=>off) *)
DEFINITION MODULE apack2;
(*
        Copyright (C) 1989,1990 Jensen & Partners International
*)

CONST
  buf_size = 3800H;

TYPE
  packed_buf   = ARRAY [0..(buf_size DIV 4)*5-1] OF SHORTCARD;

VAR
  reset_count:CARDINAL;
  collision_count:CARDINAL;
  p:packed_buf;

(* n must not exceed buf size (to be safe) *)
PROCEDURE Pack( n:CARDINAL; in:FarADDRESS ):CARDINAL;
PROCEDURE Unpack( n:CARDINAL; out:FarADDRESS );

END apack2.