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

⟦73390d284⟧ TextFile

    Length: 1586 (0x632)
    Types: TextFile
    Names: »DEFAULTS«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS380.D!XAMOS.D!CONFIG.D!DEFAULTS« 

TextFile


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

WITH OC_INIT_REC DO
  BEGIN
    ADDR      :=  1;
    LINEWIDTH :=999;
    MODE      :=  0;
    TIMEOUT   :=  0;
    SETBIT(MODE,ECHO_MODE);
    SETBIT(MODE,WAIT_MODE);
  END;

OS_MODE := MASTER;    " MASTER SINGLE SLAVE DUAL or DUALIZABLE "
                      " MASTER and SINGLE are synonyms         "

WITH SYSTEM_DEV DO
   BEGIN
      DEVICE.DEVICE_KIND :=  10;
      DEVICE.DEVICE_ADDR :=   2;
      DEVICE.UNIT        :=   0; "BIT  3 through 0 : unit number     "
                                 "BIT 15 through 4 : CTR-RAM address "
      DEVICE.SUBUNIT     :=   0;
      PACKIT( 'FD00', DEVICE.DEVICE[0], 4);
      PARTNER.DEVICE_ADDR:=  -1;
      PARTNER.UNIT       :=   0; "BIT  3 through 0 : unit number     "
                                 "BIT 15 through 4 : CTR-RAM address "
   END;


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

PACKNAME( 'HS'  , SYSTEM_VOL,           2);
PACKNAME( 'MD',      SYSTEM_DIR,           2);


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

PACKIT( 'PRINTR',  PRINTFILE.PRINTERNAME.NAME[0], 6);

AUTO_OPENS := 0;

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