|
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 - download
Length: 1588 (0x634)
Types: TextFile
Names: »DEFAULTS«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!TOS.D!DEFAULTS«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!TOS.D!DEFAULTS«
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 := 42;
DEVICE.DEVICE_ADDR := 50;
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( 'FILSYS', FILSYS@[0].PNAME.NAME[0], 6); " SYSTEM FILE SYSTEM "
PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4);
PACKNAME( 'XAMOS' , SYSTEM_VOL, 5);
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( 'ALTFMS', 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 := 2;
WITH TERMINAL@[MAXTERMINAL] DO BEGIN
FILADR.TRANSFERRED_BYTES := LONG(16);
PACKIT( 'DO CONFIG_F1001 ', REC, 16);
END; «soh»