|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »READPROC.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »READPROC.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »READPROC.K«
(*$P*)
PROCEDURE READTABLE(VAR F:ISF;BUTENTRY:INTEGER);
BEGIN
WITH FILEHEAD(CURRHEAD) DO
IF BUTENTRY<>BUCINZONE THEN
BEGIN
IF BLKCHG THEN
COPSEGS(F,Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
IF BLTCHG THEN
COPSEGS(F,Z((BUCINZONE-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,SKRIV);
BLKCHG:=FALSE;
BLTCHG:=FALSE;
COPSEGS(F,Z((BUTENTRY-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,LÆS);
BUCINZONE:=BUTENTRY;
BLKINZONE:=0
END
END;
PROCEDURE READBLOCK(VAR F:ISF;BLTENTRY,STARTPOST:INTEGER);
BEGIN
WITH FILEHEAD(CURRHEAD) DO
IF BLTENTRY<>BLKINZONE THEN
BEGIN
IF BLKCHG THEN
BEGIN
COPSEGS(F,Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
BLKCHG:=FALSE
END;
COPSEGS(F,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…03a Line {l1=0x30, l2=»PROCEDURE READTABLE(VAR F:ISF;BUTENTRY:INTEGER);«, l3=0x30}
0x03a…041 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x041…05f Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x05f…0a5 Line {l1=0x44, l2=» IF BUTENTRY<>BUCINZONE THEN «, l3=0x44}
0x0a5…0eb Line {l1=0x44, l2=» BEGIN «, l3=0x44}
0x0eb…131 Line {l1=0x44, l2=» IF BLKCHG THEN «, l3=0x44}
0x131…177 Line {l1=0x44, l2=» COPSEGS(F,Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV); «, l3=0x44}
0x177…1bd Line {l1=0x44, l2=» IF BLTCHG THEN «, l3=0x44}
0x1bd…203 Line {l1=0x44, l2=» COPSEGS(F,Z((BUCINZONE-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,SKRIV); «, l3=0x44}
0x203…249 Line {l1=0x44, l2=» BLKCHG:=FALSE; «, l3=0x44}
0x249…28f Line {l1=0x44, l2=» BLTCHG:=FALSE; «, l3=0x44}
0x28f…2d5 Line {l1=0x44, l2=» COPSEGS(F,Z((BUTENTRY-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,LÆS); «, l3=0x44}
0x2d5…31b Line {l1=0x44, l2=» BUCINZONE:=BUTENTRY; «, l3=0x44}
0x31b…361 Line {l1=0x44, l2=» BLKINZONE:=0 «, l3=0x44}
0x361…3a7 Line {l1=0x44, l2=» END «, l3=0x44}
0x3a7…3ad Line {l1=0x04, l2=»END;«, l3=0x04}
0x3ad…3b0 Line {l1=0x01, l2=» «, l3=0x01}
0x3b0…3ec Line {l1=0x3a, l2=»PROCEDURE READBLOCK(VAR F:ISF;BLTENTRY,STARTPOST:INTEGER);«, l3=0x3a}
0x3ec…3f3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3f3…411 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x411…430 Line {l1=0x1d, l2=» IF BLTENTRY<>BLKINZONE THEN«, l3=0x1d}
0x430…439 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x439…44d Line {l1=0x12, l2=» IF BLKCHG THEN«, l3=0x12}
0x44d…458 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x458…49c Line {l1=0x42, l2=» COPSEGS(F,Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);«, l3=0x42}
0x49c…4b2 Line {l1=0x14, l2=» BLKCHG:=FALSE «, l3=0x14}
0x4b2…4bc Line {l1=0x08, l2=» END;«, l3=0x08}
0x4bc…504 Line {l1=0x46, l2=» COPSEGS(F,Z((BLTENTRY-1)*ENTRYSIZE+BLT),BLKSIZE,BLK+(STARTPOST-1)*«, l3=0x46}
0x504…54c Line {l1=0x46, l2=» RECSIZE,LÆS);«, l3=0x46}
0x54c…565 Line {l1=0x17, l2=» BLKINZONE:=BLTENTRY«, l3=0x17}
0x565…56c Line {l1=0x05, l2=» END«, l3=0x05}
0x56c…572 Line {l1=0x04, l2=»END;«, l3=0x04}
0x572…580 00 00 54 45 4e 54 52 59 17 05 20 20 45 4e ┆ TENTRY EN┆
0x580…5a0 44 05 04 45 4e 44 3b 04 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 04 45 4e 44 ┆D END; D END┆
0x5a0…5c0 3b 04 01 20 01 3a 50 52 4f 43 45 44 55 52 45 20 52 45 41 44 42 4c 4f 43 4b 28 56 41 52 20 46 3a ┆; :PROCEDURE READBLOCK(VAR F:┆
0x5c0…5e0 49 53 46 3b 42 4c 54 45 4e 54 52 59 2c 53 54 41 52 54 50 4f 53 54 3a 49 4e 54 45 47 45 52 29 3b ┆ISF;BLTENTRY,STARTPOST:INTEGER);┆
0x5e0…600 3a 05 42 45 47 49 4e 05 09 20 20 49 45 52 3a 3d 30 3b 09 1c 20 20 57 49 54 48 20 46 49 4c 45 48 ┆: BEGIN IER:=0; WITH FILEH┆
0x600…620 45 41 44 28 43 55 52 52 48 45 41 44 29 20 44 4f 1c 1d 20 20 49 46 20 42 4c 54 45 4e 54 52 59 3c ┆EAD(CURRHEAD) DO IF BLTENTRY<┆
0x620…640 3e 42 4c 4b 49 4e 5a 4f 4e 45 20 54 48 45 4e 1d 07 20 20 42 45 47 49 4e 07 12 20 20 20 20 49 46 ┆>BLKINZONE THEN BEGIN IF┆
0x640…660 20 42 4c 4b 43 48 47 20 54 48 45 4e 12 09 20 20 20 20 42 45 47 49 4e 09 42 20 20 20 20 20 20 43 ┆ BLKCHG THEN BEGIN B C┆
0x660…680 4f 50 53 45 47 53 28 46 2c 5a 28 28 42 4c 4b 49 4e 5a 4f 4e 45 2d 31 29 2a 45 4e 54 52 59 53 49 ┆OPSEGS(F,Z((BLKINZONE-1)*ENTRYSI┆
0x680…6a0 5a 45 2b 42 4c 54 29 2c 42 4c 4b 53 49 5a 45 2c 42 4c 4b 2c 53 4b 52 49 56 29 3b 42 14 20 20 20 ┆ZE+BLT),BLKSIZE,BLK,SKRIV);B ┆
0x6a0…6c0 20 20 20 42 4c 4b 43 48 47 3a 3d 46 41 4c 53 45 3b 14 24 20 20 20 20 20 20 49 46 20 49 45 52 3c ┆ BLKCHG:=FALSE; $ IF IER<┆
0x6c0…6e0 3e 30 20 54 48 45 4e 20 45 58 49 54 28 52 45 41 44 42 4c 4f 43 4b 29 24 08 20 20 20 20 45 4e 44 ┆>0 THEN EXIT(READBLOCK)$ END┆
0x6e0…700 3b 08 46 20 20 20 20 43 4f 50 53 45 47 53 28 46 2c 5a 28 28 42 4c 54 45 4e 54 52 59 2d 31 29 2a ┆; F COPSEGS(F,Z((BLTENTRY-1)*┆
0x700…720 45 4e 54 52 59 53 49 5a 45 2b 42 4c 54 29 2c 42 4c 4b 53 49 5a 45 2c 42 4c 4b 2b 28 53 54 41 52 ┆ENTRYSIZE+BLT),BLKSIZE,BLK+(STAR┆
0x720…740 54 50 4f 53 54 2d 31 29 2a 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TPOST-1)*FF ┆
0x740…760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x760…780 20 20 20 20 52 45 43 53 49 5a 45 2c 4c 5b 53 29 3b 46 23 20 20 20 20 49 46 20 49 45 52 3c 3e 30 ┆ RECSIZE,LÆS);F# IF IER<>0┆
0x780…7a0 20 54 48 45 4e 20 45 58 49 54 28 52 45 41 44 42 4c 4f 43 4b 29 3b 23 17 20 20 20 20 42 4c 4b 49 ┆ THEN EXIT(READBLOCK);# BLKI┆
0x7a0…7c0 4e 5a 4f 4e 45 3a 3d 42 4c 54 45 4e 54 52 59 17 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 00 00 00 ┆NZONE:=BLTENTRY END END; ┆
0x7c0…7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xe…]
0x9a0…9c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