

--Configuration for MU T-rack (first rack) with some switched links installed
--P.C.Capon 22/3/92

VAL K IS 1024 :
VAL M IS K * K:
VAL rack.transputers IS 64:
VAL rack2M.transputers IS 20: --20 rack transputers with 2 Mbytes
NODE tadpole,control:
[64] NODE rack:
ARC tosun:


NETWORK transputer.rack
  DO
    SET tadpole (type,memsize := "T414",1*M)
    SET control (type,memsize := "T414",1*M)
    DO i = 0 FOR rack2M.transputers
      SET rack[i] (type, memsize := "T800",2*M)
    DO i = rack2M.transputers FOR rack.transputers - rack2M.transputers
      SET rack[i] (type, memsize := "T800",1*M)
    SET graph[0] (type, memsize := "T800", 4*K)
    DO i = 1 FOR 4
      SET graph[i] (type, memsize := "T800",1*M)

    CONNECT tadpole[link][0] TO HOST WITH tosun
    CONNECT tadpole[link][1] TO control[link][0]
    CONNECT tadpole[link][3] TO rack[0][link][0]
    CONNECT tadpole[link][2] TO rack[63][link][1]
    DO i = 0 FOR rack.transputers - 1
      CONNECT rack[i][link][1] TO rack[i+1][link][0]


    -- hardware description of switched link connections
    -- table giving for each transputer i the destination transputer
    -- of the link2 to link3 connection 
    VAL three.in IS [ 3, 4, 5, 1, 6,-1, 2, 0,
                     -1,-1,-1,-1,-1,-1,-1,-1,
                     -1,-1,-1,-1,-1,-1,-1,-1,
		     -1,-1,-1,-1,-1,-1,-1,-1,
                     -1,-1,-1,-1,-1,-1,-1,-1,
                     -1,-1,-1,-1,-1,-1,-1,-1,
                     -1,-1,-1,-1,-1,-1,-1,-1,
                     -1,-1,-1,-1,-1,-1,-1,-1]:

    DO i = 0 FOR rack.transputers
      IF
        three.in[i] <> (-1)
          CONNECT rack[i][link][2] TO rack[three.in[i]][link][3]
        TRUE
          SKIP
:
--Software configuration for flight Demonstration

:
  
