DataMuseum.dk

top - download

    Length: 1616 (0x650)
    Types: TextFile
    Names: »DEFAULTS«

└─⟦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!AMOS.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);
    SETBIT(MODE,VDU_MODE);
  END;


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

WITH SYSTEM_DEV DO
   BEGIN
      DEVICE.DEVICE_KIND :=  46;
      DEVICE.DEVICE_ADDR :=  52;
      DEVICE.UNIT        :=   0; "BIT  3 through 0 : unit number     "
                                 "BIT 15 through 4 : CTR-RAM address "
      DEVICE.SUBUNIT     :=   0;
      PACKIT( 'SMD0', 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( 'DMA000', FILSYS@[0].PNAME.NAME[0], 6);      " SYSTEM FILE SYSTEM "
PACKIT( 'FILE',   FILSYS@[0].GNAME[0],      4);

PACKNAME( 'SSD'    , SYSTEM_VOL,           3);
PACKNAME( 'MD',      SYSTEM_DIR,           2);


FILESYSTEMS :=    1;  " NUMBER OF ALTERNATE FILE SYSTEMS "
PACKIT( 'DMA000', 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 := 3;

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