|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 792 (0x318)
Types: TextFile
Names: »TEST_SORT.P«
└─⟦434915751⟧ Bits:30005204 8" CR80 Floppy CR80FD_0057 ( VOL: DOWN CF/810615 )
└─⟦8498d5bf1⟧
└─ ⟦this⟧ »TEST_SORT.P«
======== TEST_SORT.S«nul»«nul»«nul»«nul»«nul»
00.00001 MAINMODULE TEST_SORT;
00.00002
00.00003 %SOURCE
======== MONITORNAMES.S«nul»«nul»
======== TEST_SORT.S«nul»«nul»«nul»«nul»«nul»
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