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

⟦86aa09294⟧ TextFile

    Length: 1400 (0x578)
    Types: TextFile
    Names: »GET_PARAM.P«

Derivation

└─⟦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!GET_PARAM.D!GET_PARAM.P« 
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C )
    └─⟦feb1d529a⟧ 
        └─ ⟦this⟧ »GR1.D!GET_PARAM.D!GET_PARAM.P« 

TextFile

C Compiler     Version 0301        1986.11.25      10:36:47     Page:    1   Source: GET_PARAM.S

00.00001: /*  THIS PROGRAM IS MADE BY KLP & KMO    */
00.00002: 
00.00003: #include <std.h>
01.00001: /*%NOLIST*/
00.00004: 
00.00005: main ( no_par, par )
00.00006:   int no_par ;      /* SYSPAR : NO OF PARAMETERS */
00.00007:   char **par ;      /* SYSPAR : POINTER TO SYSTEM PARAMETERS */
00.00008: 
00.00009: {
00.00010:   int count  ;
00.00011:   for ( count = 0;count < no_par;  putfmt("%p\n",*(par++)),  count++) ;
00.00012:   return (1) ;
00.00013: }

«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.00009  main               func  func=>short     extern 
00.00009    no_par           arg.  short           auto       5    R6    1
00.00009    par              arg.  **char          auto       6    R6    1
00.00010    count            var   short           auto      -1    R6    1 «a5»