home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / tools / prp.abs < prev    next >
Encoding:
Text File  |  1988-05-03  |  2.2 KB  |  50 lines
  1. package PROP_LINK is -- an interactive program to evaluate the signal per-
  2. -- formance and noise of a set of RF propagation links.  The program allows
  3. -- the user to input transmission and receiver data for up to 300 nodes, 
  4. -- each with up to 15 transmitters and 15 receivers.  RF propagation   
  5. -- routines will be based on the SIMSTAR RF propagation capabilities
  6.  
  7.   type LINK_INFO is 
  8.     record  
  9.        -- describes geographic location, power, bands, etc. of nodes   
  10.     end record;
  11.  
  12.   type OUTPUT_DATA is 
  13.     record  
  14.        -- calculated signal and noise data from RF propagation routines  
  15.     end record;
  16.  
  17.   procedure EXECUTIVE (NODE_DATA,RECEIVER_DATA,TRANSMITTER_DATA:out LINK_INFO);
  18.   -- interactive procedure gets link problem data from user.
  19.  
  20.   procedure RF_UTILITIES (NODE_DATA,RECEIVER_DATA,TRANSMITTER_DATA:
  21.                                 in LINK_INFO; 
  22.                        SIGNAL_AND_NOISE:out OUTPUT_DATA);
  23.   -- main procedure calls ELF, VLF, LF, MF/HF, and VHF/UHF/SHF/EHF procedures
  24.  
  25.   procedure IO_HANDLER (NODE_DATA,RECEIVER_DATA,TRANSMITTER_DATA:
  26.                                 in LINK_INFO; 
  27.                        SIGNAL_AND_NOISE:in OUTPUT_DATA);
  28.   -- writes data files and signal and noise results
  29.  
  30.   package TITLE_PAGE is new TITLE_PAGE_PACKAGE
  31.           (DEVELOPING_ORGANIZATION     => "IWG Corp.",
  32.            AUTHOR                      => "Jim Conrad/Bruce Perry",
  33.            CONTACT                     => "Bruce Perry",
  34.            ADDRESS                     => ("975 Hornblend Street, Suite C",
  35.                                            "San Diego", "CA","92109"),
  36.            PHONE                       => (619,483,0631),
  37.            DATE_SUBMITTED              => (22,Jan,1984));
  38.  
  39.   package TECHNICAL PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  40.           (LINES_OF_SOURCE_CODE        => 21000,
  41.            DEVELOPMENT_COMPILER        => (DECVAX,TSIADA),
  42.            PLANNED_COMPILERS_SUPPORTED => (DECVAX,DECADA)
  43.            AUXILLIARY_FILES_SIZE       => (80 * LINES_OF_CODE);
  44.  
  45.   package DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  46.            COMPLETED_EVENTS            => ((FIRST_BUILT,(15,APR,1985))),
  47.            SCHEDULED_EVENTS            => ((DELIVERY,(17,MAY,1985)));
  48.  
  49. end PROP_LINK;
  50.