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

⟦264179898⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »TIMING.K«

Derivation

└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
    └─⟦this⟧ »TIMING.K« 

(*$D-,R-,C-*)
PROGRAM TIMING;
  VAR I, J: INTEGER;
      A,B,C: INTEGER;
      D: ARRAY( 1..5 ) OF INTEGER;
      E,F,G: REAL;
      H: CHAR;
 
PROCEDURE TOMPROC( VAR II: INTEGER );
BEGIN
END;
 
BEGIN
  WRITE( 'START....', CHR(7), CHR(7) );
 
  A := 17;
  B := 19;
  H := '1';
  FOR I:=1 TO 5 DO
    FOR J:=1 TO 10000 DO
      BEGIN
        TOMPROC( A )
      END;
 
  WRITELN( CHR(7), 'FÆRDIG.', CHR(7) )
END  (*TIMING*).

0x000…00f Line {l1=0x0d, l2=»(*$D-,R-,C-*)«, l3=0x0d}
0x00f…020 Line {l1=0x0f, l2=»PROGRAM TIMING;«, l3=0x0f}
0x020…036 Line {l1=0x14, l2=»  VAR I, J: INTEGER;«, l3=0x14}
0x036…04d Line {l1=0x15, l2=»      A,B,C: INTEGER;«, l3=0x15}
0x04d…071 Line {l1=0x22, l2=»      D: ARRAY( 1..5 ) OF INTEGER;«, l3=0x22}
0x071…085 Line {l1=0x12, l2=»      E,F,G: REAL;«, l3=0x12}
0x085…095 Line {l1=0x0e, l2=»      H: CHAR;«, l3=0x0e}
0x095…098 Line {l1=0x01, l2=» «, l3=0x01}
0x098…0bf Line {l1=0x25, l2=»PROCEDURE TOMPROC( VAR II: INTEGER );«, l3=0x25}
0x0bf…0c6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c6…0cc Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cc…0cf Line {l1=0x01, l2=» «, l3=0x01}
0x0cf…0d6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d6…0ff Line {l1=0x27, l2=»  WRITE( 'START....', CHR(7), CHR(7) );«, l3=0x27}
0x0ff…102 Line {l1=0x01, l2=» «, l3=0x01}
0x102…10e Line {l1=0x0a, l2=»  A := 17;«, l3=0x0a}
0x10e…11a Line {l1=0x0a, l2=»  B := 19;«, l3=0x0a}
0x11a…127 Line {l1=0x0b, l2=»  H := '1';«, l3=0x0b}
0x127…13b Line {l1=0x12, l2=»  FOR I:=1 TO 5 DO«, l3=0x12}
0x13b…155 Line {l1=0x18, l2=»    FOR J:=1 TO 10000 DO«, l3=0x18}
0x155…162 Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x162…178 Line {l1=0x14, l2=»        TOMPROC( A )«, l3=0x14}
0x178…184 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x184…187 Line {l1=0x01, l2=» «, l3=0x01}
0x187…1af Line {l1=0x26, l2=»  WRITELN( CHR(7), 'FÆRDIG.', CHR(7) )«, l3=0x26}
0x1af…1c1 Line {l1=0x10, l2=»END  (*TIMING*).«, l3=0x10}
0x1c1…1e0 00 00 08 13 1a 32 04 04 0a 01 01 00 04 02 08 2a 02 04 0a 01 02 00 04 0d 08 4e 23 46 1b 72 2b      ┆     2         *         N#F r+┆
0x1e0…200 73 eb 71 23 70 21 0d 04 0a 01 06 00 04 04 08 35 c9 21 04 04 0a 01 06 00 04 03 08 34 2a 03 04 0a   ┆s q#p!         5 !         4*   ┆
0x200…220 01 02 00 04 07 08 5e 23 56 7a 83 c2 07 04 0a 02 76 01 04 02 08 da 02 04 0a 02 76 01 04 02 08 c3   ┆      ^#Vz      v         v     ┆
0x220…240 02 04 0a 02 86 01 04 03 08 eb 22 03 04 0a 01 02 00 04 02 08 3a 02 04 0a 01 06 00 04 03 08 3d ca   ┆          "         :         = ┆
0x240…260 03 04 0a 02 82 01 04 03 08 c9 22 03 04 0a 01 00 00 04 06 08 c9 21 07 00 22 06 04 0a 01 04 00 04   ┆          "          !  "       ┆
0x260…280 02 08 c9 02 04 07 01 82 b1 04 03 09 d4 00 03 02 0f 00 02 04 07 01 82 b1 04 03 09 11 00 03 02 0f   ┆                                ┆
0x280…2a0 00 02 46 1b 72 2b 73 eb 71 23 70 21 0d 04 0a 01 06 00 04 04 08 35 c9 21 04 04 0a 01 06 00 04 03   ┆  F r+s q#p!         5 !        ┆
0x2a0…2c0 08 34 2a 03 04 0a 01 02 00 04 07 08 5e 23 56 7a 83 c2 07 04 0a 02 99 01 04 02 08 da 02 04 0a 02   ┆ 4*         ^#Vz                ┆
0x2c0…2e0 99 01 04 02 08 c3 02 04 0a 02 a9 01 04 03 08 eb 22 03 04 0a 01 02 00 04 02 08 3a 02 04 0a 01 06   ┆                "         :     ┆
0x2e0…300 52 45 53 53 41 20 20 20 52 42 01 05 00 00 00 00 c7 00 29 e8 00 20 41 30 00 06 00 45 53 53 41 20   ┆RESSA   RB        )   A0   ESSA ┆
0x300…320 00 04 03 08 3d ca 03 04 0a 02 a5 01 04 03 08 c9 22 03 04 0a 01 00 00 04 06 08 c9 21 07 00 22 06   ┆    =           "          !  " ┆
0x320…340 04 0a 01 04 00 04 02 08 c9 02 04 07 01 82 b1 04 03 09 97 01 03 02 0f 00 02 04 07 01 82 b1 04 03   ┆                                ┆
0x340…360 09 11 00 03 02 0f 00 02 20 20 20 20 02 00 00 10 0d 0d 05 53 49 47 4e 4c 20 20 20 03 00 00 10 0d   ┆                   SIGNL        ┆
0x360…380 0d 04 52 45 53 52 56 20 20 20 02 3d 00 10 0d 0d 05 50 4f 4f 4c 20 20 20 20 04 00 00 10 0d 0d 05   ┆  RESRV    =     POOL           ┆
0x380…3a0 46 5d 42 55 46 20 20 20 05 00 00 10 0d 0d 05 52 57 53 45 4d 20 20 20 06 00 00 10 0d 0d 05 53 4c   ┆FÅBUF          RWSEM          SL┆
0x3a0…3c0 45 45 50 20 20 20 07 00 00 10 0d 0d 05 53 45 4e 44 20 20 20 20 08 00 00 10 0d 0d 04 53 54 41 44   ┆EEP          SEND           STAD┆
0x3c0…3e0 44 20 20 20 01 00 00 08 0d 0d 04 52 52 54 41 20 20 20 20 01 06 00 08 0d 0d 04 4c 41 53 54 20 20   ┆D          RRTA           LAST  ┆
0x3e0…400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0x6…]
0x4c0…4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63   ┆                               c┆

Reduced view