DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ 5

⟦eaaf29585⟧

    Length: 2964 (0xb94)
    Names: »5«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

Hex Dump

0x000…020 00 00 00 02 01 00 00 00 89 02 00 00 00 0a 00 0a 00 03 1d c5 80 62 00 07 00 09 00 09 54 45 53 54   ┆                     b      TEST┆
0x020…040 5f 46 49 46 4f 00 07 00 0b 55 54 49 4c 49 53 41 54 49 4f 4e 00 04 00 08 54 45 53 54 5f 47 45 54   ┆_FIFO    UTILISATION    TEST_GET┆
0x040…060 00 02 00 0d 45 53 53 41 49 5f 43 4f 4d 50 4c 45 58 00 06 00 0c 53 45 4e 44 5f 54 4f 5f 55 4e 49   ┆    ESSAI_COMPLEX    SEND_TO_UNI┆
0x060…080 58 00 05 00 05 4d 4f 4e 45 59 00 0a 00 08 43 4f 4d 50 54 45 55 52 00 08 00 04 46 49 46 4f 00 01   ┆X    MONEY    COMPTEUR    FIFO  ┆
0x080…0a0 00 07 43 4f 4d 50 4c 45 58 00 03 00 05 50 41 52 53 45 00 00 00 00 73 50 52 49 4d 41 52 59 20 3d   ┆  COMPLEX    PARSE    sPRIMARY =┆
0x0a0…0c0 3e 20 54 52 55 45 2c 20 53 55 42 53 59 53 54 45 4d 20 3d 3e 20 20 38 37 37 31 35 39 30 32 39 38   ┆> TRUE, SUBSYSTEM =>  8771590298┆
0x0c0…0e0 30 30 39 36 37 2c 20 50 52 49 4d 41 52 59 5f 4e 41 4d 45 20 3d 3e 20 21 55 53 45 52 53 2e 41 4c   ┆00967, PRIMARY_NAME => !USERS.AL┆
0x0e0…100 54 45 4e 42 55 52 2e 50 52 4f 4a 45 43 54 2c 20 50 52 49 4d 41 52 59 5f 4d 41 43 48 49 4e 45 20   ┆TENBUR.PROJECT, PRIMARY_MACHINE ┆
0x100…120 3d 3e 20 61 6e 63 6f 6c 69 65 02 00 00 03 97 00 07 43 4f 4d 50 4c 45 58 02 00 00 00 08 00 01 00   ┆=> ancolie       COMPLEX        ┆
0x120…140 00 00 0b 00 03 1d c5 80 62 00 07 00 00 00 07 00 00 00 3e 00 16 43 4f 4d 50 4c 45 58 2e 41 46 46   ┆        b         >  COMPLEX.AFF┆
0x140…160 49 43 48 45 43 4f 4d 50 4c 45 58 3d 7b 94 7e 90 23 00 09 4e 42 43 4f 4d 50 4c 45 58 17 00 10 43   ┆ICHECOMPLEX={ ~ #  NBCOMPLEX   C┆
0x160…180 4f 4d 50 4c 45 58 2e 54 43 4f 4d 50 4c 45 58 00 00 00 00 00 04 00 00 00 47 00 09 43 4f 4d 50 4c   ┆OMPLEX.TCOMPLEX         G  COMPL┆
0x180…1a0 45 58 2e 2b 3d 7a 94 7e 90 23 00 04 4c 45 46 54 23 00 05 52 49 47 48 54 17 00 10 43 4f 4d 50 4c   ┆EX.+=z ~ #  LEFT#  RIGHT   COMPL┆
0x1a0…1c0 45 58 2e 54 43 4f 4d 50 4c 45 58 00 17 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d 50 4c 45 58 00   ┆EX.TCOMPLEX    COMPLEX.TCOMPLEX ┆
0x1c0…1e0 00 00 00 06 00 00 00 3f 00 16 43 4f 4d 50 4c 45 58 2e 41 46 46 49 43 48 45 43 4f 4d 50 4c 45 58   ┆       ?  COMPLEX.AFFICHECOMPLEX┆
0x1e0…200 3d 7a 94 7e 90 23 00 09 4e 42 43 4f 4d 50 4c 45 58 17 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d   ┆=z ~ #  NBCOMPLEX   COMPLEX.TCOM┆
0x200…220 50 4c 45 58 00 ab 00 00 00 00 02 00 00 00 5b 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d 50 4c 45   ┆PLEX          [  COMPLEX.TCOMPLE┆
0x220…240 58 3b 99 72 39 90 1c 00 04 52 45 45 4c 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45   ┆X; r9    REELf   STANDARD.INTEGE┆
0x240…260 52 00 00 39 90 1c 00 0a 49 4d 41 47 49 4e 41 49 52 45 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49   ┆R  9    IMAGINAIREf   STANDARD.I┆
0x260…280 4e 54 45 47 45 52 00 00 00 00 00 00 00 09 00 00 00 64 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d   ┆NTEGER           d  COMPLEX.TCOM┆
0x280…2a0 50 4c 45 58 3b 99 72 39 90 1c 00 09 52 45 41 4c 5f 50 41 52 54 66 17 00 10 53 54 41 4e 44 41 52   ┆PLEX; r9    REAL_PARTf   STANDAR┆
0x2a0…2c0 44 2e 49 4e 54 45 47 45 52 00 00 39 90 1c 00 0e 49 4d 41 47 49 4e 41 52 59 5f 50 41 52 54 66 17   ┆D.INTEGER  9    IMAGINARY_PARTf ┆
0x2c0…2e0 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 00 00 0b 00 00 00 40 00 17   ┆  STANDARD.INTEGER           @  ┆
0x2e0…300 43 4f 4d 50 4c 45 58 2e 41 46 46 49 43 48 45 5f 43 4f 4d 50 4c 45 58 3d 7b 94 7e 90 23 00 0a 4e   ┆COMPLEX.AFFICHE_COMPLEX={ ~ #  N┆
0x300…320 42 5f 43 4f 4d 50 4c 45 58 17 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d 50 4c 45 58 00 00 00 00   ┆B_COMPLEX   COMPLEX.TCOMPLEX    ┆
0x320…340 00 03 00 00 00 4b 00 12 43 4f 4d 50 4c 45 58 2e 53 45 54 43 4f 4d 50 4c 45 58 3d 7a 94 7e 90 23   ┆     K  COMPLEX.SETCOMPLEX=z ~ #┆
0x340…360 00 02 52 45 23 00 02 49 4d 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 17 00 10   ┆  RE#  IM   STANDARD.INTEGER    ┆
0x360…380 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d 50 4c 45 58 00 00 00 00 01 00 00 00 0b 00 07 43 4f 4d 50 4c   ┆COMPLEX.TCOMPLEX           COMPL┆
0x380…3a0 45 58 3e 7c 00 00 00 0a 00 00 00 3f 00 16 43 4f 4d 50 4c 45 58 2e 41 46 46 49 43 48 45 43 4f 4d   ┆EX>|       ?  COMPLEX.AFFICHECOM┆
0x3a0…3c0 50 4c 45 58 3d 7b 94 7e 90 23 00 0a 4e 42 5f 43 4f 4d 50 4c 45 58 17 00 10 43 4f 4d 50 4c 45 58   ┆PLEX={ ~ #  NB_COMPLEX   COMPLEX┆
0x3c0…3e0 2e 54 43 4f 4d 50 4c 45 58 00 00 00 00 00 05 00 00 00 69 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f   ┆.TCOMPLEX         i  COMPLEX.TCO┆
0x3e0…400 4d 50 4c 45 58 3b 99 72 39 90 1c 00 0c 50 41 52 54 49 45 52 45 45 4c 4c 45 66 17 00 10 53 54 41   ┆MPLEX; r9    PARTIEREELLEf   STA┆
0x400…420 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 39 90 1c 00 10 50 41 52 54 49 45 49 4d 41 47 49 4e   ┆NDARD.INTEGER  9    PARTIEIMAGIN┆
0x420…440 41 49 52 45 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 00 00 08   ┆AIREf   STANDARD.INTEGER        ┆
0x440…460 00 00 00 62 00 10 43 4f 4d 50 4c 45 58 2e 54 43 4f 4d 50 4c 45 58 3b 99 72 39 90 1c 00 08 52 45   ┆   b  COMPLEX.TCOMPLEX; r9    RE┆
0x460…480 41 4c 50 41 52 54 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 39 90 1c 00   ┆ALPARTf   STANDARD.INTEGER  9   ┆
0x480…4a0 0d 49 4d 41 47 49 4e 41 52 59 50 41 52 54 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47   ┆ IMAGINARYPARTf   STANDARD.INTEG┆
0x4a0…4c0 45 52 00 00 00 00 02 00 00 00 33 00 08 43 4f 4d 50 54 45 55 52 02 00 00 00 01 00 0a 00 00 00 01   ┆ER        3  COMPTEUR           ┆
0x4c0…4e0 00 03 1d c5 80 62 00 07 00 00 00 01 00 00 00 0e 00 08 43 4f 4d 50 54 45 55 52 3d 7b 94 00 02 00   ┆     b            COMPTEUR={    ┆
0x4e0…500 00 00 3d 00 0d 45 53 53 41 49 5f 43 4f 4d 50 4c 45 58 02 00 00 00 01 00 02 00 00 00 01 00 03 1d   ┆  =  ESSAI_COMPLEX              ┆
0x500…520 c5 80 62 00 07 00 00 00 01 00 00 00 13 00 0d 45 53 53 41 49 5f 43 4f 4d 50 4c 45 58 3d 7b 94 00   ┆  b            ESSAI_COMPLEX={  ┆
0x520…540 02 00 00 02 17 00 04 46 49 46 4f 02 00 00 00 02 00 08 00 00 00 0a 00 03 1d c5 80 62 00 07 00 00   ┆       FIFO                b    ┆
0x540…560 00 05 00 00 00 3d 00 0c 46 49 46 4f 2e 44 45 51 55 45 55 45 3d 7b 94 7d 90 25 00 01 49 17 00 09   ┆     =  FIFO.DEQUEUE={ } %  I   ┆
0x560…580 46 49 46 4f 2e 49 54 45 4d 00 7f 90 24 00 04 46 52 4f 4d 17 00 0b 46 49 46 4f 2e 4f 42 4a 45 43   ┆FIFO.ITEM   $  FROM   FIFO.OBJEC┆
0x580…5a0 54 00 00 00 00 00 08 00 00 00 1f 00 0a 46 49 46 4f 2e 50 43 45 4c 4c 3b 99 6b 66 17 00 09 46 49   ┆T            FIFO.PCELL; kf   FI┆
0x5a0…5c0 46 4f 2e 43 45 4c 4c 00 00 00 00 00 00 06 00 00 00 3b 00 0d 46 49 46 4f 2e 49 53 5f 45 4d 50 54   ┆FO.CELL          ;  FIFO.IS_EMPT┆
0x5c0…5e0 59 3d 7a 94 7e 90 23 00 01 46 17 00 0b 46 49 46 4f 2e 4f 42 4a 45 43 54 00 17 00 10 53 54 41 4e   ┆Y=z ~ #  F   FIFO.OBJECT    STAN┆
0x5e0…600 44 41 52 44 2e 42 4f 4f 4c 45 41 4e 00 00 00 00 01 00 00 00 13 00 04 46 49 46 4f 41 8f 3b 2a 00   ┆DARD.BOOLEAN           FIFOA ;* ┆
0x600…620 04 49 54 45 4d 99 71 7c 00 00 00 02 00 00 00 10 00 0b 46 49 46 4f 2e 4f 42 4a 45 43 54 3b 99 70   ┆ ITEM q|          FIFO.OBJECT; p┆
0x620…640 00 00 00 07 00 00 00 46 00 09 46 49 46 4f 2e 43 45 4c 4c 3b 99 72 39 90 1c 00 07 43 4f 4e 54 45   ┆       F  FIFO.CELL; r9    CONTE┆
0x640…660 4e 54 66 17 00 09 46 49 46 4f 2e 49 54 45 4d 00 00 39 90 1c 00 06 46 4f 4c 4c 4f 57 66 17 00 0a   ┆NTf   FIFO.ITEM  9    FOLLOWf   ┆
0x660…680 46 49 46 4f 2e 50 43 45 4c 4c 00 00 00 00 00 00 00 03 00 00 00 24 00 09 46 49 46 4f 2e 4d 41 4b   ┆FIFO.PCELL           $  FIFO.MAK┆
0x680…6a0 45 3d 7b 94 7d 90 25 00 01 46 17 00 0b 46 49 46 4f 2e 4f 42 4a 45 43 54 00 00 00 00 00 0a 00 00   ┆E={ } %  F   FIFO.OBJECT        ┆
0x6a0…6c0 00 1d 00 09 46 49 46 4f 2e 4d 41 4b 45 3d 7a 94 17 00 0b 46 49 46 4f 2e 4f 42 4a 45 43 54 00 00   ┆    FIFO.MAKE=z    FIFO.OBJECT  ┆
0x6c0…6e0 00 00 04 00 00 00 3b 00 0c 46 49 46 4f 2e 45 4e 51 55 45 55 45 3d 7b 94 7e 90 23 00 01 49 17 00   ┆      ;  FIFO.ENQUEUE={ ~ #  I  ┆
0x6e0…700 09 46 49 46 4f 2e 49 54 45 4d 00 7f 90 24 00 02 54 4f 17 00 0b 46 49 46 4f 2e 4f 42 4a 45 43 54   ┆ FIFO.ITEM   $  TO   FIFO.OBJECT┆
0x700…720 00 00 00 00 00 09 00 00 00 32 00 0b 46 49 46 4f 2e 4f 42 4a 45 43 54 3b 99 72 39 90 1c 00 04 48   ┆         2  FIFO.OBJECT; r9    H┆
0x720…740 45 41 44 1c 00 04 54 41 49 4c 66 17 00 0a 46 49 46 4f 2e 50 43 45 4c 4c 00 00 00 00 02 00 00 02   ┆EAD   TAILf   FIFO.PCELL        ┆
0x740…760 15 00 05 4d 4f 4e 45 59 02 00 00 00 04 00 05 00 00 00 0a 00 03 1d c5 80 62 00 07 00 00 00 06 00   ┆   MONEY                b       ┆
0x760…780 00 00 0f 00 09 4d 4f 4e 45 59 2e 50 55 54 3d 7b 94 00 00 00 00 09 00 00 00 39 00 0c 4d 4f 4e 45   ┆     MONEY.PUT={         9  MONE┆
0x780…7a0 59 2e 43 4f 4e 56 45 54 3d 7a 94 7e 90 23 00 01 4d 17 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54   ┆Y.CONVET=z ~ #  M   MONEY.OBJECT┆
0x7a0…7c0 00 17 00 0e 53 54 41 4e 44 41 52 44 2e 46 4c 4f 41 54 00 00 00 00 08 00 00 00 25 00 09 4d 4f 4e   ┆    STANDARD.FLOAT        %  MON┆
0x7c0…7e0 45 59 2e 50 55 54 3d 7b 94 7e 90 23 00 01 4d 17 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54 00 00   ┆EY.PUT={ ~ #  M   MONEY.OBJECT  ┆
0x7e0…800 00 00 00 02 00 00 00 11 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54 3b 99 71 00 00 00 01 00 00 00   ┆          MONEY.OBJECT; q       ┆
0x800…820 09 00 05 4d 4f 4e 45 59 3e 7c 00 00 00 07 00 00 00 39 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54   ┆   MONEY>|       9  MONEY.OBJECT┆
0x820…840 3b 99 64 00 00 00 00 00 00 00 00 08 01 3f 84 7a e1 47 ae 14 7a 61 08 01 00 00 00 00 00 00 00 00   ┆; d          ? z G  za          ┆
0x840…860 08 01 41 2e 84 80 00 00 00 00 00 00 00 00 05 00 00 00 37 00 0a 4d 4f 4e 45 59 2e 4d 41 4b 45 3d   ┆  A.              7  MONEY.MAKE=┆
0x860…880 7a 94 7e 90 23 00 01 4d 17 00 0e 53 54 41 4e 44 41 52 44 2e 46 4c 4f 41 54 00 17 00 0c 4d 4f 4e   ┆z ~ #  M   STANDARD.FLOAT    MON┆
0x880…8a0 45 59 2e 4f 42 4a 45 43 54 00 00 00 00 0a 00 00 00 3a 00 0d 4d 4f 4e 45 59 2e 43 4f 4e 56 45 52   ┆EY.OBJECT        :  MONEY.CONVER┆
0x8a0…8c0 54 3d 7a 94 7e 90 23 00 01 4d 17 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54 00 17 00 0e 53 54 41   ┆T=z ~ #  M   MONEY.OBJECT    STA┆
0x8c0…8e0 4e 44 41 52 44 2e 46 4c 4f 41 54 00 00 00 00 03 00 00 00 3d 00 07 4d 4f 4e 45 59 2e 2b 3d 7a 94   ┆NDARD.FLOAT        =  MONEY.+=z ┆
0x8e0…900 7e 90 23 00 04 4c 45 46 54 23 00 05 52 49 47 48 54 17 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54   ┆~ #  LEFT#  RIGHT   MONEY.OBJECT┆
0x900…920 00 17 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54 00 00 00 00 04 00 00 00 3d 00 07 4d 4f 4e 45 59   ┆    MONEY.OBJECT        =  MONEY┆
0x920…940 2e 2d 3d 7a 94 7e 90 23 00 04 4c 45 46 54 23 00 05 52 49 47 48 54 17 00 0c 4d 4f 4e 45 59 2e 4f   ┆.-=z ~ #  LEFT#  RIGHT   MONEY.O┆
0x940…960 42 4a 45 43 54 00 17 00 0c 4d 4f 4e 45 59 2e 4f 42 4a 45 43 54 00 02 00 00 00 ef 00 05 50 41 52   ┆BJECT    MONEY.OBJECT        PAR┆
0x960…980 53 45 02 00 00 00 01 00 03 00 00 00 09 00 03 1d c5 80 62 00 07 00 00 00 07 00 00 00 11 00 0b 50   ┆SE                b            P┆
0x980…9a0 41 52 53 45 2e 4c 49 53 54 45 3d 7b 94 00 00 00 00 08 00 00 00 11 00 0b 50 41 52 53 45 2e 43 4f   ┆ARSE.LISTE={            PARSE.CO┆
0x9a0…9c0 52 50 53 3d 7b 94 00 00 00 00 02 00 00 00 11 00 0b 50 41 52 53 45 2e 45 52 52 4f 52 3d 7b 94 00   ┆RPS={            PARSE.ERROR={  ┆
0x9c0…9e0 00 00 00 09 00 00 00 11 00 0b 50 41 52 53 45 2e 53 54 41 52 54 3d 7b 94 00 00 00 00 03 00 00 00   ┆          PARSE.START={         ┆
0x9e0…a00 10 00 0a 50 41 52 53 45 2e 46 41 43 54 3d 7b 94 00 00 00 00 01 00 00 00 09 00 05 50 41 52 53 45   ┆   PARSE.FACT={            PARSE┆
0xa00…a20 3e 7c 00 00 00 04 00 00 00 10 00 0a 50 41 52 53 45 2e 54 45 52 4d 3d 7b 94 00 00 00 00 06 00 00   ┆>|          PARSE.TERM={        ┆
0xa20…a40 00 10 00 0a 50 41 52 53 45 2e 49 4e 53 54 3d 7b 94 00 00 00 00 05 00 00 00 10 00 0a 50 41 52 53   ┆    PARSE.INST={            PARS┆
0xa40…a60 45 2e 45 58 50 52 3d 7b 94 00 02 00 00 00 94 00 0c 53 45 4e 44 5f 54 4f 5f 55 4e 49 58 02 00 00   ┆E.EXPR={         SEND_TO_UNIX   ┆
0xa60…a80 00 01 00 06 00 00 00 01 00 03 1d c5 80 62 00 07 00 00 00 01 00 00 00 6b 00 0c 53 45 4e 44 5f 54   ┆             b         k  SEND_T┆
0xa80…aa0 4f 5f 55 4e 49 58 3d 7b 94 7e 90 23 00 0a 54 48 45 5f 4f 42 4a 45 43 54 17 00 0f 53 54 41 4e 44   ┆O_UNIX={ ~ #  THE_OBJECT   STAND┆
0xaa0…ac0 41 52 44 2e 53 54 52 49 4e 47 0b 00 08 3c 52 45 47 49 4f 4e 3e 7e 90 23 00 0a 54 4f 5f 4d 41 43   ┆ARD.STRING   <REGION>~ #  TO_MAC┆
0xac0…ae0 48 49 4e 45 17 00 0f 53 54 41 4e 44 41 52 44 2e 53 54 52 49 4e 47 0b 00 09 62 65 6c 6c 61 64 6f   ┆HINE   STANDARD.STRING   bellado┆
0xae0…b00 6e 65 00 02 00 00 00 35 00 09 54 45 53 54 5f 46 49 46 4f 02 00 00 00 01 00 09 00 00 00 01 00 03   ┆ne     5  TEST_FIFO             ┆
0xb00…b20 1d c5 80 62 00 07 00 00 00 01 00 00 00 0f 00 09 54 45 53 54 5f 46 49 46 4f 3d 7b 94 00 02 00 00   ┆   b            TEST_FIFO={     ┆
0xb20…b40 00 33 00 08 54 45 53 54 5f 47 45 54 02 00 00 00 01 00 04 00 00 00 01 00 03 1d c5 80 62 00 07 00   ┆ 3  TEST_GET                b   ┆
0xb40…b60 00 00 01 00 00 00 0e 00 08 54 45 53 54 5f 47 45 54 3d 7b 94 00 02 00 00 00 39 00 0b 55 54 49 4c   ┆         TEST_GET={      9  UTIL┆
0xb60…b80 49 53 41 54 49 4f 4e 02 00 00 00 01 00 07 00 00 00 01 00 03 1d c5 80 62 00 07 00 00 00 01 00 00   ┆ISATION                b        ┆
0xb80…b94 00 11 00 0b 55 54 49 4c 49 53 41 54 49 4f 4e 3d 7b 94 00 04   ┆    UTILISATION={   ┆