[comp.sys.apollo] transmit status register on apollo token ring board for new 400t and 425 series apollos

oliveria@caen.engin.umich.edu (ROQUE DONIZETE DE OLIVEIRA) (04/06/91)

We have a program that tells us right away when the apollo network is down
(before users call our hotline). This program doesn't run on the dn10k and
the new 400t and 425 series apollos because we don't have the transmit status
register on the apollo token ring board for these machines. The pascal code
goes like this:

    if address = 0 then begin

       asknode_$who(node_list,1,nodcnt); {get my node id}
       node_type_name.all := ' ';        { clear name }
       asknode_$internet_info(ask_config,node_list[1],0,0,sizeof(config_reply),config_reply,status);
       if status.all = status_$ok then with config_reply : r do begin
           if netstat_$decode_node_type (r, node_type_name.all, node_type_len) then begin

               if ((node_type_name.c6 = 'DN2500') and
                  ((node_type_name.pad61 = ' ') or
                   (node_type_name.pad61 = '/')))
                    then address := 16#03ff9b002;
      
               if ((node_type_name.c6 = 'DN3000') and
                  ((node_type_name.pad61 = ' ') or
                   (node_type_name.pad61 = '/')))
                    then address := 16#03ff7c02;
      
               if (((node_type_name.c6 = 'DN4000') or
                    (node_type_name.c6 = 'DN3500') or
                    (node_type_name.c6 = 'DN4500')) and
                   ((node_type_name.pad61 = ' ') or
                    (node_type_name.pad61 = '/')))
                     then address := 16#03fff7c02; 

       ..... ..... ....
       ..... ..... ....

Does anyone know the  node_type_name.c* and the address (using the nomenclature
in the piece of code above) for these apollos (400t, 425, 433, DN5500 and dn10k) ?
Thanks.

     Roque Oliveira
     oliveria@caen.engin.umich.edu
     Computer Aided Engineering Network
     The University of Michigan