@X @~
~L3 COUK1247
80
~V7 56 2 -5
~D10
~H                       MUSS
~
~
~D10
~H        CONLIB
~D10
~MMANCHESTER UNIVERSITY  -  CONFIDENTIAL~
~
~
                                                           ISSUE 11~
~V9 -1
~P
~V9 1
~YCONLIB
~X%|
~S1~M~OLIBRARY IMPLEMENTATION DESCRIPTION~
~S1~M~OLibrary Compile Jobs ~
~S1~OLibrary Compile Jobs~
~S1~O1. Compile Jobs
~S~O1.1 L2X Compile for paged machines~
~
~OFiles produced~
~
List of files~
L2X<machine no.>  L2X<machine no.>00~
~
::BEGIN COMPL2X\~
DO 0 L2X\LOG %200~
MUSL %0 L2X\ %405~
*TLMODE %101 0;~
*INFORM %2400;~
**TLSEG 0 %0 %6C0000 -1 0      *FOR XMC5*~
**TLSEG 1 %10000 %640000 -2 0  *FOR XMC5*~
**TLSEG 0 %0 %330000 -1 0      *FOR XMCG*~
**TLSEG 1 %10000 %340000 -2 0  *FOR XMCG*~
**TLSEG 0 %0 %330000 -1 0      *FOR XMC3*~
**TLSEG 1 %10000 %340000 -2 0  *FOR XMC3*~
**TLSEG 0 %0 %6C0000 -1 0      *FOR XMC7*~
**TLSEG 1 %10000 %640000 -2 0  *FOR XMC7*~
**TLSEG 2 %0 %0 -3 0~
*TLLOAD 1 9;~
*TLLOAD 2 2;~
MODULE(SYS14.NO.OF.LOCAL.SEGS, SYS14.SEG.SHIFT, SYS14.PAGE.SIZE,~
       SYS14.PAGE.SHIFT, SYS14.SEG.SIZE, MAIN.LIB.DIR.SEG,~
       NO.OF.PUBLIC.LIBS, PUBLIC.LIB, PUB.LIB.DIR.SEG,
       PW0, PW1, PW2, PW3, PW4, PW5, PW6, PWW1, PWW2);~
*GLOBAL 2;~
ADDR PW0,PW1,PW2,PW3,PW4,PW5,PW6;~
LOGICAL64 PWW1,PWW2;~
*GLOBAL 9;~
LITERAL/INTEGER SYS14.NO.OF.LOCAL.SEGS = 32,SYS14.SEG.SHIFT = 18, *FOR XMC5*~
   MAIN.LIB.DIR.SEG = 44,NO.OF.PUBLIC.LIBS = 2,                   *FOR XMC5*~
   SYS14.PAGE.SIZE = 1024,SYS14.PAGE.SHIFT = 10;                  *FOR XMC5*~
LITERAL/ADDR SYS14.SEG.SIZE = %40000;                             *FOR XMC5*~
LITERAL/INTEGER SYS14.NO.OF.LOCAL.SEGS = 64,SYS14.SEG.SHIFT = 16, *FOR XMCG*~
   MAIN.LIB.DIR.SEG = 44,NO.OF.PUBLIC.LIBS = 2,                   *FOR XMCG*~
   SYS14.PAGE.SIZE = 1024,SYS14.PAGE.SHIFT = 10;                  *FOR XMCG*~
LITERAL/ADDR SYS14.SEG.SIZE = %10000;                             *FOR XMCG*~
LITERAL/INTEGER SYS14.NO.OF.LOCAL.SEGS = 64,SYS14.SEG.SHIFT = 16, *FOR XMC3*~
   MAIN.LIB.DIR.SEG = 32754,NO.OF.PUBLIC.LIBS = 2,                *FOR XMC3*~
   SYS14.PAGE.SIZE = 512,SYS14.PAGE.SHIFT = 9,                    *FOR XMC3*~
   SYS14.SEG.SIZE = %10000;                                       *FOR XMC3*~
LITERAL/INTEGER SYS14.NO.OF.LOCAL.SEGS = 128,SYS14.SEG.SHIFT = 18,*FOR XMC7*~
   MAIN.LIB.DIR.SEG = 138,NO.OF.PUBLIC.LIBS=2,                    *FOR XMC7*~
   SYS14.PAGE.SIZE=2048,SYS14.PAGE.SHIFT=11;                      *FOR XMC7*~
