| 123456789101112131415161718192021222324252627282930313233343536 |
- Listing:
- 1 (*# call(reg_param=>(),reg_saved=>(di,si,ds,es,st0,st1,st2,st3,st4,st5,st6),near_call=>off,seg_name=>APACK2) *)
- 2 (*# data(near_ptr=>off,seg_name=>APACK2) *)
- 3 (*# module(init_code=>off) *)
- 4 DEFINITION MODULE apack2;
- 5 (*
- 6 Copyright (C) 1989,1990 Jensen & Partners International
- 7 *)
- 8
- 9 CONST
- 10 buf_size = 3800H;
- 11
- 12 TYPE
- 13 packed_buf = ARRAY [0..(buf_size DIV 4)*5-1] OF SHORTCARD;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 14
- 15 VAR
- 16 reset_count:CARDINAL;
- 17 collision_count:CARDINAL;
- 18 p:packed_buf;
- ***** ^ not supported yet
- 19
- 20 (* n must not exceed buf size (to be safe) *)
- 21 PROCEDURE Pack( n:CARDINAL; in:FarADDRESS ):CARDINAL;
- ***** ^ undeclared identifier
- 22 PROCEDURE Unpack( n:CARDINAL; out:FarADDRESS );
- ***** ^ undeclared identifier
- 23
- 24 END apack2.
- ***** ^ not supported yet
- 6 errors
|
