|
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: »DETERMI1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »DETERMI1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »DETERMI1.K«
(*$P*)
PROCEDURE DETERMIN;
VAR BANK:INTEGER;
(*FASTLÆGGER VÆRDIEN AF ALLE CURRENTVARIABLE, UDSKRIVER/INDLÆSER RELEVANT
ZONE*)
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;
CFILE:=CURRFILE;
IF CURRFUNC IN (.ÅBEN..INITIER,RETURNHEAD,RETURNSTAT.) THEN
BEGIN
IF CURRFUNC IN (.ÅBEN,LUK,INITIER.) THEN
CFILE:=BESKED.INFO
ELSE
BEGIN
(*$R-*)
FUSK(1):=BESKED.INFO;
(*$R+*)
IF CURRFUNC=RETURNSTAT THEN STATUSER:=REC^(0) ELSE CFILE:=REC^(0)
END;
IF (CFILE<>CURRFILE) AND (CURRFUNC<>LUK) THEN
BEGIN
IF CURRFILE<>0 THEN SKRIVZONE;
CURRFILE:=CFILE;
LÆSZONE
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…07b Line {l1=0x49, l2=»(*FASTLÆGGER VÆRDIEN AF ALLE CURRENTVARIABLE, UDSKRIVER/INDLÆSER RELEVANT«, l3=0x49}
0x07b…085 Line {l1=0x08, l2=» ZONE*)«, l3=0x08}
0x085…08c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08c…097 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x097…0af Line {l1=0x16, l2=» FUSK(2):=FUSK(2)+20;«, l3=0x16}
0x0af…0cb Line {l1=0x1a, l2=» BANK:=AFSENDER^ DIV 256;«, l3=0x1a}
0x0cb…0db Line {l1=0x0e, l2=» CURRUSER:=1;«, l3=0x0e}
0x0db…0f4 Line {l1=0x17, l2=» WHILE BANK MOD 2=0 DO«, l3=0x17}
0x0f4…0fd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0fd…118 Line {l1=0x19, l2=» CURRUSER:=CURRUSER+1;«, l3=0x19}
0x118…12e Line {l1=0x14, l2=» BANK:=BANK DIV 2«, l3=0x14}
0x12e…136 Line {l1=0x06, l2=» END;«, l3=0x06}
0x136…16a Line {l1=0x32, l2=» (*$XT*) WRITELN('CURRUSER ',CURRUSER:5); (*$X-*)«, l3=0x32}
0x16a…182 Line {l1=0x16, l2=» FUSK(2):=FUSK(2)-20;«, l3=0x16}
0x182…18d Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x18d…1ab Line {l1=0x1c, l2=» CURRFUNC:=BESKED.KOMMANDO;«, l3=0x1c}
0x1ab…1bf Line {l1=0x12, l2=» CFILE:=CURRFILE;«, l3=0x12}
0x1bf…1fe Line {l1=0x3d, l2=» IF CURRFUNC IN (.ÅBEN..INITIER,RETURNHEAD,RETURNSTAT.) THEN«, l3=0x3d}
0x1fe…207 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x207…24a Line {l1=0x41, l2=» IF CURRFUNC IN (.ÅBEN,LUK,INITIER.) THEN «, l3=0x41}
0x24a…286 Line {l1=0x3a, l2=» CFILE:=BESKED.INFO «, l3=0x3a}
0x286…2c9 Line {l1=0x41, l2=» ELSE «, l3=0x41}
0x2c9…30c Line {l1=0x41, l2=» BEGIN «, l3=0x41}
0x30c…34f Line {l1=0x41, l2=» (*$R-*) «, l3=0x41}
0x34f…392 Line {l1=0x41, l2=» FUSK(1):=BESKED.INFO; «, l3=0x41}
0x392…3d5 Line {l1=0x41, l2=» (*$R+*) «, l3=0x41}
0x3d5…41e Line {l1=0x47, l2=» IF CURRFUNC=RETURNSTAT THEN STATUSER:=REC^(0) ELSE CFILE:=REC^(0)«, l3=0x47}
0x41e…461 Line {l1=0x41, l2=» END; «, l3=0x41}
0x461…494 Line {l1=0x31, l2=» IF (CFILE<>CURRFILE) AND (CURRFUNC<>LUK) THEN«, l3=0x31}
0x494…49f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x49f…4c5 Line {l1=0x24, l2=» IF CURRFILE<>0 THEN SKRIVZONE;«, l3=0x24}
0x4c5…4dd Line {l1=0x16, l2=» CURRFILE:=CFILE;«, l3=0x16}
0x4dd…4ed Line {l1=0x0e, l2=» LÆSZONE «, l3=0x0e}
0x4ed…4f6 Line {l1=0x07, l2=» END«, l3=0x07}
0x4f6…4fd Line {l1=0x05, l2=» END«, l3=0x05}
0x4fd…503 Line {l1=0x04, l2=»END;«, l3=0x04}
0x503…520 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 ┆ ccccccccccccccccccccccccccc┆
0x520…540 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┆
[…0x25…]