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

⟦2b0828e58⟧ TextFile

    Length: 792 (0x318)
    Types: TextFile
    Names: »TEST_SORT.P«

Derivation

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

TextFile



======== TEST_SORT.S

00.00001 MAINMODULE TEST_SORT;
00.00002 
00.00003 %SOURCE

======== MONITORNAMES.S


======== TEST_SORT.S

00.00003 
00.00004 
00.00005 IMPORT PROCEDURE SORT(R4;R5;R6);
00.00006 
00.00007 VAR USORTERET: ARRAY[0..15] OF INTEGER;
00.00008 
00.00009 INIT USORTERET =  30, 120,   0,   0,
00.00010                    1,   5,  50,  20,
00.00011                   34,  27,  21,   0,
00.00012                  111,  15,  16,   5;    " = GENNEMSNIT 35
00.00013 
00.00014 BEGIN
00.00015   ADDRESS(USORTERET)=>R4;
00.00016   SORT(R4,R5,R6);
00.00017   MON(TERMINATE,0=>R0,0=>R1,R7);
00.00018 END;
00.00019 ENDMODULE

LINES:     148


      CODESIZE  VARSIZE  CONSTSIZE  TEMPSIZE
      --------  -------  ---------  --------
       #0006     #0010     #0000     #0000