|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »RETURNEZ.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »RETURNEZ.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »RETURNEZ.K«
SEGMENT PROCEDURE RETURNEZ;
VAR I:INTEGER;
BEGIN
WITH USER(CURRUSER) DO
BEGIN
WITH FILEHEAD(CURRHEAD) 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
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…050 Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x050…059 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x059…079 Line {l1=0x1e, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1e}
0x079…084 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x084…0bd Line {l1=0x37, l2=» REC^(1):=NBUC; «, l3=0x37}
0x0bd…0f6 Line {l1=0x37, l2=» REC^(2):=NBLK; «, l3=0x37}
0x0f6…12f Line {l1=0x37, l2=» REC^(3):=NREC; «, l3=0x37}
0x12f…168 Line {l1=0x37, l2=» REC^(4):=BLKPRBUC; «, l3=0x37}
0x168…1a1 Line {l1=0x37, l2=» REC^(5):=RECPRBUC; «, l3=0x37}
0x1a1…1da Line {l1=0x37, l2=» REC^(6):=RECPRBLK; «, l3=0x37}
0x1da…213 Line {l1=0x37, l2=» REC^(7):=KEYFLDS; «, l3=0x37}
0x213…24b Line {l1=0x36, l2=» REC^(8):=AZSIZE; «, l3=0x36}
0x24b…284 Line {l1=0x37, l2=» REC^(9):=BUTSIZE; «, l3=0x37}
0x284…2bd Line {l1=0x37, l2=» REC^(10):=BLTSIZE; «, l3=0x37}
0x2bd…2f6 Line {l1=0x37, l2=» REC^(11):=BLKSIZE; «, l3=0x37}
0x2f6…32f Line {l1=0x37, l2=» REC^(12):=RECSIZE; «, l3=0x37}
0x32f…368 Line {l1=0x37, l2=» REC^(13):=KEYSIZE; «, l3=0x37}
0x368…3a1 Line {l1=0x37, l2=» REC^(14):=SEGINFLH; «, l3=0x37}
0x3a1…3da Line {l1=0x37, l2=» REC^(15):=SEGINBUT; «, l3=0x37}
0x3da…413 Line {l1=0x37, l2=» REC^(16):=SEGINBUC; «, l3=0x37}
0x413…44c Line {l1=0x37, l2=» REC^(17):=SEGINBLT; «, l3=0x37}
0x44c…485 Line {l1=0x37, l2=» REC^(18):=SEGINBLK; «, l3=0x37}
0x485…4be Line {l1=0x37, l2=» REC^(19):=INITREC; «, l3=0x37}
0x4be…4f7 Line {l1=0x37, l2=» REC^(20):=BUCINUSE; «, l3=0x37}
0x4f7…530 Line {l1=0x37, l2=» REC^(21):=BLKINUSE; «, l3=0x37}
0x530…569 Line {l1=0x37, l2=» REC^(22):=RECINUSE; «, l3=0x37}
0x569…5a4 Line {l1=0x39, l2=» IF FILEINIT THEN REC^(23):=1 ELSE REC^(23):=0; «, l3=0x39}
0x5a4…5dd Line {l1=0x37, l2=» IF FILEOPEN THEN REC^(24):=1 ELSE REC^(24):=0; «, l3=0x37}
0x5dd…612 Line {l1=0x33, l2=» FOR I:=1 TO 9 DO «, l3=0x33}
0x612…647 Line {l1=0x33, l2=» BEGIN «, l3=0x33}
0x647…67e Line {l1=0x35, l2=» REC^(22+I*3):=KEYPOS(I); «, l3=0x35}
0x67e…6b5 Line {l1=0x35, l2=» REC^(23+I*3):=KEYLNG(I); «, l3=0x35}
0x6b5…6ec Line {l1=0x35, l2=» REC^(24+I*3):=KEYSGN(I) «, l3=0x35}
0x6ec…721 Line {l1=0x33, l2=» END «, l3=0x33}
0x721…756 Line {l1=0x33, l2=» END «, l3=0x33}
0x756…75e Line {l1=0x06, l2=» END «, l3=0x06}
0x75e…764 Line {l1=0x04, l2=»END;«, l3=0x04}
0x764…76c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x76c…780 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x780…7a0 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┆
[…0x1…]