|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »CP.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »CP.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »CP.K«
PROGRAM CENTRALPROCES;
CONST MAXUSERS =2;
MAXFILES =100;
MZONESIZE =4000;
HELPBLT = 300;
MAXRECSIZE = 150;
TOTALKEYSIZE =157;
MAXKEYSIZE =20;
TYPE
KEYADR =1..TOTALKEYSIZE;
AR =ARRAY (0..0) OF INTEGER;
(*$IISFHEAD1*)
USERNR =1..MAXUSERS;
ZONEADR =1..MZONESIZE;
FILNR =1..MAXFILES;
POSTADR =0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
SENDER =^INTEGER; (*ADRESSE PÅ MESSAGE-AFSENDER *)
POINTREC=^COMMBUF; (*ADRESSE PÅ FÆLLESOMRÅDE-START *)
PRIORANGE=4..7;
CPSTAT =RECORD
CPPCB :INTEGER;
STATUS :ARRAY (1..100) OF INTEGER
END;
STATFILE=FILE OF CPSTAT;
USERDESC=RECORD
PROGRAMNR:INTEGER;
STATUS:ARRAY (FILNR) OF ACCMODE
END;
VAR
USER :ARRAY (USERNR) OF USERDESC;
Z :ARRAY (ZONEADR) OF INTEGER;
ZONEPOST:ARRAY (FILNR) OF INTEGER;(*NR PÅ FØRSTE POST I ZONEFIL*)
FILEHEAD:ISFHEAD;
FUSK :AR; (*FOR AT KUNNE FLYTTE EN ADRESSE*)
REC :POINTREC; (*FRA ET MESSAGE IND I POST *)
AFSENDER:SENDER;
AFSKED :POINTREC; (*RESERVERET PLADS TIL SVAR-BESKED*)
CURRFUNC:MESSAGETYPE;
NROFFILES:FILNR;
STATUSER,
CURRUSER:USERNR;
F,ZONEFIL:ISF;
CFILE,
CURRFILE,
NROFUSERS,
MLÆNGDE,MSTATUS,
IER,IREC:INTEGER;
SVAR :BOOLEAN;
BESKED :MESSAGE;
CPSTATUS:STATFILE;
(*$P*)
(*$IRETURNE1*)
PROCEDURE IOC;
FORWARD;
PROCEDURE LÆSZONE;
FORWARD;
PROCEDURE SKRIVZONE;
FORWARD;
PROCEDURE COPSEGS(SEGADR,WORDS,WORDADR:INTEGER;INOUT:ACCMODE);
FORWARD;
(*$IINITIAT1*)
(*$P*)
SEGMENT PROCEDURE PRELUDE;
TYPE
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
FILDESC=RECORD
FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);
VEDLNIVEAU:NIVEAU;
ZONESIZE:INTEGER;
END;
FILEDESC=FILE OF FILDESC;
VAR
ISFFILES:FILEDESC;
FNAVN :STRING(18);
ZFADR,Q :INTEGER;
(*$IIOPE1*)
(*$P*)
BEGIN (*PRELUDE*)
FNAVN:='ZONEFIL:P2:0350:S';
(*^ RAMDISK*)
REWRITE(ZONEFIL,FNAVN);IOC;
CURRFILE:=0;
ZFADR:=1;
FNAVN:='ISFFILES:P2:0000:S';
RESET(ISFFILES,FNAVN);IOC;
SEEK(ISFFILES,1);IOC;
GET(ISFFILES);IOC;
WHILE ISFFILES^.FILNAVN(1)<>'@' DO
BEGIN
CURRFILE:=CURRFILE+1;
IER:=0;
IF ISFFILES^.FILNAVN(1)<>'#' THEN
BEGIN
Z(HELPBLT+1):=ISFFILES^.ZONESIZE;
IF ISFFILES^.ZONESIZE>MZONESIZE-HELPBLT THEN
IER:=-16
ELSE
BEGIN
ZONEPOST(CURRFILE):=ZFADR;
REWRITE(F,ISFFILES^.FILNAVN);IOC;
FILEHEAD.FILENAME:=ISFFILES^.FILNAVN;
IOPEN;
IF TOTALKEYSIZE<MAXUSERS*FILEHEAD.KEYSIZE THEN IER:=-29
END;
IF IER<>0 THEN
BEGIN
GOTOXY(1,10);
Q:=1;
WRITELN('FEJL NR',IER:5,' VED ÅBNING AF ',ISFFILES^.FILNAVN);
IF NOT (-IER IN (.18,19.)) THEN EXIT(CENTRALPROCES)
END;
SKRIVZONE;
ZFADR:=ZFADR+(75+MAXUSERS*FILEHEAD.KEYSIZE-1) DIV 232+1+
(FILEHEAD.BUTSIZE+FILEHEAD.BLTSIZE+FILEHEAD.BLKSIZE-1) DIV 232+1
END
ELSE
ZONEPOST(CURRFILE):=0;
GET(ISFFILES);IOC
END;
NROFFILES:=CURRFILE;
FOR CURRUSER:=1 TO MAXUSERS DO WITH USER(CURRUSER) DO
BEGIN
PROGRAMNR:=-1;
FOR CURRFILE:=1 TO NROFFILES DO STATUS(CURRFILE):=LUKKET
END;
CURRFILE:=0;
NROFUSERS:=0;
CLOSE(ISFFILES);IOC
END; (*PRELUDE*)
(*$P*)
SEGMENT PROCEDURE POSTLUDE;
(*$IICLOS1*)
(*LUKNING AF ALLE FILER*)
BEGIN (*POSTLUDE*)
IF CURRFILE<>0 THEN
SKRIVZONE
ELSE WRITELN('CURRFILE VAR 0');
FOR CURRFILE:=1 TO NROFFILES DO
IF ZONEPOST(CURRFILE)<>0 THEN
BEGIN
LÆSZONE;
ICLOSE
END;
CLOSE(ZONEFIL);IOC
END; (*POSTLUDE*)
(*$P*)
PROCEDURE IOC;
BEGIN
IER:=IORESULT;
IF IER<>0 THEN
BEGIN
WRITELN('CP IO-FEJL ',IER);READLN;
EXIT(CENTRALPROCES)
END
END;
PROCEDURE LÆSZONE;
VAR TIL:INTEGER;
BEGIN (*$XT*)
WRITELN('LÆSZONE',CURRFILE:5,ZONEPOST(CURRFILE):5);READLN;(*$X-*)
(*$C-*)
SEEK(ZONEFIL,ZONEPOST(CURRFILE));IOC;
TIL:=1;
REPEAT
GET(ZONEFIL);IOC;
(*$R-*)
MOVELEFT(ZONEFIL^(1),FILEHEAD.A(TIL),464);
(*$R+*)
TIL:=TIL+232
UNTIL TIL>75+MAXUSERS*FILEHEAD.KEYSIZE;
(*$XT*)
WRITELN(FILEHEAD.BUT:5,FILEHEAD.ENTRYSIZE:5,FILEHEAD.FILENAME);READLN;(*$X-*)
TIL:=FILEHEAD.BUT;
REPEAT
GET(ZONEFIL);IOC;
MOVELEFT(ZONEFIL^(1),Z(TIL),464);
TIL:=TIL+232
UNTIL TIL>FILEHEAD.KEY2-1; (*$XT*)
WRITELN(Z(FILEHEAD.BUT):5,Z(FILEHEAD.BUT+1):5);READLN;(*$X-*)
REWRITE(F,FILEHEAD.FILENAME);IOC
(*$C+*)
END;
PROCEDURE SKRIVZONE;
VAR TIL:INTEGER;
BEGIN (*$XT*)
WRITELN('SKRIVZONE',CURRFILE:5,ZONEPOST(CURRFILE):5);READLN;(*$X-*)
(*$C-*)
SEEK(ZONEFIL,ZONEPOST(CURRFILE));IOC;
TIL:=1;
REPEAT
(*$R-*)
MOVELEFT(FILEHEAD.A(TIL),ZONEFIL^(1),464);
(*$R+*)
PUT(ZONEFIL);IOC;
TIL:=TIL+232
UNTIL TIL>75+MAXUSERS*FILEHEAD.KEYSIZE;
TIL:=FILEHEAD.BUT;
REPEAT
MOVELEFT(Z(TIL),ZONEFIL^(1),464);
PUT(ZONEFIL);IOC;
TIL:=TIL+232
UNTIL TIL>FILEHEAD.KEY2-1;
CLOSE(F);IOC
(*$C+*)
END;
(*$P*)
FUNCTION KEYSTART:INTEGER;
BEGIN
KEYSTART:=(CURRUSER-1)*FILEHEAD.KEYSIZE+1
END;
PROCEDURE COPSEGS;(*SEGADR,WORDS,WORDADR:INTEGER;INOUT:ACCMODE*)
VAR I:INTEGER;
BEGIN (*$XT*)
WRITELN('COPSEGS',SEGADR:5,WORDS:5,WORDADR:5);(*$X-*)
(*$C-*)
IF INOUT=LÆS THEN
BEGIN
SEEK(F,SEGADR);
IOC;
REPEAT
GET(F);
IOC;
IF WORDS>231 THEN
BEGIN
MOVELEFT(F^(1),Z(WORDADR),464);
(*FOR I:=1 TO 232 DO Z(WORDADR+I):=F^(I);*)
WORDADR:=WORDADR+232;
END ELSE MOVELEFT(F^(1),Z(WORDADR),2*WORDS);
(*FOR I:=1 TO WORDS DO Z(WORDADR+I):=F^(I);*)
WORDS:=WORDS-232
UNTIL WORDS<1
END ELSE
BEGIN
SEEK(F,SEGADR);
IOC;
REPEAT
IF WORDS>231 THEN
BEGIN
MOVELEFT(Z(WORDADR),F^(1),464);
(*FOR I:=1 TO 232 DO F^(I):=Z(WORDADR+I);*)
WORDADR:=WORDADR+232;
END ELSE MOVELEFT(Z(WORDADR),F^(1),2*WORDS);
(*FOR I:=1 TO WORDS DO F^(I):=Z(WORDADR+I);*)
WORDS:=WORDS-232;
PUT(F);
IOC
UNTIL WORDS<1
END
(*$C+*)
END;
(*$P*)
PROCEDURE SENDM(RECEIVER:SENDER;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);EXTERNAL;
PROCEDURE RECEIV(VAR AFSENDER:SENDER;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);EXTERNAL;
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);EXTERNAL;
PROCEDURE SETPR(PRIORITY:PRIORANGE);EXTERNAL;
PROCEDURE OBEY;
FORWARD;
(*$IEXCOMCO1*)
(*$ISÆTØ1*)
(*$IREADPRO1*)
(*$IFINDPOS1*)
(*$IFORSKY1*)
(*$IPUTGE1*)
(*$IINSER1*)
(*$INEXTRE1*)
(*$IDELET1*)
(*$IDETERMI1*)
(*$IOBE1*)
(*$P*)
PROCEDURE ALLEGRO;
(*ADMINISTRATION AF DATASTRUKTUR, MODTAGELSE OG AFSENDELSE AF MESSAGES,
BRUG AF FILSYSTEMET*)
BEGIN
REPEAT
IER:=0;
RECEIV(AFSENDER,BESKED,MLÆNGDE);
(*
REPEAT
IF BESKED.KOMMANDO=ÅBEN THEN
ALLOCA(AFSKED,16,MSTATUS)
ELSE
ALLOCA(AFSKED,14,MSTATUS);
IF MSTATUS<>0 THEN
BEGIN
WRITELN('ALLOCASTATUS',MSTATUS:5);
READLN;READ(MSTATUS)
END
UNTIL MSTATUS=0;
*)
DETERMIN;
IF IER=0 THEN OBEY;
(*
DEALLO(AFSKED,MSTATUS);
IF MSTATUS<>0 THEN
BEGIN
WRITELN('DEALLOSTATUS',MSTATUS:5);
READLN
END;
*)
BESKED.INFO:=IER;
REPEAT
IF CURRFUNC=ÅBEN THEN
BEGIN
BESKED.IREC:=FILEHEAD.RECSIZE;
SENDM(AFSENDER,BESKED,6,MSTATUS)
END
ELSE
IF (CURRFUNC<>STOPSYS) OR (NROFUSERS<>0) THEN
SENDM(AFSENDER,BESKED,4,MSTATUS);
IF MSTATUS<>0 THEN
BEGIN
WRITELN('SENDMSTATUS',MSTATUS:5);
READLN;READ(MSTATUS)
END
UNTIL MSTATUS=0
UNTIL (CURRFUNC=STOPSYS) AND (NROFUSERS=0)
END;
(*$P*)
BEGIN
SETPR(5); (*$XT*)
WRITELN(1:5,MEMAVAIL:6);(*$X-*)
PRELUDE; (*$XT*)
WRITELN(2:5,MEMAVAIL:6);(*$X-*)
ALLEGRO; (*$XT*)
WRITELN(3:5,MEMAVAIL:6);(*$X-*)
POSTLUDE; (*$XT*)
WRITELN(4:5,MEMAVAIL:6);(*$X-*)
SETPR(6);
IF (CURRFUNC=STOPSYS) AND (NROFUSERS=0) THEN
SENDM(AFSENDER,BESKED,4,MSTATUS)
END.
0x0000…0018 Line {l1=0x16, l2=»PROGRAM CENTRALPROCES;«, l3=0x16}
0x0018…0036 Line {l1=0x1c, l2=»CONST MAXUSERS =2; «, l3=0x1c}
0x0036…005a Line {l1=0x22, l2=» MAXFILES =100; «, l3=0x22}
0x005a…007a Line {l1=0x1e, l2=» MZONESIZE =4000;«, l3=0x1e}
0x007a…009a Line {l1=0x1e, l2=» HELPBLT = 300;«, l3=0x1e}
0x009a…00ba Line {l1=0x1e, l2=» MAXRECSIZE = 150;«, l3=0x1e}
0x00ba…00d9 Line {l1=0x1d, l2=» TOTALKEYSIZE =157;«, l3=0x1d}
0x00d9…00f7 Line {l1=0x1c, l2=» MAXKEYSIZE =20;«, l3=0x1c}
0x00f7…00fd Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00fd…0118 Line {l1=0x19, l2=»KEYADR =1..TOTALKEYSIZE;«, l3=0x19}
0x0118…013b Line {l1=0x21, l2=»AR =ARRAY (0..0) OF INTEGER;«, l3=0x21}
0x013b…014b Line {l1=0x0e, l2=»(*$IISFHEAD1*)«, l3=0x0e}
0x014b…0162 Line {l1=0x15, l2=»USERNR =1..MAXUSERS;«, l3=0x15}
0x0162…017a Line {l1=0x16, l2=»ZONEADR =1..MZONESIZE;«, l3=0x16}
0x017a…0191 Line {l1=0x15, l2=»FILNR =1..MAXFILES;«, l3=0x15}
0x0191…01aa Line {l1=0x17, l2=»POSTADR =0..MAXRECSIZE;«, l3=0x17}
0x01aa…01f5 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x01f5…023e Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x023e…028e Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x028e…02d8 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x02d8…02e9 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x02e9…030b Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x030b…032a Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x032a…0339 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x0339…037d Line {l1=0x42, l2=»SENDER =^INTEGER; (*ADRESSE PÅ MESSAGE-AFSENDER *)«, l3=0x42}
0x037d…03c1 Line {l1=0x42, l2=»POINTREC=^COMMBUF; (*ADRESSE PÅ FÆLLESOMRÅDE-START *)«, l3=0x42}
0x03c1…03d2 Line {l1=0x0f, l2=»PRIORANGE=4..7;«, l3=0x0f}
0x03d2…03e3 Line {l1=0x0f, l2=»CPSTAT =RECORD«, l3=0x0f}
0x03e3…0406 Line {l1=0x21, l2=» CPPCB :INTEGER;«, l3=0x21}
0x0406…043a Line {l1=0x32, l2=» STATUS :ARRAY (1..100) OF INTEGER«, l3=0x32}
0x043a…0449 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x0449…0463 Line {l1=0x18, l2=»STATFILE=FILE OF CPSTAT;«, l3=0x18}
0x0463…0474 Line {l1=0x0f, l2=»USERDESC=RECORD«, l3=0x0f}
0x0474…0493 Line {l1=0x1d, l2=» PROGRAMNR:INTEGER;«, l3=0x1d}
0x0493…04bf Line {l1=0x2a, l2=» STATUS:ARRAY (FILNR) OF ACCMODE«, l3=0x2a}
0x04bf…04ce Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x04ce…04d3 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x04d3…04f9 Line {l1=0x24, l2=»USER :ARRAY (USERNR) OF USERDESC;«, l3=0x24}
0x04f9…051f Line {l1=0x24, l2=»Z :ARRAY (ZONEADR) OF INTEGER;«, l3=0x24}
0x051f…0562 Line {l1=0x41, l2=»ZONEPOST:ARRAY (FILNR) OF INTEGER;(*NR PÅ FØRSTE POST I ZONEFIL*)«, l3=0x41}
0x0562…0575 Line {l1=0x11, l2=»FILEHEAD:ISFHEAD;«, l3=0x11}
0x0575…05b9 Line {l1=0x42, l2=»FUSK :AR; (*FOR AT KUNNE FLYTTE EN ADRESSE*)«, l3=0x42}
0x05b9…05fd Line {l1=0x42, l2=»REC :POINTREC; (*FRA ET MESSAGE IND I POST *)«, l3=0x42}
0x05fd…0612 Line {l1=0x13, l2=»AFSENDER:SENDER; «, l3=0x13}
0x0612…0658 Line {l1=0x44, l2=»AFSKED :POINTREC; (*RESERVERET PLADS TIL SVAR-BESKED*)«, l3=0x44}
0x0658…066f Line {l1=0x15, l2=»CURRFUNC:MESSAGETYPE;«, l3=0x15}
0x066f…0681 Line {l1=0x10, l2=»NROFFILES:FILNR;«, l3=0x10}
0x0681…068c Line {l1=0x09, l2=»STATUSER,«, l3=0x09}
0x068c…069e Line {l1=0x10, l2=»CURRUSER:USERNR;«, l3=0x10}
0x069e…06ae Line {l1=0x0e, l2=»F,ZONEFIL:ISF;«, l3=0x0e}
0x06ae…06b6 Line {l1=0x06, l2=»CFILE,«, l3=0x06}
0x06b6…06c1 Line {l1=0x09, l2=»CURRFILE,«, l3=0x09}
0x06c1…06cd Line {l1=0x0a, l2=»NROFUSERS,«, l3=0x0a}
0x06cd…06df Line {l1=0x10, l2=»MLÆNGDE,MSTATUS,«, l3=0x10}
0x06df…06f2 Line {l1=0x11, l2=»IER,IREC:INTEGER;«, l3=0x11}
0x06f2…0705 Line {l1=0x11, l2=»SVAR :BOOLEAN;«, l3=0x11}
0x0705…0718 Line {l1=0x11, l2=»BESKED :MESSAGE;«, l3=0x11}
0x0718…072c Line {l1=0x12, l2=»CPSTATUS:STATFILE;«, l3=0x12}
0x072c…0734 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0734…0744 Line {l1=0x0e, l2=»(*$IRETURNE1*)«, l3=0x0e}
0x0744…0754 Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x0754…075e Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x075e…0772 Line {l1=0x12, l2=»PROCEDURE LÆSZONE;«, l3=0x12}
0x0772…077c Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x077c…0792 Line {l1=0x14, l2=»PROCEDURE SKRIVZONE;«, l3=0x14}
0x0792…079c Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x079c…07dc Line {l1=0x3e, l2=»PROCEDURE COPSEGS(SEGADR,WORDS,WORDADR:INTEGER;INOUT:ACCMODE);«, l3=0x3e}
0x07dc…07e6 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x07e6…07f6 Line {l1=0x0e, l2=»(*$IINITIAT1*)«, l3=0x0e}
0x07f6…07fe Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07fe…081a Line {l1=0x1a, l2=»SEGMENT PROCEDURE PRELUDE;«, l3=0x1a}
0x081a…0820 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0820…086b Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x086b…087b Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x087b…08ac Line {l1=0x2f, l2=» FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);«, l3=0x2f}
0x08ac…08c2 Line {l1=0x14, l2=» VEDLNIVEAU:NIVEAU;«, l3=0x14}
0x08c2…08d7 Line {l1=0x13, l2=» ZONESIZE:INTEGER;«, l3=0x13}
0x08d7…08dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x08dd…08f8 Line {l1=0x19, l2=»FILEDESC=FILE OF FILDESC;«, l3=0x19}
0x08f8…0907 Line {l1=0x0d, l2=»VAR «, l3=0x0d}
0x0907…091b Line {l1=0x12, l2=»ISFFILES:FILEDESC;«, l3=0x12}
0x091b…0931 Line {l1=0x14, l2=»FNAVN :STRING(18);«, l3=0x14}
0x0931…0944 Line {l1=0x11, l2=»ZFADR,Q :INTEGER;«, l3=0x11}
0x0944…0951 Line {l1=0x0b, l2=»(*$IIOPE1*)«, l3=0x0b}
0x0951…0959 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0959…096c Line {l1=0x11, l2=»BEGIN (*PRELUDE*)«, l3=0x11}
0x096c…098b Line {l1=0x1d, l2=» FNAVN:='ZONEFIL:P2:0350:S';«, l3=0x1d}
0x098b…09ab Line {l1=0x1e, l2=» (*^ RAMDISK*)«, l3=0x1e}
0x09ab…09ca Line {l1=0x1d, l2=» REWRITE(ZONEFIL,FNAVN);IOC;«, l3=0x1d}
0x09ca…09da Line {l1=0x0e, l2=» CURRFILE:=0;«, l3=0x0e}
0x09da…09e7 Line {l1=0x0b, l2=» ZFADR:=1;«, l3=0x0b}
0x09e7…0a07 Line {l1=0x1e, l2=» FNAVN:='ISFFILES:P2:0000:S';«, l3=0x1e}
0x0a07…0a25 Line {l1=0x1c, l2=» RESET(ISFFILES,FNAVN);IOC;«, l3=0x1c}
0x0a25…0a3e Line {l1=0x17, l2=» SEEK(ISFFILES,1);IOC;«, l3=0x17}
0x0a3e…0a54 Line {l1=0x14, l2=» GET(ISFFILES);IOC;«, l3=0x14}
0x0a54…0a7a Line {l1=0x24, l2=» WHILE ISFFILES^.FILNAVN(1)<>'@' DO«, l3=0x24}
0x0a7a…0a83 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0a83…0a9e Line {l1=0x19, l2=» CURRFILE:=CURRFILE+1;«, l3=0x19}
0x0a9e…0aab Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x0aab…0ad2 Line {l1=0x25, l2=» IF ISFFILES^.FILNAVN(1)<>'#' THEN«, l3=0x25}
0x0ad2…0add Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0add…0b06 Line {l1=0x27, l2=» Z(HELPBLT+1):=ISFFILES^.ZONESIZE;«, l3=0x27}
0x0b06…0b3a Line {l1=0x32, l2=» IF ISFFILES^.ZONESIZE>MZONESIZE-HELPBLT THEN«, l3=0x32}
0x0b3a…0b4c Line {l1=0x10, l2=» IER:=-16«, l3=0x10}
0x0b4c…0b58 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0b58…0b65 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b65…0b89 Line {l1=0x22, l2=» ZONEPOST(CURRFILE):=ZFADR;«, l3=0x22}
0x0b89…0bb4 Line {l1=0x29, l2=» REWRITE(F,ISFFILES^.FILNAVN);IOC;«, l3=0x29}
0x0bb4…0be3 Line {l1=0x2d, l2=» FILEHEAD.FILENAME:=ISFFILES^.FILNAVN;«, l3=0x2d}
0x0be3…0bf3 Line {l1=0x0e, l2=» IOPEN;«, l3=0x0e}
0x0bf3…0c34 Line {l1=0x3f, l2=» IF TOTALKEYSIZE<MAXUSERS*FILEHEAD.KEYSIZE THEN IER:=-29«, l3=0x3f}
0x0c34…0c40 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0c40…0c56 Line {l1=0x14, l2=» IF IER<>0 THEN«, l3=0x14}
0x0c56…0c63 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c63…0c7a Line {l1=0x15, l2=» GOTOXY(1,10);«, l3=0x15}
0x0c7a…0c89 Line {l1=0x0d, l2=» Q:=1;«, l3=0x0d}
0x0c89…0cd0 Line {l1=0x45, l2=» WRITELN('FEJL NR',IER:5,' VED ÅBNING AF ',ISFFILES^.FILNAVN);«, l3=0x45}
0x0cd0…0d0d Line {l1=0x3b, l2=» IF NOT (-IER IN (.18,19.)) THEN EXIT(CENTRALPROCES)«, l3=0x3b}
0x0d0d…0d19 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0d19…0d2b Line {l1=0x10, l2=» SKRIVZONE;«, l3=0x10}
0x0d2b…0d6b Line {l1=0x3e, l2=» ZFADR:=ZFADR+(75+MAXUSERS*FILEHEAD.KEYSIZE-1) DIV 232+1+«, l3=0x3e}
0x0d6b…0dba Line {l1=0x4d, l2=» (FILEHEAD.BUTSIZE+FILEHEAD.BLTSIZE+FILEHEAD.BLKSIZE-1) DIV 232+1«, l3=0x4d}
0x0dba…0dc3 Line {l1=0x07, l2=» END«, l3=0x07}
0x0dc3…0dce Line {l1=0x09, l2=» ELSE «, l3=0x09}
0x0dce…0dec Line {l1=0x1c, l2=» ZONEPOST(CURRFILE):=0;«, l3=0x1c}
0x0dec…0e03 Line {l1=0x15, l2=» GET(ISFFILES);IOC«, l3=0x15}
0x0e03…0e0b Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e0b…0e23 Line {l1=0x16, l2=» NROFFILES:=CURRFILE;«, l3=0x16}
0x0e23…0e64 Line {l1=0x3f, l2=» FOR CURRUSER:=1 TO MAXUSERS DO WITH USER(CURRUSER) DO «, l3=0x3f}
0x0e64…0ea5 Line {l1=0x3f, l2=» BEGIN «, l3=0x3f}
0x0ea5…0ee7 Line {l1=0x40, l2=» PROGRAMNR:=-1; «, l3=0x40}
0x0ee7…0f25 Line {l1=0x3c, l2=» FOR CURRFILE:=1 TO NROFFILES DO STATUS(CURRFILE):=LUKKET«, l3=0x3c}
0x0f25…0f66 Line {l1=0x3f, l2=» END; «, l3=0x3f}
0x0f66…0f76 Line {l1=0x0e, l2=» CURRFILE:=0;«, l3=0x0e}
0x0f76…0f87 Line {l1=0x0f, l2=» NROFUSERS:=0;«, l3=0x0f}
0x0f87…0f9e Line {l1=0x15, l2=» CLOSE(ISFFILES);IOC«, l3=0x15}
0x0f9e…0fb0 Line {l1=0x10, l2=»END; (*PRELUDE*)«, l3=0x10}
0x0fb0…0fb8 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0fb8…0fd5 Line {l1=0x1b, l2=»SEGMENT PROCEDURE POSTLUDE;«, l3=0x1b}
0x0fd5…0fe4 Line {l1=0x0d, l2=»(*$IICLOS1*) «, l3=0x0d}
0x0fe4…0fe7 Line {l1=0x01, l2=» «, l3=0x01}
0x0fe7…1002 Line {l1=0x19, l2=»(*LUKNING AF ALLE FILER*)«, l3=0x19}
0x1002…1016 Line {l1=0x12, l2=»BEGIN (*POSTLUDE*)«, l3=0x12}
0x1016…102d Line {l1=0x15, l2=» IF CURRFILE<>0 THEN«, l3=0x15}
0x102d…103c Line {l1=0x0d, l2=» SKRIVZONE«, l3=0x0d}
0x103c…105f Line {l1=0x21, l2=» ELSE WRITELN('CURRFILE VAR 0');«, l3=0x21}
0x105f…1082 Line {l1=0x21, l2=» FOR CURRFILE:=1 TO NROFFILES DO«, l3=0x21}
0x1082…10a3 Line {l1=0x1f, l2=» IF ZONEPOST(CURRFILE)<>0 THEN«, l3=0x1f}
0x10a3…10ac Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x10ac…10ba Line {l1=0x0c, l2=» LÆSZONE;«, l3=0x0c}
0x10ba…10c6 Line {l1=0x0a, l2=» ICLOSE«, l3=0x0a}
0x10c6…10ce Line {l1=0x06, l2=» END;«, l3=0x06}
0x10ce…10e4 Line {l1=0x14, l2=» CLOSE(ZONEFIL);IOC«, l3=0x14}
0x10e4…10f7 Line {l1=0x11, l2=»END; (*POSTLUDE*)«, l3=0x11}
0x10f7…10ff Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x10ff…110f Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x110f…1116 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1116…1128 Line {l1=0x10, l2=» IER:=IORESULT;«, l3=0x10}
0x1128…113a Line {l1=0x10, l2=» IF IER<>0 THEN«, l3=0x10}
0x113a…1143 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1143…116b Line {l1=0x26, l2=» WRITELN('CP IO-FEJL ',IER);READLN;«, l3=0x26}
0x116b…1184 Line {l1=0x17, l2=» EXIT(CENTRALPROCES)«, l3=0x17}
0x1184…118b Line {l1=0x05, l2=» END«, l3=0x05}
0x118b…1191 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1191…1194 Line {l1=0x01, l2=» «, l3=0x01}
0x1194…11a8 Line {l1=0x12, l2=»PROCEDURE LÆSZONE;«, l3=0x12}
0x11a8…11ba Line {l1=0x10, l2=»VAR TIL:INTEGER;«, l3=0x10}
0x11ba…11ff Line {l1=0x43, l2=»BEGIN (*$XT*)«, l3=0x43}
0x11ff…1244 Line {l1=0x43, l2=» WRITELN('LÆSZONE',CURRFILE:5,ZONEPOST(CURRFILE):5);READLN;(*$X-*)«, l3=0x43}
0x1244…124f Line {l1=0x09, l2=» (*$C-*)«, l3=0x09}
0x124f…1278 Line {l1=0x27, l2=» SEEK(ZONEFIL,ZONEPOST(CURRFILE));IOC;«, l3=0x27}
0x1278…1283 Line {l1=0x09, l2=» TIL:=1;«, l3=0x09}
0x1283…128d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x128d…12a4 Line {l1=0x15, l2=» GET(ZONEFIL);IOC;«, l3=0x15}
0x12a4…12b1 Line {l1=0x0b, l2=» (*$R-*)«, l3=0x0b}
0x12b1…12e1 Line {l1=0x2e, l2=» MOVELEFT(ZONEFIL^(1),FILEHEAD.A(TIL),464);«, l3=0x2e}
0x12e1…12ee Line {l1=0x0b, l2=» (*$R+*)«, l3=0x0b}
0x12ee…1300 Line {l1=0x10, l2=» TIL:=TIL+232«, l3=0x10}
0x1300…132b Line {l1=0x29, l2=» UNTIL TIL>75+MAXUSERS*FILEHEAD.KEYSIZE;«, l3=0x29}
0x132b…1374 Line {l1=0x47, l2=» «, l3=0x47}
0x1374…13c3 Line {l1=0x4d, l2=» (*$XT*)«, l3=0x4d}
0x13c3…1412 Line {l1=0x4d, l2=»WRITELN(FILEHEAD.BUT:5,FILEHEAD.ENTRYSIZE:5,FILEHEAD.FILENAME);READLN;(*$X-*)«, l3=0x4d}
0x1412…1415 Line {l1=0x01, l2=» «, l3=0x01}
0x1415…142b Line {l1=0x14, l2=» TIL:=FILEHEAD.BUT;«, l3=0x14}
0x142b…1435 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1435…144c Line {l1=0x15, l2=» GET(ZONEFIL);IOC;«, l3=0x15}
0x144c…1473 Line {l1=0x25, l2=» MOVELEFT(ZONEFIL^(1),Z(TIL),464);«, l3=0x25}
0x1473…1485 Line {l1=0x10, l2=» TIL:=TIL+232«, l3=0x10}
0x1485…14c6 Line {l1=0x3f, l2=» UNTIL TIL>FILEHEAD.KEY2-1; (*$XT*)«, l3=0x3f}
0x14c6…1507 Line {l1=0x3f, l2=» WRITELN(Z(FILEHEAD.BUT):5,Z(FILEHEAD.BUT+1):5);READLN;(*$X-*)«, l3=0x3f}
0x1507…152b Line {l1=0x22, l2=» REWRITE(F,FILEHEAD.FILENAME);IOC«, l3=0x22}
0x152b…1536 Line {l1=0x09, l2=» (*$C+*)«, l3=0x09}
0x1536…153c Line {l1=0x04, l2=»END;«, l3=0x04}
0x153c…153f Line {l1=0x01, l2=» «, l3=0x01}
0x153f…1555 Line {l1=0x14, l2=»PROCEDURE SKRIVZONE;«, l3=0x14}
0x1555…1567 Line {l1=0x10, l2=»VAR TIL:INTEGER;«, l3=0x10}
0x1567…15ae Line {l1=0x45, l2=»BEGIN (*$XT*)«, l3=0x45}
0x15ae…15f5 Line {l1=0x45, l2=» WRITELN('SKRIVZONE',CURRFILE:5,ZONEPOST(CURRFILE):5);READLN;(*$X-*)«, l3=0x45}
0x15f5…1600 Line {l1=0x09, l2=» (*$C-*)«, l3=0x09}
0x1600…1629 Line {l1=0x27, l2=» SEEK(ZONEFIL,ZONEPOST(CURRFILE));IOC;«, l3=0x27}
0x1629…1634 Line {l1=0x09, l2=» TIL:=1;«, l3=0x09}
0x1634…163e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x163e…164b Line {l1=0x0b, l2=» (*$R-*)«, l3=0x0b}
0x164b…167b Line {l1=0x2e, l2=» MOVELEFT(FILEHEAD.A(TIL),ZONEFIL^(1),464);«, l3=0x2e}
0x167b…1688 Line {l1=0x0b, l2=» (*$R+*)«, l3=0x0b}
0x1688…169f Line {l1=0x15, l2=» PUT(ZONEFIL);IOC;«, l3=0x15}
0x169f…16b1 Line {l1=0x10, l2=» TIL:=TIL+232«, l3=0x10}
0x16b1…16dc Line {l1=0x29, l2=» UNTIL TIL>75+MAXUSERS*FILEHEAD.KEYSIZE;«, l3=0x29}
0x16dc…16df Line {l1=0x01, l2=» «, l3=0x01}
0x16df…16f5 Line {l1=0x14, l2=» TIL:=FILEHEAD.BUT;«, l3=0x14}
0x16f5…16ff Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x16ff…1726 Line {l1=0x25, l2=» MOVELEFT(Z(TIL),ZONEFIL^(1),464);«, l3=0x25}
0x1726…173d Line {l1=0x15, l2=» PUT(ZONEFIL);IOC;«, l3=0x15}
0x173d…174f Line {l1=0x10, l2=» TIL:=TIL+232«, l3=0x10}
0x174f…176d Line {l1=0x1c, l2=» UNTIL TIL>FILEHEAD.KEY2-1;«, l3=0x1c}
0x176d…177d Line {l1=0x0e, l2=» CLOSE(F);IOC«, l3=0x0e}
0x177d…1788 Line {l1=0x09, l2=» (*$C+*)«, l3=0x09}
0x1788…178e Line {l1=0x04, l2=»END;«, l3=0x04}
0x178e…1796 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1796…17b2 Line {l1=0x1a, l2=»FUNCTION KEYSTART:INTEGER;«, l3=0x1a}
0x17b2…17b9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x17b9…17e6 Line {l1=0x2b, l2=» KEYSTART:=(CURRUSER-1)*FILEHEAD.KEYSIZE+1«, l3=0x2b}
0x17e6…17ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x17ec…17ef Line {l1=0x01, l2=» «, l3=0x01}
0x17ef…1832 Line {l1=0x41, l2=»PROCEDURE COPSEGS;(*SEGADR,WORDS,WORDADR:INTEGER;INOUT:ACCMODE*) «, l3=0x41}
0x1832…1842 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1842…187b Line {l1=0x37, l2=»BEGIN (*$XT*)«, l3=0x37}
0x187b…18b4 Line {l1=0x37, l2=» WRITELN('COPSEGS',SEGADR:5,WORDS:5,WORDADR:5);(*$X-*)«, l3=0x37}
0x18b4…18bf Line {l1=0x09, l2=» (*$C-*)«, l3=0x09}
0x18bf…18d4 Line {l1=0x13, l2=» IF INOUT=LÆS THEN«, l3=0x13}
0x18d4…18dd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x18dd…18f2 Line {l1=0x13, l2=» SEEK(F,SEGADR);«, l3=0x13}
0x18f2…18fc Line {l1=0x08, l2=» IOC;«, l3=0x08}
0x18fc…1908 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1908…1943 Line {l1=0x39, l2=» GET(F); «, l3=0x39}
0x1943…194f Line {l1=0x0a, l2=» IOC;«, l3=0x0a}
0x194f…198a Line {l1=0x39, l2=» IF WORDS>231 THEN «, l3=0x39}
0x198a…19c5 Line {l1=0x39, l2=» BEGIN «, l3=0x39}
0x19c5…19ee Line {l1=0x27, l2=» MOVELEFT(F^(1),Z(WORDADR),464);«, l3=0x27}
0x19ee…1a29 Line {l1=0x39, l2=» (*FOR I:=1 TO 232 DO Z(WORDADR+I):=F^(I);*) «, l3=0x39}
0x1a29…1a64 Line {l1=0x39, l2=» WORDADR:=WORDADR+232; «, l3=0x39}
0x1a64…1a98 Line {l1=0x32, l2=» END ELSE MOVELEFT(F^(1),Z(WORDADR),2*WORDS);«, l3=0x32}
0x1a98…1ad4 Line {l1=0x3a, l2=» (*FOR I:=1 TO WORDS DO Z(WORDADR+I):=F^(I);*)«, l3=0x3a}
0x1ad4…1b0f Line {l1=0x39, l2=» WORDS:=WORDS-232 «, l3=0x39}
0x1b0f…1b22 Line {l1=0x11, l2=» UNTIL WORDS<1«, l3=0x11}
0x1b22…1b2e Line {l1=0x0a, l2=» END ELSE«, l3=0x0a}
0x1b2e…1b37 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b37…1b4c Line {l1=0x13, l2=» SEEK(F,SEGADR);«, l3=0x13}
0x1b4c…1b56 Line {l1=0x08, l2=» IOC;«, l3=0x08}
0x1b56…1b62 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1b62…1b9d Line {l1=0x39, l2=» IF WORDS>231 THEN «, l3=0x39}
0x1b9d…1bd8 Line {l1=0x39, l2=» BEGIN «, l3=0x39}
0x1bd8…1c01 Line {l1=0x27, l2=» MOVELEFT(Z(WORDADR),F^(1),464);«, l3=0x27}
0x1c01…1c3c Line {l1=0x39, l2=» (*FOR I:=1 TO 232 DO F^(I):=Z(WORDADR+I);*) «, l3=0x39}
0x1c3c…1c77 Line {l1=0x39, l2=» WORDADR:=WORDADR+232; «, l3=0x39}
0x1c77…1cab Line {l1=0x32, l2=» END ELSE MOVELEFT(Z(WORDADR),F^(1),2*WORDS);«, l3=0x32}
0x1cab…1ce7 Line {l1=0x3a, l2=» (*FOR I:=1 TO WORDS DO F^(I):=Z(WORDADR+I);*)«, l3=0x3a}
0x1ce7…1d22 Line {l1=0x39, l2=» WORDS:=WORDS-232; «, l3=0x39}
0x1d22…1d5d Line {l1=0x39, l2=» PUT(F); «, l3=0x39}
0x1d5d…1d69 Line {l1=0x0a, l2=» IOC «, l3=0x0a}
0x1d69…1d7c Line {l1=0x11, l2=» UNTIL WORDS<1«, l3=0x11}
0x1d7c…1d83 Line {l1=0x05, l2=» END«, l3=0x05}
0x1d83…1d8e Line {l1=0x09, l2=» (*$C+*)«, l3=0x09}
0x1d8e…1d94 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d94…1d9c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1d9c…1dd3 Line {l1=0x35, l2=»PROCEDURE SENDM(RECEIVER:SENDER;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x1dd3…1e11 Line {l1=0x3c, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);EXTERNAL;«, l3=0x3c}
0x1e11…1e4d Line {l1=0x3a, l2=»PROCEDURE RECEIV(VAR AFSENDER:SENDER;VAR CONTENTS:MESSAGE;«, l3=0x3a}
0x1e4d…1e7d Line {l1=0x2e, l2=» VAR LENGTH:INTEGER);EXTERNAL;«, l3=0x2e}
0x1e7d…1eb4 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x1eb4…1ee4 Line {l1=0x2e, l2=» VAR STATUS:INTEGER);EXTERNAL;«, l3=0x2e}
0x1ee4…1f25 Line {l1=0x3f, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);EXTERNAL;«, l3=0x3f}
0x1f25…1f54 Line {l1=0x2d, l2=»PROCEDURE SETPR(PRIORITY:PRIORANGE);EXTERNAL;«, l3=0x2d}
0x1f54…1f65 Line {l1=0x0f, l2=»PROCEDURE OBEY;«, l3=0x0f}
0x1f65…1f6f Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x1f6f…1f7f Line {l1=0x0e, l2=»(*$IEXCOMCO1*)«, l3=0x0e}
0x1f7f…1f8c Line {l1=0x0b, l2=»(*$ISÆTØ1*)«, l3=0x0b}
0x1f8c…1f9c Line {l1=0x0e, l2=»(*$IREADPRO1*)«, l3=0x0e}
0x1f9c…1fac Line {l1=0x0e, l2=»(*$IFINDPOS1*)«, l3=0x0e}
0x1fac…1faf Line {l1=0x01, l2=» «, l3=0x01}
0x1faf…1fbe Line {l1=0x0d, l2=»(*$IFORSKY1*)«, l3=0x0d}
0x1fbe…1fcc Line {l1=0x0c, l2=»(*$IPUTGE1*)«, l3=0x0c}
0x1fcc…1fda Line {l1=0x0c, l2=»(*$IINSER1*)«, l3=0x0c}
0x1fda…1fe9 Line {l1=0x0d, l2=»(*$INEXTRE1*)«, l3=0x0d}
0x1fe9…1ff7 Line {l1=0x0c, l2=»(*$IDELET1*)«, l3=0x0c}
0x1ff7…2007 Line {l1=0x0e, l2=»(*$IDETERMI1*)«, l3=0x0e}
0x2007…2013 Line {l1=0x0a, l2=»(*$IOBE1*)«, l3=0x0a}
0x2013…201b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x201b…202f Line {l1=0x12, l2=»PROCEDURE ALLEGRO;«, l3=0x12}
0x202f…2078 Line {l1=0x47, l2=»(*ADMINISTRATION AF DATASTRUKTUR, MODTAGELSE OG AFSENDELSE AF MESSAGES,«, l3=0x47}
0x2078…2091 Line {l1=0x17, l2=» BRUG AF FILSYSTEMET*)«, l3=0x17}
0x2091…2098 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2098…20a2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x20a2…20af Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x20af…20db Line {l1=0x2a, l2=» RECEIV(AFSENDER,BESKED,MLÆNGDE); «, l3=0x2a}
0x20db…20e3 Line {l1=0x06, l2=» (*«, l3=0x06}
0x20e3…20ef Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x20ef…2113 Line {l1=0x22, l2=» IF BESKED.KOMMANDO=ÅBEN THEN«, l3=0x22}
0x2113…2136 Line {l1=0x21, l2=» ALLOCA(AFSKED,16,MSTATUS)«, l3=0x21}
0x2136…2142 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2142…2166 Line {l1=0x22, l2=» ALLOCA(AFSKED,14,MSTATUS);«, l3=0x22}
0x2166…2194 Line {l1=0x2c, l2=» IF MSTATUS<>0 THEN «, l3=0x2c}
0x2194…21c2 Line {l1=0x2c, l2=» BEGIN «, l3=0x2c}
0x21c2…21f0 Line {l1=0x2c, l2=» WRITELN('ALLOCASTATUS',MSTATUS:5); «, l3=0x2c}
0x21f0…221e Line {l1=0x2c, l2=» READLN;READ(MSTATUS) «, l3=0x2c}
0x221e…2229 Line {l1=0x09, l2=» END«, l3=0x09}
0x2229…223f Line {l1=0x14, l2=» UNTIL MSTATUS=0;«, l3=0x14}
0x223f…2247 Line {l1=0x06, l2=» *)«, l3=0x06}
0x2247…2273 Line {l1=0x2a, l2=» DETERMIN; «, l3=0x2a}
0x2273…22ad Line {l1=0x38, l2=» IF IER=0 THEN OBEY; «, l3=0x38}
0x22ad…22b5 Line {l1=0x06, l2=» (*«, l3=0x06}
0x22b5…22e1 Line {l1=0x2a, l2=» DEALLO(AFSKED,MSTATUS); «, l3=0x2a}
0x22e1…230d Line {l1=0x2a, l2=» IF MSTATUS<>0 THEN «, l3=0x2a}
0x230d…2339 Line {l1=0x2a, l2=» BEGIN «, l3=0x2a}
0x2339…2365 Line {l1=0x2a, l2=» WRITELN('DEALLOSTATUS',MSTATUS:5); «, l3=0x2a}
0x2365…2391 Line {l1=0x2a, l2=» READLN «, l3=0x2a}
0x2391…23bd Line {l1=0x2a, l2=» END; «, l3=0x2a}
0x23bd…23c5 Line {l1=0x06, l2=» *)«, l3=0x06}
0x23c5…23dc Line {l1=0x15, l2=» BESKED.INFO:=IER;«, l3=0x15}
0x23dc…23e8 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x23e8…2405 Line {l1=0x1b, l2=» IF CURRFUNC=ÅBEN THEN«, l3=0x1b}
0x2405…2412 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2412…243a Line {l1=0x26, l2=» BESKED.IREC:=FILEHEAD.RECSIZE;«, l3=0x26}
0x243a…2468 Line {l1=0x2c, l2=» SENDM(AFSENDER,BESKED,6,MSTATUS) «, l3=0x2c}
0x2468…2473 Line {l1=0x09, l2=» END«, l3=0x09}
0x2473…247f Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x247f…24b4 Line {l1=0x33, l2=» IF (CURRFUNC<>STOPSYS) OR (NROFUSERS<>0) THEN«, l3=0x33}
0x24b4…24e2 Line {l1=0x2c, l2=» SENDM(AFSENDER,BESKED,4,MSTATUS); «, l3=0x2c}
0x24e2…250e Line {l1=0x2a, l2=» IF MSTATUS<>0 THEN «, l3=0x2a}
0x250e…251b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x251b…2547 Line {l1=0x2a, l2=» WRITELN('SENDMSTATUS',MSTATUS:5); «, l3=0x2a}
0x2547…2565 Line {l1=0x1c, l2=» READLN;READ(MSTATUS)«, l3=0x1c}
0x2565…2590 Line {l1=0x29, l2=» END «, l3=0x29}
0x2590…25a5 Line {l1=0x13, l2=» UNTIL MSTATUS=0«, l3=0x13}
0x25a5…25d4 Line {l1=0x2d, l2=» UNTIL (CURRFUNC=STOPSYS) AND (NROFUSERS=0) «, l3=0x2d}
0x25d4…25db Line {l1=0x05, l2=»END; «, l3=0x05}
0x25db…25e3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x25e3…25ec Line {l1=0x07, l2=»BEGIN «, l3=0x07}
0x25ec…260f Line {l1=0x21, l2=» SETPR(5); (*$XT*)«, l3=0x21}
0x260f…2632 Line {l1=0x21, l2=» WRITELN(1:5,MEMAVAIL:6);(*$X-*)«, l3=0x21}
0x2632…2655 Line {l1=0x21, l2=» PRELUDE; (*$XT*)«, l3=0x21}
0x2655…2678 Line {l1=0x21, l2=» WRITELN(2:5,MEMAVAIL:6);(*$X-*)«, l3=0x21}
0x2678…269b Line {l1=0x21, l2=» ALLEGRO; (*$XT*)«, l3=0x21}
0x269b…26be Line {l1=0x21, l2=» WRITELN(3:5,MEMAVAIL:6);(*$X-*)«, l3=0x21}
0x26be…26e1 Line {l1=0x21, l2=» POSTLUDE; (*$XT*)«, l3=0x21}
0x26e1…2704 Line {l1=0x21, l2=» WRITELN(4:5,MEMAVAIL:6);(*$X-*)«, l3=0x21}
0x2704…2711 Line {l1=0x0b, l2=» SETPR(6);«, l3=0x0b}
0x2711…2741 Line {l1=0x2e, l2=» IF (CURRFUNC=STOPSYS) AND (NROFUSERS=0) THEN«, l3=0x2e}
0x2741…2767 Line {l1=0x24, l2=» SENDM(AFSENDER,BESKED,4,MSTATUS)«, l3=0x24}
0x2767…276d Line {l1=0x04, l2=»END.«, l3=0x04}
0x276d…2780 00 00 41 46 53 45 4e 44 45 52 2c 42 45 53 4b 45 44 2c 34 ┆ AFSENDER,BESKED,4┆
0x2780…27a0 2c 4d 53 54 41 54 55 53 29 24 04 45 4e 44 2e 04 00 00 4f 43 45 53 3b 16 1c 43 4f 4e 53 54 20 20 ┆,MSTATUS)$ END. OCES; CONST ┆
0x27a0…27c0 20 4d 41 58 55 53 45 52 53 20 20 20 20 20 20 20 20 3d 32 3b 20 1c 22 20 20 20 20 20 20 20 20 4d ┆ MAXUSERS =2; " M┆
0x27c0…27e0 41 58 46 49 4c 45 53 20 20 20 20 20 20 20 20 3d 31 30 30 3b 20 20 20 20 20 22 1e 20 20 20 20 20 ┆AXFILES =100; " ┆
0x27e0…2800 20 20 20 4d 5a 4f 4e 45 53 49 5a 45 20 20 20 20 20 20 20 3d 34 30 30 30 3b 1e 1e 20 20 20 20 20 ┆ MZONESIZE =4000; ┆
0x2800…2820 20 20 20 48 45 4c 50 42 4c 54 20 20 20 20 20 20 20 20 20 3d 20 33 30 30 3b 1e 1e 20 20 20 20 20 ┆ HELPBLT = 300; ┆
0x2820…2840 20 20 20 4d 41 58 52 45 43 53 49 5a 45 20 20 20 20 20 20 3d 20 31 35 30 3b 1e 1d 20 20 20 20 20 ┆ MAXRECSIZE = 150; ┆
0x2840…2860 20 20 20 54 4f 54 41 4c 4b 45 59 53 49 5a 45 20 20 20 20 3d 31 35 37 3b 1d 1c 20 20 20 20 20 20 ┆ TOTALKEYSIZE =157; ┆
0x2860…2880 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x47…]