|
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: »RETURNE1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »RETURNE1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »RETURNE1.K«
SEGMENT PROCEDURE RETURNEZ;
VAR I:INTEGER;
BEGIN
WITH FILEHEAD DO
BEGIN
REC^(1):=NBUC;
REC^(2):=NBLK;
REC^(3):=NREC;
REC^(4):=BLKPRBUC;
REC^(5):=RECPRBUC;
REC^(6):=RECPRBLK;
REC^(7):=KEYFLDS;
REC^(8):=AZSIZE;
REC^(9):=BUTSIZE;
REC^(10):=BLTSIZE;
REC^(11):=BLKSIZE;
REC^(12):=RECSIZE;
REC^(13):=KEYSIZE;
REC^(14):=SEGINFLH;
REC^(15):=SEGINBUT;
REC^(16):=SEGINBUC;
REC^(17):=SEGINBLT;
REC^(18):=SEGINBLK;
REC^(19):=INITREC;
REC^(20):=BUCINUSE;
REC^(21):=BLKINUSE;
REC^(22):=RECINUSE;
IF FILEINIT THEN REC^(23):=1 ELSE REC^(23):=0;
IF FILEOPEN THEN REC^(24):=1 ELSE REC^(24):=0;
FOR I:=1 TO 9 DO
BEGIN
REC^(22+I*3):=KEYPOS(I);
REC^(23+I*3):=KEYLNG(I);
REC^(24+I*3):=KEYSGN(I)
END
END
END;
(*$P*)
0x000…01f Line {l1=0x1d, l2=»SEGMENT PROCEDURE RETURNEZ; «, l3=0x1d}
0x01f…02f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x02f…036 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x036…04c Line {l1=0x14, l2=» WITH FILEHEAD DO«, l3=0x14}
0x04c…057 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x057…090 Line {l1=0x37, l2=» REC^(1):=NBUC; «, l3=0x37}
0x090…0c9 Line {l1=0x37, l2=» REC^(2):=NBLK; «, l3=0x37}
0x0c9…102 Line {l1=0x37, l2=» REC^(3):=NREC; «, l3=0x37}
0x102…13b Line {l1=0x37, l2=» REC^(4):=BLKPRBUC; «, l3=0x37}
0x13b…174 Line {l1=0x37, l2=» REC^(5):=RECPRBUC; «, l3=0x37}
0x174…1ad Line {l1=0x37, l2=» REC^(6):=RECPRBLK; «, l3=0x37}
0x1ad…1e6 Line {l1=0x37, l2=» REC^(7):=KEYFLDS; «, l3=0x37}
0x1e6…21e Line {l1=0x36, l2=» REC^(8):=AZSIZE; «, l3=0x36}
0x21e…257 Line {l1=0x37, l2=» REC^(9):=BUTSIZE; «, l3=0x37}
0x257…290 Line {l1=0x37, l2=» REC^(10):=BLTSIZE; «, l3=0x37}
0x290…2c9 Line {l1=0x37, l2=» REC^(11):=BLKSIZE; «, l3=0x37}
0x2c9…302 Line {l1=0x37, l2=» REC^(12):=RECSIZE; «, l3=0x37}
0x302…33b Line {l1=0x37, l2=» REC^(13):=KEYSIZE; «, l3=0x37}
0x33b…374 Line {l1=0x37, l2=» REC^(14):=SEGINFLH; «, l3=0x37}
0x374…3ad Line {l1=0x37, l2=» REC^(15):=SEGINBUT; «, l3=0x37}
0x3ad…3e6 Line {l1=0x37, l2=» REC^(16):=SEGINBUC; «, l3=0x37}
0x3e6…41f Line {l1=0x37, l2=» REC^(17):=SEGINBLT; «, l3=0x37}
0x41f…458 Line {l1=0x37, l2=» REC^(18):=SEGINBLK; «, l3=0x37}
0x458…491 Line {l1=0x37, l2=» REC^(19):=INITREC; «, l3=0x37}
0x491…4ca Line {l1=0x37, l2=» REC^(20):=BUCINUSE; «, l3=0x37}
0x4ca…503 Line {l1=0x37, l2=» REC^(21):=BLKINUSE; «, l3=0x37}
0x503…53c Line {l1=0x37, l2=» REC^(22):=RECINUSE; «, l3=0x37}
0x53c…577 Line {l1=0x39, l2=» IF FILEINIT THEN REC^(23):=1 ELSE REC^(23):=0; «, l3=0x39}
0x577…5b0 Line {l1=0x37, l2=» IF FILEOPEN THEN REC^(24):=1 ELSE REC^(24):=0; «, l3=0x37}
0x5b0…5e5 Line {l1=0x33, l2=» FOR I:=1 TO 9 DO «, l3=0x33}
0x5e5…61a Line {l1=0x33, l2=» BEGIN «, l3=0x33}
0x61a…651 Line {l1=0x35, l2=» REC^(22+I*3):=KEYPOS(I); «, l3=0x35}
0x651…688 Line {l1=0x35, l2=» REC^(23+I*3):=KEYLNG(I); «, l3=0x35}
0x688…6bf Line {l1=0x35, l2=» REC^(24+I*3):=KEYSGN(I) «, l3=0x35}
0x6bf…6f4 Line {l1=0x33, l2=» END «, l3=0x33}
0x6f4…729 Line {l1=0x33, l2=» END «, l3=0x33}
0x729…72f Line {l1=0x04, l2=»END;«, l3=0x04}
0x72f…737 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x737…740 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆
0x740…760 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┆
[…0x14…]