PROCEDURE Init(VAR Status: integer);
   EXTERNAL;
{*USER*
 
Initialization routine for AMIRTR. Does normal initialization things.
 
Status - >= is number of LUNS assigned, < 1 is an error
code. Generally, any negative status is grounds for suicide.
 
Functions:
 
        1. Translate "RTR$LOG_FILE" and open the log file.
           Set up initial debug conditions.
        2. Assign all net LUNS to device NS:
        3. Finds out local node name (global MyNode) by translation of
           logical SYS$NODE. This is a one-time (non-recursive) translation.
        4. Zero out all statistics, pointers, etc.
        5. Open the network mailbox.
        6. Set up Receive Data Notification.
 }