|
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: »HENRAMME.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »HENRAMME.K«
PROCEDURE HENTRAMME(VAR RAM:ARAMMETYP;KA:AKARMTYP;
GLA:AGLASTYP;FA:AFARVTYP;HÆNG:AR14;
MONT:INTEGER;ORAM:AR13);
TYPE RAMMEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MRAMMEZ) OF INTEGER;
END;
RAMMEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
TYPE:INTEGER;
ØFORSTÆRK
NFORSTÆRK
FFORSTÆRK
BFORSTÆRK:AR13;
ØBESLAG,
NBESLAG,
FBESLAG,
BBESLAG:DOBBTAL;
TÆTGUM:INTEGER;
TEKST:TEK;
END;
VAR RAMF:ISF;
RAMZ:RAMMEZONE;
RAMME:RAMMEPOST;
I1,I:INTEGER;
FUNCTION OMK(J,X:INTEGER):INTEGER;
BEGIN
WHILE(RAM(I+J*X).NR=I) AND (J<4) THEN J:=J+1;
IF J<4 THEN
IF RAM(I+J*X).NR=0 THEN J:=4;
OMK:=J;
END;
FUNCTION FPOST:INTEGER;
VAR J,J1:INTEGER;
BEGIN
J:=1;J1:=3-(I1 DIV 3)*2;
WHILE((KA(J).PLACE<>RAM(I).OMKREDS(I1)) OR (KA(J).GÅFRA>
RAM(I).OMKREDS(J1)) OR (KA(J).GÅTIL<RAM(I).
OMKREDS(J1+1))) AND (J<20) DO J:=J+1;
FPOST:=J;
END;
BEGIN
WITH RAMME DO
BEGIN
OWRITE(RAMZ.H,RAMF,10,LÆS);
FOR I:=1 TO 16 DO
BEGIN
NR:=RAM(I).NR;
IF NR>19 THEN
BEGIN
GETREC(TAMZ.H,RAMF,A);
IF IER<>0 THEN IOF(RAMZ.H.FILNAME);
RAM(I).TÆTGUM;=TÆTGUM;
RAM(I).TYPE:=TYPE;
I1:=1;
WHILE (I<>ORAM(I1)) AND (I1<3) DO I1:=I1+1;
RAM(I).GLASKODE:=GLA(I).KODE;
I1:=3;
IF MONT=0 THEN
BEGIN
I1:=2;
IF FA(2).KODE=0 THEN I1:=1;
END;
RAM(I).FORSTÆRK(1):=ØFORSTÆRK(I1);
RAM(I).FORSTÆRK(2):=NFORSTÆRK(I1);
RAM(I).FORSTÆRK(3):=FFORSTÆRK(I1);
RAM(I).FORSTÆRK(4):=BFORSTÆRK(I1);
I1:=HÆNG((I-1) MOD 4+1);
RAM(I).BESLAG(1):=ØBESLAG(I1);
RAM(I).BESLAG(2):=NBESLAG(I1);
RAM(I).BESLAG(3):=FBESLAG(I1);
RAM(I).BESLAG(4):=BBESLAG(I1);
RAM(I).OMKREDS(1):=(I-1) DIV 4;
RAM(I).OMKREDS(2):=OMK((I+3)DIV4,4);
RAM(I).OMKREDS(3):=(I-1) MOD 4;
RAM(I).OMKREDS(4):=OMK((I-1) MOD 4+1,1);
FOR I1:=1 TO 4 DO RAM(I).POST(I1):=FPOST;
END;
END;
ICLOSE(RAMZ.H,RAMF);
END;
END;
0x000…034 Line {l1=0x32, l2=»PROCEDURE HENTRAMME(VAR RAM:ARAMMETYP;KA:AKARMTYP;«, l3=0x32}
0x034…06d Line {l1=0x37, l2=» GLA:AGLASTYP;FA:AFARVTYP;HÆNG:AR14;«, l3=0x37}
0x06d…09b Line {l1=0x2c, l2=» MONT:INTEGER;ORAM:AR13);«, l3=0x2c}
0x09b…09e Line {l1=0x01, l2=» «, l3=0x01}
0x09e…0b5 Line {l1=0x15, l2=»TYPE RAMMEZONE=RECORD«, l3=0x15}
0x0b5…0d0 Line {l1=0x19, l2=» H:ISFHEAD;«, l3=0x19}
0x0d0…100 Line {l1=0x2e, l2=» T:ARRAY(1..MRAMMEZ) OF INTEGER;«, l3=0x2e}
0x100…10b Line {l1=0x09, l2=» END;«, l3=0x09}
0x10b…10e Line {l1=0x01, l2=» «, l3=0x01}
0x10e…125 Line {l1=0x15, l2=» RAMMEPOST=RECORD«, l3=0x15}
0x125…13e Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x13e…154 Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x154…16d Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x16d…181 Line {l1=0x12, l2=» NR,«, l3=0x12}
0x181…19f Line {l1=0x1c, l2=» TYPE:INTEGER;«, l3=0x1c}
0x19f…1b9 Line {l1=0x18, l2=» ØFORSTÆRK«, l3=0x18}
0x1b9…1d3 Line {l1=0x18, l2=» NFORSTÆRK«, l3=0x18}
0x1d3…1ed Line {l1=0x18, l2=» FFORSTÆRK«, l3=0x18}
0x1ed…20d Line {l1=0x1e, l2=» BFORSTÆRK:AR13;«, l3=0x1e}
0x20d…226 Line {l1=0x17, l2=» ØBESLAG,«, l3=0x17}
0x226…23f Line {l1=0x17, l2=» NBESLAG,«, l3=0x17}
0x23f…258 Line {l1=0x17, l2=» FBESLAG,«, l3=0x17}
0x258…279 Line {l1=0x1f, l2=» BBESLAG:DOBBTAL;«, l3=0x1f}
0x279…299 Line {l1=0x1e, l2=» TÆTGUM:INTEGER;«, l3=0x1e}
0x299…2b4 Line {l1=0x19, l2=» TEKST:TEK;«, l3=0x19}
0x2b4…2c0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2c0…2c3 Line {l1=0x01, l2=» «, l3=0x01}
0x2c3…2d3 Line {l1=0x0e, l2=»VAR RAMF:ISF;«, l3=0x0e}
0x2d3…2e9 Line {l1=0x14, l2=» RAMZ:RAMMEZONE;«, l3=0x14}
0x2e9…300 Line {l1=0x15, l2=» RAMME:RAMMEPOST;«, l3=0x15}
0x300…314 Line {l1=0x12, l2=» I1,I:INTEGER;«, l3=0x12}
0x314…317 Line {l1=0x01, l2=» «, l3=0x01}
0x317…33b Line {l1=0x22, l2=»FUNCTION OMK(J,X:INTEGER):INTEGER;«, l3=0x22}
0x33b…33e Line {l1=0x01, l2=» «, l3=0x01}
0x33e…345 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x345…376 Line {l1=0x2f, l2=» WHILE(RAM(I+J*X).NR=I) AND (J<4) THEN J:=J+1;«, l3=0x2f}
0x376…385 Line {l1=0x0d, l2=» IF J<4 THEN«, l3=0x0d}
0x385…3a8 Line {l1=0x21, l2=» IF RAM(I+J*X).NR=0 THEN J:=4;«, l3=0x21}
0x3a8…3b3 Line {l1=0x09, l2=» OMK:=J;«, l3=0x09}
0x3b3…3b9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3b9…3d2 Line {l1=0x17, l2=»FUNCTION FPOST:INTEGER;«, l3=0x17}
0x3d2…3d5 Line {l1=0x01, l2=» «, l3=0x01}
0x3d5…3e8 Line {l1=0x11, l2=»VAR J,J1:INTEGER;«, l3=0x11}
0x3e8…3eb Line {l1=0x01, l2=» «, l3=0x01}
0x3eb…3f2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3f2…40e Line {l1=0x1a, l2=» J:=1;J1:=3-(I1 DIV 3)*2;«, l3=0x1a}
0x40e…44a Line {l1=0x3a, l2=» WHILE((KA(J).PLACE<>RAM(I).OMKREDS(I1)) OR (KA(J).GÅFRA>«, l3=0x3a}
0x44a…47f Line {l1=0x33, l2=» RAM(I).OMKREDS(J1)) OR (KA(J).GÅTIL<RAM(I).«, l3=0x33}
0x47f…4ae Line {l1=0x2d, l2=» OMKREDS(J1+1))) AND (J<20) DO J:=J+1;«, l3=0x2d}
0x4ae…4bb Line {l1=0x0b, l2=» FPOST:=J;«, l3=0x0b}
0x4bb…4c1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4c1…4c8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4c8…4d9 Line {l1=0x0f, l2=» WITH RAMME DO«, l3=0x0f}
0x4d9…4e2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4e2…503 Line {l1=0x1f, l2=» OWRITE(RAMZ.H,RAMF,10,LÆS);«, l3=0x1f}
0x503…51a Line {l1=0x15, l2=» FOR I:=1 TO 16 DO«, l3=0x15}
0x51a…525 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x525…53b Line {l1=0x14, l2=» NR:=RAM(I).NR;«, l3=0x14}
0x53b…550 Line {l1=0x13, l2=» IF NR>19 THEN«, l3=0x13}
0x550…55d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x55d…57d Line {l1=0x1e, l2=» GETREC(TAMZ.H,RAMF,A);«, l3=0x1e}
0x57d…5aa Line {l1=0x2b, l2=» IF IER<>0 THEN IOF(RAMZ.H.FILNAME);«, l3=0x2b}
0x5aa…5ca Line {l1=0x1e, l2=» RAM(I).TÆTGUM;=TÆTGUM;«, l3=0x1e}
0x5ca…5e6 Line {l1=0x1a, l2=» RAM(I).TYPE:=TYPE;«, l3=0x1a}
0x5e6…5f6 Line {l1=0x0e, l2=» I1:=1;«, l3=0x0e}
0x5f6…62b Line {l1=0x33, l2=» WHILE (I<>ORAM(I1)) AND (I1<3) DO I1:=I1+1;«, l3=0x33}
0x62b…652 Line {l1=0x25, l2=» RAM(I).GLASKODE:=GLA(I).KODE;«, l3=0x25}
0x652…662 Line {l1=0x0e, l2=» I1:=3;«, l3=0x0e}
0x662…67a Line {l1=0x16, l2=» IF MONT=0 THEN«, l3=0x16}
0x67a…689 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x689…69b Line {l1=0x10, l2=» I1:=2;«, l3=0x10}
0x69b…6c2 Line {l1=0x25, l2=» IF FA(2).KODE=0 THEN I1:=1;«, l3=0x25}
0x6c2…6d0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x6d0…6fc Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(1):=ØFORSTÆRK(I1);«, l3=0x2a}
0x6fc…728 Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(2):=NFORSTÆRK(I1);«, l3=0x2a}
0x728…754 Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(3):=FFORSTÆRK(I1);«, l3=0x2a}
0x754…780 Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(4):=BFORSTÆRK(I1);«, l3=0x2a}
0x780…7a2 Line {l1=0x20, l2=» I1:=HÆNG((I-1) MOD 4+1);«, l3=0x20}
0x7a2…7ca Line {l1=0x26, l2=» RAM(I).BESLAG(1):=ØBESLAG(I1);«, l3=0x26}
0x7ca…7f2 Line {l1=0x26, l2=» RAM(I).BESLAG(2):=NBESLAG(I1);«, l3=0x26}
0x7f2…81a Line {l1=0x26, l2=» RAM(I).BESLAG(3):=FBESLAG(I1);«, l3=0x26}
0x81a…842 Line {l1=0x26, l2=» RAM(I).BESLAG(4):=BBESLAG(I1);«, l3=0x26}
0x842…86b Line {l1=0x27, l2=» RAM(I).OMKREDS(1):=(I-1) DIV 4;«, l3=0x27}
0x86b…899 Line {l1=0x2c, l2=» RAM(I).OMKREDS(2):=OMK((I+3)DIV4,4);«, l3=0x2c}
0x899…8c2 Line {l1=0x27, l2=» RAM(I).OMKREDS(3):=(I-1) MOD 4;«, l3=0x27}
0x8c2…8f4 Line {l1=0x30, l2=» RAM(I).OMKREDS(4):=OMK((I-1) MOD 4+1,1);«, l3=0x30}
0x8f4…927 Line {l1=0x31, l2=» FOR I1:=1 TO 4 DO RAM(I).POST(I1):=FPOST;«, l3=0x31}
0x927…933 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x933…93d Line {l1=0x08, l2=» END;«, l3=0x08}
0x93d…957 Line {l1=0x18, l2=» ICLOSE(RAMZ.H,RAMF);«, l3=0x18}
0x957…95f Line {l1=0x06, l2=» END;«, l3=0x06}
0x95f…965 Line {l1=0x04, l2=»END;«, l3=0x04}
0x965…980 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 ┆ ccccccccccccccccccccccccc┆
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…]