|
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: 1504 (0x5e0)
Notes: Mikados_1
Names: »L4«
└─⟦7ed48040f⟧ Bits:30004666 MIKADOS Utility programs vers. 10/5/84
└─⟦this⟧ »L4«
0x000…020 (0,) 20 20 20 20 20 20 20 20 52 31 20 20 50 31 50 31 84 05 6d 15 1f 11 0c 00 84 05 55 04 55 04 50 31 ┆ R1 P1P1 m U U P1┆
0x020…040 00 40 00 40 90 43 20 20 20 01 00 00 08 0d 00 00 76 76 76 13 76 76 76 76 76 76 76 76 76 76 76 76 ┆ @ @ C vvv vvvvvvvvvvvv┆
0x040…060 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┆
0x060…080 76 76 76 76 76 76 76 76 76 76 4c 34 20 20 20 20 20 20 31 41 00 06 00 00 00 00 00 00 00 79 00 05 ┆vvvvvvvvvvL4 1A y ┆
0x080…0a0 01 02 03 79 00 05 01 00 20 00 26 03 e0 00 a2 00 a2 00 01 b3 79 00 05 76 76 76 4c 34 20 20 20 20 ┆ y & y vvvL4 ┆
0x0a0…0c0 20 20 31 41 00 06 00 00 00 00 00 00 00 79 00 0b 41 fe 01 01 00 00 00 00 00 00 20 20 20 20 20 20 ┆ 1A y A ┆
0x0c0…0e0 20 20 52 31 20 20 50 31 50 31 84 05 6d 15 1f 11 0c 00 84 05 55 04 55 04 50 31 00 40 00 40 90 43 ┆ R1 P1P1 m U U P1 @ @ C┆
0x0e0…100 cd 12 43 cd 79 43 2a 45 43 23 23 5e 23 56 eb 22 0e 43 21 43 04 22 10 43 3a 52 01 a7 ca 2b 40 0e ┆ C yC*EC##^#V " C!C " C:R +@ ┆
0x100…120 00 0c 1f d2 21 40 79 07 07 07 07 f6 01 32 08 43 21 01 00 e5 21 20 20 e5 21 f8 42 e5 cd 94 00 a7 ┆ !@y 2 C! ! ! B ┆
0x120…140 ca 6b 40 21 f4 01 cd 8e 00 cd 79 43 d2 30 40 3e 02 01 60 40 11 0b 00 2a 4b 43 cd 91 00 cd a6 00 ┆ k@! yC 0@> `@ *KC ┆
0x140…160 4c 34 20 61 62 6f 72 74 65 64 2e 11 00 43 21 51 43 06 09 7e fe 3a ca 94 40 fe 2c ca b1 40 fe 20 ┆L4 aborted. C!QC ü : @ , @ ┆
0x160…180 ca bf 40 fe 61 da 8a 40 e6 5f 12 05 ca 74 41 23 13 c3 73 40 23 7e fe 70 ca a0 40 fe 50 c2 7d 41 ┆ @ a @ _ tA# s@#ü p @ P åA┆
0x180…1a0 23 7e 32 09 43 23 7e fe 20 ca bf 40 fe 2c c2 6b 41 23 22 0a 43 11 78 43 cd 6d 00 19 22 0c 43 06 ┆#ü2 C#ü @ , kA#" C xC m " C ┆
0x1a0…1c0 05 11 00 43 cd a0 00 a7 c2 86 41 c5 eb 22 8c 01 cd 5e 00 d5 eb 2a 45 43 eb 73 23 72 23 eb 2a 0a ┆ C A " ^ *EC s#r# * ┆
0x1c0…1e0 43 44 4d 2a 0c 43 eb 7b b2 ca 07 41 e5 eb c5 cd 9a 00 7b b2 ca 95 41 7b a2 3c ca 9e 41 45 e3 eb ┆CDM* C æ A æ Aæ < AE ┆
0x1e0…200 e5 cd 73 00 c1 d1 e1 71 23 70 23 73 23 72 23 eb 2a 4b 43 eb 73 23 72 23 eb 2a 10 43 eb 73 23 72 ┆ s q#p#s#r# *KC s#r# * C s#r┆
0x200…220 23 eb 2a 4b 43 eb 73 23 72 23 e1 c1 cd ac 00 2a 45 43 01 06 00 09 7e e6 f0 0f 0f 0f 0f 47 3e 04 ┆# *KC s#r# *EC ü G> ┆
0x220…240 2a 10 43 cd 91 00 01 bd 41 11 02 00 3e 02 2a 4b 43 cd 91 00 2a 50 01 11 04 00 19 36 02 3e 29 01 ┆* C A > *KC *P 6 >) ┆
0x240…260 01 04 cd a3 00 01 e3 03 cd b2 00 01 bf 41 11 18 00 c3 a7 41 01 d7 41 11 15 00 c3 a7 41 01 ec 41 ┆ A A A A A┆
0x260…280 11 1b 00 c3 a7 41 21 14 42 cd 40 00 01 07 42 11 24 00 c3 a7 41 01 2b 42 11 64 00 c3 a7 41 01 8f ┆ A! B @ B $ A +B d A ┆
0x280…2a0 42 11 69 00 c3 a7 41 3e 02 2a 4b 43 cd 91 00 21 20 20 e5 21 f8 42 e5 cd 97 00 cd a6 00 4f 4b 49 ┆B i A> *KC ! ! B OKI┆
0x2a0…2c0 6c 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 20 73 74 72 69 6e 67 50 72 6f 67 72 61 6d 20 6e ┆llegal parameter stringProgram n┆
0x2c0…2e0 61 6d 65 20 74 6f 6f 20 6c 6f 6e 67 49 6c 6c 65 67 61 6c 20 64 69 73 6b 20 69 64 65 6e 74 69 66 ┆ame too longIllegal disk identif┆
0x2e0…300 69 63 61 74 69 6f 6e 45 72 72 6f 72 20 6e 75 6d 62 65 72 20 76 76 20 64 75 72 69 6e 67 20 70 72 ┆icationError number vv during pr┆
0x300…320 6f 67 72 61 6d 20 73 74 61 72 74 4e 6f 20 61 72 65 61 20 66 6f 72 20 70 61 72 61 6d 65 74 65 72 ┆ogram startNo area for parameter┆
0x320…340 20 73 74 72 69 6e 67 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 4d 49 4b 41 44 4f 53 20 73 79 73 74 ┆ string available. MIKADOS syst┆
0x340…360 65 6d 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e 20 63 6f 72 72 75 70 74 65 64 3b 0d 0a 72 65 73 ┆em may have been corrupted; res┆
0x360…380 74 61 72 74 20 61 64 76 69 73 61 62 6c 65 2e 45 72 72 6f 72 20 64 75 72 69 6e 67 20 6d 65 6d 6f ┆tart advisable.Error during memo┆
0x380…3a0 72 79 20 61 6c 6c 6f 63 61 74 65 20 66 6f 72 20 70 61 72 61 6d 65 74 65 72 73 2e 0d 0a 4d 49 4b ┆ry allocate for parameters. MIK┆
0x3a0…3c0 41 44 4f 53 20 73 79 73 74 65 6d 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e 20 63 6f 72 72 75 70 ┆ADOS system may have been corrup┆
0x3c0…3e0 74 65 64 3b 0d 0a 72 65 73 74 61 72 74 20 61 64 76 69 73 61 62 6c 65 2e 50 52 49 4e 54 45 52 34 ┆ted; restart advisable.PRINTER4┆
0x3e0…400 20 20 20 20 20 20 20 20 76 31 00 00 00 00 76 76 76 76 21 43 43 cd 70 00 3e 28 21 51 43 cd 55 00 ┆ v1 vvvv!CC p >(!QC U ┆
0x400…420 2a 47 43 7c b5 c8 eb 3a 49 43 fe 28 da 31 43 3e 28 47 21 51 43 cd 73 00 2a 47 43 eb 2a 49 43 cd ┆*GCø :IC ( 1C>(G!QC s *GC *IC ┆
0x420…440 9d 00 c9 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 ┆ vvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x440…460 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 d5 e5 2a 45 43 5e 23 ┆vvvvvvvvvvvvvvvvvvvvvvvvv *EC^#┆
0x460…480 56 21 06 00 19 f3 7e 36 00 fb e1 d1 a7 c8 37 c9 20 20 47 45 54 28 4b 55 52 56 45 54 29 3b 17 1f ┆V! ü6 7 GET(KURVET); ┆
0x480…4a0 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 55 52 56 45 54 5e 20 3e 3d 20 30 20 54 48 45 4e 1f ┆ IF KURVET^ >= 0 THEN ┆
0x4a0…4c0 12 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 12 23 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN # ┆
0x4c0…4e0 20 20 59 4b 4f 3a 3d 4b 55 52 56 45 54 5e 20 4d 4f 44 20 32 30 34 38 3b 23 29 20 20 20 20 20 20 ┆ YKO:=KURVET^ MOD 2048;#) ┆
0x4e0…500 20 20 20 20 20 20 20 4d 5b 52 4b 45 3a 3d 28 4b 55 52 56 45 54 5e 20 44 49 56 20 32 30 34 38 29 ┆ MÆRKE:=(KURVET^ DIV 2048)┆
0x500…520 2d 31 3b 29 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 59 2d 4b 4f 4f ┆-1;)/ WRITELN('Y-KOO┆
0x520…540 52 44 49 4e 41 54 45 4e 20 45 52 3a 20 27 2c 59 4b 4f 29 3b 2f 1f 20 20 20 20 20 20 20 20 20 20 ┆RDINATEN ER: ',YKO);/ ┆
0x540…560 20 20 20 49 46 20 4d 5b 52 4b 45 20 3e 3d 20 30 20 54 48 45 4e 1f 43 20 20 20 20 20 20 20 20 20 ┆ IF MÆRKE >= 0 THEN C ┆
0x560…580 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 4f 4f 52 44 49 4e 41 54 53 5b 54 54 45 54 20 45 ┆ WRITELN('KOORDINATSÆTTET E┆
0x580…5a0 52 20 4d 5b 52 4b 45 54 20 4d 45 44 20 4e 52 2e 3a 20 27 2c 4d 5b 52 4b 45 29 43 11 20 20 20 20 ┆R MÆRKET MED NR.: ',MÆRKE)C ┆
0x5a0…5c0 20 20 20 20 20 20 20 20 20 45 4c 53 45 11 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 ┆ ELSE 9 WR┆
0x5c0…5e0 49 54 45 4c 4e 28 27 4b 4f 4f 52 44 49 4e 41 54 53 5b 54 54 45 54 20 45 52 20 49 4b 4b 45 20 63 ┆ITELN('KOORDINATSÆTTET ER IKKE c┆