LITERAL/ADDR SYS14.SEG.SIZE = %40000;                             *FOR XMC7*~
LOGICAL64 [NO.OF.PUBLIC.LIBS] PUBLIC.LIB;~
INTEGER [NO.OF.PUBLIC.LIBS] PUB.LIB.DIR.SEG;~
*END~
ED MU6S:LIB022~
(FD/::X ONLY /)~
EED~
(FC/::OMIT THIS SEQUENCE FROM XCOMPILE/S/::END OF SEQUENCE/S+1)~
EED~
(FD/::HOST VAX /)E         *FOR XMC3*~
(FD/::HOST PTV /)E         *FOR XMC5*~
(FD/::HOST MU6G /)E        *FOR XMC7*~
(FD/::HOST GEM /)E         *FOR XMCG*~
ED~
(FD/::TARGET VAX/)E     *FOR MC3*~
(FD/::TARGET PTV/)E     *FOR MC5*~
(FD/::TARGET MU6G/)E     *FOR MC7*~
(FD/::TARGET GEM/)E     *FOR MC5G*~
FLIP 0 1~
LIB02A~
**DI 4 0~
MUSL 0 0 %C00~
*INFORM %2400;~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6C:MTL21\ 1~
MTL21A~
**DI 4 0~
MUSL 0 0 %800~
*INFORM %2400;~
**SELECTINPUT 4~
STOP~
::END COMPL2X\~
~S~O1.2 Library Compile for paged machines~
::BEGIN COMPLIB\?~
DO 0 LIB\?LOG %200 %20000~
LIB MTLX\~
LIB MSLX~
LIB L2X\~
OPENDIR MUSMS~
LIB DIR1\?~
MUSL %0 HLDIR\ %27               ~
**TLSEG 0 %0 %7FE00000 %F(8) 0            *FOR MC3*~
**TLSEG 0 %0 %680000 %F(8) 0          *FOR MC5*~
**TLSEG 0 %0 %360000 %F(8) 0          *FOR MC5G*~
**TLSEG 0 %0 %027C0000 %F(8) 0           *FOR MC7*~
MODULE(PDUMMY);               ~
LSPEC PDUMMY(ADDR[$LO8],ADDR[$LO8],INTEGER,INTEGER);  ~
PROC PDUMMY(P1,P2,P3,P4);             ~
END                   ~
*END                  ~
MUSL %0 COMPDIR\ %27             ~
**TLSEG 0 %0 %7FE70000 %F(8) 0            *FOR MC3*~
**TLSEG 0 %0 %6C0000 %F(8) 0          *FOR MC5*~
**TLSEG 0 %0 %1B0000 %F(8) 0          *FOR MC5G*~
**TLSEG 0 %0 %02840000 %F(8) 0            *FOR MC7*~
MODULE(FDUMMY);               ~
LSPEC FDUMMY(ADDR[$LO8],ADDR[$LO8],ADDR[$LO8],INTEGER);  ~
PROC FDUMMY(P1,P2,P3,P4);             ~
END                   ~
*END                  ~
MERGEDIR HLDIR\ COMPDIR\ HLDIR\           ~
MUSL %0 COMPDIR\ %27~
**TLSEG 0 %0 %002A0000 %F(8) 0   *FOR MC3*~
**TLSEG 0 %0 %00580000 %F(8) 0   *FOR MC5*~
**TLSEG 0 %0 %002A0000 %F(8) 0   *FOR MC5G*~
**TLSEG 0 %0 %02900000 %F(8) 0   *FOR MC7*~
MODULE (BDUMMY);~
LSPEC BDUMMY(ADDR[$LO8], ADDR[$LO8], INTEGER, INTEGER);~
PROC BDUMMY(P1, P2, P3, P4);~
END;~
*END~
MERGEDIR HLDIR\ COMPDIR\ HLDIR\~
ED MU6S:CONLIB52                  *FOR MC5*~
(FD/::SYSTEM1 /)EED                 *FOR MC5*~
(FD/::1K PAGE /)E                *FOR MC5*~
FLIP 0 1                          *FOR MC5*~
ED MU6S:CONLIB52                  *FOR MC5G*~
(FD/::SYSTEM2 /)E                 *FOR MC5G*~
FLIP 0 1                          *FOR MC5G*~
FLIP MU6S:CONLIB31 1              *FOR MC3*~
FLIP MU6S:CONLIB71 1              *FOR MC7*~
CONLIB~
**DI 4 0~
MUSL %0 BLIB\? %70F 256               *FOR MC5*~
MUSL %0 BLIB\? %70F 256               *FOR MC5G*~
MUSL %0 BLIB\? %627 256               *FOR MC3*~
MUSL %0 BLIB\? %627 256               *FOR MC7*~
*INFORM %2400;~
**TLSEG 0 %10000 %8C0000 -1 0          *FOR MC5*~
**TLSEG 2 %100 %0 -3 0             *FOR MC5*~
**TLSEG 6 %4000 %7C0000 -3 0           *FOR MC5*~
**TLSEG 3 %10000 %DC0000 -1 0      *FOR MC5*~
**TLSEG 3 %10000 %DC0000 -1 0      *FOR MC5G*~
**TLSEG 0 %10000 %8C0000 -1 0          *FOR MC5G*~
**TLSEG 2 %100 %0 -3 0                 *FOR MC5G*~
**TLSEG 6 %4000 %3F0000 -3 0           *FOR MC5G*~
**TLSEG 0 %10000 %7FFB0000 -1 0            *FOR MC3*~
**TLSEG 2 %0 %0 -3 0               *FOR MC3*~
**TLSEG 6 %4000 %3F0000 -1 0           *FOR MC3*~
**TLSEG 0 %10000 %2100000 %300000 0          *FOR MC7*~
**TLSEG 2 %0 %0 %F(7)D 0             *FOR MC7*~
**TLSEG 6 %4000 %1FC0000 %F(7)D 0            *FOR MC7*~
*TLLOAD 2 22; ::PW0 ETC~
*TLLOAD 0 27; ::SUBLIB~
*TLLOAD 6 9; :: LIB DATA~
*TLLOAD 0 18; :: USER MANAGEMENT CODE         *FOR MC5*~
*TLLOAD 0 18; :: USER MANAGEMENT CODE         *FOR MC5G*~
*TLLOAD 3 19; :: FLOPPY SUPERVISOR      *FOR MC5*~
*TLLOAD 3 19; :: FLOPPY SUPERVISOR      *FOR MC5G*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:SUP011 1~
SUP01~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:SUP021 1~
SUP02~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:SUP022 1~
SUP02~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
DEL                        *FOR MC5*~
MUSL %0 %0 %F00               *FOR MC5*~
MODULE(FLOPPY.MANAGER);     *FOR MC5*~
*CODE 19;     *FOR MC5*~
PSPEC FLOPPY.MANAGER ();     *FOR MC5*~
PROC FLOPPY.MANAGER;     *FOR MC5*~
END     *FOR MC5*~
*END     *FOR MC5*~
DEL                        *FOR MC5G*~
MUSL %0 %0 %F00               *FOR MC5G*~
MODULE(FLOPPY.MANAGER);     *FOR MC5G*~
*CODE 19;     *FOR MC5G*~
PSPEC FLOPPY.MANAGER ();     *FOR MC5G*~
PROC FLOPPY.MANAGER;     *FOR MC5G*~
END     *FOR MC5G*~
*END     *FOR MC5G*~
FLIP MU6S:LIB011 1~
LIB01~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB031 1~
LIB03~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB042A 1~
LIB04~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB051 1~
LIB05~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB061 1~
LIB06~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB071 1~
LIB07~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**TLMODE %101~
**SELECTINPUT 4~
**TLMODE %100~
ENDINPUT 4~
FLIP MU6S:LIB081 1~
LIB08~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB091 1~
LIB09~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
ED MU6S:LIB101~
(FD/::PTV /)                 *FOR MC5*~
(FD/::GEM /)                 *FOR MC5G*~
(FD/::MU6 /)                 *FOR MC7*~
(FD/::RTV /)                 *FOR MCZ*~
(FD/::VAX /)                 *FOR MC3*~
E~
FLIP 0 1~
LIB10~
**DI 4~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**TLMODE %101~
**SELECTINPUT 4~
**TLMODE %100~
ENDINPUT 4~
FLIP MU6S:LIB022 1~
LIB02~
**DI 4 0~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E00                   *FOR MC3*~
MUSL %0 %0 %E00                   *FOR MC7*~
**TLMODE %101~
**SELECTINPUT 4~
**TLMODE %100~
ENDINPUT 4~
FLIP MU6C:MTL21\ 1~
MTL21~
**DI 4~
MUSL %0 %0 %F00                   *FOR MC5*~
MUSL %0 %0 %F00                   *FOR MC5G*~
MUSL %0 %0 %E20                   *FOR MC3*~
MUSL %0 %0 %E20                   *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
DEL
LIB HLDIR\                    ~
MUSL %0 %0 %800                   ~
**TLMODE %101                 ~
PSPEC LIBRARY (ADDR[$LO8], INTEGER);          ~
PSPEC RELEASE.LIB (ADDR[$LO8]);           ~
MODULE (FORTRAN, PASCAL, BASIC);             ~
LSPEC FORTRAN (ADDR[$LO8], ADDR[$LO8], ADDR[$LO8], INTEGER);     ~
LSPEC PASCAL (ADDR[$LO8], ADDR[$LO8], INTEGER, INTEGER);  ~
LSPEC BASIC (ADDR[$LO8], ADDR[$LO8], INTEGER, INTEGER);  ~
PROC BASIC (P1, P2, P3, P4);            ~
DATAVEC BSC($LO8)                 ~
"UTIL:BASIC"                ~
END;                      ~
DATAVEC BIO($LO8)~
"UTIL:BIO"~
END;~
RELEASE.LIB(^BIO);~
RELEASE.LIB(^BSC);                ~
LIBRARY(^BIO, 0);              *FOR MC3*~
LIBRARY(^BIO, 6);              *FOR MC5*~
LIBRARY(^BIO,6);            *FOR MC5G*~
LIBRARY(^BIO,6);            *FOR MC7*~
LIBRARY(^BSC,0);                  *FOR MC5*~
LIBRARY(^BSC,0);                  *FOR MC5G*~
LIBRARY(^BSC,0);       *FOR MC3*~
BDUMMY(P1, P2, P3, P4);               ~
RELEASE.LIB(^BSC);            *FOR MC3*~
RELEASE.LIB(^BSC);                *FOR MC5*~
RELEASE.LIB(^BSC);                *FOR MC5G*~
RELEASE.LIB(^BIO);         *FOR MC5*~
RELEASE.LIB(^BIO);       *FOR MC5G*~
END                       ~
PROC FORTRAN (P1, P2, P3, P4);            ~
DATAVEC FTN($LO8)                 ~
"UTIL:FORTRAN"                ~
END;                      ~
DATAVEC FIO($LO8)~
"UTIL:FIO"~
END;~
RELEASE.LIB(^FIO);~
RELEASE.LIB(^FTN);                ~
LIBRARY(^FIO, 6);~
LIBRARY(^FTN,0);                  *FOR MC5*~
LIBRARY(^FTN,0);                  *FOR MC5G*~
FDUMMY(P1, P2, P3, P4);               ~
RELEASE.LIB(^FTN);                *FOR MC5*~
RELEASE.LIB(^FTN);                *FOR MC5G*~
RELEASE.LIB(^FIO);~
END                       ~
PROC PASCAL (P1, P2, P3, P4);             ~
DATAVEC PAS($LO8)                 ~
"UTIL:PASCAL"                 ~
END;                      ~
RELEASE.LIB(^PAS);                *FOR MC5*~
LIBRARY (^PAS, 0);                *FOR MC5*~
RELEASE.LIB(^PAS);                *FOR MC5G*~
LIBRARY (^PAS, 0);                *FOR MC5G*~
PDUMMY (P1, P2, P3, P4);              ~
RELEASE.LIB(^PAS);                *FOR MC5*~
RELEASE.LIB(^PAS);                *FOR MC5G*~
END                       ~
*END                      ~
RELEASELIB DIR1\?~
MERGEDIR DIR1\? BLIB\? DIR2\?~
DEL
MUSL %0 COMPDIR\ %327                 *FOR MC5*~
MUSL %0 COMPDIR\ %327                 *FOR MC5G*~
MUSL %0 COMPDIR\ %227                 *FOR MC3*~
MUSL %0 COMPDIR\ %227                 *FOR MC7*~
**TLSEG 0 %0 %D40000 %F(8) 0              *FOR MC5*~
**TLSEG 0 %0 %D40000 %F(8) 0              *FOR MC5G*~
**TLSEG 0 %0 %7FE60000 %F(8) 0            *FOR MC3*~
**TLSEG 0 %0 %24C0000 %F(8) 0             *FOR MC7*~
MODULE (MUSL);~
LSPEC MUSL(ADDR[$LO8],ADDR[$LO8],$IN,$IN);~
PROC MUSL(P1,P2,P3,P4);~
END~
*END~
MERGEDIR DIR2\? COMPDIR\ DIR2\?~
MUSL %0 COMPDIR\ %327                 *FOR MC5*~
MUSL %0 COMPDIR\ %327                 *FOR MC5G*~
MUSL %0 COMPDIR\ %227                 *FOR MC3*~
MUSL %0 COMPDIR\ %227                 *FOR MC7*~
**TLSEG 0 %0 %EC0000 %F(8) 0              *FOR MC5*~
**TLSEG 0 %0 %EC0000 %F(8) 0              *FOR MC5G*~
**TLSEG 0 %0 %7FE30000 %F(8) 0            *FOR MC3*~
**TLSEG 0 %0 %2800000 %F(8) 0             *FOR MC7*~
MODULE (INBOOL, OUTBOOL, INSTRING, OUTSTRING, OUTINT, REMOVE.HEAP, MAKE.HEAP,
   INIT.PIO, SETELEM, P.STR.TRUNC, ADD.BOUND,~
   COMPLEMENT, P.GET, SETOP, SETRANGE, MOVEARRAY, COMPARRAY, P.CLOSE.FILE,PBUFFV
AR,PINBIN,POUTBIN,PINREC,POUTREC,SET,FILE);~
TYPE BUFFER IS $LO8 CHAR~
OR $LO1 BOOL~
OR $IN16 INT16~
OR $IN32 INT32~
OR $RE32 RL32~
OR $RE64 RL64~
OR ADDR[$LO8] BPTR~
OR ADDR $LO8 PTR;~
TYPE FILE IS $IN16 FLAG,STREAM~
ADDR [$LO8] FILENAME~
BUFFER BUFVAR;~
TYPE SET IS LOGICAL64 SET1, SET2;~
LSPEC INBOOL()/$IN;~
LSPEC OUTBOOL($LO8,$IN);~
LSPEC INSTRING(ADDR [$LO8],$IN);~
LSPEC OUTSTRING(ADDR [$LO8],$IN);~
LSPEC OUTINT($IN,$IN);~
LSPEC REMOVE.HEAP($IN,$IN);~
LSPEC MAKE.HEAP($IN,$IN,$IN);~
LSPEC INIT.PIO();~
LSPEC SETELEM(INTEGER);~
LSPEC P.STR.TRUNC(ADDR[$LO8])/ADDR[$LO8];~
LSPEC ADD.BOUND (ADDR LOGICAL8, INTEGER) / ADDR [LOGICAL8];~
LSPEC COMPLEMENT (SET);~
LSPEC PGET (ADDR $IN)/$LO8;~
LSPEC SETRANGE ($IN, $IN);~
LSPEC SETOP (SET, SET, $IN);~
LSPEC MOVEARRAY (ADDR[$LO8], ADDR[$LO8], $IN);~
LSPEC COMPARRAY (ADDR[$LO8], ADDR[$LO8], $IN)/$IN;~
LSPEC P.CLOSE.FILE (ADDR $IN, $IN, $IN, $IN);~
LSPEC PBUFFVAR(ADDR $IN)/$LO8;~
LSPEC PINBIN(ADDR FILE,$IN);~
LSPEC POUTBIN(ADDR FILE,$IN);~
LSPEC PINREC(ADDR FILE,$IN);~
LSPEC POUTREC(ADDR FILE,$IN);~
PROC INBOOL;~
END~
PROC OUTBOOL(P1,P2);~
END~
PROC INSTRING(P1,P2);~
END~
PROC OUTSTRING(P1,P2);~
END~
PROC OUTINT(P1,P2);~
END~
PROC REMOVE.HEAP(P1,P2);~
END~
PROC MAKE.HEAP(P1,P2,P3);~
END~
PROC INITPIO;~
END~
PROC SETELEM (P1);~
END~
PROC P.STR.TRUNC(P1);~
END~
PROC ADD.BOUND(P1, P2);~
END~
PROC COMPLEMENT(P1);~
END~
PROC PGET(P1);~
END~
PROC SETRANGE (P1,P2);~
END~
PROC SETOP(P1,P2,P3);~
END~
PROC MOVEARRAY(P1,P2,P3);~
END~
PROC COMPARRAY (P1,P2,P3);~
END~
PROC P.CLOSE.FILE (P1,P2,P3,P4);~
END~
PROC PBUFFVAR(P1);~
END~
PROC PINBIN(P1,P2);~
END;~
PROC POUTBIN(P1,P2);~
END;~
PROC PINREC(P1,P2);~
END;~
PROC POUTREC(P1,P2);~
END;~
*END~
MERGEDIR DIR2\? COMPDIR\ DIR2\?~
MUSL %0 COMPDIR\ %327                 *FOR MC5*~
MUSL %0 COMPDIR\ %327                 *FOR MC5G*~
MUSL %0 COMPDIR\ %227                 *FOR MC3*~
MUSL %0 COMPDIR\ %227                 *FOR MC7*~
**TLSEG 0 %0 %E80000 %F(8) 0              *FOR MC5*~
**TLSEG 0 %0 %E80000 %F(8) 0              *FOR MC5G*~
**TLSEG 0 %0 %7FE90000 %F(8) 0            *FOR MC3*~
**TLSEG 0 %0 %2880000 %F(8) 0             *FOR MC7*~
MODULE(LIST, CONTINUE);~
LSPEC CONTINUE();~
LSPEC LIST(ADDR[$LO8], ADDR[$LO8]);~
PROC CONTINUE;~
END~
PROC LIST(P1,P2);~
END~
*END~
MERGEDIR DIR2\? COMPDIR\ DIR2\?~
DEL COMPDIR\~
DEL HLDIR\                    *FOR MC5*~
DEL HLDIR\                    *FOR MC5G*~
STOP~
::END COMPLIB\?~
~S~O1.3 BASIC UTILITIES COMPILE~
::BEGIN COMPUTL\? FOR PAGED MACHINES~
DO 0 UTL\?LOG %200~
LIB MTLX\~
LIB MSLX~
LIB L2X\~
OPENDIR MUSMS~
LIB DIR2\?~
MUSL 0 BUTL\? %705 16        *FOR MC5*~
MUSL 0 BUTL\? %705 16        *FOR MC5G*~
MUSL 0 BUTL\? %605 16        *FOR MC3*~
MUSL 0 BUTL\? %605 16        *FOR MC7*~
**TLSEG 0 %0 %D80000 %F(8) 0         *FOR MC5*~
**TLSEG 0 %0 %D80000 %F(8) 0         *FOR MC5G*~
**TLSEG 0 %0 %7FDA0000 %310000 0     *FOR MC3*~
**TLSEG 0 %0 %2740000 %F(8) 0        *FOR MC7*~
**TLSEG 1 %0  0 %F(7)D 0~
**TLSEG 2 %4000 %7C4000 -3 0         *FOR MC5*~
**TLSEG 2 %4000 %3F4000 -3 0         *FOR MC5G*~
**TLSEG 2 %4000 %3F4000 %F(8) 0      *FOR MC3*~
**TLSEG 2 %4000 %1FC4000 %F(8) 0     *FOR MC7*~
**TLLOAD 1 5~
**TLLOAD 2 9~
*INFORM %2400;~
MODULE(SYS14XSEG.SIZE,SYS14SEG.SIZE,SYS14PAGE.SHIFT,SYS14PAGE.SIZE,~
SYS17NO.OF.RESOURCES,SYS17NO.OF.USER.PARAMS,SYS17NO.OF.CONSUMABLES,~
SYS17NO.OF.REUSABLES);~
$LI SYS14XSEG.SIZE=%4000,SYS14PAGE.SHIFT=9,SYS14PAGE.SIZE=512; *FOR MC3*~
$LI/ADDR SYS14SEG.SIZE=%10000;             *FOR MC3*~
$LI SYS14XSEG.SIZE=256,     *FOR MC5*~
      SYS14PAGE.SHIFT=10,SYS14PAGE.SIZE=1024; *FOR MC5*~
