|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 355584 (0x56d00)
Names: »mcllib «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦f546e193b⟧
└─⟦this⟧ »mcllib «
0x00000…00020 (4, 371) 00 00 00 00 00 02 00 01 cf 00 00 00 00 00 09 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 0e 00 00 ┆ ┆
0x00020…00040 30 00 01 9f ff ff ff 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 ┆0 ┆
0x00040…00060 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 ┆ ┆
[…0x15…]
0x00300…00320 00 00 30 00 00 78 00 00 81 6d 63 6c 6c 69 73 74 00 00 00 00 00 00 00 98 64 69 73 63 00 00 00 00 ┆ 0 x mcllist disc ┆
0x00320…00340 00 00 00 00 ac ef c8 00 00 00 00 00 00 00 00 00 00 00 00 2d 00 00 5d 28 6c 2c 00 01 5c 28 6e 2f ┆ - Å(l, Ø(n/┆
0x00340…00360 00 00 5f 28 70 51 28 96 ad 00 00 34 80 0e 2d 28 16 2c 00 29 37 68 01 00 2a a0 2c 00 01 5c 28 76 ┆ _(pQ( 4 -( , )7h * , Ø(v┆
0x00360…00380 51 28 76 a9 00 01 34 80 24 51 28 46 24 c2 e6 5d 20 00 50 28 48 20 28 3c 1c 82 d0 24 c2 da 5c 20 ┆Q(v 4 $Q(F$ Å P(H (< $ Ø ┆
0x00380…003a0 00 2f 00 01 24 c2 d2 5f 20 00 2d 28 16 2c 00 23 37 68 01 00 2a a0 2c 00 00 5c 28 76 2d 28 16 2c ┆ / $ _ -( , #7h * , Ø(v-( ,┆
0x003a0…003c0 00 1a 37 68 01 00 2a a0 24 c2 c2 50 20 00 5c 28 68 a0 00 1f 34 81 b6 50 28 2e a4 68 46 34 81 44 ┆ 7h * $ P Ø(h 4 P(. hF4 D┆
0x003c0…003e0 51 28 48 a1 07 d0 a1 00 00 79 0f fe 91 00 01 1d 82 98 24 10 00 51 20 00 5d 23 d0 53 23 d0 53 30 ┆Q(H y $ Q Å# S# S0┆
0x003e0…00400 36 51 28 8a 5f 10 36 2c 00 00 53 23 d0 5c 30 36 51 28 2e 53 23 d0 5d 30 38 2c 00 01 5c 28 46 2f ┆6Q( _ 6, S# Ø06Q(.S# Å08, Ø(F/┆
0x00400…00420 00 01 24 c2 82 5f 20 00 51 28 48 24 c2 7a 5d 20 00 2d 28 16 2c 00 31 37 68 01 00 2a a0 51 28 48 ┆ $ _ Q(H$ zÅ -( , 17h * Q(H┆
0x00420…00440 a1 07 d0 a1 00 00 79 0f fe 91 00 01 1d 82 5a 24 10 00 51 20 00 5d 23 d0 53 28 8a 53 30 36 51 23 ┆ y Z$ Q Å# S( S06Q#┆
0x00440…00460 d0 5f 10 36 2c 00 01 53 23 d0 5c 30 38 2d 00 00 53 23 d0 5d 30 3a 2d 28 16 2c 00 19 37 68 01 00 ┆ _ 6, S# Ø08- S# Å0:-( , 7h ┆
0x00460…00480 2a a0 24 c2 46 50 20 00 a0 00 1f 34 80 60 51 28 68 53 23 d0 53 30 38 a3 00 50 a3 00 00 7b 0f fe ┆* $ FP 4 `Q(hS# S08 P æ ┆
0x00480…004a0 5d 23 d2 51 00 06 2d 1f ff 08 00 02 08 00 00 61 82 2c 91 00 01 90 00 03 24 40 00 84 0f f0 5c 23 ┆Å# Q - a , $@ Ø#┆
0x004a0…004c0 d4 5d 23 d6 53 23 d0 1f 23 d6 5f 23 d6 51 23 d2 53 82 14 9b 63 d4 99 63 d4 87 30 01 24 63 d6 13 ┆ Å# S# # _# Q# S c c 0 $c ┆
0x004c0…004e0 00 00 15 00 06 24 63 d6 5d 00 00 2d 28 16 2c 00 1a 37 68 01 00 2a a0 24 c1 f8 50 20 00 5c 28 68 ┆ $c Å -( , 7h * $ P Ø(h┆
0x004e0…00500 51 23 d0 51 10 38 2d 10 01 53 23 d0 5d 30 38 53 28 46 2f 30 01 5f 28 46 34 8f 94 51 28 48 24 c1 ┆Q# Q 8- S# Å08S(F/0 _(F4 Q(H$ ┆
0x00500…00520 da 5d 20 00 2d 28 16 2c 00 3a 37 68 01 00 2a a0 50 28 48 a8 68 3e 34 80 30 2d 28 16 2c 00 25 37 ┆ Å -( , :7h * P(H h>4 0-( , %7┆
0x00520…00540 68 01 00 2a a0 51 28 3e 2d 1f ff 24 c1 bc 5d 20 00 53 28 3e 24 c1 b4 5f 20 00 2d 28 16 2c 00 28 ┆h * Q(>- $ Å S(>$ _ -( , (┆
0x00540…00560 37 68 01 00 2a a0 2c 00 0a 24 c1 a8 5c 20 00 2d 28 16 2c 00 1d 37 68 01 00 2a a0 34 80 18 51 28 ┆7h * , $ Ø -( , 7h * 4 Q(┆
0x00560…00580 3c 24 c1 98 5d 20 00 53 28 48 2f 30 01 24 c1 8e 5f 20 00 2d 28 16 2c 00 28 37 68 01 00 2a a0 51 ┆<$ Å S(H/0 $ _ -( , (7h * Q┆
0x00580…005a0 28 6a a9 00 01 34 80 14 50 28 48 ac 68 3e 34 80 0e 51 28 3c 2d 1f ff 5d 28 3c 53 28 3e 2f 3f ff ┆(j 4 P(H h>4 Q(<- Å(<S(>/? ┆
0x005a0…005c0 5f 28 3e 51 28 48 a1 07 d0 a1 00 00 79 0f fe 91 00 01 1d 81 56 24 10 00 51 20 00 5d 23 d0 53 23 ┆_(>Q(H y V$ Q Å# S#┆
0x005c0…005e0 d0 53 30 38 a7 68 46 34 80 10 2d 28 16 2c 00 37 37 68 01 00 2a a0 51 28 46 53 23 d0 5d 30 38 51 ┆ S08 hF4 -( , 77h * Q(FS# Å08Q┆
0x005e0…00600 28 68 53 28 46 a3 00 50 a3 00 00 7b 0f fe 5d 23 d2 51 00 06 2d 1f ff 08 00 02 08 00 00 00 00 00 ┆(hS(F P æ Å# Q - ┆
0x00600…00620 00 00 33 00 00 64 00 00 c7 6d 63 6c 74 78 74 00 00 00 00 00 00 00 00 7b 64 69 73 63 31 00 00 00 ┆ 3 d mcltxt ædisc1 ┆
0x00620…00640 00 00 00 00 ae fa 57 00 00 00 00 00 00 00 00 00 00 00 00 00 04 0b 00 00 64 00 00 c7 6d 63 6c 00 ┆ W d mcl ┆
0x00640…00660 00 00 00 00 00 00 00 00 00 00 7c 64 69 73 63 33 00 00 00 00 00 00 00 ae fa 58 00 e1 98 00 00 00 ┆ ødisc3 X ┆
0x00660…00680 00 2a b6 00 0d 1c 00 07 eb 03 72 ee 03 72 f7 73 69 6d 74 78 74 00 00 00 00 00 00 00 00 34 64 69 ┆ * r r simtxt 4di┆
0x00680…006a0 73 63 33 00 00 00 00 00 00 00 a5 1e 5b 00 00 00 00 00 00 00 00 00 00 00 00 00 09 8b 03 72 d0 03 ┆sc3 Æ r ┆
0x006a0…006c0 76 b7 73 69 6d 00 00 00 00 00 00 00 00 00 00 00 5e 64 69 73 63 33 00 00 00 00 00 00 00 a5 1e 52 ┆v sim ^disc3 R┆
0x006c0…006e0 80 c1 ce 00 00 00 00 2a 18 00 0b ae 00 0c 7b 03 72 ee 03 72 f7 63 6d 00 00 00 00 00 00 00 00 00 ┆ * æ r r cm ┆
0x006e0…00700 00 00 00 01 64 69 73 63 33 00 00 00 00 00 00 00 a4 11 32 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc3 2 ┆
0x00700…00720 0c 83 03 72 ee 03 72 f7 63 73 00 00 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 33 00 00 00 00 ┆ r r cs disc3 ┆
0x00720…00740 00 00 00 a4 9e 90 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 8b 00 00 78 00 00 81 6d 76 6d 63 6c ┆ x mvmcl┆
0x00740…00760 74 78 74 00 00 00 00 00 00 0d 64 69 73 63 31 00 00 00 00 00 00 00 ad 7e 15 00 00 00 00 00 00 00 ┆txt disc1 ü ┆
0x00760…00780 00 00 00 00 00 00 0c f2 00 00 78 00 00 81 63 6d 63 6c 00 00 00 00 00 00 00 00 00 00 01 64 69 73 ┆ x cmcl dis┆
0x00780…007a0 63 33 00 00 00 00 00 00 00 ae b3 12 00 00 00 00 00 00 00 00 00 00 00 00 00 0c fb 00 00 78 00 00 ┆c3 x ┆
0x007a0…007c0 81 6d 6f 76 65 6d 63 6c 00 00 00 00 00 00 00 30 64 69 73 63 33 00 00 00 00 00 00 00 ae b3 15 00 ┆ movemcl 0disc3 ┆
0x007c0…007e0 e1 f2 00 00 00 00 2a b6 00 0d 1c 00 22 a0 00 00 ff 00 00 03 00 00 00 00 00 00 ff c0 00 00 00 00 ┆ * " ┆
0x007e0…00800 00 00 00 00 00 00 40 00 00 00 00 02 50 00 00 00 00 04 60 00 00 00 00 02 50 00 00 00 00 07 45 78 ┆ @ P ` P Ex┆
0x00800…00820 69 74 23 20 20 20 20 20 20 20 2a 2a 2a 20 20 57 61 72 6e 69 6e 67 3a 20 4e 6f 20 72 65 73 75 6c ┆it# *** Warning: No resul┆
0x00820…00840 74 66 69 6c 65 20 21 20 23 20 20 52 65 6c 65 61 73 65 20 20 31 2e 31 30 20 23 20 20 20 20 20 20 ┆tfile ! # Release 1.10 # ┆
0x00840…00860 20 20 20 20 20 20 20 20 20 73 77 38 30 32 30 2f 31 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sw8020/1# ┆
0x00860…00880 20 20 20 20 20 20 20 52 43 38 30 30 30 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 2e 20 20 23 20 ┆ RC8000 Screen Editor. # ┆
0x00880…008a0 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 20 74 6f 6f 20 73 6d 61 6c 6c 2e 20 20 20 4d 69 6e 2e ┆ process too small. Min.┆
0x008a0…008c0 20 73 69 7a 65 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ size = ┆
0x008c0…008e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 82 88 34 82 0a 34 ┆ 4 4 4┆
0x008e0…00900 81 fe 34 81 26 34 80 94 a5 00 90 34 80 40 2c 00 00 61 8f 26 91 00 01 51 92 e4 99 40 00 00 03 fe ┆ 4 &4 4 @, a & Q @ ┆
0x00900…00920 ff ff ff 00 00 02 00 01 cf 00 00 00 00 00 09 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 0e 00 00 ┆ ┆
0x00920…00940 30 00 01 9f ff ff ff 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 ┆0 ┆
0x00940…00960 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 ┆ ┆
[…0x15…]
0x00c00…00c20 00 00 30 00 00 78 00 00 81 6d 63 6c 6c 69 73 74 00 00 00 00 00 00 00 98 64 69 73 63 00 00 00 00 ┆ 0 x mcllist disc ┆
0x00c20…00c40 00 00 00 00 ac ef c8 00 00 00 00 00 00 00 00 00 00 00 00 2d 00 00 5d 28 6c 2c 00 01 5c 28 6e 2f ┆ - Å(l, Ø(n/┆
0x00c40…00c60 00 00 5f 28 70 51 28 96 ad 00 00 34 80 0e 2d 28 16 2c 00 29 37 68 01 00 2a a0 2c 00 01 5c 28 76 ┆ _(pQ( 4 -( , )7h * , Ø(v┆
0x00c60…00c80 51 28 76 a9 00 01 34 80 24 51 28 46 24 c2 e6 5d 20 00 50 28 48 20 28 3c 1c 82 d0 24 c2 da 5c 20 ┆Q(v 4 $Q(F$ Å P(H (< $ Ø ┆
0x00c80…00ca0 00 2f 00 01 24 c2 d2 5f 20 00 2d 28 16 2c 00 23 37 68 01 00 2a a0 2c 00 00 5c 28 76 2d 28 16 2c ┆ / $ _ -( , #7h * , Ø(v-( ,┆
0x00ca0…00cc0 00 1a 37 68 01 00 2a a0 24 c2 c2 50 20 00 5c 28 68 a0 00 1f 34 81 b6 50 28 2e a4 68 46 34 81 44 ┆ 7h * $ P Ø(h 4 P(. hF4 D┆
0x00cc0…00ce0 51 28 48 a1 07 d0 a1 00 00 79 0f fe 91 00 01 1d 82 98 24 10 00 51 20 00 5d 23 d0 53 23 d0 53 30 ┆Q(H y $ Q Å# S# S0┆
0x00ce0…00d00 36 51 28 8a 5f 10 36 2c 00 00 53 23 d0 5c 30 36 51 28 2e 53 23 d0 5d 30 38 2c 00 01 5c 28 46 2f ┆6Q( _ 6, S# Ø06Q(.S# Å08, Ø(F/┆
0x00d00…00d20 00 01 24 c2 82 5f 20 00 51 28 48 24 c2 7a 5d 20 00 2d 28 16 2c 00 31 37 68 01 00 2a a0 51 28 48 ┆ $ _ Q(H$ zÅ -( , 17h * Q(H┆
0x00d20…00d40 a1 07 d0 a1 00 00 79 0f fe 91 00 01 1d 82 5a 24 10 00 51 20 00 5d 23 d0 53 28 8a 53 30 36 51 23 ┆ y Z$ Q Å# S( S06Q#┆
0x00d40…00d60 d0 5f 10 36 2c 00 01 53 23 d0 5c 30 38 2d 00 00 53 23 d0 5d 30 3a 2d 28 16 2c 00 19 37 68 01 00 ┆ _ 6, S# Ø08- S# Å0:-( , 7h ┆
0x00d60…00d80 2a a0 24 c2 46 50 20 00 a0 00 1f 34 80 60 51 28 68 53 23 d0 53 30 38 a3 00 50 a3 00 00 7b 0f fe ┆* $ FP 4 `Q(hS# S08 P æ ┆
0x00d80…00da0 5d 23 d2 51 00 06 2d 1f ff 08 00 02 08 00 00 61 82 2c 91 00 01 90 00 03 24 40 00 84 0f f0 5c 23 ┆Å# Q - a , $@ Ø#┆
0x00da0…00dc0 d4 5d 23 d6 53 23 d0 1f 23 d6 5f 23 d6 51 23 d2 53 82 14 9b 63 d4 99 63 d4 87 30 01 24 63 d6 13 ┆ Å# S# # _# Q# S c c 0 $c ┆
0x00dc0…00de0 00 00 15 00 06 24 63 d6 5d 00 00 2d 28 16 2c 00 1a 37 68 01 00 2a a0 24 c1 f8 50 20 00 5c 28 68 ┆ $c Å -( , 7h * $ P Ø(h┆
0x00de0…00e00 51 23 d0 51 10 38 2d 10 01 53 23 d0 5d 30 38 53 28 46 2f 30 01 5f 28 46 34 8f 94 51 28 48 24 c1 ┆Q# Q 8- S# Å08S(F/0 _(F4 Q(H$ ┆
0x00e00…00e20 da 5d 20 00 2d 28 16 2c 00 3a 37 68 01 00 2a a0 50 28 48 a8 68 3e 34 80 30 2d 28 16 2c 00 25 37 ┆ Å -( , :7h * P(H h>4 0-( , %7┆
0x00e20…00e40 68 01 00 2a a0 51 28 3e 2d 1f ff 24 c1 bc 5d 20 00 53 28 3e 24 c1 b4 5f 20 00 2d 28 16 2c 00 28 ┆h * Q(>- $ Å S(>$ _ -( , (┆
0x00e40…00e60 37 68 01 00 2a a0 2c 00 0a 24 c1 a8 5c 20 00 2d 28 16 2c 00 1d 37 68 01 00 2a a0 34 80 18 51 28 ┆7h * , $ Ø -( , 7h * 4 Q(┆
0x00e60…00e80 3c 24 c1 98 5d 20 00 53 28 48 2f 30 01 24 c1 8e 5f 20 00 2d 28 16 2c 00 28 37 68 01 00 2a a0 51 ┆<$ Å S(H/0 $ _ -( , (7h * Q┆
0x00e80…00ea0 28 6a a9 00 01 34 80 14 50 28 48 ac 68 3e 34 80 0e 51 28 3c 2d 1f ff 5d 28 3c 53 28 3e 2f 3f ff ┆(j 4 P(H h>4 Q(<- Å(<S(>/? ┆
0x00ea0…00ec0 5f 28 3e 51 28 48 a1 07 d0 a1 00 00 79 0f fe 91 00 01 1d 81 56 24 10 00 51 20 00 5d 23 d0 53 23 ┆_(>Q(H y V$ Q Å# S#┆
0x00ec0…00ee0 d0 53 30 38 a7 68 46 34 80 10 2d 28 16 2c 00 37 37 68 01 00 2a a0 51 28 46 53 23 d0 5d 30 38 51 ┆ S08 hF4 -( , 77h * Q(FS# Å08Q┆
0x00ee0…00f00 28 68 53 28 46 a3 00 50 a3 00 00 7b 0f fe 5d 23 d2 51 00 06 2d 1f ff 08 00 02 08 00 00 00 00 00 ┆(hS(F P æ Å# Q - ┆
0x00f00…00f20 00 00 33 00 00 64 00 00 c7 6d 63 6c 74 78 74 00 00 00 00 00 00 00 00 7b 64 69 73 63 31 00 00 00 ┆ 3 d mcltxt ædisc1 ┆
0x00f20…00f40 00 00 00 00 ae fa 57 00 00 00 00 00 00 00 00 00 00 00 00 00 04 0b 00 00 64 00 00 c7 6d 63 6c 00 ┆ W d mcl ┆
0x00f40…00f60 00 00 00 00 00 00 00 00 00 00 7c 64 69 73 63 33 00 00 00 00 00 00 00 ae fa 58 00 e1 98 00 00 00 ┆ ødisc3 X ┆
0x00f60…00f80 00 2a b6 00 0d 1c 00 07 eb 03 72 ee 03 72 f7 73 69 6d 74 78 74 00 00 00 00 00 00 00 00 34 64 69 ┆ * r r simtxt 4di┆
0x00f80…00fa0 73 63 33 00 00 00 00 00 00 00 a5 1e 5b 00 00 00 00 00 00 00 00 00 00 00 00 00 09 8b 03 72 d0 03 ┆sc3 Æ r ┆
0x00fa0…00fc0 76 b7 73 69 6d 00 00 00 00 00 00 00 00 00 00 00 5e 64 69 73 63 33 00 00 00 00 00 00 00 a5 1e 52 ┆v sim ^disc3 R┆
0x00fc0…00fe0 80 c1 ce 00 00 00 00 2a 18 00 0b ae 00 0c 7b 03 72 ee 03 72 f7 63 6d 00 00 00 00 00 00 00 00 00 ┆ * æ r r cm ┆
0x00fe0…01000 00 00 00 01 64 69 73 63 33 00 00 00 00 00 00 00 a4 11 32 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc3 2 ┆
0x01000…01020 0c 83 03 72 ee 03 72 f7 63 73 00 00 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 33 00 00 00 00 ┆ r r cs disc3 ┆
0x01020…01040 00 00 00 a4 9e 90 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 8b 00 00 78 00 00 81 6d 76 6d 63 6c ┆ x mvmcl┆
0x01040…01060 74 78 74 00 00 00 00 00 00 0d 64 69 73 63 31 00 00 00 00 00 00 00 ad 7e 15 00 00 00 00 00 00 00 ┆txt disc1 ü ┆
0x01060…01080 00 00 00 00 00 00 0c f2 00 00 78 00 00 81 63 6d 63 6c 00 00 00 00 00 00 00 00 00 00 01 64 69 73 ┆ x cmcl dis┆
0x01080…010a0 63 33 00 00 00 00 00 00 00 ae b3 12 00 00 00 00 00 00 00 00 00 00 00 00 00 0c fb 00 00 78 00 00 ┆c3 x ┆
0x010a0…010c0 81 6d 6f 76 65 6d 63 6c 00 00 00 00 00 00 00 30 64 69 73 63 33 00 00 00 00 00 00 00 ae b3 15 00 ┆ movemcl 0disc3 ┆
0x010c0…010e0 e1 f2 00 00 00 00 2a b6 00 0d 1c 00 22 a0 00 00 ff 00 00 03 00 00 00 00 00 00 ff c0 00 00 00 00 ┆ * " ┆
0x010e0…01100 00 00 00 00 00 00 40 00 00 00 00 02 50 00 00 00 00 04 60 00 00 00 00 02 50 00 00 00 00 07 45 78 ┆ @ P ` P Ex┆
0x01100…01120 69 74 23 20 20 20 20 20 20 20 2a 2a 2a 20 20 57 61 72 6e 69 6e 67 3a 20 4e 6f 20 72 65 73 75 6c ┆it# *** Warning: No resul┆
0x01120…01140 74 66 69 6c 65 20 21 20 23 20 20 52 65 6c 65 61 73 65 20 20 31 2e 31 30 20 23 20 20 20 20 20 20 ┆tfile ! # Release 1.10 # ┆
0x01140…01160 20 20 20 20 20 20 20 20 20 73 77 38 30 32 30 2f 31 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sw8020/1# ┆
0x01160…01180 20 20 20 20 20 20 20 52 43 38 30 30 30 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 2e 20 20 23 20 ┆ RC8000 Screen Editor. # ┆
0x01180…011a0 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 20 74 6f 6f 20 73 6d 61 6c 6c 2e 20 20 20 4d 69 6e 2e ┆ process too small. Min.┆
0x011a0…011c0 20 73 69 7a 65 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ size = ┆
0x011c0…011e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 82 88 34 82 0a 34 ┆ 4 4 4┆
0x011e0…01200 81 fe 34 81 26 34 80 94 a5 00 90 34 80 40 2c 00 00 61 8f 26 91 00 01 51 92 e4 99 40 00 00 03 fe ┆ 4 &4 4 @, a & Q @ ┆
0x01200…01220 62 65 67 69 6e 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆begin <*************************┆
0x01220…01240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01240…01260 2a 2a 2a 2a 2a 3e 0a 3c 2a 20 4d 43 4c 20 63 6f 6d 70 69 6c 65 72 20 73 6f 75 72 63 65 20 74 65 ┆*****> <* MCL compiler source te┆
0x01260…01280 78 74 20 66 6f 72 20 54 65 72 6d 69 6e 61 6c 20 41 63 63 65 73 73 20 53 79 73 74 65 6d 20 20 20 ┆xt for Terminal Access System ┆
0x01280…012a0 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x012a0…012c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x012c0…012e0 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 43 6f 6d 70 69 6c 65 73 20 4d 43 4c 20 73 6f 75 72 63 65 20 ┆ *> <* Compiles MCL source ┆
0x012e0…01300 74 65 78 74 20 74 6f 20 63 6d 63 6c 20 66 6f 72 6d 61 74 20 63 6f 64 65 20 20 20 20 20 20 20 20 ┆text to cmcl format code ┆
0x01300…01320 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 50 72 6f 64 75 63 65 20 61 6c 6c 20 63 6f 64 65 20 69 6e ┆ *> <* Produce all code in┆
0x01320…01340 20 63 6f 72 65 20 62 65 66 6f 72 65 20 77 72 69 74 69 6e 67 20 69 74 20 74 6f 20 66 69 6c 65 20 ┆ core before writing it to file ┆
0x01340…01360 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x01360…01380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01380…013a0 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 48 65 6e 6e 69 6e 67 20 47 6f 64 73 6b 65 20 20 38 ┆ *> <* Henning Godske 8┆
0x013a0…013c0 37 30 31 30 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆70107 ┆
0x013c0…013e0 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 41 2f 53 20 52 65 67 6e 65 63 65 6e 74 72 61 6c ┆ *> <* A/S Regnecentral┆
0x013e0…01400 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en ┆
0x01400…01420 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x01420…01440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01440…01460 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 43 6f 6d 70 69 6c 65 72 20 63 61 6c 6c 3a ┆ *> <* Compiler call:┆
0x01460…01480 20 20 3c 72 65 73 75 6c 74 3e 3d 61 6c 67 6f 6c 20 3c 73 6f 75 72 63 65 3e 20 63 6f 6e 6e 65 63 ┆ <result>=algol <source> connec┆
0x01480…014a0 74 2e 6e 6f 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆t.no *> <***************┆
0x014a0…014c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x014c0…014e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆***************> <*************┆
0x014e0…01500 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01500…01520 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 3c 2a 20 52 65 76 69 73 69 6f 6e 20 68 ┆*****************> <* Revision h┆
0x01520…01540 69 73 74 6f 72 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆istory ┆
0x01540…01560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x01560…01580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01580…015a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 38 37 2e 30 32 2e 30 31 ┆ *> <* 87.02.01┆
0x015a0…015c0 20 20 20 4d 43 4c 20 63 6f 6d 70 69 6c 65 72 20 72 65 6c 65 61 73 65 20 31 2e 30 20 20 20 20 20 ┆ MCL compiler release 1.0 ┆
0x015c0…015e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *> <*********┆
0x015e0…01600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01600…01620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 0a 3c 2a 2d 2d 2d 2d 2d 2d ┆*********************> <*------┆
0x01620…01640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x01640…01660 2a 3e 0a 3c 2a 20 43 6f 6e 73 74 61 6e 73 20 75 73 65 64 20 67 6c 6f 62 61 6c 20 20 20 20 20 20 ┆*> <* Constans used global ┆
0x01660…01680 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ *> <*----------------┆
0x01680…016a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 69 6e 74 65 67 65 72 ┆----------------------*> integer┆
0x016a0…016c0 20 6d 61 78 5f 76 61 72 2c 20 20 20 20 20 20 20 20 20 20 3c 2a 20 4d 61 78 2e 20 6e 75 6d 62 65 ┆ max_var, <* Max. numbe┆
0x016c0…016e0 72 73 20 6f 66 20 76 61 72 27 73 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 20 20 20 20 20 20 ┆rs of var's *> ┆
0x016e0…01700 6d 61 78 5f 73 74 72 69 6e 67 2c 20 20 20 20 20 20 20 3c 2a 20 4d 61 78 2e 20 6e 75 6d 62 65 72 ┆max_string, <* Max. number┆
0x01700…01720 73 20 6f 66 20 63 68 61 72 73 2e 20 69 6e 20 74 65 78 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 6d ┆s of chars. in text *> m┆
0x01720…01740 61 78 5f 63 6f 64 65 2c 20 20 20 20 20 20 20 20 20 3c 2a 20 4d 61 78 2e 20 63 6f 64 65 20 61 64 ┆ax_code, <* Max. code ad┆
0x01740…01760 64 72 65 73 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 20 20 20 20 20 20 6b 65 ┆dress *> ke┆
0x01760…01780 79 77 6f 72 64 73 3b 20 20 20 20 20 20 20 20 20 3c 2a 20 4e 75 6d 62 65 72 20 6f 66 20 6b 65 79 ┆ywords; <* Number of key┆
0x01780…017a0 77 6f 72 64 73 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 61 72 72 61 79 20 70 6e 28 31 3a ┆words *> array pn(1:┆
0x017a0…017c0 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 50 72 6f 67 72 61 6d 20 6e 61 6d 65 20 20 ┆2); <* Program name ┆
0x017c0…017e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 69 3b 20 3c ┆ *> integer i; <┆
0x017e0…01800 2a 20 77 6f 72 6b 20 2a 3e 0a 0a 3c 2a 20 52 65 73 65 72 76 65 20 35 30 20 73 65 67 6d 65 6e 74 ┆* work *> <* Reserve 50 segment┆
0x01800…01820 73 20 66 6f 72 20 61 6c 67 6f 6c 20 74 6f 20 72 75 6e 20 69 6e 2c 20 2a 3e 0a 3c 2a 20 75 73 65 ┆s for algol to run in, *> <* use┆
0x01820…01840 20 72 65 73 74 20 66 6f 72 20 63 6f 64 65 20 61 72 72 61 79 20 2a 3e 0a 6d 61 78 5f 63 6f 64 65 ┆ rest for code array *> max_code┆
0x01840…01860 3a 3d 28 28 73 79 73 74 65 6d 28 32 2c 69 2c 70 6e 29 2f 2f 35 31 32 29 2d 35 30 29 2a 35 31 32 ┆:=((system(2,i,pn)//512)-50)*512┆
0x01860…01880 3b 0a 6b 65 79 77 6f 72 64 73 3a 3d 34 30 3b 0a 6d 61 78 5f 76 61 72 3a 3d 32 35 3b 0a 6d 61 78 ┆; keywords:=40; max_var:=25; max┆
0x01880…018a0 5f 73 74 72 69 6e 67 3a 3d 38 30 3b 0a 62 65 67 69 6e 0a 20 20 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆_string:=80; begin <*---------┆
0x018a0…018c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 20 20 3c 2a 20 47 6c 6f 62 61 6c ┆------------------*> <* Global┆
0x018c0…018e0 65 20 73 63 61 6e 6e 65 72 20 76 61 72 69 61 62 6c 65 73 20 2a 3e 0a 20 20 3c 2a 2d 2d 2d 2d 2d ┆e scanner variables *> <*-----┆
0x018e0…01900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 20 20 69 6e 74 65 67 ┆----------------------*> integ┆
0x01900…01920 65 72 20 61 72 72 61 79 20 6e 65 77 69 6e 74 61 62 6c 65 28 30 3a 32 35 35 29 3b 0a 20 20 69 6e ┆er array newintable(0:255); in┆
0x01920…01940 74 65 67 65 72 20 69 74 65 6d 3b 0a 20 20 69 6e 74 65 67 65 72 20 6c 61 73 74 5f 69 74 65 6d 3b ┆teger item; integer last_item;┆
0x01940…01960 0a 20 20 69 6e 74 65 67 65 72 20 74 6f 6b 65 6e 5f 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 20 ┆ integer token_type, ┆
0x01960…01980 20 6c 69 6e 65 5f 6e 75 6d 62 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 74 6f 6b 65 6e 5f 6e 75 ┆ line_number, token_nu┆
0x01980…019a0 6d 62 65 72 5f 76 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 74 6f 6b 65 6e 5f 73 74 72 69 6e 67 ┆mber_val, token_string┆
0x019a0…019c0 5f 6c 65 6e 67 74 68 2c 0a 20 20 20 20 20 20 20 20 20 20 74 6f 6b 65 6e 5f 6e 75 6d 62 65 72 3b ┆_length, token_number;┆
0x019c0…019e0 0a 20 20 62 6f 6f 6c 65 61 6e 20 74 6f 6b 65 6e 5f 76 61 72 5f 73 75 62 3b 0a 20 20 6c 6f 6e 67 ┆ boolean token_var_sub; long┆
0x019e0…01a00 20 61 72 72 61 79 20 69 74 65 6d 5f 76 61 6c 28 30 3a 32 30 30 29 3b 0a 20 20 69 6e 74 65 67 65 ┆ array item_val(0:200); intege┆
0x01a00…01a20 72 20 61 72 72 61 79 20 69 74 65 6d 5f 6b 69 6e 64 28 30 3a 32 30 30 29 3b 0a 20 20 6c 6f 6e 67 ┆r array item_kind(0:200); long┆
0x01a20…01a40 20 61 72 72 61 79 20 74 6f 6b 65 6e 5f 74 65 78 74 28 31 3a 32 30 30 29 3b 0a 20 20 6c 6f 6e 67 ┆ array token_text(1:200); long┆
0x01a40…01a60 20 61 72 72 61 79 20 73 79 6d 62 6f 6c 5f 74 65 78 74 28 31 3a 6b 65 79 77 6f 72 64 73 29 3b 0a ┆ array symbol_text(1:keywords); ┆
0x01a60…01a80 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 73 79 6d 62 6f 6c 5f 76 61 6c 28 31 3a 6b 65 79 ┆ integer array symbol_val(1:key┆
0x01a80…01aa0 77 6f 72 64 73 29 3b 0a 20 20 7a 6f 6e 65 20 73 6f 75 72 63 65 5f 74 65 78 74 28 32 35 36 2c 32 ┆words); zone source_text(256,2┆
0x01aa0…01ac0 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆,stderror); <*----------------┆
0x01ac0…01ae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 20 20 3c 2a 20 47 6c 6f 62 61 6c 65 20 63 6f 6d 70 ┆------------*> <* Globale comp┆
0x01ae0…01b00 69 6c 65 72 20 76 61 72 69 61 62 6c 65 73 20 2a 3e 0a 20 20 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆iler variables *> <*----------┆
0x01b00…01b20 (4, 372) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 20 20 62 6f 6f 6c 65 61 6e 20 6c ┆------------------*> boolean l┆
0x01b20…01b40 69 73 74 5f 73 6f 75 72 63 65 2c 20 20 20 3c 2a 20 6c 69 73 74 2e 79 65 73 20 2a 3e 0a 20 20 20 ┆ist_source, <* list.yes *> ┆
0x01b40…01b60 20 20 20 20 20 20 20 73 68 6f 77 5f 77 61 72 6e 69 6e 67 2c 20 20 3c 2a 20 77 61 72 6e 69 6e 67 ┆ show_warning, <* warning┆
0x01b60…01b80 2e 79 65 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 5f 74 65 73 74 2c 20 20 20 20 ┆.yes *> show_test, ┆
0x01b80…01ba0 20 3c 2a 20 74 65 73 74 2e 79 65 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 5f 63 ┆ <* test.yes *> show_c┆
0x01ba0…01bc0 6f 64 65 2c 20 20 20 20 20 3c 2a 20 63 6f 64 65 2e 79 65 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 ┆ode, <* code.yes *> ┆
0x01bc0…01be0 20 20 75 73 65 5f 6e 6f 74 65 2c 20 20 20 20 20 20 3c 2a 20 6e 6f 74 65 2e 79 65 73 20 2a 3e 0a ┆ use_note, <* note.yes *> ┆
0x01be0…01c00 20 20 20 20 20 20 20 20 20 20 6d 61 6b 65 5f 63 6f 64 65 2c 20 20 20 20 20 3c 2a 20 50 72 6f 64 ┆ make_code, <* Prod┆
0x01c00…01c20 75 63 65 20 63 6f 64 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 6d 61 6b 65 5f 63 6d 63 6c 2c ┆uce code *> make_cmcl,┆
0x01c20…01c40 20 20 20 20 20 3c 2a 20 6d 61 6b 65 20 72 65 73 75 6c 74 20 66 69 6c 65 20 2a 3e 0a 20 20 20 20 ┆ <* make result file *> ┆
0x01c40…01c60 20 20 20 20 20 20 77 61 72 6e 69 6e 67 73 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 ┆ warnings; integer array ┆
0x01c60…01c80 74 61 69 6c 28 31 3a 31 30 29 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 63 6d 63 6c 5f 66 69 ┆tail(1:10); real array cmcl_fi┆
0x01c80…01ca0 6c 65 2c 73 6f 75 72 63 65 5f 66 69 6c 65 28 31 3a 32 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 6e ┆le,source_file(1:2); integer n┆
0x01ca0…01cc0 65 78 74 5f 66 72 65 65 2c 20 20 20 3c 2a 20 4e 65 78 74 20 66 72 65 65 20 61 64 64 72 65 73 73 ┆ext_free, <* Next free address┆
0x01cc0…01ce0 20 69 6e 20 63 6f 64 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 5f 73 74 61 72 ┆ in code *> while_star┆
0x01ce0…01d00 74 2c 20 3c 2a 20 43 75 72 72 65 6e 74 20 77 68 69 6c 65 20 62 6c 6f 63 6b 20 73 74 61 72 74 20 ┆t, <* Current while block start ┆
0x01d00…01d20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 61 74 74 5f 73 74 61 72 74 2c 20 20 20 3c 2a 20 43 75 72 ┆*> att_start, <* Cur┆
0x01d20…01d40 72 65 6e 74 20 61 74 74 20 6f 72 20 69 6e 63 20 62 6c 6f 63 6b 20 73 74 61 72 74 20 2a 3e 0a 20 ┆rent att or inc block start *> ┆
0x01d40…01d60 20 20 20 20 20 20 20 20 20 73 5f 6c 69 6e 65 2c 20 20 20 20 20 20 3c 2a 20 53 6f 75 72 63 65 20 ┆ s_line, <* Source ┆
0x01d60…01d80 6c 69 6e 65 20 6e 75 6d 62 65 72 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 69 3b 20 20 20 20 ┆line number *> ii; ┆
0x01d80…01da0 20 20 20 20 20 20 3c 2a 20 77 6f 72 6b 20 2a 3e 0a 20 20 72 65 61 6c 20 20 20 20 72 72 3b 20 20 ┆ <* work *> real rr; ┆
0x01da0…01dc0 20 20 20 20 20 20 20 20 3c 2a 20 77 6f 72 6b 20 2a 3e 0a 20 20 62 6f 6f 6c 65 61 6e 20 69 6e 5f ┆ <* work *> boolean in_┆
0x01dc0…01de0 61 74 74 65 6e 74 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 69 6e 5f 69 6e 63 6c 75 64 65 3b ┆attention, in_include;┆
0x01de0…01e00 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 6f 70 3b 0a 20 20 62 6f 6f ┆ integer array field op; boo┆
0x01e00…01e20 6c 65 61 6e 20 61 72 72 61 79 20 63 6f 64 65 28 30 3a 6d 61 78 5f 63 6f 64 65 29 3b 20 3c 2a 20 ┆lean array code(0:max_code); <* ┆
[…truncated at 200 lines…]