home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / aesvdi.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.1 KB  |  62 lines
  1. DEFINITION MODULE AESVDI;
  2.  
  3. (*
  4.  *  This module provides the stubs for AES and VDI calls.  It
  5.  *  also sets up various arrays and gives GEM their addresses
  6.  *  via the ApplInit call.  These arrays are used by the
  7.  *  application, via AES and VDI calls, to communiate with
  8.  *  GEM.
  9.  *
  10.  *  Note: GEM expects 2 byte INTEGERs, but M2/68 uses 4 byte
  11.  *        INTEGERs.  Thus, GEM arrays of INTEGER are written
  12.  *        here in terms of SHORTWORD, and all GEM interface
  13.  *        library calls must do conversions between the
  14.  *        application's INTEGERs and the GEM array's SHORTWORDs.
  15.  *
  16.  *
  17.  *  Copyright (c) 1987,1988,1989 by
  18.  *  ana-systems, Foster City, California.
  19.  *  All Rights Reserved.
  20.  *
  21.  *  This software is furnished under a license and may be used and copied
  22.  *  only  in accordance with  the  terms  of  such  license and  with the
  23.  *  inclusion of the above copyright notice.  This software or  any other
  24.  *  copies thereof may not be provided or otherwise made available to any
  25.  *  other  person.   No title to and ownership of the  software is  herby
  26.  *  transferred.
  27.  *
  28.  *  The information in this software is  subject to change without notice
  29.  *  and  should  not be construed as a commitment by ana-systems.   No
  30.  *  warranty is implied or expressed.
  31.  *)
  32.  
  33. FROM SYSTEM IMPORT ADDRESS,SHORTWORD;
  34.  
  35. EXPORT QUALIFIED AES,VDI,contrl,global,intin,ptsin,intout,ptsout,addrin,
  36.                  addrout,ApplInit;
  37. TYPE 
  38.    ParamArr128 = ARRAY [0..127] OF SHORTWORD;
  39.    ParamArr15  = ARRAY [0..14]  OF SHORTWORD;
  40.    ParamArr12  = ARRAY [0..11]  OF SHORTWORD;
  41.    ParamArr2   = ARRAY [0..1]   OF ADDRESS;
  42. VAR
  43.    aespb   : ARRAY [0..5] OF ADDRESS;
  44.    vdipb   : ARRAY [0..4] OF ADDRESS; 
  45.    contrl  : ParamArr12;
  46.    global  : ParamArr15;
  47.    intin   : ParamArr128;
  48.    intout  : ParamArr128;
  49.    ptsin   : ParamArr128;
  50.    ptsout  : ParamArr128;
  51.    addrin  : ParamArr2;
  52.    addrout : ADDRESS;
  53.    
  54. PROCEDURE AES;    (* Call AES trap 2. *)
  55. PROCEDURE VDI;    (* Call VDI trap 2. *)
  56. PROCEDURE ApplInit():INTEGER;
  57. (*
  58.  *  Returns apid number which must be >=0.
  59.  *)
  60.  
  61. END AESVDI.
  62.