$LI/ADDR SYS14SEG.SIZE=%40000;             *FOR MC5*~
LITERAL SYS14.X.SEG.SIZE = 256, SYS14.PAGE.SHIFT = 10, *FOR MC5G*~
   SYS14.PAGE.SIZE = 1024;                             *FOR MC5G*~
LITERAL / ADDR SYS14.SEG.SIZE = %10000;                *FOR MC5G*~
$LI SYS14XSEG.SIZE=128,SYS14PAGE.SHIFT=11,SYS14PAGE.SIZE=2048; *FOR MC7*~
$LI/ADDR SYS14SEG.SIZE=%40000;             *FOR MC7*~
$LI SYS17NO.OF.RESOURCES=5,SYS17NO.OF.USER.PARAMS=7;~
$LI SYS17NO.OF.CONSUMABLES=2,SYS17NO.OF.REUSABLES=3;~
*END~
ED MU6S:EDT041~
(FD/::MU6 /)E~
FLIP 0 1~
EDT04~
**DI 4 0~
MUSL %0 %0 %F00         *FOR MC5*~
MUSL %0 %0 %F00         *FOR MC5G*~
MUSL %0 %0 %E00         *FOR MC3*~
MUSL %0 %0 %E00         *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:EDT031 1~
EDT03~
**DI 4 0~
MUSL %0 %0 %F00         *FOR MC5*~
MUSL %0 %0 %F00         *FOR MC5G*~
MUSL %0 %0 %E00         *FOR MC3*~
MUSL %0 %0 %E00         *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB111 1~
LIB11~
**DI 4 0~
MUSL %0 %0 %F00        *FOR MC5*~
MUSL %0 %0 %F00         *FOR MC5G*~
MUSL %0 %0 %E00        *FOR MC3*~
MUSL %0 %0 %E00        *FOR MC7*~
**TLMODE %101~
**SELECTINPUT 4~
ENDINPUT 4~
FLIP MU6S:LIB121 1~
LIB12~
**DI 4 0~
MUSL %0 %0 %B00        *FOR MC5*~
MUSL %0 %0 %B00        *FOR MC5G*~
MUSL %0 %0 %A00        *FOR MC3*~
MUSL %0 %0 %A00        *FOR MC7*~
**SELECTINPUT 4~
ENDINPUT 4~
RL DIR2\?~
MERGEDIR DIR2\? BUTL\? DIR3\?~
STOP~
::END COMPUTL~
~S~O1.4SUPERVISOR COMPILE~
::BEGIN COMPSUP\? FOR PAGED MACHINES~
DO 0 SUP\?LOG %200~
LIB MTLX\~
LIB MSLX~
LIB L2X\~
LIB LDIR\?~
OPENDIR MUSMS~
ED MU6S:CONLIB52
(FD/::SYSTEM1 /)EED                 *FOR MC5*~
(FD/::SYSTEM2 /)EED                 *FOR MC5G*~
(FD/::1K PAGE /)E
FLIP 0 1
CONLIB~
**DI 4~
MUSL 0 BSUP\? %705 16        *FOR MC5*~
MUSL 0 BSUP\? %705 16        *FOR MC5G*~
MUSL 0 BSUP\? %605 16        *FOR MC3*~
MUSL 0 BSUP\? %605 16        *FOR MC7*~
**TLSEG 4 %0 %DC0000 %F(8) 0
**TLSEG 1 %0  0 %F(7)D 0~
**TLSEG 2 %4000 %7C4000 -3 0         *FOR MC5*~
**TLSEG 2 %4000 %3F4000 -3 0         *FOR MC5G*~
**TLSEG 3 0 0 -2 0~
**TLLOAD 1 22~
**TLLOAD 2 9~
**TLLOAD 3 27~
**TLLOAD 4 4~
*INFORM %2400;~
**SI 4~
ENDINPUT 4~
FLIP MU6S:SUP023 1~
SUP02~
**DI 4 0~
MUSL %0 %0 %B00        *FOR MC5*~
MUSL %0 %0 %B00        *FOR MC5G*~
MUSL %0 %0 %A00        *FOR MC3*~
MUSL %0 %0 %A00        *FOR MC7*~
**TLMODE %101~
**SELECTINPUT 4~
ENDINPUT 4~
STOP~
::END COMPSUP~
~Y
~V9 -1
~P
~F
