|
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«
└─⟦8b7ba91bd⟧ Bits:30003596 MIK/MIKADOS diskette DDE COMAL-80 version 2.2, Pascal kildetekster
└─⟦this⟧ »L4«
0x000…020 (0,) 20 20 20 20 20 20 50 32 52 31 4d 20 50 32 50 31 1f 04 ed 02 b3 0f 10 00 55 04 55 04 55 04 50 31 ┆ P2R1M P2P1 U U U P1┆
0x020…040 00 40 00 40 79 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 ┆ @ @yC 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 65 01 03 ┆vvvvvvvvvvL4 1A e ┆
0x080…0a0 01 02 03 65 01 03 01 00 20 00 34 03 e0 00 a2 00 a2 00 01 b3 65 01 03 76 76 76 4c 34 20 20 20 20 ┆ e 4 e vvvL4 ┆
0x0a0…0c0 20 20 31 41 00 06 00 00 00 00 00 00 00 65 01 09 41 78 01 01 00 00 00 00 00 00 20 20 20 20 20 20 ┆ 1A e Ax ┆
0x0c0…0e0 50 32 52 31 4d 20 50 32 50 31 1f 04 ed 02 b3 0f 10 00 55 04 55 04 55 04 50 31 00 40 00 40 79 43 ┆P2R1M P2P1 U U U P1 @ @yC┆
0x0e0…100 cd fb 42 cd 62 43 2a 2e 43 23 23 5e 23 56 eb 22 f7 42 21 43 04 22 f9 42 3a 52 01 a7 ca 2b 40 0e ┆ B bC*.C##^#V " B!C " B:R +@ ┆
0x100…120 00 0c 1f d2 21 40 79 07 07 07 07 f6 01 32 f1 42 21 01 00 e5 21 20 20 e5 21 e1 42 e5 cd 94 00 a7 ┆ !@y 2 B! ! ! B ┆
0x120…140 ca 6b 40 21 f4 01 cd 8e 00 cd 62 43 d2 30 40 3e 02 01 60 40 11 0b 00 2a 34 43 cd 91 00 cd a6 00 ┆ k@! bC 0@> `@ *4C ┆
0x140…160 4c 34 20 61 62 6f 72 74 65 64 2e 11 e9 42 21 3a 43 06 09 7e fe 3a ca 94 40 fe 2c ca b1 40 fe 20 ┆L4 aborted. B!:C ü : @ , @ ┆
0x160…180 ca bf 40 fe 61 da 8a 40 e6 5f 12 05 ca 5d 41 23 13 c3 73 40 23 7e fe 70 ca a0 40 fe 50 c2 66 41 ┆ @ a @ _ ÅA# s@#ü p @ P fA┆
0x180…1a0 23 7e 32 f2 42 23 7e fe 20 ca bf 40 fe 2c c2 54 41 23 22 f3 42 11 61 43 cd 6d 00 19 22 f5 42 06 ┆#ü2 B#ü @ , TA#" B aC m " B ┆
0x1a0…1c0 05 11 e9 42 cd a0 00 a7 c2 6f 41 c5 eb 22 8c 01 cd 5e 00 d5 eb 2a 2e 43 eb 73 23 72 23 eb 2a f3 ┆ B oA " ^ *.C s#r# * ┆
0x1c0…1e0 42 44 4d 2a f5 42 eb 7b b2 ca 07 41 e5 eb c5 cd 9a 00 7b b2 ca 7e 41 7b a2 3c ca 87 41 45 e3 eb ┆BDM* B æ A æ üAæ < AE ┆
0x1e0…200 e5 cd 73 00 c1 d1 e1 71 23 70 23 73 23 72 23 eb 2a 34 43 eb 73 23 72 23 eb 2a f9 42 eb 73 23 72 ┆ s q#p#s#r# *4C s#r# * B s#r┆
0x200…220 23 eb 2a 34 43 eb 73 23 72 23 e1 c1 cd ac 00 01 a6 41 11 02 00 3e 02 2a 34 43 cd 91 00 2a 50 01 ┆# *4C s#r# A > *4C *P ┆
0x220…240 11 04 00 19 36 02 3e 29 01 01 04 cd a3 00 01 e3 03 cd b2 00 01 a8 41 11 18 00 c3 90 41 01 c0 41 ┆ 6 >) A A A┆
0x240…260 11 15 00 c3 90 41 01 d5 41 11 1b 00 c3 90 41 21 fd 41 cd 40 00 01 f0 41 11 24 00 c3 90 41 01 14 ┆ A A A! A @ A $ A ┆
0x260…280 42 11 64 00 c3 90 41 01 78 42 11 69 00 c3 90 41 3e 02 2a 34 43 cd 91 00 21 20 20 e5 21 e1 42 e5 ┆B d A xB i A> *4C ! ! B ┆
0x280…2a0 cd 97 00 cd a6 00 4f 4b 49 6c 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 20 73 74 72 69 6e 67 ┆ OKIllegal parameter string┆
0x2a0…2c0 50 72 6f 67 72 61 6d 20 6e 61 6d 65 20 74 6f 6f 20 6c 6f 6e 67 49 6c 6c 65 67 61 6c 20 64 69 73 ┆Program name too longIllegal dis┆
0x2c0…2e0 6b 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 45 72 72 6f 72 20 6e 75 6d 62 65 72 20 76 76 20 ┆k identificationError number vv ┆
0x2e0…300 64 75 72 69 6e 67 20 70 72 6f 67 72 61 6d 20 73 74 61 72 74 4e 6f 20 61 72 65 61 20 66 6f 72 20 ┆during program startNo area for ┆
0x300…320 70 61 72 61 6d 65 74 65 72 20 73 74 72 69 6e 67 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 4d 49 4b ┆parameter string available. MIK┆
0x320…340 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┆
0x340…360 74 65 64 3b 0d 0a 72 65 73 74 61 72 74 20 61 64 76 69 73 61 62 6c 65 2e 45 72 72 6f 72 20 64 75 ┆ted; restart advisable.Error du┆
0x360…380 72 69 6e 67 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 65 20 66 6f 72 20 70 61 72 61 6d 65 74 ┆ring memory allocate for paramet┆
0x380…3a0 65 72 73 2e 0d 0a 4d 49 4b 41 44 4f 53 20 73 79 73 74 65 6d 20 6d 61 79 20 68 61 76 65 20 62 65 ┆ers. MIKADOS system may have be┆
0x3a0…3c0 65 6e 20 63 6f 72 72 75 70 74 65 64 3b 0d 0a 72 65 73 74 61 72 74 20 61 64 76 69 73 61 62 6c 65 ┆en corrupted; restart advisable┆
0x3c0…3e0 2e 50 52 49 4e 54 45 52 34 20 20 20 20 20 20 20 20 76 31 00 00 00 00 76 76 76 76 21 2c 43 cd 70 ┆.PRINTER4 v1 vvvv!,C p┆
0x3e0…400 00 3e 28 21 3a 43 cd 55 00 2a 30 43 7c b5 c8 eb 3a 32 43 fe 28 da 1a 43 3e 28 47 21 3a 43 cd 73 ┆ >(!:C U *0Cø :2C ( C>(G!:C s┆
0x400…420 00 2a 30 43 eb 2a 32 43 cd 9d 00 c9 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆ *0C *2C vvvvvvvvvvvvvvvvvvvv┆
0x420…440 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┆
0x440…460 76 76 d5 e5 2a 2e 43 5e 23 56 21 06 00 19 f3 7e 36 00 fb e1 d1 a7 c8 37 c9 4b 55 52 56 45 54 2c ┆vv *.C^#V! ü6 7 KURVET,┆
0x460…480 58 4b 4f 29 3b 1c 17 20 20 20 20 20 20 20 20 20 20 20 47 45 54 28 4b 55 52 56 45 54 29 3b 17 1f ┆XKO); 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┆