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: 2024 (0x7e8) Types: TextFile Names: »SORT.P«
└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM ) └─⟦95f1eafb2⟧ └─ ⟦this⟧ »GR1.D!SORT.D!SORT.P« └─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C ) └─⟦feb1d529a⟧ └─ ⟦this⟧ »GR1.D!SORT.D!SORT.P«
C Compiler Version 0301 1986.11.26 9:49:22 Page: 1 Source: SORT.S 00.00001: #include <std.h> 01.00001: /*%NOLIST*/ 00.00002: 00.00003: main() 00.00004: 00.00005: { 00.00006: unsigned int newno; 00.00007: struct elem 00.00008: { 00.00009: struct elem *next; 00.00010: unsigned int field; 00.00011: } *new, *temp; 00.00012: 00.00013: new = temp = nalloc (sizeof (*new), NULL); 00.00014: new->field = -1; 00.00015: 00.00016: putfmt("ENTER NUMBER SEPERATED BY <CR> - '-1' = QUIT\n"); 00.00017: getfmt ("%i", &newno); 00.00018: while (newno != -1) 00.00019: { 00.00020: while ((temp->next) && (temp->next->field < newno)) 00.00021: temp = temp->next; 00.00022: 00.00023: temp->next = nalloc (sizeof(*temp), temp->next); 00.00024: temp->next->field = newno; 00.00025: 00.00026: temp = new; 00.00027: putfmt("ENTER NUMBER SEPERATED BY <CR> - '-1' = QUIT\n"); 00.00028: getfmt("%i", &newno); 00.00029: } 00.00030: 00.00031: for (temp=new->next;(temp->next);putfmt ("%i\n", temp->field),temp=temp->next); 00.00032: putfmt ("%i\n", temp->field); 00.00033: 00.00034: return (1); 00.00035: } «ff» No. of preprocessing errors = 0 No. of pass 1 errors = 0 «ff» C Debug Table: SOURCE STORAGE STORAGE DATA-ALLOCATION LINE NAME TYPE TYPE CLASS OFFS. BASE SIZE -------------------------------------------------------------------------- 01.00094 STDOUT var short extern 01.00094 STDIN var short extern 01.00094 STDERR var short extern -------------------------------------------------------------------------- 00.00005 main func func=>short extern 00.00006 newno var ushort auto -1 R6 1 00.00011 new var *struct auto -2 R6 1 00.00011 temp var *struct auto -3 R6 1 «a5»