DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦4b8a0dadb⟧

    Length: 1504 (0x5e0)
    Notes: Mikados_1
    Names: »A1«

Derivation

└─⟦8b7ba91bd⟧ Bits:30003596 MIK/MIKADOS diskette DDE COMAL-80 version 2.2, Pascal kildetekster
    └─⟦this⟧ »A1« 

Hex Dump

0x000…020 (0,) 20 20 20 20 20 20 50 32 52 31 20 20 50 31 50 31 1f 04 fb 02 96 0f 0f 00 61 04 61 04 61 04 50 31   ┆      P2R1  P1P1        a a a 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 41 31 20 20 20 20 20 20 31 41 00 06 00 00 00 00 00 00 00 51 01 03   ┆vvvvvvvvvvA1      1A         Q  ┆
0x080…0a0      01 02 03 51 01 03 01 00 20 00 26 03 e0 00 22 00 22 00 01 be 51 01 03 76 76 76 41 31 20 20 20 20   ┆   Q      &   " "   Q  vvvA1    ┆
0x0a0…0c0      20 20 31 41 00 06 00 00 00 00 00 00 00 51 01 09 00 00 00 01 00 00 00 00 00 00 20 20 20 20 20 20   ┆  1A         Q                  ┆
0x0c0…0e0      50 32 52 31 20 20 50 31 50 31 1f 04 fb 02 96 0f 0f 00 61 04 61 04 61 04 50 31 00 40 00 40 79 43   ┆P2R1  P1P1        a a a P1 @ @yC┆
0x0e0…100      cd fb 42 cd 62 43 2a 2e 43 23 23 5e 23 56 eb 22 f7 42 21 31 04 22 f9 42 3a 52 01 a7 ca 2b 40 0e   ┆  B bC*.C##^#V " B!1 " 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      41 31 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   ┆A1 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 86 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 f9 42 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   ┆# * B 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 31 20 20 20 20 20 20 20 20 76 31 00 00 00 00 76 76 76 76 21 2c 43 cd 70   ┆.PRINTER1        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 20 20 3b 20 4c 41 47   ┆vv  *.C^#V!    ü6      7   ; LAG┆
0x460…480      52 20 56 45 4e 53 54 52 45 50 41 52 41 4e 54 45 53 2d 2b 20 20 20 20 20 20 43 41 4c 4c 20 4c 4f   ┆R VENSTREPARANTES-+      CALL LO┆
0x480…4a0      55 44 20 20 20 20 20 20 20 20 3b 20 4b 41 4c 44 20 4c 4f 47 49 53 4b 20 55 44 54 52 59 4b 2b 22   ┆UD        ; KALD LOGISK UDTRYK+"┆
0x4a0…4c0      20 20 20 20 20 20 50 55 53 48 20 50 53 57 20 20 20 20 20 20 20 20 20 3b 20 53 54 41 4b 20 46 4c   ┆      PUSH PSW         ; STAK FL┆
0x4c0…4e0      41 47 22 2b 20 20 20 20 20 20 43 41 4c 4c 20 54 48 50 41 20 20 20 20 20 20 20 20 3b 20 54 45 53   ┆AG"+      CALL THPA        ; TES┆
0x4e0…500      54 20 48 5c 4a 52 45 50 41 52 41 4e 54 45 53 2b 26 20 20 20 20 20 20 50 4f 50 20 20 50 53 57 20   ┆T HØJREPARANTES+&      POP  PSW ┆
0x500…520      20 20 20 20 20 20 20 20 3b 20 52 45 54 41 42 4c 45 52 20 46 4c 41 47 26 42 20 20 20 20 20 20 4a   ┆        ; RETABLER FLAG&B      J┆
0x520…540      4e 5a 20 20 4c 4f 55 35 20 20 20 20 20 20 20 20 3b 20 4c 4f 47 49 53 4b 20 55 44 54 52 59 4b 20   ┆NZ  LOU5        ; LOGISK UDTRYK ┆
0x540…560      46 55 4e 44 45 54 20 48 4f 50 20 54 49 4c 20 4c 4f 47 4f 50 45 52 41 54 49 4f 4e 42 44 20 20 20   ┆FUNDET HOP TIL LOGOPERATIONBD   ┆
0x560…580      20 20 20 43 41 4c 4c 20 4f 50 45 52 20 20 20 20 20 20 20 20 3b 20 49 4b 4b 45 20 46 55 4e 44 45   ┆   CALL OPER        ; IKKE FUNDE┆
0x580…5a0      54 20 4b 41 4c 44 20 4f 50 45 52 41 54 4f 52 20 49 20 41 52 49 54 4d 49 53 4b 20 55 44 54 52 59   ┆T KALD OPERATOR I ARITMISK UDTRY┆
0x5a0…5c0      4b 44 37 20 20 20 20 20 20 4a 4d 50 20 20 4c 4f 55 34 20 20 20 20 20 20 20 20 3b 20 48 4f 50 20   ┆KD7      JMP  LOU4        ; HOP ┆
0x5c0…5e0      54 49 4c 20 54 45 53 54 20 52 45 4c 41 54 49 4f 4e 53 4f 50 45 52 41 54 4f 52 37 01 3b 01 2a 63   ┆TIL TEST RELATIONSOPERATOR7 ; *c┆