|
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: »DETERMIN.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »DETERMIN.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »DETERMIN.K«
(*$P*)
PROCEDURE DETERMIN;
VAR BANK:INTEGER;
(*FASTLÆGGER VÆRDIEN AF ALLE CURRENTVARIABLE*)
BEGIN
(*$R-*)
FUSK(2):=FUSK(2)+20;
BANK:=AFSENDER^ DIV 256;
CURRUSER:=1;
WHILE BANK MOD 2=0 DO
BEGIN
CURRUSER:=CURRUSER+1;
BANK:=BANK DIV 2
END;
(*$XT*) WRITELN('CURRUSER ',CURRUSER:5); (*$X-*)
FUSK(2):=FUSK(2)-20;
(*$R+*)
CURRFUNC:=BESKED.KOMMANDO;
IF CURRFUNC IN (.ÅBEN..INITIER,RETURNHEAD,RETURNSTAT.) THEN
BEGIN
IF CURRFUNC IN (.ÅBEN,LUK,INITIER.) THEN
CURRFILE:=BESKED.INFO
ELSE
BEGIN
(*$R-*)
FUSK(1):=BESKED.INFO;
(*$R+*)
IF CURRFUNC=RETURNSTAT THEN STATUSER:=REC^(0) ELSE CURRFILE:=REC^(0)
END;
IF CURRFUNC<>RETURNSTAT THEN
BEGIN
IF HEADBASE(CURRFILE)=0 THEN
IF (CURRFUNC=ÅBEN) AND (AVAILHEAD<=MAXOPENFILES) THEN
BEGIN
HEADBASE(CURRFILE):=AVAILHEAD;
AVAILHEAD:=FILEHEAD(AVAILHEAD).NBUC
END
ELSE BEGIN IF CURRFUNC=ÅBEN THEN IER:=-20 ELSE
IER:=-3;EXIT(DETERMIN) END;
CURRHEAD:=HEADBASE(CURRFILE)
END
END
END;
0x000…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…01d Line {l1=0x13, l2=»PROCEDURE DETERMIN;«, l3=0x13}
0x01d…030 Line {l1=0x11, l2=»VAR BANK:INTEGER;«, l3=0x11}
0x030…060 Line {l1=0x2e, l2=»(*FASTLÆGGER VÆRDIEN AF ALLE CURRENTVARIABLE*)«, l3=0x2e}
0x060…067 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x067…072 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x072…08a Line {l1=0x16, l2=» FUSK(2):=FUSK(2)+20;«, l3=0x16}
0x08a…0a6 Line {l1=0x1a, l2=» BANK:=AFSENDER^ DIV 256;«, l3=0x1a}
0x0a6…0b6 Line {l1=0x0e, l2=» CURRUSER:=1;«, l3=0x0e}
0x0b6…0cf Line {l1=0x17, l2=» WHILE BANK MOD 2=0 DO«, l3=0x17}
0x0cf…0d8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d8…0f3 Line {l1=0x19, l2=» CURRUSER:=CURRUSER+1;«, l3=0x19}
0x0f3…109 Line {l1=0x14, l2=» BANK:=BANK DIV 2«, l3=0x14}
0x109…111 Line {l1=0x06, l2=» END;«, l3=0x06}
0x111…145 Line {l1=0x32, l2=» (*$XT*) WRITELN('CURRUSER ',CURRUSER:5); (*$X-*)«, l3=0x32}
0x145…15d Line {l1=0x16, l2=» FUSK(2):=FUSK(2)-20;«, l3=0x16}
0x15d…168 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x168…186 Line {l1=0x1c, l2=» CURRFUNC:=BESKED.KOMMANDO;«, l3=0x1c}
0x186…1c5 Line {l1=0x3d, l2=» IF CURRFUNC IN (.ÅBEN..INITIER,RETURNHEAD,RETURNSTAT.) THEN«, l3=0x3d}
0x1c5…1ce Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1ce…211 Line {l1=0x41, l2=» IF CURRFUNC IN (.ÅBEN,LUK,INITIER.) THEN «, l3=0x41}
0x211…250 Line {l1=0x3d, l2=» CURRFILE:=BESKED.INFO «, l3=0x3d}
0x250…293 Line {l1=0x41, l2=» ELSE «, l3=0x41}
0x293…2d6 Line {l1=0x41, l2=» BEGIN «, l3=0x41}
0x2d6…319 Line {l1=0x41, l2=» (*$R-*) «, l3=0x41}
0x319…35c Line {l1=0x41, l2=» FUSK(1):=BESKED.INFO; «, l3=0x41}
0x35c…39f Line {l1=0x41, l2=» (*$R+*) «, l3=0x41}
0x39f…3eb Line {l1=0x4a, l2=» IF CURRFUNC=RETURNSTAT THEN STATUSER:=REC^(0) ELSE CURRFILE:=REC^(0)«, l3=0x4a}
0x3eb…42e Line {l1=0x41, l2=» END; «, l3=0x41}
0x42e…450 Line {l1=0x20, l2=» IF CURRFUNC<>RETURNSTAT THEN«, l3=0x20}
0x450…45b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x45b…499 Line {l1=0x3c, l2=» IF HEADBASE(CURRFILE)=0 THEN «, l3=0x3c}
0x499…4d9 Line {l1=0x3e, l2=» IF (CURRFUNC=ÅBEN) AND (AVAILHEAD<=MAXOPENFILES) THEN «, l3=0x3e}
0x4d9…519 Line {l1=0x3e, l2=» BEGIN «, l3=0x3e}
0x519…554 Line {l1=0x39, l2=» HEADBASE(CURRFILE):=AVAILHEAD; «, l3=0x39}
0x554…594 Line {l1=0x3e, l2=» AVAILHEAD:=FILEHEAD(AVAILHEAD).NBUC «, l3=0x3e}
0x594…5d4 Line {l1=0x3e, l2=» END «, l3=0x3e}
0x5d4…60a Line {l1=0x34, l2=» ELSE BEGIN IF CURRFUNC=ÅBEN THEN IER:=-20 ELSE«, l3=0x34}
0x60a…63a Line {l1=0x2e, l2=» IER:=-3;EXIT(DETERMIN) END; «, l3=0x2e}
0x63a…667 Line {l1=0x2b, l2=» CURRHEAD:=HEADBASE(CURRFILE) «, l3=0x2b}
0x667…670 Line {l1=0x07, l2=» END«, l3=0x07}
0x670…677 Line {l1=0x05, l2=» END«, l3=0x05}
0x677…67d Line {l1=0x04, l2=»END;«, l3=0x04}
0x67d…680 00 00 4e ┆ N┆
0x680…6a0 44 3b 04 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 63 ┆D; ccccccccccccccccccccccccccc┆
0x6a0…6c0 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┆
[…0x8…]