| 12345678910111213141516171819202122232425 |
- (*# 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.
|
