|
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: »ICLOS1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »ICLOS1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »ICLOS1.K«
PROCEDURE OUTHEAD;
VAR I:INTEGER;
BEGIN
WITH FILEHEAD DO
BEGIN
F^(1):=NBUC;
F^(2):=NBLK;
F^(3):=NREC;
F^(4):=BLKPRBUC;
F^(5):=RECPRBUC;
F^(6):=RECPRBLK;
F^(7):=KEYFLDS;
F^(8):=AZSIZE;
F^(9):=BUTSIZE;
F^(10):=BLTSIZE;
F^(11):=BLKSIZE;
F^(12):=RECSIZE;
F^(13):=KEYSIZE;
F^(14):=SEGINFLH;
F^(15):=SEGINBUT;
F^(16):=SEGINBUC;
F^(17):=SEGINBLT;
F^(18):=SEGINBLK;
F^(19):=INITREC;
F^(20):=BUCINUSE;
F^(21):=BLKINUSE;
F^(22):=RECINUSE;
IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0;
IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0;
FOR I:=1 TO 9 DO
BEGIN
F^(22+I*3):=KEYPOS(I);
F^(23+I*3):=KEYLNG(I);
F^(24+I*3):=KEYSGN(I)
END;
SEEK(F,1);
IOC;
PUT(F);
IOC
END
END;
(*$P*)
PROCEDURE ICLOSE;
VAR I:INTEGER;
BEGIN
WITH FILEHEAD DO
IF FILEOPEN THEN
BEGIN
IF NOT FILEINIT AND (RECINUSE>0) THEN
BEGIN
FILEINIT:=TRUE;
INITREC:=RECINUSE
END;
IF BLKCHG THEN
COPSEGS(Z(BLT+(BLKINZONE-1)*ENTRYSIZE),BLKSIZE,BLK,SKRIV);
IF BLTCHG THEN
COPSEGS(Z(BUT+(BUCINZONE-1)*ENTRYSIZE),BLTSIZE,BLT,SKRIV);
IF BUTCHG THEN
COPSEGS(2,BUTSIZE,BUT,SKRIV);
FILEOPEN:=FALSE;
OUTHEAD;
CLOSE(F);
IOC
END
ELSE IER:=-3
END;
0x000…014 Line {l1=0x12, l2=»PROCEDURE OUTHEAD;«, l3=0x12}
0x014…028 Line {l1=0x12, l2=»VAR I:INTEGER;«, l3=0x12}
0x028…02f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x02f…043 Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x043…04c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x04c…081 Line {l1=0x33, l2=» F^(1):=NBUC; «, l3=0x33}
0x081…0b6 Line {l1=0x33, l2=» F^(2):=NBLK; «, l3=0x33}
0x0b6…0eb Line {l1=0x33, l2=» F^(3):=NREC; «, l3=0x33}
0x0eb…120 Line {l1=0x33, l2=» F^(4):=BLKPRBUC; «, l3=0x33}
0x120…155 Line {l1=0x33, l2=» F^(5):=RECPRBUC; «, l3=0x33}
0x155…18a Line {l1=0x33, l2=» F^(6):=RECPRBLK; «, l3=0x33}
0x18a…1bf Line {l1=0x33, l2=» F^(7):=KEYFLDS; «, l3=0x33}
0x1bf…1f3 Line {l1=0x32, l2=» F^(8):=AZSIZE; «, l3=0x32}
0x1f3…228 Line {l1=0x33, l2=» F^(9):=BUTSIZE; «, l3=0x33}
0x228…25d Line {l1=0x33, l2=» F^(10):=BLTSIZE; «, l3=0x33}
0x25d…292 Line {l1=0x33, l2=» F^(11):=BLKSIZE; «, l3=0x33}
0x292…2c7 Line {l1=0x33, l2=» F^(12):=RECSIZE; «, l3=0x33}
0x2c7…2fc Line {l1=0x33, l2=» F^(13):=KEYSIZE; «, l3=0x33}
0x2fc…331 Line {l1=0x33, l2=» F^(14):=SEGINFLH; «, l3=0x33}
0x331…366 Line {l1=0x33, l2=» F^(15):=SEGINBUT; «, l3=0x33}
0x366…39b Line {l1=0x33, l2=» F^(16):=SEGINBUC; «, l3=0x33}
0x39b…3d0 Line {l1=0x33, l2=» F^(17):=SEGINBLT; «, l3=0x33}
0x3d0…405 Line {l1=0x33, l2=» F^(18):=SEGINBLK; «, l3=0x33}
0x405…43a Line {l1=0x33, l2=» F^(19):=INITREC; «, l3=0x33}
0x43a…46f Line {l1=0x33, l2=» F^(20):=BUCINUSE; «, l3=0x33}
0x46f…4a4 Line {l1=0x33, l2=» F^(21):=BLKINUSE; «, l3=0x33}
0x4a4…4d9 Line {l1=0x33, l2=» F^(22):=RECINUSE; «, l3=0x33}
0x4d9…50e Line {l1=0x33, l2=» IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0; «, l3=0x33}
0x50e…541 Line {l1=0x31, l2=» IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0; «, l3=0x31}
0x541…574 Line {l1=0x31, l2=» FOR I:=1 TO 9 DO «, l3=0x31}
0x574…5a7 Line {l1=0x31, l2=» BEGIN «, l3=0x31}
0x5a7…5da Line {l1=0x31, l2=» F^(22+I*3):=KEYPOS(I); «, l3=0x31}
0x5da…60d Line {l1=0x31, l2=» F^(23+I*3):=KEYLNG(I); «, l3=0x31}
0x60d…640 Line {l1=0x31, l2=» F^(24+I*3):=KEYSGN(I) «, l3=0x31}
0x640…673 Line {l1=0x31, l2=» END; «, l3=0x31}
0x673…6a6 Line {l1=0x31, l2=» SEEK(F,1); «, l3=0x31}
0x6a6…6b0 Line {l1=0x08, l2=» IOC;«, l3=0x08}
0x6b0…6e3 Line {l1=0x31, l2=» PUT(F); «, l3=0x31}
0x6e3…6ec Line {l1=0x07, l2=» IOC«, l3=0x07}
0x6ec…71f Line {l1=0x31, l2=» END «, l3=0x31}
0x71f…725 Line {l1=0x04, l2=»END;«, l3=0x04}
0x725…72d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x72d…740 Line {l1=0x11, l2=»PROCEDURE ICLOSE;«, l3=0x11}
0x740…750 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x750…757 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x757…76b Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x76b…77f Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x77f…788 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x788…7b3 Line {l1=0x29, l2=» IF NOT FILEINIT AND (RECINUSE>0) THEN«, l3=0x29}
0x7b3…7be Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x7be…7d5 Line {l1=0x15, l2=» FILEINIT:=TRUE;«, l3=0x15}
0x7d5…7ee Line {l1=0x17, l2=» INITREC:=RECINUSE«, l3=0x17}
0x7ee…7f8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x7f8…80c Line {l1=0x12, l2=» IF BLKCHG THEN«, l3=0x12}
0x80c…84e Line {l1=0x40, l2=» COPSEGS(Z(BLT+(BLKINZONE-1)*ENTRYSIZE),BLKSIZE,BLK,SKRIV);«, l3=0x40}
0x84e…862 Line {l1=0x12, l2=» IF BLTCHG THEN«, l3=0x12}
0x862…8a4 Line {l1=0x40, l2=» COPSEGS(Z(BUT+(BUCINZONE-1)*ENTRYSIZE),BLTSIZE,BLT,SKRIV);«, l3=0x40}
0x8a4…8b8 Line {l1=0x12, l2=» IF BUTCHG THEN«, l3=0x12}
0x8b8…8dd Line {l1=0x23, l2=» COPSEGS(2,BUTSIZE,BUT,SKRIV);«, l3=0x23}
0x8dd…8f3 Line {l1=0x14, l2=» FILEOPEN:=FALSE;«, l3=0x14}
0x8f3…933 Line {l1=0x3e, l2=» OUTHEAD; «, l3=0x3e}
0x933…942 Line {l1=0x0d, l2=» CLOSE(F);«, l3=0x0d}
0x942…94c Line {l1=0x08, l2=» IOC «, l3=0x08}
0x94c…953 Line {l1=0x05, l2=» END«, l3=0x05}
0x953…963 Line {l1=0x0e, l2=» ELSE IER:=-3«, l3=0x0e}
0x963…969 Line {l1=0x04, l2=»END;«, l3=0x04}
0x969…980 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccc┆
0x980…9a0 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┆
[…0x2…]