-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- EthernetOneStarter.mesa, HGM, 22-Nov-83  6:18:21

DIRECTORY
  Driver USING [CreateDefaultEthernetOneDrivers],
  Environment USING [Byte],
  EthernetOneFace USING [
    DeviceHandle, GetEthernet1Address, GetNextDevice, nullDeviceHandle],
  PupDefs USING [SmashMyHostNumber];

EthernetOneStarter: PROGRAM
  IMPORTS Driver, EthernetOneFace, PupDefs =
  BEGIN


  GetEthernetHostNumber: PROCEDURE =
    BEGIN
    ether: EthernetOneFace.DeviceHandle;
    ether ← EthernetOneFace.GetNextDevice[EthernetOneFace.nullDeviceHandle];
    IF ether#EthernetOneFace.nullDeviceHandle THEN
      BEGIN
      net, host: Environment.Byte;
      [net, host] ← EthernetOneFace.GetEthernet1Address[ether];
      PupDefs.SmashMyHostNumber[host];
      END;
    END;

  -- START traps do all the work
  [] ← Driver.CreateDefaultEthernetOneDrivers[];
  GetEthernetHostNumber[];
  END..