|
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 - metrics - 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»