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

⟦1fc918301⟧ TextFile

    Length: 996 (0x3e4)
    Types: TextFile
    Names: »DEFAULTS«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!SYSGEN.D!MINI_CAMPS.D!DEFAULTS«

TextFile


PACKIT( 'TTY000', PROCESS@[MAXPROCESS].NAME.NAME[0], 6);

WITH OC_INIT_REC DO
  BEGIN
    ADDR      :=  5;
    LINEWIDTH := 72;
    MODE      :=  0;
    SETBIT(MODE,ECHO_MODE);
    SETBIT(MODE,WAIT_MODE);
  END;


OS_MODE := MASTER;

WITH SYSTEM_DEV DO
   BEGIN
      DEVICE_KIND :=  42;
      DEVICE_ADDR := 200;
      UNIT        :=   0;
      SUBUNIT     :=   0;
      PACKIT( 'SMD0', DEVICE[0], 4);
   END;


PACKIT( 'FILSYS', FILSYS@[0].PNAME.NAME[0], 6);      " SYSTEM FILE SYSTEM "
PACKIT( 'FILE',   FILSYS@[0].GNAME[0],      4);

PACKNAME( 'MINI_CAMPS', SYSTEM_VOL,           10);
PACKNAME( 'MD',      SYSTEM_DIR,           2);


FILESYSTEMS :=    0;  " NUMBER OF ALTERNATE FILE SYSTEMS "
"PACKIT( 'ALTFMS', FILSYS@[1].PNAME.NAME[0], 6);  ALTERNATIVE FILE SYSTEM "
"PACKIT( 'AFMS',   FILSYS@[1].GNAME[0],      4);                          "


AUTO_OPENS := 2;

WITH TERMINAL@[MAXTERMINAL] DO BEGIN
    FILADR.TRANSFERRED_BYTES := LONG(16);
    PACKIT( 'DO CONFIG_1     ', REC, 16);
END;