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 - metrics - download

⟦0668d494d⟧

    Length: 2496 (0x9c0)
    Notes: Mikados_R
    Names: »A«

Derivation

└─⟦eac5e1fdf⟧ Bits:30004669/disk3.imd MIKADOS Utility Programs (Relocatable)
    └─⟦this⟧ »A« 

Hex Dump

0x000…020 (0,) 13 02 41 20 20 20 20 20 20 20 02 de 02 01 00 00 ff 02 00 00 13 0d 05 56 49 4e 49 54 20 20 20 01   ┆  A                    VINIT    ┆
0x020…040      00 02 01 0d 0d 05 42 52 4b 54 53 20 20 20 02 00 02 01 0d 0d 05 54 4d 50 49 4c 20 20 20 03 00 02   ┆      BRKTS          TMPIL      ┆
0x040…060      01 0d 0d 05 50 31 4d 45 53 20 20 20 04 00 02 01 0d 0d 05 52 45 53 52 56 20 20 20 05 00 02 01 0d   ┆    P1MES          RESRV        ┆
0x060…080      0d 05 56 45 4e 54 54 20 20 20 06 00 02 01 0d 0d 05 43 53 45 4d 41 20 20 20 07 00 02 01 0d 0d 05   ┆  VENTT          CSEMA          ┆
0x080…0a0      56 53 45 4e 44 20 20 20 08 00 02 01 0d 0d 05 45 58 49 54 20 20 20 20 09 00 02 01 0d 0d 05 50 41   ┆VSEND          EXIT           PA┆
0x0a0…0c0      52 41 4d 20 20 20 0a 00 02 01 0d 0d 05 49 4e 56 48 20 20 20 20 0b 00 02 01 0d 0d 05 53 54 50 52   ┆RAM          INVH           STPR┆
0x0c0…0e0      43 20 20 20 0c 00 02 01 0d 0d 05 50 52 52 45 53 20 20 20 0d 00 02 01 0d 0d 05 46 5d 49 4e 49 20   ┆C          PRRES          FÅINI ┆
0x0e0…100      20 20 0e 00 02 01 0d 0d 05 41 4c 4c 4f 43 20 20 20 0f 00 02 01 0d 0d 05 4d 4f 56 45 20 20 20 20   ┆         ALLOC          MOVE    ┆
0x100…120      10 00 02 01 0d 0d 05 53 45 4e 44 20 20 20 20 11 00 02 01 0d 0d 05 52 55 4e 4e 20 20 20 20 12 00   ┆       SEND           RUNN      ┆
0x120…140      02 01 0d 0d 05 50 4f 4f 4c 20 20 20 20 13 00 02 01 0d 0d 05 48 4c 53 4e 44 20 20 20 14 00 02 01   ┆     POOL           HLSND       ┆
0x140…160      0d 0d 05 41 53 45 4d 41 20 20 20 15 00 02 01 0d 0d 05 57 41 49 54 20 20 20 20 16 00 02 01 0d 0d   ┆   ASEMA          WAIT          ┆
0x160…180      05 41 53 43 49 49 20 20 20 17 00 02 01 0d 0d 05 52 45 4c 53 45 20 20 20 18 00 02 01 0d 02 08 cd   ┆ ASCII          RELSE           ┆
0x180…1a0      02 05 0b 01 00 00 00 05 02 08 cd 02 05 0b 02 00 00 00 05 02 08 2a 02 05 0b 03 00 00 00 05 08 08   ┆                     *          ┆
0x1a0…1c0      23 23 5e 23 56 eb 22 08 04 0a 02 da 02 04 02 08 21 02 05 0b 04 00 00 00 05 02 08 22 02 04 0a 02   ┆##^#V "         !          "    ┆
0x1c0…1e0      dc 02 04 07 08 eb 23 23 23 7e 32 07 04 0a 02 d4 02 04 0a 08 21 01 00 e5 21 20 20 e5 21 0a 04 0a   ┆      ###ü2         !   !   !   ┆
0x1e0…200      02 c4 02 04 03 08 e5 cd 03 05 0b 05 00 00 00 05 03 08 a7 ca 03 04 0a 02 5a 00 04 05 08 21 f4 01   ┆                        Z    !  ┆
0x200…220      cd 05 05 0b 06 00 00 00 05 02 08 cd 02 05 0b 02 00 00 00 05 02 08 d2 02 04 0a 02 20 00 04 04 08   ┆                                ┆
0x220…240      3e 02 01 04 04 0a 02 50 00 04 05 08 11 0a 00 2a 05 05 0b 07 00 00 00 05 02 08 cd 02 05 0b 08 00   ┆>      P       *                ┆
0x240…260      00 00 05 02 08 cd 02 05 0b 09 00 00 00 05 0c 08 41 20 61 62 6f 72 74 65 64 2e 11 0c 04 0a 02 cc   ┆                A aborted.      ┆
0x260…280      02 04 02 08 21 02 05 0b 0a 00 00 00 05 07 08 06 09 7e fe 3a ca 07 04 0a 02 7c 00 04 04 08 fe 2c   ┆    !            ü :     ø     ,┆
0x280…2a0      ca 04 04 0a 02 94 00 04 04 08 fe 20 ca 04 04 0a 02 a2 00 04 04 08 12 05 ca 04 04 0a 02 40 01 04   ┆                             @  ┆
0x2a0…2c0      04 08 23 13 c3 04 04 0a 02 62 00 04 06 08 23 7e fe 50 c2 06 04 0a 02 49 01 04 04 08 23 7e 32 04   ┆  #      b    #ü P     I    #ü2 ┆
0x2c0…2e0      04 0a 02 d5 02 04 06 08 23 7e fe 20 ca 06 04 0a 02 a2 00 04 04 08 fe 2c c2 04 04 0a 02 37 01 04   ┆        #ü             ,     7  ┆
0x2e0…300      03 08 23 22 03 04 0a 02 d6 02 04 02 08 11 02 05 0b 0a 00 27 00 05 02 08 cd 02 05 0b 0b 00 00 00   ┆  #"               '            ┆
0x300…320      05 03 08 19 22 03 04 0a 02 d8 02 04 04 08 06 05 11 04 04 0a 02 cc 02 04 02 08 cd 02 05 0b 0c 00   ┆    "                           ┆
0x320…340      00 00 05 03 08 a7 c2 03 04 0a 02 52 01 04 04 08 c5 eb 22 04 05 0b 0d 00 00 00 05 02 08 cd 02 05   ┆           R      "             ┆
0x340…360      0b 0e 00 00 00 05 04 08 d5 eb 2a 04 05 0b 03 00 00 00 05 08 08 eb 73 23 72 23 eb 2a 08 04 0a 02   ┆          *           s#r# *    ┆
0x360…380      d6 02 04 04 08 44 4d 2a 04 04 0a 02 d8 02 04 05 08 eb 7b b2 ca 05 04 0a 02 ea 00 04 05 08 e5 eb   ┆     DM*          æ             ┆
0x380…3a0      c5 cd 05 05 0b 0f 00 00 00 05 04 08 7b b2 ca 04 04 0a 02 61 01 04 05 08 7b a2 3c ca 05 04 0a 02   ┆            æ      a    æ <     ┆
0x3a0…3c0      6a 01 04 06 08 45 e3 eb e5 cd 06 05 0b 10 00 00 00 05 0e 08 c1 d1 e1 71 23 70 23 73 23 72 23 eb   ┆j    E                 q#p#s#r# ┆
0x3c0…3e0      2a 0e 05 0b 07 00 00 00 05 08 08 eb 73 23 72 23 eb 2a 08 04 0a 02 dc 02 04 08 08 eb 73 23 72 23   ┆*           s#r# *          s#r#┆
0x3e0…400      eb 2a 08 04 0a 02 dc 02 04 09 08 eb 73 23 72 23 e1 c1 cd 09 05 0b 11 00 00 00 05 02 08 01 02 04   ┆ *          s#r#                ┆
0x400…420      0a 02 89 01 04 07 08 11 02 00 3e 02 2a 07 05 0b 07 00 00 00 05 02 08 cd 02 05 0b 08 00 00 00 05   ┆          > *                   ┆
0x420…440      02 08 2a 02 05 0b 12 00 00 00 05 0a 08 11 04 00 19 36 02 3e 29 01 0a 05 0b 13 00 00 00 05 02 08   ┆  *              6 >)           ┆
0x440…460      cd 02 05 0b 14 00 00 00 05 02 08 01 02 05 0b 15 00 ee ff 05 02 08 cd 02 05 0b 16 00 00 00 05 02   ┆                                ┆
0x460…480      08 01 02 04 0a 02 8b 01 04 05 08 11 18 00 c3 05 04 0a 02 73 01 04 02 08 01 02 04 0a 02 a3 01 04   ┆                   s            ┆
0x480…4a0      05 08 11 15 00 c3 05 04 0a 02 73 01 04 02 08 01 02 04 0a 02 b8 01 04 05 08 11 1b 00 c3 05 04 0a   ┆          s                     ┆
0x4a0…4c0      02 73 01 04 02 08 21 02 04 0a 02 e0 01 04 02 08 cd 02 05 0b 17 00 00 00 05 02 08 01 02 04 0a 02   ┆ s    !                         ┆
0x4c0…4e0      d3 01 04 05 08 11 24 00 c3 05 04 0a 02 73 01 04 02 08 01 02 04 0a 02 f7 01 04 05 08 11 64 00 c3   ┆      $      s               d  ┆
0x4e0…500 (1,) 05 04 0a 02 73 01 04 02 08 01 02 04 0a 02 5b 02 04 05 08 11 69 00 c3 05 04 0a 02 73 01 04 04 08   ┆    s         Æ     i      s    ┆
0x500…520      3e 02 2a 04 05 0b 07 00 00 00 05 02 08 cd 02 05 0b 08 00 00 00 05 06 08 21 20 20 e5 21 06 04 0a   ┆> *                     !   !   ┆
0x520…540      02 c4 02 04 03 08 e5 cd 03 05 0b 18 00 00 00 05 02 08 cd 02 05 0b 09 00 00 00 05 48 08 4f 4b 49   ┆                           H OKI┆
0x540…560      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┆
0x560…580      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┆
0x580…5a0      69 63 61 74 48 11 08 69 6f 6e 45 72 72 6f 72 20 6e 75 6d 62 65 72 20 11 03 09 02 00 03 48 08 20   ┆icatH  ionError number       H  ┆
0x5a0…5c0      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 ┆
0x5c0…5e0      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┆
0x5e0…600      41 44 4f 53 20 73 48 48 08 79 73 74 65 6d 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e 20 63 6f 72   ┆ADOS sHH ystem may have been cor┆
0x600…620      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 2e 45 72 72 6f 72   ┆rupted;  restart advisable.Error┆
0x620…640      20 64 75 72 69 6e 67 20 6d 65 6d 6f 72 79 20 61 48 48 08 6c 6c 6f 63 61 74 65 20 66 6f 72 20 70   ┆ during memory aHH llocate for p┆
0x640…660      61 72 61 6d 65 74 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   ┆arameters.  MIKADOS system may h┆
0x660…680      61 76 65 20 62 65 65 6e 20 63 6f 72 72 75 70 74 65 64 3b 0d 0a 72 65 73 74 61 48 1e 08 72 74 20   ┆ave been corrupted;  restaH  rt ┆
0x680…6a0      61 64 76 69 73 61 62 6c 65 2e 50 52 49 4e 54 45 52 31 20 20 20 20 20 20 20 20 1e 03 09 01 00 03   ┆advisable.PRINTER1              ┆
0x6a0…6c0      06 08 31 00 00 00 00 06 03 09 04 00 03 02 0f 00 02 00 00 20 20 20 20 50 53 45 4d 41 15 0c 20 20   ┆  1                    PSEMA    ┆
0x6c0…6e0      20 20 20 20 20 20 58 43 48 47 0c 11 20 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 11 35 20   ┆      XCHG          INX     H 5 ┆
0x6e0…700      20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 41 44 44 52   ┆       INX     H       ;HL->ADDR┆
0x700…720      45 53 53 20 4f 46 20 22 50 22 20 53 45 4d 41 50 48 4f 52 45 35 01 20 01 2d 20 20 20 20 20 20 20   ┆ESS OF "P" SEMAPHORE5   -       ┆
0x720…740      20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 42 41 4e 4b 2f 52 45 47 49 4f   ┆ INX     H       ;HL->BANK/REGIO┆
0x740…760      4e 20 43 4f 44 45 2d 13 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 13 14 20 20 20   ┆N CODE-         MOV     A,M     ┆
0x760…780      20 20 20 20 20 53 54 41 20 20 20 20 20 42 41 4e 4b 14 01 20 01 01 3b 01 12 3b 20 52 65 73 65 72   ┆     STA     BANK     ;  ; Reser┆
0x780…7a0      76 65 20 72 65 73 6f 75 72 63 65 12 01 3b 01 01 20 01 04 52 45 53 3a 04 3b 20 20 20 20 20 20 20   ┆ve resource  ;     RES: ;       ┆
0x7a0…7c0      20 4c 58 49 20 20 20 20 20 48 2c 31 20 20 20 20 20 3b 45 58 43 4c 55 53 49 56 45 20 52 45 53 45   ┆ LXI     H,1     ;EXCLUSIVE RESE┆
0x7c0…7e0      41 20 20 20 20 20 20 20 4b 42 01 08 00 0f 00 08 0e 00 01 0f 00 08 41 0b 00 3d 00 20 20 20 20 20   ┆A       KB            A  =      ┆
0x7e0…800      52 56 41 54 49 4f 4e 20 57 49 54 48 4f 55 54 20 57 41 49 54 3b 11 20 20 20 20 20 20 20 20 50 55   ┆RVATION WITHOUT WAIT;         PU┆
0x800…820      53 48 20 20 20 20 48 11 3f 20 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 27 20 20 27 20   ┆SH    H ?        LXI     H,'  ' ┆
0x820…840      20 3b 48 4c 3a 3d 32 20 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 53 20 4f 46 20 52 45 53 4f 55   ┆ ;HL:=2 LAST CHARACTERS OF RESOU┆
0x840…860      52 43 45 20 4e 41 4d 45 3f 11 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 11 40 20 20 20   ┆RCE NAME?         PUSH    H @   ┆
0x860…880      20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 50 52 49 4e 54 20 3b 48 4c 2d 3e 38 20 46 49 52 53   ┆     LXI     H,PRINT ;HL->8 FIRS┆
0x880…8a0      54 20 43 48 41 52 41 43 54 45 52 53 20 4f 46 20 52 45 53 4f 55 52 43 45 20 4e 41 4d 45 40 11 20   ┆T CHARACTERS OF RESOURCE NAME@  ┆
0x8a0…8c0      20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 11 15 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20   ┆       PUSH    H          CALL  ┆
0x8c0…8e0      20 20 52 45 53 52 56 15 28 20 20 20 20 20 20 20 20 41 4e 41 20 20 20 20 20 41 20 20 20 20 20 20   ┆  RESRV (        ANA     A      ┆
0x8e0…900      20 3b 52 45 53 45 52 56 41 54 49 4f 4e 20 4f 4b 3f 28 1c 20 20 20 20 20 20 20 20 4a 5a 20 20 20   ┆ ;RESERVATION OK?(         JZ   ┆
0x900…920      20 20 20 52 45 53 45 4e 44 20 20 3b 59 45 53 1c 2b 20 20 20 20 20 20 20 20 4c 58 49 20 20 20 20   ┆   RESEND  ;YES +        LXI    ┆
0x920…940      20 48 2c 23 35 30 30 20 20 3b 4e 4f 2c 20 57 41 49 54 20 35 20 53 45 43 4f 4e 44 53 2b 15 20 20   ┆ H,#500  ;NO, WAIT 5 SECONDS+   ┆
0x940…960      20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 56 45 4e 54 54 15 26 20 20 20 20 20 20 20 20 43 41 4c   ┆      CALL    VENTT &        CAL┆
0x960…980      4c 20 20 20 20 42 52 4b 54 53 20 20 20 3b 3e 2e 42 52 20 45 4e 54 45 52 45 44 3f 26 1b 20 20 20   ┆L    BRKTS   ;>.BR ENTERED?&    ┆
0x980…9a0      20 20 20 20 20 4a 4e 43 20 20 20 20 20 52 45 53 20 20 20 20 20 3b 4e 4f 1b 1c 20 20 20 20 20 20   ┆     JNC     RES     ;NO        ┆
0x9a0…9c0      20 20 4d 56 49 20 20 20 20 20 41 2c 32 20 20 20 20 20 3b 59 45 53 1c 17 20 20 20 20 20 20 20 20   ┆  MVI     A,2     ;YES          ┆