DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

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

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e547a35d4⟧ TextFile

    Length: 414 (0x19e)
    Types: TextFile
    Names: »TEST_SORT.S«

Derivation

└─⟦434915751⟧ Bits:30005204 8" CR80 Floppy CR80FD_0057 ( VOL: DOWN CF/810615 )
    └─⟦8498d5bf1⟧ 
        └─ ⟦this⟧ »TEST_SORT.S«

TextFile

MAINMODULE TEST_SORT;

%SOURCE @**GENS.D*SWELLPREFIX.D*MONITORNAMES.S

IMPORT PROCEDURE SORT(R4;R5;R6);

VAR USORTERET: ARRAY[0..15] OF INTEGER;

INIT USORTERET =  30, 120,   0,   0,
                   1,   5,  50,  20,
                  34,  27,  21,   0,
                 111,  15,  16,   5;    " = GENNEMSNIT 35

BEGIN
  ADDRESS(USORTERET)=>R4;
  SORT(R4,R5,R6);
  MON(TERMINATE,0=>R0,0=>R1,R7);
END;
ENDMODULE