!*************************
!* loadups/loadupy     *
!* DATE: 05.jan.82       *
!* This is a special version of loadup *
!* to load the command :-              *
!*     batch go/.tt                    *
!***************************************

%include "deimosperm"


%begin
     %constinteger load ser = 5

     %recordformat pe(%byteinteger service, reply, (%integer a1, %c
       %byteintegername b, %integer c) %or  %c
      (%byteinteger line, line type, %integer ad, %byteinteger rxint, txint))

     %record (pe)p
     %integer i, j, k, time

     %integer line, line type, address, rxint, txint, id
     %owninteger first prot = 0

     %ownstring (13) SS = "LOAD FEP"
     %ownstring (13) s2 = "SHARED"


     %integerfn call loader(%string(*) %name s)
      %recordformat p3f(%byteinteger ser, reply, a1, a2, %c
        %byteintegername b, %byteinteger c1, c2)
      %record (p3f) p3

         S = S.snl
        p3_ser = load ser;  p3_reply = own id
        p3_a1 = 1; p3_a2 = fsys
        p3_b == BYTEINTEGER(ADDR(S)+1);  p3_c1 = 4; p3_c2 = tt no
        ponoff(p3)
        %result = p3_a1
     %end


         PRINTSTRING("Loading "); printstring(s2); newline
         id = call loader(s2)
         printstring("Loading "); printstring(ss); newline
        id = call loader(ss)
         %if id = 0 %start
            printstring("Failed to load:"); printstring(ss)
         %else
            p_service = 0; poff(p);         ! wait for it to stop
         %finish
%endofprogram