|
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: 4320 (0x10e0)
Notes: Mikados_1
Names: »KOMPR«
└─⟦89d8689a3⟧ Bits:30003591 MIKADOS Pascal compiler (01.02.1982 E)
└─⟦this⟧ »KOMPR«
└─⟦8b7ba91bd⟧ Bits:30003596 MIK/MIKADOS diskette DDE COMAL-80 version 2.2, Pascal kildetekster
└─⟦this⟧ »KOMPR«
0x0000…0020 (0,) 4d 50 52 20 20 20 20 20 52 31 20 20 50 31 20 20 1f 04 b2 14 aa 10 08 00 55 04 55 04 55 04 50 31 ┆MPR R1 P1 U U U P1┆
0x0020…0040 18 40 00 40 2b 4e 20 20 20 02 08 00 08 0d 00 00 76 76 76 13 2e 31 39 38 31 cd 1a 76 76 76 76 76 ┆ @ @+N vvv .1981 vvvvv┆
0x0040…0060 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0060…0080 76 76 76 76 76 76 76 76 76 76 4b 4f 4d 50 52 20 20 20 31 41 00 11 00 00 00 00 00 00 00 64 01 1f ┆vvvvvvvvvvKOMPR 1A d ┆
0x0080…00a0 01 02 03 64 01 1f 01 00 20 00 26 03 e0 00 53 01 53 01 01 b4 64 01 1f 76 76 76 4b 4f 4d 50 52 20 ┆ d & S S d vvvKOMPR ┆
0x00a0…00c0 20 20 31 41 00 11 00 00 00 00 00 00 00 65 01 00 00 00 00 01 00 00 00 00 00 00 4d 50 52 20 20 20 ┆ 1A e MPR ┆
0x00c0…00e0 20 20 52 31 20 20 50 31 20 20 1f 04 b2 14 aa 10 08 00 55 04 55 04 55 04 50 31 18 40 00 40 2b 4e ┆ R1 P1 U U U P1 @ @+N┆
0x00e0…0100 4b 4f 4d 50 52 20 76 65 72 73 69 6f 6e 20 31 35 2e 31 32 2e 31 39 38 31 cd 05 4d 01 00 40 11 18 ┆KOMPR version 15.12.1981 M @ ┆
0x0100…0120 00 3e 02 2a 3e 4d cd 91 00 3e 06 32 ec 46 32 bc 46 21 20 20 22 28 45 01 0d 45 3e 1d 16 1b 2a 3e ┆ > *>M > 2 F2 F! "(E E> *>┆
0x0120…0140 4d cd 6c 4d 04 ca 39 43 2a 28 45 eb 21 d5 46 cd ca 00 a7 c2 58 43 97 32 ae 46 32 de 46 32 a2 46 ┆M lM 9C*(E ! F XC 2 F2 F2 F┆
0x0140…0160 21 00 00 22 94 46 21 05 47 22 c3 46 2a f5 46 22 c5 46 eb 21 04 00 19 4e 23 46 03 21 06 00 19 7e ┆! " F! G" F* F" F ! N#F ! ü┆
0x0160…0180 21 00 00 3d fa 8b 40 09 c3 83 40 23 11 d5 46 01 00 00 97 cd cd 00 21 9c 46 cd ee 00 11 9c 46 21 ┆! = @ @# F ! F F!┆
0x0180…01a0 96 46 cd e8 00 21 9c 46 7e 23 b6 23 b6 ca 9a 42 21 eb 46 36 01 21 e8 46 11 9c 46 cd e8 00 21 d5 ┆ F ! Fü# # B! F6 ! F F ! ┆
0x01a0…01c0 46 3e 01 cd d0 00 a7 c2 61 43 3a 05 47 a7 ca 83 42 11 05 47 21 d5 46 06 09 cd 73 00 11 18 47 21 ┆F> aC: G B G! F s G!┆
0x01c0…01e0 9f 46 cd e8 00 2a 10 47 22 e0 46 11 12 47 21 e2 46 06 06 cd 73 00 11 05 47 21 7a 45 06 08 cd 73 ┆ F * G" F G! F s G!zE s┆
0x01e0…0200 00 3a 0d 47 32 83 45 3a 0e 47 32 85 45 2a 96 46 eb 21 87 45 cd 46 00 3a 98 46 21 8c 45 cd 40 00 ┆ : G2 E: G2 E* F ! E F : F! E @ ┆
0x0200…0220 01 7a 45 11 14 00 cd 04 45 21 96 46 cd eb 00 7a 11 d5 46 2a e0 46 cd cd 00 21 99 46 cd ee 00 2a ┆ zE E! F z F* F ! F *┆
0x0220…0240 94 46 7c b5 ca 64 42 21 d5 46 cd c7 44 11 99 46 21 18 47 cd e8 00 11 96 46 21 b8 46 cd e8 00 21 ┆ Fø dB! F D F! G F! F !┆
0x0240…0260 bb 46 36 01 21 a5 46 3e 82 cd d0 00 a7 c2 61 43 11 d5 46 cd 56 44 11 a5 46 cd 56 44 3e 06 32 eb ┆ F6 ! F> aC F VD F VD> 2 ┆
0x0260…0280 46 32 bb 46 2a e0 46 2b 22 a3 46 2a a3 46 7c b5 ca d1 41 eb 21 fa ff 19 7c a7 f2 a7 41 7b 32 eb ┆F2 F* F+" F* Fø A ! ø Aæ2 ┆
0x0280…02a0 46 32 bb 46 21 00 00 22 a3 46 21 d5 46 3e 01 cd d0 00 a7 c2 61 43 21 a5 46 3e 82 cd d0 00 a7 c2 ┆F2 F! " F! F> aC! F> ┆
0x02a0…02c0 61 43 11 d5 46 cd 56 44 11 a5 46 cd 56 44 c3 8b 41 97 32 05 47 2a 94 46 22 10 47 11 9f 46 21 18 ┆aC F VD F VD A 2 G* F" G F! ┆
0x02c0…02e0 47 cd e8 00 11 99 46 21 e8 46 cd e8 00 3e 01 32 eb 46 21 d5 46 3e 02 cd d0 00 a7 c2 61 43 21 e2 ┆G F! F > 2 F! F> aC! ┆
0x02e0…0300 46 11 15 47 cd 78 44 a7 c2 61 43 3a de 46 fe 41 c2 21 42 21 e5 46 7e 23 b6 23 b6 c4 96 43 c3 34 ┆F G xD aC: F A !B! Fü# # C 4┆
0x0300…0320 42 21 e5 46 11 12 47 cd 78 44 da 34 42 a7 c2 61 43 c3 64 42 21 d5 46 3e 01 cd c4 00 fe 01 c4 45 ┆B! F G xD 4B aC dB! F> E┆
0x0320…0340 43 11 0a 00 19 e5 11 9c 46 06 03 cd cb 4d e1 c4 a0 43 11 96 46 cd e8 00 21 d5 46 3e 02 cd d0 00 ┆C F M C F ! F> ┆
0x0340…0360 a7 c2 61 43 21 d5 46 cd ab 44 97 32 de 46 11 99 46 21 96 46 cd e8 00 11 9f 46 21 9c 46 cd e8 00 ┆ aC! F D 2 F F! F F! F ┆
0x0360…0380 c3 a5 40 2a 94 46 eb 2a 10 47 19 22 94 46 11 18 47 21 9c 46 cd e8 00 c3 a5 40 97 32 05 47 21 18 ┆ @* F * G " F G! F @ 2 G! ┆
0x0380…03a0 47 36 00 23 36 00 23 36 00 11 96 46 21 e8 46 cd e8 00 3e 01 32 eb 46 21 d5 46 3e 02 cd d0 00 fe ┆G6 #6 #6 F! F > 2 F! F> ┆
0x03a0…03c0 32 ca 0e 43 a7 c2 61 43 21 00 00 22 e8 46 97 32 ea 46 2a 28 45 cd e6 4d a7 c2 70 43 21 d5 46 3e ┆2 C aC! " F 2 F*(E M pC! F>┆
0x03c0…03e0 01 cd d0 00 a7 ca f1 42 2a 28 45 cd f7 4d c3 61 43 21 0f 47 11 96 46 cd e8 00 21 d5 46 3e 02 cd ┆ B*(E M aC! G F ! F> ┆
0x03e0…0400 d0 00 f5 2a 28 45 cd f7 4d f1 a7 c2 61 43 2a 28 45 22 2f 45 2a 96 46 eb 21 5c 45 cd 46 00 3a 98 ┆ *(E M aC*(E"/E* F !ØE F : ┆
0x0400…0420 46 21 68 45 cd 40 00 01 2a 45 11 40 00 cd 04 45 21 d5 46 cd ab 44 c3 31 40 01 6a 45 11 10 00 cd ┆F!hE @ *E @ E! F D 1@ jE ┆
0x0420…0440 04 45 cd a6 00 d1 21 a9 45 cd 08 4e 01 8e 45 11 1f 00 cd 04 45 c3 39 43 01 ae 45 11 1b 00 c3 79 ┆ E ! E N E E 9C E y┆
0x0440…0460 43 21 db 45 cd 40 00 01 c9 45 11 14 00 c3 79 43 01 4f 46 11 42 00 c3 79 43 cd 04 45 21 d5 46 cd ┆C! E @ E yC OF B yC E! F ┆
0x0460…0480 ab 44 c3 31 40 3a a2 46 a7 c8 cd dc 00 a7 c4 45 43 97 32 a2 46 c9 01 ad 45 11 01 00 cd 04 45 c9 ┆ D 1@: F EC 2 F E E ┆
0x0480…04a0 e5 5e 23 56 23 7e f5 21 ed 45 cd 46 00 f1 21 f2 45 cd 40 00 2a 9c 46 eb 21 0a 46 cd 46 00 3a 9e ┆ ^#V#ü ! E F ! E @ * F ! F F : ┆
0x04a0…04c0 46 21 0f 46 cd 40 00 01 dd 45 11 34 00 cd 04 45 01 11 46 11 24 00 cd 04 45 01 35 46 3e 1a 16 19 ┆F! F @ E 4 E F $ E 5F> ┆
0x04c0…04e0 2a 3e 4d cd 6c 4d 04 ca fc 43 3a 4e 46 fe 31 ca 03 44 fe 32 ca 01 44 fe 33 c2 d0 43 e1 e1 c3 39 ┆*>M lM C:NF 1 D 2 D 3 C 9┆
0x04e0…0500 43 e1 c9 e1 e1 3e 01 32 eb 46 21 e2 46 e5 7e 23 b6 23 b6 d1 ca 3f 44 21 e8 46 cd e8 00 21 d5 46 ┆C > 2 F! F ü# # ?D! F ! F┆
0x0500…0520 3e 01 cd d0 00 a7 c2 61 43 97 32 05 47 21 d5 46 3e 02 cd d0 00 a7 c2 61 43 21 12 47 c3 0d 44 2a ┆> aC 2 G! F> aC! G D*┆
0x0520…0540 94 46 eb 2a e0 46 19 22 94 46 11 9f 46 21 9c 46 cd e8 00 c3 a5 40 21 13 00 19 e5 d5 cd eb 00 7a ┆ F * F " F F! F @! z┆
0x0540…0560 e1 e5 11 16 00 19 6e 26 00 d1 cd cd 00 e1 cd ee 00 c9 01 91 46 c3 7b 44 01 96 46 e5 7e 23 b6 23 ┆ n& F æD F ü# #┆
0x0560…0580 b6 e1 37 c8 c5 d5 eb 21 e8 46 cd e8 00 21 eb 46 36 01 21 d5 46 3e 01 cd d0 00 a7 e1 d1 c0 cd e8 ┆ 7 ! F ! F6 ! F> ┆
0x0580…05a0 00 21 d5 46 3e 02 cd d0 00 a7 c9 e5 eb 21 09 00 19 7e a7 ca c2 44 e5 eb cd df 00 e1 a7 c4 45 43 ┆ ! F> ! ü D EC┆
0x05a0…05c0 36 00 e1 cd 85 43 c9 e5 3a a2 46 a7 c2 d9 44 0e 03 cd d9 00 3e 01 32 a2 46 d1 21 09 00 19 7e a7 ┆6 C : F D > 2 F ! ü ┆
0x05c0…05e0 c0 e5 36 01 eb e5 0e 01 cd e2 00 e1 a7 d1 c8 fe 05 c4 45 43 97 12 e5 cd 85 43 21 05 00 cd 8e 00 ┆ 6 EC C! ┆
0x05e0…0600 e1 c3 c7 44 3e 02 2a 3e 4d cd 91 00 c9 45 6e 74 65 72 20 64 69 73 63 20 69 64 65 6e 74 69 66 69 ┆ D> *>M Enter disc identifi┆
0x0600…0620 63 61 74 69 6f 6e 3a 20 76 76 44 69 73 63 20 76 76 20 70 61 63 6b 65 64 2e 20 4e 65 78 74 20 61 ┆cation: vvDisc vv packed. Next a┆
0x0620…0640 76 61 69 6c 61 62 6c 65 20 73 65 63 74 6f 72 20 69 73 20 69 6e 20 74 72 61 63 6b 20 76 76 76 76 ┆vailable sector is in track vvvv┆
0x0640…0660 20 73 65 63 74 6f 72 20 76 76 4b 4f 4d 50 52 20 63 6f 6d 70 6c 65 74 65 64 2e 76 76 76 76 76 76 ┆ sector vvKOMPR completed.vvvvvv┆
0x0660…0680 76 76 20 20 20 20 20 76 76 76 76 20 76 76 45 52 52 4f 52 20 65 72 20 6b 61 6c 64 74 20 66 72 61 ┆vv vvvv vvERROR er kaldt fra┆
0x0680…06a0 20 61 64 72 65 73 73 65 20 76 76 76 76 2a 49 6c 6c 65 67 61 6c 20 64 69 73 63 20 69 64 65 6e 74 ┆ adresse vvvv*Illegal disc ident┆
0x06a0…06c0 69 66 69 63 61 74 69 6f 6e 46 69 6c 65 20 73 79 73 74 65 6d 20 65 72 72 6f 72 20 76 76 43 61 74 ┆ificationFile system error vvCat┆
0x06c0…06e0 61 6c 6f 67 20 70 6f 69 6e 74 65 72 20 76 76 76 76 20 76 76 3b 20 61 63 74 75 61 6c 20 66 69 6c ┆alog pointer vvvv vv; actual fil┆
0x06e0…0700 65 20 61 64 64 72 65 73 73 20 76 76 76 76 20 76 76 44 65 6c 65 74 65 20 66 69 6c 65 20 28 31 29 ┆e address vvvv vvDelete file (1)┆
0x0700…0720 2c 20 63 68 61 6e 67 65 20 63 61 74 61 6c 6f 67 20 28 32 29 20 6f 72 20 74 65 72 6d 69 6e 61 74 ┆, change catalog (2) or terminat┆
0x0720…0740 65 20 4b 4f 4d 50 52 20 28 33 29 3f 20 3a 20 52 65 73 65 72 76 61 74 69 6f 6e 20 6f 66 20 6c 61 ┆e KOMPR (3)? : Reservation of la┆
0x0740…0760 62 65 6c 20 73 65 63 74 6f 72 20 66 61 69 6c 65 64 2e 20 4e 6f 20 72 65 73 6f 75 72 63 65 20 65 ┆bel sector failed. No resource e┆
0x0760…0780 6c 65 6d 65 6e 74 20 61 76 61 69 6c 61 62 6c 65 2e 00 00 00 76 76 76 76 76 76 76 76 76 76 76 76 ┆lement available. vvvvvvvvvvvv┆
0x0780…07a0 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
[…0x32…]
0x0de0…0e00 76 76 76 76 76 21 36 4d cd 70 00 3e 28 21 44 4d cd 55 00 2a 3a 4d 7c b5 c8 eb 3a 3c 4d fe 28 da ┆vvvvv!6M p >(!DM U *:Mø :<M ( ┆
0x0e00…0e20 24 4d 3e 28 47 21 44 4d cd 73 00 2a 3a 4d eb 2a 3c 4d cd 9d 00 c9 76 76 76 76 76 76 76 76 76 76 ┆$M>(G!DM s *:M *<M vvvvvvvvvv┆
0x0e20…0e40 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0e40…0e60 76 76 76 76 76 76 76 76 76 76 76 76 e5 d5 f5 c5 00 01 01 04 cd 58 00 e5 2a 50 01 01 10 00 09 7e ┆vvvvvvvvvvvv X *P ü┆
0x0e60…0e80 12 23 13 7e 12 13 3e 03 12 13 97 12 13 e1 c1 e5 eb 71 23 70 23 d1 f1 77 23 36 00 23 f1 77 c1 eb ┆ # ü > q#p# w#6 # w ┆
0x0e80…0ea0 cd ac 00 cd 88 00 e5 06 00 21 0b 00 19 7e fe 10 c2 b5 4d 06 ff 21 0c 00 19 7e 21 04 00 19 5e 23 ┆ ! ü M ! ü! ^#┆
0x0ea0…0ec0 56 e1 c5 01 01 04 cd ac 00 c1 c9 04 05 c8 7e fe 61 da d6 4d e6 5f 4f 1a fe 61 da df 4d e6 5f b9 ┆V ü a M _O a M _ ┆
0x0ec0…0ee0 c0 13 23 c3 cc 4d 01 03 00 c5 e5 21 00 4e e5 cd 94 00 a7 c8 3e 1e c9 e5 21 00 4e e5 cd 97 00 c9 ┆ # M ! N > ! N ┆
0x0ee0…0f00 24 42 41 53 49 53 2d 2d 7a cd 19 4e 7a cd 1d 4e 7b cd 19 4e 7b cd 1d 4e c9 0f 0f 0f 0f e6 0f fe ┆$BASIS--z Nz Næ Næ N ┆
0x0f00…0f20 0a da 26 4e c6 07 c6 30 77 23 c9 49 44 32 27 20 29 3b 26 26 20 20 57 52 49 54 45 4c 4e 28 20 43 ┆ &N 0w# ID2' );&& WRITELN( C┆
0x0f20…0f40 4f 4d 4d 41 4e 44 46 49 4c 45 2c 20 27 3e 41 53 4d 2c 56 49 44 33 27 20 29 3b 26 06 20 20 45 4e ┆OMMANDFILE, '>ASM,VID3' );& EN┆
0x0f40…0f60 44 3b 06 0e 49 46 20 54 54 59 43 4f 4d 20 54 48 45 4e 0e 24 20 20 57 52 49 54 45 4c 4e 28 43 4f ┆D; IF TTYCOM THEN $ WRITELN(CO┆
0x0f60…0f80 4d 4d 41 4e 44 46 49 4c 45 2c 27 3e 41 53 4d 2c 43 4f 4d 4d 55 27 29 3b 24 25 57 52 49 54 45 4c ┆MMANDFILE,'>ASM,COMMU');$%WRITEL┆
0x0f80…0fa0 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c 45 2c 20 27 3e 41 53 4d 2c 4d 44 41 54 41 27 20 29 3b 25 ┆N( COMMANDFILE, '>ASM,MDATA' );%┆
0x0fa0…0fc0 25 57 52 49 54 45 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c 45 2c 20 27 3e 41 53 4d 2c 44 45 46 ┆%WRITELN( COMMANDFILE, '>ASM,DEF┆
0x0fc0…0fe0 4e 44 27 20 29 3b 25 25 57 52 49 54 45 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c 45 2c 20 27 3e ┆ND' );%%WRITELN( COMMANDFILE, '>┆
0x0fe0…1000 41 53 4d 2c 4d 4c 4f 41 44 27 20 29 3b 25 3c 57 52 49 54 45 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 ┆ASM,MLOAD' );%<WRITELN( COMMANDF┆
0x1000…1020 49 4c 45 2c 20 27 3e 4c 49 4e 4b 2c 4d 49 4b 4d 2c 53 30 2c 53 2c 27 2c 20 44 49 53 4b 4e 41 4d ┆ILE, '>LINK,MIKM,S0,S,', DISKNAM┆
0x1020…1040 45 2c 20 27 2c 50 31 27 20 29 3b 3c 30 49 46 20 4e 55 4c 4c 46 20 54 48 45 4e 20 57 52 49 54 45 ┆E, ',P1' );<0IF NULLF THEN WRITE┆
0x1040…1060 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c 45 2c 20 44 49 53 4b 4e 41 4d 45 28 32 29 29 30 2a 20 ┆LN( COMMANDFILE, DISKNAME(2))0* ┆
0x1060…1080 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c ┆ ELSE WRITELN( COMMANDFIL┆
0x1080…10a0 45 2c 20 27 20 27 20 29 3b 2a 1c 57 52 49 54 45 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c 45 2c ┆E, ' ' );* WRITELN( COMMANDFILE,┆
0x10a0…10c0 20 27 30 27 20 29 3b 1c 0d 49 46 20 4d 42 41 4e 4b 20 54 48 45 4e 0d 07 20 20 42 45 47 49 4e 07 ┆ '0' ); IF MBANK THEN BEGIN ┆
0x10c0…10e0 23 20 20 20 20 57 52 49 54 45 4c 4e 28 20 43 4f 4d 4d 41 4e 44 46 49 4c 45 2c 20 27 36 46 46 63 ┆# WRITELN( COMMANDFILE, '6FFc┆