|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »READPRO1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »READPRO1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »READPRO1.K«
(*$P*)
PROCEDURE READTABLE(BUTENTRY:INTEGER);
BEGIN
WITH FILEHEAD DO
IF BUTENTRY<>BUCINZONE THEN
BEGIN (*$XT*)
WRITELN('READTABLE');(*$X-*)
IF BLKCHG THEN
COPSEGS(Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
IF BLTCHG THEN
COPSEGS(Z((BUCINZONE-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,SKRIV);
BLKCHG:=FALSE;
BLTCHG:=FALSE;
COPSEGS(Z((BUTENTRY-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,LÆS);
BUCINZONE:=BUTENTRY;
BLKINZONE:=0
END
END;
PROCEDURE READBLOCK(BLTENTRY,STARTPOST:INTEGER);
BEGIN
WITH FILEHEAD DO
IF BLTENTRY<>BLKINZONE THEN
BEGIN (*$XT*)
WRITELN('READBLOCK');(*$X-*)
IF BLKCHG THEN
BEGIN
COPSEGS(Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
BLKCHG:=FALSE
END;
COPSEGS(Z((BLTENTRY-1)*ENTRYSIZE+BLT),BLKSIZE,BLK+(STARTPOST-1)*
RECSIZE,LÆS);
BLKINZONE:=BLTENTRY
END
END;
0x000…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…030 Line {l1=0x26, l2=»PROCEDURE READTABLE(BUTENTRY:INTEGER);«, l3=0x26}
0x030…037 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x037…04b Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x04b…091 Line {l1=0x44, l2=» IF BUTENTRY<>BUCINZONE THEN «, l3=0x44}
0x091…0de Line {l1=0x4b, l2=» BEGIN (*$XT*) «, l3=0x4b}
0x0de…100 Line {l1=0x20, l2=» WRITELN('READTABLE');(*$X-*)«, l3=0x20}
0x100…146 Line {l1=0x44, l2=» IF BLKCHG THEN «, l3=0x44}
0x146…18a Line {l1=0x42, l2=» COPSEGS(Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV); «, l3=0x42}
0x18a…1d0 Line {l1=0x44, l2=» IF BLTCHG THEN «, l3=0x44}
0x1d0…214 Line {l1=0x42, l2=» COPSEGS(Z((BUCINZONE-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,SKRIV); «, l3=0x42}
0x214…25a Line {l1=0x44, l2=» BLKCHG:=FALSE; «, l3=0x44}
0x25a…2a0 Line {l1=0x44, l2=» BLTCHG:=FALSE; «, l3=0x44}
0x2a0…2e4 Line {l1=0x42, l2=» COPSEGS(Z((BUTENTRY-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,LÆS); «, l3=0x42}
0x2e4…32a Line {l1=0x44, l2=» BUCINZONE:=BUTENTRY; «, l3=0x44}
0x32a…370 Line {l1=0x44, l2=» BLKINZONE:=0 «, l3=0x44}
0x370…3b6 Line {l1=0x44, l2=» END «, l3=0x44}
0x3b6…3bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x3bc…3bf Line {l1=0x01, l2=» «, l3=0x01}
0x3bf…3f1 Line {l1=0x30, l2=»PROCEDURE READBLOCK(BLTENTRY,STARTPOST:INTEGER);«, l3=0x30}
0x3f1…3f8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3f8…40c Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x40c…42b Line {l1=0x1d, l2=» IF BLTENTRY<>BLKINZONE THEN«, l3=0x1d}
0x42b…44d Line {l1=0x20, l2=» BEGIN (*$XT*)«, l3=0x20}
0x44d…46f Line {l1=0x20, l2=» WRITELN('READBLOCK');(*$X-*)«, l3=0x20}
0x46f…483 Line {l1=0x12, l2=» IF BLKCHG THEN«, l3=0x12}
0x483…48e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x48e…4d0 Line {l1=0x40, l2=» COPSEGS(Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);«, l3=0x40}
0x4d0…4e6 Line {l1=0x14, l2=» BLKCHG:=FALSE «, l3=0x14}
0x4e6…4f0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x4f0…536 Line {l1=0x44, l2=» COPSEGS(Z((BLTENTRY-1)*ENTRYSIZE+BLT),BLKSIZE,BLK+(STARTPOST-1)*«, l3=0x44}
0x536…57e Line {l1=0x46, l2=» RECSIZE,LÆS);«, l3=0x46}
0x57e…597 Line {l1=0x17, l2=» BLKINZONE:=BLTENTRY«, l3=0x17}
0x597…59e Line {l1=0x05, l2=» END«, l3=0x05}
0x59e…5a4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5a4…5c0 00 00 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 ┆ cccccccccccccccccccccccccc┆
0x5c0…5e0 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┆
[…0x20…]