|
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…00030 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 30 00 01 9f ff ff ff 00 00 00 00 00 00 00 00 00 ┆ 0 ┆
0x00030…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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xe…]
0x00300…00330 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 00 00 00 00 ac ef c8 00 00 00 00 00 00 00 00 00 ┆ 0 x mcllist disc ┆
0x00330…00360 00 00 00 2d 00 00 5d 28 6c 2c 00 01 5c 28 6e 2f 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 ┆ - Å(l, Ø(n/ _(pQ( 4 -( , )7h * , Ø(v┆
0x00360…00390 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 00 2f 00 01 24 c2 d2 5f 20 00 2d 28 16 2c 00 23 ┆Q(v 4 $Q(F$ Å P(H (< $ Ø / $ _ -( , #┆
0x00390…003c0 37 68 01 00 2a a0 2c 00 00 5c 28 76 2d 28 16 2c 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 * , Ø(v-( , 7h * $ P Ø(h 4 P(. hF4 D┆
0x003c0…003f0 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 36 51 28 8a 5f 10 36 2c 00 00 53 23 d0 5c 30 36 ┆Q(H y $ Q Å# S# S06Q( _ 6, S# Ø06┆
0x003f0…00420 51 28 2e 53 23 d0 5d 30 38 2c 00 01 5c 28 46 2f 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(.S# Å08, Ø(F/ $ _ Q(H$ zÅ -( , 17h * Q(H┆
0x00420…00450 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 d0 5f 10 36 2c 00 01 53 23 d0 5c 30 38 2d 00 00 ┆ y Z$ Q Å# S( S06Q# _ 6, S# Ø08- ┆
0x00450…00480 53 23 d0 5d 30 3a 2d 28 16 2c 00 19 37 68 01 00 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 ┆S# Å0:-( , 7h * $ FP 4 `Q(hS# S08 P æ ┆
0x00480…004b0 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 d4 5d 23 d6 53 23 d0 1f 23 d6 5f 23 d6 51 23 d2 ┆Å# Q - a , $@ Ø# Å# S# # _# Q# ┆
0x004b0…004e0 53 82 14 9b 63 d4 99 63 d4 87 30 01 24 63 d6 13 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 ┆S c c 0 $c $c Å -( , 7h * $ P Ø(h┆
0x004e0…00510 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 da 5d 20 00 2d 28 16 2c 00 3a 37 68 01 00 2a a0 ┆Q# Q 8- S# Å08S(F/0 _(F4 Q(H$ Å -( , :7h * ┆
0x00510…00540 50 28 48 a8 68 3e 34 80 30 2d 28 16 2c 00 25 37 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 ┆P(H h>4 0-( , %7h * Q(>- $ Å S(>$ _ -( , (┆
0x00540…00570 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 3c 24 c1 98 5d 20 00 53 28 48 2f 30 01 24 c1 8e ┆7h * , $ Ø -( , 7h * 4 Q(<$ Å S(H/0 $ ┆
0x00570…005a0 5f 20 00 2d 28 16 2c 00 28 37 68 01 00 2a a0 51 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 ┆_ -( , (7h * Q(j 4 P(H h>4 Q(<- Å(<S(>/? ┆
0x005a0…005d0 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 d0 53 30 38 a7 68 46 34 80 10 2d 28 16 2c 00 37 ┆_(>Q(H y V$ Q Å# S# S08 hF4 -( , 7┆
0x005d0…00600 37 68 01 00 2a a0 51 28 46 53 23 d0 5d 30 38 51 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 ┆7h * Q(FS# Å08Q(hS(F P æ Å# Q - ┆
0x00600…00630 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 00 00 00 00 ae fa 57 00 00 00 00 00 00 00 00 00 ┆ 3 d mcltxt ædisc1 W ┆
0x00630…00660 00 00 00 00 04 0b 00 00 64 00 00 c7 6d 63 6c 00 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 ┆ d mcl ødisc3 X ┆
0x00660…00690 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 73 63 33 00 00 00 00 00 00 00 a5 1e 5b 00 00 00 ┆ * r r simtxt 4disc3 Æ ┆
0x00690…006c0 00 00 00 00 00 00 00 00 00 00 09 8b 03 72 d0 03 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 ┆ r v sim ^disc3 R┆
0x006c0…006f0 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 00 00 00 01 64 69 73 63 33 00 00 00 00 00 00 00 ┆ * æ r r cm disc3 ┆
0x006f0…00720 a4 11 32 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆ 2 r r cs disc3 ┆
0x00720…00750 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 74 78 74 00 00 00 00 00 00 0d 64 69 73 63 31 00 ┆ x mvmcltxt disc1 ┆
0x00750…00780 00 00 00 00 00 00 ad 7e 15 00 00 00 00 00 00 00 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…007b0 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 81 6d 6f 76 65 6d 63 6c 00 00 00 00 00 00 00 30 ┆c3 x movemcl 0┆
0x007b0…007e0 64 69 73 63 33 00 00 00 00 00 00 00 ae b3 15 00 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 ┆disc3 * " ┆
0x007e0…00810 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 69 74 23 20 20 20 20 20 20 20 2a 2a 2a 20 20 57 ┆ @ P ` P Exit# *** W┆
0x00810…00840 61 72 6e 69 6e 67 3a 20 4e 6f 20 72 65 73 75 6c 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 ┆arning: No resultfile ! # Release 1.10 # ┆
0x00840…00870 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 20 20 20 20 20 20 20 52 43 38 30 30 30 20 53 63 ┆ sw8020/1# RC8000 Sc┆
0x00870…008a0 72 65 65 6e 20 45 64 69 74 6f 72 2e 20 20 23 20 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 ┆reen Editor. # process too small. Min.┆
0x008a0…008d0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ size = ┆
0x008d0…00900 20 20 20 20 20 20 20 20 20 34 82 88 34 82 0a 34 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 4 &4 4 @, a & Q @ ┆
0x00900…00930 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 30 00 01 9f ff ff ff 00 00 00 00 00 00 00 00 00 ┆ 0 ┆
0x00930…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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xe…]
0x00c00…00c30 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 00 00 00 00 ac ef c8 00 00 00 00 00 00 00 00 00 ┆ 0 x mcllist disc ┆
0x00c30…00c60 00 00 00 2d 00 00 5d 28 6c 2c 00 01 5c 28 6e 2f 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 ┆ - Å(l, Ø(n/ _(pQ( 4 -( , )7h * , Ø(v┆
0x00c60…00c90 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 00 2f 00 01 24 c2 d2 5f 20 00 2d 28 16 2c 00 23 ┆Q(v 4 $Q(F$ Å P(H (< $ Ø / $ _ -( , #┆
0x00c90…00cc0 37 68 01 00 2a a0 2c 00 00 5c 28 76 2d 28 16 2c 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 * , Ø(v-( , 7h * $ P Ø(h 4 P(. hF4 D┆
0x00cc0…00cf0 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 36 51 28 8a 5f 10 36 2c 00 00 53 23 d0 5c 30 36 ┆Q(H y $ Q Å# S# S06Q( _ 6, S# Ø06┆
0x00cf0…00d20 51 28 2e 53 23 d0 5d 30 38 2c 00 01 5c 28 46 2f 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(.S# Å08, Ø(F/ $ _ Q(H$ zÅ -( , 17h * Q(H┆
0x00d20…00d50 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 d0 5f 10 36 2c 00 01 53 23 d0 5c 30 38 2d 00 00 ┆ y Z$ Q Å# S( S06Q# _ 6, S# Ø08- ┆
0x00d50…00d80 53 23 d0 5d 30 3a 2d 28 16 2c 00 19 37 68 01 00 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 ┆S# Å0:-( , 7h * $ FP 4 `Q(hS# S08 P æ ┆
0x00d80…00db0 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 d4 5d 23 d6 53 23 d0 1f 23 d6 5f 23 d6 51 23 d2 ┆Å# Q - a , $@ Ø# Å# S# # _# Q# ┆
0x00db0…00de0 53 82 14 9b 63 d4 99 63 d4 87 30 01 24 63 d6 13 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 ┆S c c 0 $c $c Å -( , 7h * $ P Ø(h┆
0x00de0…00e10 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 da 5d 20 00 2d 28 16 2c 00 3a 37 68 01 00 2a a0 ┆Q# Q 8- S# Å08S(F/0 _(F4 Q(H$ Å -( , :7h * ┆
0x00e10…00e40 50 28 48 a8 68 3e 34 80 30 2d 28 16 2c 00 25 37 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 ┆P(H h>4 0-( , %7h * Q(>- $ Å S(>$ _ -( , (┆
0x00e40…00e70 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 3c 24 c1 98 5d 20 00 53 28 48 2f 30 01 24 c1 8e ┆7h * , $ Ø -( , 7h * 4 Q(<$ Å S(H/0 $ ┆
0x00e70…00ea0 5f 20 00 2d 28 16 2c 00 28 37 68 01 00 2a a0 51 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 ┆_ -( , (7h * Q(j 4 P(H h>4 Q(<- Å(<S(>/? ┆
0x00ea0…00ed0 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 d0 53 30 38 a7 68 46 34 80 10 2d 28 16 2c 00 37 ┆_(>Q(H y V$ Q Å# S# S08 hF4 -( , 7┆
0x00ed0…00f00 37 68 01 00 2a a0 51 28 46 53 23 d0 5d 30 38 51 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 ┆7h * Q(FS# Å08Q(hS(F P æ Å# Q - ┆
0x00f00…00f30 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 00 00 00 00 ae fa 57 00 00 00 00 00 00 00 00 00 ┆ 3 d mcltxt ædisc1 W ┆
0x00f30…00f60 00 00 00 00 04 0b 00 00 64 00 00 c7 6d 63 6c 00 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 ┆ d mcl ødisc3 X ┆
0x00f60…00f90 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 73 63 33 00 00 00 00 00 00 00 a5 1e 5b 00 00 00 ┆ * r r simtxt 4disc3 Æ ┆
0x00f90…00fc0 00 00 00 00 00 00 00 00 00 00 09 8b 03 72 d0 03 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 ┆ r v sim ^disc3 R┆
0x00fc0…00ff0 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 00 00 00 01 64 69 73 63 33 00 00 00 00 00 00 00 ┆ * æ r r cm disc3 ┆
0x00ff0…01020 a4 11 32 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆ 2 r r cs disc3 ┆
0x01020…01050 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 74 78 74 00 00 00 00 00 00 0d 64 69 73 63 31 00 ┆ x mvmcltxt disc1 ┆
0x01050…01080 00 00 00 00 00 00 ad 7e 15 00 00 00 00 00 00 00 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…010b0 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 81 6d 6f 76 65 6d 63 6c 00 00 00 00 00 00 00 30 ┆c3 x movemcl 0┆
0x010b0…010e0 64 69 73 63 33 00 00 00 00 00 00 00 ae b3 15 00 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 ┆disc3 * " ┆
0x010e0…01110 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 69 74 23 20 20 20 20 20 20 20 2a 2a 2a 20 20 57 ┆ @ P ` P Exit# *** W┆
0x01110…01140 61 72 6e 69 6e 67 3a 20 4e 6f 20 72 65 73 75 6c 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 ┆arning: No resultfile ! # Release 1.10 # ┆
0x01140…01170 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 20 20 20 20 20 20 20 52 43 38 30 30 30 20 53 63 ┆ sw8020/1# RC8000 Sc┆
0x01170…011a0 72 65 65 6e 20 45 64 69 74 6f 72 2e 20 20 23 20 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 ┆reen Editor. # process too small. Min.┆
0x011a0…011d0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ size = ┆
0x011d0…01200 20 20 20 20 20 20 20 20 20 34 82 88 34 82 0a 34 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 4 &4 4 @, a & Q @ ┆
0x01200…01230 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆begin <*****************************************┆
0x01230…01260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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…01290 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 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 ┆xt for Terminal Access System *> <* ┆
0x01290…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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x012c0…012f0 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 74 65 78 74 20 74 6f 20 63 6d 63 6c 20 66 6f 72 ┆ *> <* Compiles MCL source text to cmcl for┆
0x012f0…01320 6d 61 74 20 63 6f 64 65 20 20 20 20 20 20 20 20 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 ┆mat code *> <* Produce all code in┆
0x01320…01350 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 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 ┆ core before writing it to file *> <* ┆
0x01350…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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01380…013b0 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 37 30 31 30 37 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* Henning Godske 870107 ┆
0x013b0…013e0 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 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…01410 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 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a ┆en *> <*┆
0x01410…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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01440…01470 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 20 20 3c 72 65 73 75 6c 74 3e 3d 61 6c 67 6f 6c ┆ *> <* Compiler call: <result>=algol┆
0x01470…014a0 20 3c 73 6f 75 72 63 65 3e 20 63 6f 6e 6e 65 63 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 ┆ <source> connect.no *> <***************┆
0x014a0…014d0 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆***********************************************>┆
0x014d0…01500 0a 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ <*********************************************┆
0x01500…01530 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 69 73 74 6f 72 79 20 20 20 20 20 20 20 20 20 20 ┆*****************> <* Revision history ┆
0x01530…01560 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 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x01560…01590 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01590…015c0 20 20 2a 3e 0a 3c 2a 20 38 37 2e 30 32 2e 30 31 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 ┆ *> <* 87.02.01 MCL compiler release 1.0 ┆
0x015c0…015f0 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *> <*************************┆
0x015f0…01620 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 2a 2a 2a 2a 2a 3e 0a 0a 3c 2a 2d 2d 2d 2d 2d 2d ┆*************************************> <*------┆
0x01620…01650 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 2a 3e 0a 3c 2a 20 43 6f 6e 73 74 61 6e 73 20 75 ┆--------------------------------*> <* Constans u┆
0x01650…01680 73 65 64 20 67 6c 6f 62 61 6c 20 20 20 20 20 20 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 ┆sed global *> <*----------------┆
0x01680…016b0 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 20 6d 61 78 5f 76 61 72 2c 20 20 20 20 20 20 20 ┆----------------------*> integer max_var, ┆
0x016b0…016e0 20 20 20 3c 2a 20 4d 61 78 2e 20 6e 75 6d 62 65 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 ┆ <* Max. numbers of var's *> ┆
0x016e0…01710 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 73 20 6f 66 20 63 68 61 72 73 2e 20 69 6e 20 74 ┆max_string, <* Max. numbers of chars. in t┆
0x01710…01740 65 78 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 6d 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 ┆ext *> max_code, <* Max. code ad┆
0x01740…01770 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 79 77 6f 72 64 73 3b 20 20 20 20 20 20 20 20 20 ┆dress *> keywords; ┆
0x01770…017a0 3c 2a 20 4e 75 6d 62 65 72 20 6f 66 20 6b 65 79 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 ┆<* Number of keywords *> array pn(1:┆
0x017a0…017d0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2); <* Program name ┆
0x017d0…01800 20 2a 3e 0a 69 6e 74 65 67 65 72 20 69 3b 20 3c 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 ┆ *> integer i; <* work *> <* Reserve 50 segment┆
0x01800…01830 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 20 72 65 73 74 20 66 6f 72 20 63 6f 64 65 20 61 ┆s for algol to run in, *> <* use rest for code a┆
0x01830…01860 72 72 61 79 20 2a 3e 0a 6d 61 78 5f 63 6f 64 65 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 ┆rray *> max_code:=((system(2,i,pn)//512)-50)*512┆
0x01860…01890 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 5f 73 74 72 69 6e 67 3a 3d 38 30 3b 0a 62 65 67 ┆; keywords:=40; max_var:=25; max_string:=80; beg┆
0x01890…018c0 69 6e 0a 20 20 3c 2a 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 2a 3e 0a 20 20 3c 2a 20 47 6c 6f 62 61 6c ┆in <*---------------------------*> <* Global┆
0x018c0…018f0 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆e scanner variables *> <*---------------------┆
0x018f0…01920 2d 2d 2d 2d 2d 2d 2a 3e 0a 20 20 69 6e 74 65 67 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 ┆------*> integer array newintable(0:255); in┆
0x01920…01950 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 0a 20 20 69 6e 74 65 67 65 72 20 74 6f 6b 65 6e ┆teger item; integer last_item; integer token┆
0x01950…01980 5f 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 20 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 ┆_type, line_number, token_nu┆
0x01980…019b0 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 5f 6c 65 6e 67 74 68 2c 0a 20 20 20 20 20 20 20 ┆mber_val, token_string_length, ┆
0x019b0…019e0 20 20 20 74 6f 6b 65 6e 5f 6e 75 6d 62 65 72 3b 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 ┆ token_number; boolean token_var_sub; long┆
0x019e0…01a10 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 72 20 61 72 72 61 79 20 69 74 65 6d 5f 6b 69 6e ┆ array item_val(0:200); integer array item_kin┆
0x01a10…01a40 64 28 30 3a 32 30 30 29 3b 0a 20 20 6c 6f 6e 67 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 ┆d(0:200); long array token_text(1:200); long┆
0x01a40…01a70 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 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 ┆ array symbol_text(1:keywords); integer array ┆
0x01a70…01aa0 73 79 6d 62 6f 6c 5f 76 61 6c 28 31 3a 6b 65 79 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 ┆symbol_val(1:keywords); zone source_text(256,2┆
0x01aa0…01ad0 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 20 ┆,stderror); <*----------------------------*> ┆
0x01ad0…01b00 20 3c 2a 20 47 6c 6f 62 61 6c 65 20 63 6f 6d 70 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 ┆ <* Globale compiler variables *> <*----------┆
0x01b00…01b30 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 69 73 74 5f 73 6f 75 72 63 65 2c 20 20 20 3c 2a ┆------------------*> boolean list_source, <*┆
0x01b30…01b60 20 6c 69 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 77 61 72 6e 69 6e 67 2c 20 20 3c 2a 20 77 61 72 6e 69 6e 67 ┆ list.yes *> show_warning, <* warning┆
0x01b60…01b90 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 20 3c 2a 20 74 65 73 74 2e 79 65 73 20 2a 3e 0a ┆.yes *> show_test, <* test.yes *> ┆
0x01b90…01bc0 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 5f 63 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 ┆ show_code, <* code.yes *> ┆
0x01bc0…01bf0 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 20 20 20 20 20 20 20 20 20 20 6d 61 6b 65 5f 63 ┆ use_note, <* note.yes *> make_c┆
0x01bf0…01c20 6f 64 65 2c 20 20 20 20 20 3c 2a 20 50 72 6f 64 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 ┆ode, <* Produce code *> make_cmcl,┆
0x01c20…01c50 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 20 20 20 20 20 20 77 61 72 6e 69 6e 67 73 3b 0a ┆ <* make result file *> warnings; ┆
0x01c50…01c80 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 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 ┆ integer array tail(1:10); real array cmcl_fi┆
0x01c80…01cb0 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 65 78 74 5f 66 72 65 65 2c 20 20 20 3c 2a 20 4e ┆le,source_file(1:2); integer next_free, <* N┆
0x01cb0…01ce0 65 78 74 20 66 72 65 65 20 61 64 64 72 65 73 73 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 ┆ext free address in code *> while_star┆
0x01ce0…01d10 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 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆t, <* Current while block start *> att┆
0x01d10…01d40 5f 73 74 61 72 74 2c 20 20 20 3c 2a 20 43 75 72 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 ┆_start, <* Current att or inc block start *> ┆
0x01d40…01d70 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 6c 69 6e 65 20 6e 75 6d 62 65 72 20 2a 3e 0a 20 ┆ s_line, <* Source line number *> ┆
0x01d70…01da0 20 20 20 20 20 20 20 20 20 69 69 3b 20 20 20 20 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 ┆ ii; <* work *> real rr; ┆
0x01da0…01dd0 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 61 74 74 65 6e 74 69 6f 6e 2c 0a 20 20 20 20 20 ┆ <* work *> boolean in_attention, ┆
0x01dd0…01e00 20 20 20 20 20 69 6e 5f 69 6e 63 6c 75 64 65 3b 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 ┆ in_include; integer array field op; boo┆
0x01e00…01e30 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 43 6f 64 65 20 61 72 72 61 79 20 77 69 74 68 20 ┆lean array code(0:max_code); <* Code array with ┆
0x01e30…01e60 69 6e 64 65 78 20 69 6e 20 68 77 20 2a 3e 0a 20 20 7a 6f 6e 65 20 63 6d 63 6c 5f 63 6f 64 65 28 32 35 36 2c 32 2c 73 74 64 65 72 72 6f 72 29 3b ┆index in hw *> zone cmcl_code(256,2,stderror);┆
0x01e60…01e90 0a 20 20 3c 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ <*-------------------------------------------┆
0x01e90…01ec0 2d 2d 2d 2d 2d 2a 3e 0a 20 20 3c 2a 20 54 6f 6b 65 6e 20 63 6f 6e 73 74 61 6e 74 73 20 75 73 65 64 20 67 6c 6f 62 61 6c 2e 20 53 65 74 20 69 6e ┆-----*> <* Token constants used global. Set in┆
0x01ec0…01ef0 20 69 6e 69 74 5f 73 63 61 6e 20 20 2a 3e 0a 20 20 3c 2a 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 ┆ init_scan *> <*-----------------------------┆
0x01ef0…01f20 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 65 72 20 20 74 5f 65 6e 64 5f 66 69 6c 65 2c 0a 20 20 20 ┆-------------------*> integer t_end_file, ┆
0x01f20…01f50 20 20 20 20 20 20 20 20 74 5f 63 61 73 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6f 74 68 65 72 77 69 73 65 2c 0a 20 20 20 20 20 20 20 20 ┆ t_case, t_otherwise, ┆
0x01f50…01f80 20 20 20 74 5f 65 6e 64 73 65 6c 65 63 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 6c 73 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f ┆ t_endselect, t_else, t_┆
0x01f80…01fb0 65 6e 64 69 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 70 6f 69 6e 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 74 65 78 74 2c 0a 20 20 ┆endif, t_point, t_text, ┆
0x01fb0…01fe0 20 20 20 20 20 20 20 20 20 74 5f 65 6e 64 6d 65 6e 75 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 6e 64 77 68 69 6c 65 2c 0a 20 20 20 20 20 ┆ t_endmenu, t_endwhile, ┆
0x01fe0…02010 20 20 20 20 20 20 74 5f 65 6e 64 61 74 74 65 6e 74 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 6e 64 69 6e 63 6c 75 64 65 2c 0a 20 ┆ t_endattention, t_endinclude, ┆
0x02010…02040 20 20 20 20 20 20 20 20 20 20 74 5f 73 65 6c 65 63 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 77 68 69 6c 65 2c 0a 20 20 20 20 20 20 20 20 ┆ t_select, t_while, ┆
0x02040…02070 20 20 20 74 5f 6d 65 6e 75 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 61 74 74 65 6e 74 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f ┆ t_menu, t_attention, t_┆
0x02070…020a0 69 6e 63 6c 75 64 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 61 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 77 72 69 74 65 2c 0a 20 20 ┆include, t_at, t_write, ┆
0x020a0…020d0 20 20 20 20 20 20 20 20 20 74 5f 6e 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 72 61 73 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f ┆ t_nl, t_erase, t_┆
0x020d0…02100 72 65 61 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 67 65 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6c 65 74 2c 0a 20 20 20 20 20 20 ┆read, t_get, t_let, ┆
0x02100…02130 20 20 20 20 20 74 5f 73 65 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 69 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 78 65 63 75 ┆ t_send, t_if, t_execu┆
0x02130…02160 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6e 6f 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 64 69 72 65 63 74 2c 0a 20 20 20 20 ┆te, t_note, t_direct, ┆
0x02160…02190 20 20 20 20 20 20 20 74 5f 6c 6f 6f 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 78 69 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6f ┆ t_loop, t_exit, t_o┆
0x02190…021c0 75 74 70 75 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 63 6f 6e 76 65 72 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 63 68 6f 2c 0a ┆utput, t_convert, t_echo, ┆
0x021c0…021f0 20 20 20 20 20 20 20 20 20 20 20 74 5f 6f 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 64 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 74 ┆ t_of, t_do, t_t┆
0x021f0…02220 68 65 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 65 71 75 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6e 6f 74 2c 0a 20 20 20 20 20 ┆hen, t_equal, t_not, ┆
0x02220…02250 20 20 20 20 20 20 74 5f 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6f 66 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 69 6e 74 5f 73 ┆ t_on, t_off, t_int_s┆
0x02250…02280 74 61 72 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 69 6e 74 5f 65 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 75 6e 6b 6e 6f 77 6e ┆tart, t_int_end, t_unknown┆
0x02280…022b0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6e 75 6d 62 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 73 74 72 69 6e 67 2c 0a 20 20 20 20 ┆, t_number, t_string, ┆
0x022b0…022e0 20 20 20 20 20 20 20 74 5f 65 72 72 73 74 72 69 6e 67 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 76 61 72 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ t_errstring, t_var, ┆
0x022e0…02310 20 74 5f 61 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 5f 6f 72 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 5f 65 72 72 6f 72 28 6e ┆ t_and, t_or; procedure init_error(n┆
0x02310…02340 72 29 3b 0a 3c 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆r); <*------------------------------------------┆
0x02340…02370 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 3c 2a 20 57 72 69 74 65 20 69 6e 69 74 69 61 6c 20 65 72 72 6f 72 20 ┆----------------------*> <* Write initial error ┆
0x02370…023a0 61 6e 64 20 73 74 6f 70 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 20 20 20 2a 3e 0a 3c 2a ┆and stop *> <*┆
0x023a0…023d0 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------------------------------------------------┆
0x023d0…02400 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 20 6e 72 3b 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 69 ┆----------------*> integer nr; begin integer i┆
0x02400…02430 3b 0a 20 20 69 3a 3d 31 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 3a 3e 2c 73 74 72 69 6e 67 20 70 6e 28 69 6e 63 72 65 61 73 65 ┆; i:=1; write(out,<:***:>,string pn(increase┆
0x02430…02460 28 69 29 29 29 3b 0a 20 20 69 66 20 6e 72 3c 31 20 6f 72 20 6e 72 3e 37 20 74 68 65 6e 0a 20 20 20 20 6e 72 3a 3d 38 3b 20 3c 2a 20 4d 61 78 2e ┆(i))); if nr<1 or nr>7 then nr:=8; <* Max.┆
0x02460…02490 20 69 6e 69 74 20 65 72 72 6f 72 20 6e 75 6d 62 65 72 20 75 73 65 64 20 2b 20 31 20 2a 3e 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 3a ┆ init error number used + 1 *> write(out,<: :┆
0x02490…024c0 3e 2c 63 61 73 65 20 6e 72 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3a 4e 6f 20 73 6f 75 72 63 65 20 66 69 6c 65 20 73 70 65 63 69 ┆>,case nr of (<:No source file speci┆
0x024c0…024f0 66 69 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 50 61 72 61 6d 65 74 65 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆fied:>, <:Parameter:>, ┆
0x024f0…02520 20 3c 3a 53 6f 75 72 63 65 20 66 69 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 50 72 6f 63 65 ┆ <:Source file not found:>, <:Proce┆
0x02520…02550 73 73 20 74 6f 6f 20 73 6d 61 6c 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 53 6f 75 72 63 65 20 66 69 6c 65 20 6e 6f 74 20 61 ┆ss too small:>, <:Source file not a┆
0x02550…02580 20 74 65 78 74 20 66 69 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 43 61 6e 27 74 20 63 72 65 61 74 65 20 72 65 73 75 6c 74 ┆ text file:>, <:Can't create result┆
0x02580…025b0 20 66 69 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 43 61 6e 27 74 20 75 73 65 20 72 65 73 75 6c 74 20 66 69 6c 65 3a 3e 2c ┆ file:>, <:Can't use result file:>,┆
0x025b0…025e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 55 6e 64 65 66 69 6e 65 64 20 65 72 72 6f 72 3a 3e 29 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 ┆ <:Undefined error:>),<:<10>:>); ┆
0x025e0…02610 6d 61 6b 65 5f 63 6f 64 65 3a 3d 66 61 6c 73 65 3b 0a 20 20 67 6f 74 6f 20 73 74 6f 70 3b 0a 65 6e 64 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 69 ┆make_code:=false; goto stop; end; procedure i┆
0x02610…02640 6e 69 74 5f 63 6f 6d 70 69 6c 65 72 3b 0a 3c 2a 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 ┆nit_compiler; <*--------------------------------┆
0x02640…02670 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 2a 3e 0a 3c 2a 20 52 65 61 64 20 46 50 20 70 61 ┆--------------------------------*> <* Read FP pa┆
0x02670…026a0 72 61 6d 65 74 65 72 73 20 61 6e 64 20 69 6e 69 74 2e 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rameters and init. global variables ┆
0x026a0…026d0 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ *> <*--------------------------------------┆
0x026d0…02700 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 2a 3e 0a 62 65 67 69 6e 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 ┆--------------------------*> begin real array ┆
0x02700…02730 72 61 28 31 3a 32 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 73 79 2c 69 2c 6a 3b 0a 20 20 0a 20 20 74 72 61 70 6d 6f 64 65 3a 3d 31 20 73 68 69 66 ┆ra(1:2); integer sy,i,j; trapmode:=1 shif┆
0x02730…02760 74 20 31 30 3b 0a 20 20 65 72 72 6f 72 62 69 74 73 3a 3d 30 3b 0a 20 20 77 61 72 6e 69 6e 67 73 3a 3d 66 61 6c 73 65 3b 0a 20 20 6c 69 73 74 5f ┆t 10; errorbits:=0; warnings:=false; list_┆
0x02760…02790 73 6f 75 72 63 65 3a 3d 75 73 65 5f 6e 6f 74 65 3a 3d 66 61 6c 73 65 3b 0a 20 20 73 68 6f 77 5f 77 61 72 6e 69 6e 67 3a 3d 6d 61 6b 65 5f 63 6d ┆source:=use_note:=false; show_warning:=make_cm┆
0x02790…027c0 63 6c 3a 3d 74 72 75 65 3b 0a 20 20 73 68 6f 77 5f 63 6f 64 65 3a 3d 73 68 6f 77 5f 74 65 73 74 3a 3d 66 61 6c 73 65 3b 0a 20 20 7a 65 72 6f 5f ┆cl:=true; show_code:=show_test:=false; zero_┆
0x027c0…027f0 63 6f 64 65 3b 20 3c 2a 20 6e 75 6c 73 74 69 6c 20 6b 6f 64 65 20 6f 6d 72 7d 64 65 20 2a 3e 0a 20 20 6d 61 6b 65 5f 63 6f 64 65 3a 3d 74 72 75 ┆code; <* nulstil kode område *> make_code:=tru┆
0x027f0…02820 65 3b 0a 20 20 6e 65 78 74 5f 66 72 65 65 3a 3d 77 68 69 6c 65 5f 73 74 61 72 74 3a 3d 30 3b 0a 20 20 69 6e 5f 61 74 74 65 6e 74 69 6f 6e 3a 3d ┆e; next_free:=while_start:=0; in_attention:=┆
0x02820…02850 69 6e 5f 69 6e 63 6c 75 64 65 3a 3d 66 61 6c 73 65 3b 0a 20 20 69 66 20 6d 61 78 5f 63 6f 64 65 3c 35 31 32 20 74 68 65 6e 0a 20 20 20 20 69 6e ┆in_include:=false; if max_code<512 then in┆
0x02850…02880 69 74 5f 65 72 72 6f 72 28 34 29 3b 0a 20 20 69 66 20 28 73 79 73 74 65 6d 28 34 2c 31 2c 72 61 29 20 73 68 69 66 74 20 28 2d 31 32 29 29 3d 36 ┆it_error(4); if (system(4,1,ra) shift (-12))=6┆
0x02880…028b0 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 73 79 73 74 65 6d 28 34 2c 30 2c 72 61 29 3b 0a 20 20 20 20 6d 61 6b 65 5f 63 6d 63 6c 3a ┆ then begin system(4,0,ra); make_cmcl:┆
0x028b0…028e0 3d 74 72 75 65 3b 0a 20 20 20 20 66 6f 72 20 6a 3a 3d 31 2c 32 20 64 6f 0a 20 20 20 20 20 20 63 6d 63 6c 5f 66 69 6c 65 28 6a 29 3a 3d 72 61 28 ┆=true; for j:=1,2 do cmcl_file(j):=ra(┆
0x028e0…02910 6a 29 3b 0a 20 20 20 20 69 3a 3d 32 3b 0a 20 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6d 61 6b 65 5f 63 6d 63 6c ┆j); i:=2; end else begin make_cmcl┆
0x02910…02940 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 69 3a 3d 31 3b 0a 20 20 65 6e 64 3b 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 72 61 29 3c 3e 28 ┆:=false; i:=1; end; if system(4,i,ra)<>(┆
0x02940…02970 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 29 20 74 68 65 6e 0a 20 20 20 20 3c 2a 20 65 72 72 6f 72 20 69 6e 20 73 6f 75 72 63 65 20 73 70 65 ┆4 shift 12 + 10) then <* error in source spe┆
0x02970…029a0 63 69 66 69 63 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 69 6e 69 74 5f 65 72 72 6f 72 28 31 29 3b 0a 20 20 66 6f 72 20 6a 3a 3d 31 2c 32 20 64 6f ┆cification *> init_error(1); for j:=1,2 do┆
0x029a0…029d0 0a 20 20 20 20 73 6f 75 72 63 65 5f 66 69 6c 65 28 6a 29 3a 3d 72 61 28 6a 29 3b 0a 20 20 69 3a 3d 69 2b 31 3b 0a 20 20 73 79 3a 3d 73 79 73 74 ┆ source_file(j):=ra(j); i:=i+1; sy:=syst┆
0x029d0…02a00 65 6d 28 34 2c 69 2c 72 61 29 3b 0a 20 20 77 68 69 6c 65 20 73 79 3c 3e 30 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 72 61 28 31 ┆em(4,i,ra); while sy<>0 do begin if ra(1┆
0x02a00…02a30 29 20 3d 20 72 65 61 6c 20 3c 3a 74 65 73 74 3a 3e 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0a 20 ┆) = real <:test:> then begin i:=i+1; ┆
0x02a30…02a60 20 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 72 61 29 3c 3e 28 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 29 20 74 68 65 6e 0a 20 ┆ if system(4,i,ra)<>(8 shift 12 + 10) then ┆
0x02a60…02a90 20 20 20 20 20 20 20 3c 2a 20 65 72 72 6f 72 20 69 6e 20 79 65 73 2f 6e 6f 20 73 70 65 63 2e 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 6e 69 74 5f ┆ <* error in yes/no spec. *> init_┆
[…truncated at 200 lines…]