|
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: 3040 (0xbe0)
Notes: Mikados_E
Names: »WWFILE.E«, »WWSETUP.E«
└─⟦055c5faa8⟧ Bits:30009004 WordWork on SUPERMAX Uniplex (Mikados format)
└─⟦this⟧ »WWFILE.E«
└─⟦this⟧ »WWSETUP.E«
0x000…020 ff 82 00 02 32 50 00 5e 12 63 ff 2e 00 5c b8 c7 00 00 c4 bc ff 60 00 00 20 30 00 87 e7 2a ff 3c ┆ 2P ^ c . Ø ` 0 * <┆
0x020…040 00 87 85 62 00 eb 90 01 ff 06 00 5e e0 0c 00 e2 df 98 ff c7 00 00 42 12 00 03 bf 2e ff 80 00 00 ┆ b ^ B . ┆
0x040…060 00 30 00 ff e2 ae ff fc 00 f1 a0 00 00 ff a2 6e 00 01 00 00 02 00 00 00 02 d8 01 00 00 00 06 00 ┆ 0 n ┆
0x060…080 00 00 00 00 ff 1b 00 54 60 20 00 00 58 78 ff 20 00 00 0f ef 00 05 48 78 ff 30 00 02 4e b9 00 08 ┆ T` Xx Hx 0 N ┆
0x080…0a0 0c 34 ff 07 00 53 e0 20 00 03 2f 3c ff b9 00 fe 10 6c 00 87 80 0c ff 6e 00 05 48 78 00 03 2f 3c ┆ 4 S /< l n Hx /<┆
0x0a0…0c0 00 80 02 5e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f d2 2c 06 00 00 00 00 00 00 00 00 ┆ ^ O , ┆
0x0c0…0e0 70 28 4e 48 4e f9 00 80 02 6e 41 ef 00 04 70 2c 4e 48 4e f9 00 80 02 6e 30 30 30 30 30 30 30 30 ┆p(NHN nA p,NHN n00000000┆
0x0e0…100 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆00000000000000000000000000000000┆
[…0x8…]
0x200…220 00 00 00 00 00 00 00 00 00 00 10 00 00 00 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ( ┆
0x220…240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 02 04 00 80 01 ea 00 80 00 b2 00 80 ┆ ┆
0x240…260 01 54 00 80 01 ce 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T ┆
0x260…280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x2a0…2c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 56 ff ee 2f 0d 24 6e 00 08 24 52 24 52 ┆ NV / $n $R$R┆
0x2c0…2e0 2a 6e 00 08 2a 55 2a 55 2e 15 7c 10 ec a7 24 87 24 6e 00 08 24 52 24 52 3d 6a 00 02 ff f6 48 78 ┆*n *U*U. ø $ $n $R$R=j Hx┆
0x2e0…300 00 01 48 6e ff ee 48 6e ff fa 48 6e ff fc 48 6e ff fe 4e b9 00 80 02 a0 4f ef 00 14 3d 47 ff f8 ┆ Hn Hn Hn Hn N O =G ┆
0x300…320 0c 6e 00 76 ff f8 66 12 7e ff 3c 2e ff f6 48 c6 de 86 3d 47 ff fe 42 6e ff f8 4a 6e ff f8 66 10 ┆ n v f ü <. H =G Bn Jn f ┆
0x320…340 3e 2e ff fe 48 c7 3c 2e ff f6 48 c6 be 86 66 ae 4a 6e ff f8 67 0a 24 6e 00 0c 34 ae ff f8 60 08 ┆>. H <. H f Jn g $n 4 ` ┆
0x340…360 24 6e 00 0c 34 ae ff fa 24 6e 00 08 58 92 2a 5f 4e 5e 4e 75 4e 56 ff fa 48 e7 80 04 24 6e 00 0c ┆$n 4 $n X *_N^NuNV H $n ┆
0x360…380 2e 8a 48 6e ff fb 42 a7 4e b9 00 80 02 ca 50 8f 20 57 30 87 0c 2e 00 0d ff fc 67 04 7e 01 60 02 ┆. Hn B N P W0 . g ü ` ┆
0x380…3a0 42 87 3d 47 ff fe 24 6e 00 08 2a 6e 00 08 2e 15 5c 87 24 87 24 6e 00 08 24 52 34 ae ff fe 4c df ┆B =G $n *n . Ø $ $n $R4 L ┆
0x3a0…3c0 20 01 4e 5e 4e 75 4e 56 ff fc 4e b9 00 80 02 70 42 97 2f 3c 00 80 01 a6 48 78 00 0c 4e b9 00 80 ┆ N^NuNV N pB /< Hx N ┆
0x3c0…3e0 02 ae 50 8f 4e b9 00 80 02 82 4e 5e 4e 75 4e 56 ff fc 42 97 2f 3c 00 80 01 a6 48 78 00 0c 4e b9 ┆ P N N^NuNV B /< Hx N ┆
0x3e0…400 00 80 02 ae 50 8f 4e 5e 4e 75 4e 56 ff fc 24 6e 00 08 24 52 3e 12 48 c7 2e 87 4e b9 00 80 02 92 ┆ P N^NuNV $n $R> H . N ┆
0x400…420 4e 5e 4e 75 4e 56 00 00 48 e7 80 04 24 6e 00 08 24 52 24 52 42 87 1e 12 24 47 52 8a 2a 6e 00 08 ┆N^NuNV H $n $R$RB $GR *n ┆
0x420…440 2a 55 d5 d5 42 12 24 6e 00 0c 2e 8a 24 6e 00 08 24 52 58 8a 3e 12 48 c7 2f 07 24 6e 00 08 24 52 ┆*U B $n . $n $RX > H / $n $R┆
0x440…460 2f 12 52 97 4e b9 00 80 02 bc 50 8f 20 57 30 87 24 6e 00 08 5c 92 4c df 20 01 4e 5e 4e 75 4e b9 ┆/ R N P W0 $n Ø L N^NuN ┆
0x460…480 00 ff ff ff 48 78 00 00 4e b9 00 80 02 92 4e 75 9f fc 00 00 00 38 2e af 00 38 48 ef 3f ff 00 04 ┆ Hx N Nu 8. 8H ? ┆
0x480…4a0 4e 75 4c ef 3f ff 00 04 df fc 00 00 00 3c 4e 5e 4e 77 41 ef 00 04 70 0b 4e 48 4e f9 00 80 02 6e ┆NuL ? <N^NwA p NHN n┆
0x4a0…4c0 41 ef 00 04 70 12 4e 48 4e f9 00 80 02 6e 41 ef 00 04 70 15 4e 48 4e f9 00 80 02 6e 41 ef 00 04 ┆A p NHN nA p NHN nA ┆
0x4c0…4e0 70 28 4e 48 4e f9 00 80 02 6e 41 ef 00 04 70 2c 4e 48 4e f9 00 80 02 6e 30 30 30 30 30 30 30 30 ┆p(NHN nA p,NHN n00000000┆
0x4e0…500 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆00000000000000000000000000000000┆
[…0xe…]
0x6c0…6e0 28 70 64 65 6c 65 74 65 69 73 71 29 3b 1f 10 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 10 ┆(pdeleteisq); end; ┆
0x6e0…700 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 65 6e 61 62 6c 65 20 3a 3d 20 74 72 75 65 ┆ writeenable := true┆
0x700…720 3b 20 01 20 01 28 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 64 65 6c 65 74 65 20 72 65 63 6f ┆; ( (* delete reco┆
0x720…740 72 64 20 69 6e 20 63 68 61 69 6e 20 2a 29 28 19 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6c ┆rd in chain *)( recl┆
0x740…760 63 6b 20 3a 3d 20 2d 31 3b 19 22 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 72 65 63 20 3a ┆ck := -1; " nextrec :┆
0x760…780 3d 20 62 6c 61 6e 6b 65 6e 74 72 79 3b 22 21 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 61 6e 6b ┆= blankentry;"! blank┆
0x780…7a0 65 6e 74 72 79 20 3a 3d 20 72 65 63 70 72 74 3b 21 1b 20 20 20 20 20 20 20 20 20 20 20 20 70 75 ┆entry := recprt;! pu┆
0x7a0…7c0 74 72 65 63 28 72 65 63 70 72 74 29 3b 1b 27 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c ┆trec(recprt); ' antal┆
0x7c0…7e0 72 65 63 73 20 3a 3d 20 61 6e 74 61 6c 72 65 63 73 20 2d 20 31 3b 27 01 20 01 20 20 20 20 20 20 ┆recs := antalrecs - 1;' ┆
0x7e0…800 20 20 20 20 20 20 20 28 2a 20 4f 75 74 20 6f 66 20 6c 65 76 65 6c 20 32 20 2a 29 20 27 20 20 20 ┆ (* Out of level 2 *) ' ┆
0x800…820 20 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 6b 65 79 73 20 3e 20 31 20 74 68 65 6e 20 62 ┆ if antalkeys > 1 then b┆
0x820…840 65 67 69 6e 27 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 6e 64 65 78 20 3a 3d ┆egin'7 for index :=┆
0x840…860 20 69 78 70 72 74 28 32 29 20 74 6f 20 61 6e 74 61 6c 6b 65 79 73 20 2d 20 31 20 64 6f 37 28 20 ┆ ixprt(2) to antalkeys - 1 do7( ┆
0x860…880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 69 78 28 69 6e 64 65 78 2c 20 69 6e 64 65 ┆ movix(index, inde┆
0x880…8a0 78 20 2b 20 31 29 3b 28 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 6b 65 79 73 ┆x + 1);() antalkeys┆
0x8a0…8c0 20 3a 3d 20 61 6e 74 61 6c 6b 65 79 73 20 2d 20 31 3b 29 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := antalkeys - 1;)0 ┆
0x8c0…8e0 20 20 69 66 20 69 78 70 72 74 28 32 29 20 3e 20 61 6e 74 61 6c 6b 65 79 73 20 74 68 65 6e 20 62 ┆ if ixprt(2) > antalkeys then b┆
0x8e0…900 65 67 69 6e 30 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 28 32 29 20 3a ┆egin0& ixprt(2) :┆
0x900…920 3d 20 61 6e 74 61 6c 6b 65 79 73 3b 26 1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 ┆= antalkeys;& ix┆
0x920…940 74 6f 6b 65 79 28 32 29 3b 1b 1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 74 6f ┆tokey(2); keyto┆
0x940…960 69 78 28 31 29 3b 1b 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b ┆ix(1); & putblock┆
0x960…980 28 62 6c 6f 63 6b 6e 75 6d 2c 20 32 29 3b 26 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(blocknum, 2);&# ┆
0x980…9a0 67 65 74 6e 65 78 74 69 6e 62 75 66 28 74 72 75 65 29 3b 23 21 20 20 20 20 20 20 20 20 20 20 20 ┆getnextinbuf(true);#! ┆
0x9a0…9c0 20 20 20 20 20 69 66 20 65 6e 64 6f 66 66 69 6c 65 20 74 68 65 6e 21 1e 20 20 20 20 20 20 20 20 ┆ if endoffile then! ┆
0x9c0…9e0 20 20 20 20 20 20 20 20 20 20 72 65 63 6e 75 6d 20 3a 3d 20 2d 31 1e 14 20 20 20 20 20 20 20 20 ┆ recnum := -1 ┆
0x9e0…a00 20 20 20 20 20 20 20 20 65 6c 73 65 14 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else # ┆
0xa00…a20 72 65 63 6e 75 6d 20 3a 3d 20 72 65 63 70 72 74 20 23 11 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆recnum := recprt # ┆
0xa20…a40 20 65 6e 64 11 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 18 21 ┆ end else begin !┆
0xa40…a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6e 75 6d 20 3a 3d 20 72 65 63 70 72 74 ┆ recnum := recprt┆
0xa60…a80 3b 21 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b 28 62 6c 6f 63 ┆;!& putblock(bloc┆
0xa80…aa0 6b 6e 75 6d 2c 20 32 29 3b 26 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 12 0f 20 ┆knum, 2);& end ┆
0xaa0…ac0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0f 16 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ end else┆
0xac0…ae0 20 62 65 67 69 6e 16 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 64 65 6c 65 74 65 20 ┆ begin 1 (* delete ┆
0xae0…b00 6c 65 76 65 6c 20 32 20 62 6c 6f 63 6b 20 69 6e 20 63 68 61 69 6e 20 2a 29 31 28 20 20 20 20 20 ┆level 2 block in chain *)1( ┆
0xb00…b20 20 20 20 20 20 20 20 20 20 6e 65 78 74 62 6c 6f 63 6b 20 3a 3d 20 69 78 62 6c 61 6e 6b 65 6e 74 ┆ nextblock := ixblankent┆
0xb20…b40 72 79 3b 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 62 6c 61 6e 6b 65 6e 74 72 79 20 ┆ry;(' ixblankentry ┆
0xb40…b60 3a 3d 20 62 6c 6f 63 6b 6e 75 6d 3b 27 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 62 ┆:= blocknum;'$ putb┆
0xb60…b80 6c 6f 63 6b 28 62 6c 6f 63 6b 6e 75 6d 2c 20 32 29 3b 24 24 20 20 20 20 20 20 20 20 20 20 20 20 ┆lock(blocknum, 2);$$ ┆
0xb80…ba0 20 20 6f 6c 64 69 78 78 70 72 74 20 3a 3d 20 69 78 70 72 74 28 31 29 3b 24 2a 20 20 20 20 20 20 ┆ oldixxprt := ixprt(1);$* ┆
0xba0…bc0 20 20 20 20 20 20 20 20 28 2a 20 41 6e 64 20 66 72 65 65 20 6c 65 76 65 6c 20 31 20 65 6e 74 72 ┆ (* And free level 1 entr┆
0xbc0…be0 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┆