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: 17276 (0x437c) Types: TextFile Names: »FMSPARAMS.S«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ ) └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!FMSPARAMS.S« └─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c ) └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!FMSPARAMS.S«
"----------------------------------------------------------------------- " " " MODULE NAME: FMS PARAMETERS (FMSPARAMS.S) " MODULE ID NMB: CSS/877 " MODULE VERSION: 0604 " MODULE TYPE: PREFIX " MERGE FILES: - " " SPECIFICATIONS: CR80 AMOS, FMS, File Manager, PSP, CSS/920/PSP/0048 " AUTHOR/DATE: DAK/840103 " " DELIVERABLE: - " SOURCE LANGUAGE: SWELL " COMPILE COMPUTER: CR80 " TARGET COMPUTER: CR80 " OPER. SYSTEM: AMOS " "----------------------------------------------------------------------- " " CHANGE RECORD " " VERSION AUTHOR/DATE DESCRIPTION OF CHANGE " ------- ----------- --------------------- " " 0103 MAC/801121 INITIAL RELEASE " THIS VERSION MAKES VS0101 & VS0102 OBSOLETE " " 0104 AEK/801212 COMMANDS ADDED FOR THE MAGTAPE_DRIVER " COMMANDS ADDED FOR FILE SYSTEM (#90,100,129) " " ERROR_CODES ADDED FOR THE FILE_SYSTEM " " 0105 AEK/801219 TQM_CMD CHANGED TO FIRST_TQM_CMD " FILE_CMD_ID ALSO CHANGED " " 0106 AEK/810211 COMMANDS ADDED FOR RESERVE AND RELEASE " ERROR_CODES ADDED FOR THE FILE_SYSTEM " 0107 AEK/810303 ERROR_CODES CHANGED FOR THE FILE SYSTEM " " 0108 AEK/810324 ERROR_CODES ADDED FOR THE MAGTAPE_DRIVER " " 0201 GMC/810402 FILE EXPANSION DELETED. THIS VERSION OF " THIS PREFIX IS COMPATIBLE WITH VERSION 2 " OF THE FMS. " " 0202 MAC/810421 CLOSE_UP_CMD INCLUDED. " " 0301 GMC/810521 INDIVIDUAL COMMAND PARAMETER DEFINITIONS " INCLUDED. SOME OF THESE HAVE BEEN TAKEN " OUT OF VOL_STRUCTURES.S " " 0401 GMC/820316 THE COMPLETION CODES BAD_SECTOR_DURING_FORMAT, " BAD_SECTOR_IN_ASF, KIND_UNIT_CONFLICT AND " KIND_CTRLR_CONFLICT ARE INTRODUCED, TO " AGREE WITH FMS VS0402. " THE TYPES DEVICE_KIND, UNIT_NBR AND " SUBUNIT_NBR ARE INCLUDED. " " 0501 GMC/820709 THE COMMAND IDS START_DUALIZE_CMD, " FINISH_DUALIZE_CMD AND DUALIZE_SECTORS_CMD " AND THE COMPLETION CODES ILLEGAL_START_DUALIZE " AND NOT_DUALIZING ARE INCLUDED AS IN FMS V0501. " " " 0502 HS/830505 MTBREAK_CMD AND MTRESUME_CMD ADDED. " ERROR CODES END_OF_VOLUME, FILE_NO_BREAKABLE " AND ILLEGAL_RESUME_FILE ADDED. " " 0601 JAS/831020 THE MAGTAPE COMPLETION CODES MOVED TO " ANOTHER MODULE ID. " NEW FMS COMPLETION CODES (TO CONFORM " WITH DAMOS). " NEW FILE SYSTEM COMMANDS (TO CONFORM " WITH DAMOS). " TYPE USER_NAME CHANGED (TO CONFORM " WITH DAMOS). " 0602 DAK/840104 NEW FMS COMPLETION CODE. " 0603 DAK/840124 NEW FMS COMPLETION CODE. " DAK/840127 THE FORMAT OF DEVICE_INFORMATION HAS BEEN " CHANGED. " DAK/840216 NEW FMS CMDS AND COMPLETION CODES. " A NEW STATE WRITE_PROTECTED HAS BEEN ADDED " TO DEV_STATE. " NEW DISK TYPE, FMD675, KIND 30. " 0604 JAS/840806 END_OF_VOLUME CC RESTORED AS A MAGTAPE CC. " NEW VOLUME USE - PARTIAL DUALIZABLE VOL. " DEVICE TABLE ENTRY TYPE ADDED. " INCLUDE_DEVICE_KIND_CMD ADDED. " NEW COMPLETION CODE. " ACCESSRIGHT TYPE REMOVED. "----------------------------------------------------------------------- "PAGE«ff» " NOTE: THIS PREFIX MAY NOT BE INCLUDED IN THE SAME SCOPE AS IOSPARAMS " ==== "FILE MANAGER COMMAND IDENTIFICATIONS" "------------------------------------" CONST USER_ON_CMD = 2; CLOSE_UP_CMD = 3; USER_OFF_CMD = 4; START_DUALIZE_CMD = 5; FINISH_DUALIZE_CMD = 6; DUALIZE_SECTORS_CMD = 7; ASSIGN_CMD = 8; ASSIGNDUAL_CMD = 9; DEASSIGN_CMD = 10; DISCARD_CMD = 11; RESERVE_CMD = 12; RELEASE_CMD = 13; MOUNT_CMD = 14; CHANGE_VOLUME_ID_CMD = 15; DISMOUNT_CMD = 16; UPDATE_CMD = 17; GET_ROOT_CMD = 18; GET_DEVICE_INFORMATION_CMD = 19; CHANGE_BOOT_ENTRY_CMD = 20; UNMOUNT_CMD = 21; CREATE_CMD = 22; EXMOUNT_CMD = 23; DISMANTLE_CMD = 24; INCLUDE_DEVICE_KIND_CMD = 25; RESET_CMD = 26; SET_FILE_SIZE_CMD = 27; OFFER_CMD = 28; ACCEPT_CMD = 30; PROTECT_CMD = 34; GET_FILE_INF_CMD = 36; ENTER_CMD = 38; LOOKUP_CMD = 40; DESCENT_CMD = 42; RENAME_CMD = 44; REMOVE_CMD = 46; READ_BYTES_CMD = 50; MODIFY_BYTES_CMD = 52; APPEND_BYTES_CMD = 54; READ_SECTORS_CMD = 60; WRITE_SECTORS_CMD = 62; WRITE_AND_PROTECT_CMD = 64; WRITE_AND_MARK_CMD = 66; FORMAT_CMD = 70; MTBREAK_CMD = 78; MTRESUME_CMD = 79; MTINIT_CMD = 80; MTMOUNT_CMD = 81; MTDISMOUNT_CMD = 82; MTCREATE_CMD = 83; MTFINDFILE_CMD = 84; REWIND_CMD = 85; MTSKIPFILES_CMD = 86; MTSKIPRECS_CMD = 88; FIRST_TQM_CMD = 90; FIRST_CRAM_CMD = 100; LAST_CRAM_CMD = 129; TYPE FM_CMD_ID = USER_ON_CMD..FIRST_TQM_CMD - 1; "COMMON PARAMETERS "----------------- USER_NAME = RECORD USER_GROUP : INTEGER; "IDENTITY OF THE USER" SEQ_NBR : INTEGER; "IDENTITY OF USER'S PROCESS" END "USER_NAME"; BYTE_POSN = (LOW_BYTE, HIGH_BYTE); TWO_CHARS = ARRAY [BYTE_POSN] OF BYTE; CONST DEV_NAME_SIZE = 4; VOL_NAME_SIZE = 16; FILE_NAME_SIZE = 16; TYPE DEVICE_NAME = ARRAY [0..DEV_NAME_SIZE/2-1] OF TWO_CHARS; VOLUME_NAME = ARRAY [0..VOL_NAME_SIZE/2-1] OF TWO_CHARS; FILE_NAME = ARRAY [0..FILE_NAME_SIZE/2-1] OF TWO_CHARS; FILE_SYSTEM_NAME = RECORD PNAME: PROCESS_NAME; GNAME: GROUP_NAME; END; CONST NAMELISTMAXINDEX = 10; TYPE NAMELISTTYPE = ARRAY [0..FILE_NAME_SIZE*NAMELISTMAXINDEX-1] OF CHAR; "INCLUDE DEVICE KIND PARAMS "-------------------------- CONST FD_SINGLE=10; FD_DOUBLE=12; MMD12=20; MMD24=22; MMD81=24; MMD82=26; MMD160=28; FMD675=30; SMD40=40; SMD80=42; SMD150=44; SMD300=46; SMD600=48; CMD32=60; CMD64=62; CMD96=64; PRINTER=70; CARD_READER=72; MAGNETIC_TAPE=74; FLOPPY = FD_SINGLE; TYPE DEVICE_KIND=FD_SINGLE..MAGNETIC_TAPE; CDC_TYPE = (MINI_MODULE, STORAGE_MODULE, CARTRIDGE_MODULE); UNIT_NBR = 0..3; SUBUNIT_NBR = 0..1; DRIVER_KIND = (FLOPPY_DRIVER,CDC_DRIVER, PRINTER_DRIVER,CARD_READER_DRIVER, MAGNETIC_TAPE_DRIVER); DEVICE_TABLE_ENTRY = RECORD DEV_KIND : DEVICE_KIND; CDC : CDC_TYPE; DRIVER : DRIVER_KIND; LAST_UNIT : UNIT_NBR; "LAST UNIT ALLOWED BY DRIVER" SECTOR_COUNT0 : LONG; "SECTORS ON SUBUNIT 0" SECTORS_PR_CYLINDER0 : INTEGER; "SECTORS/CYLINDER ON SUBUNIT 0" SECTOR_COUNT1 : LONG; SECTORS_PR_CYLINDER1 : INTEGER; END "DEVICE_TABLE_ENTRY"; "ASSIGN AND ASSIGNDUAL PARAMS "---------------------------- TYPE NEW_LOGICAL_DEVICE = RECORD KIND : DEVICE_KIND; CR80ADDR : INTEGER; "DEVICE INTERRUPT VECTOR(ADDRESS)" UNIT : UNIT_NBR; "THE 3 MSB NIBBLES CONTAIN THE RAM ADDR" SUBUNIT : SUBUNIT_NBR; DEVNAME : DEVICE_NAME "NAME OF DEVICE" END "NEW LOGICAL DEVICE"; NEW_LOGICAL_DUAL_DEVICE = RECORD NLD : NEW_LOGICAL_DEVICE; CR80ADDR_D : INTEGER; UNIT_D : UNIT_NBR; "THE 3 MSB NIBBLES CONTAIN THE RAM ADDR" END "NEW LOGICAL DUAL DEVICE"; "MOUNT PARAMETER "--------------- VOLUME_USE = ( SINGLE_VOL, DUAL_VOL, DUALIZABLE_VOL, PARTIAL_DUALIZABLE_VOL ); "GET DEVICE INFORMATION RECORD: "------------------------------ CONST "LAY-OUT OF USED_UNIT: SUB_UNIT_POSITION = 0; SUB_UNIT_WIDTH = 1; UNIT_POSITION = 1; UNIT_WIDTH = 15; TYPE DEV_STATE = (UNUSED, ASSIGNED, RESERVED, MOUNTED, DISK_CHANGED, WRITE_PROTECTED); VOL_STATE = (AMOS_VOL, MOUNTED_SINGLE, MOUNTED_DUAL, DISMOUNTED_SINGLE, DISMOUNTED_DUAL, DUALIZING_VOL); BFDNBR = LONG; DUAL_DISK_STATE = (DISK_OPENED, DISK_REDUALISING, DISK_DUALISING, DISK_CLOSED, DISK_DISCARDED); LOGICAL_DEVICE_INFO = RECORD STATE: DEV_STATE; "ASSIGNED, RESERVED OR MOUNTED RESERVER: INTEGER; "USER ID - ONLY VALID IF RESERVED DEVNAME: DEVICE_NAME; "LOG DEVICE NAME DUAL: BOOLEAN; "DUAL DISK OR NOT SECTORCOUNT: LONG; "NUMBER OF SECTORS ON VOLUME NBR_ERRORS: INTEGER; "NUMBER OF NON_REPORTED ERRORS "HAVE OCCURED ON THIS DEVICE END; CTRL_INFO = RECORD IOADDR : INTEGER; RAMADDR: INTEGER; END; PHYSICAL_DEVICE_INFO = RECORD KIND : DEVICE_KIND; USED_UNIT : INTEGER; "BIT 0 : SUB_UNIT "BIT 1 - 15: UNIT CONTROLLER_INFO: CTRL_INFO; STATUS : DUAL_DISK_STATE; END; TIME = ARRAY [0..2] OF INTEGER; VOLUME_INFO = RECORD VOLNAME: VOLUME_NAME; "NAME ASSIGNED TO VOLUME FREE_ENTRIES: LONG; "NUMBER OF FREE ENTRIES IN BFD BOOT_ENTRY: BFDNBR; "BFD NUMBER CREATION_DATE: TIME; ACCESS_DATE: TIME; FORMAT: INTEGER; "IDENTIFICATION OF FORMAT OF VOLUME STATE: VOL_STATE; END; DEVICE_INFORMATION = RECORD LOG_DEV_INFO: LOGICAL_DEVICE_INFO; PHYS_DEV_INFO: ARRAY [0..1] OF PHYSICAL_DEVICE_INFO; VOL_INFO: VOLUME_INFO; "ONLY VALID IF VOLUME MOUNTED FILLER: ARRAY [38..39] OF INTEGER; END; "PROTECT PARAMS "-------------- CONST "SPECIAL USERS SYSTEMUSER=#FFFF; "-1 FILESYSTEMUSERID=#FFFE; "-2 NOUSER=#FFFD; "-3 PUBLICUSER=#FFFC; "-4 "ACCESS TYPES AREADBYTES=0; AMODIFYBYTES=1; AAPPENDBYTES=2; AENTER=5; ALOOKUP=6; ARENAME=7; AREMOVE=8; ARESET=10; AGETFILEINFORMATION=11; APROTECT=12; AOFFER=14; TYPE ACCESSTYPE=AREADBYTES..AOFFER; ACCESS_TYPES= RECORD ACCESS1,ACCESS2:INTEGER "ARRAY [ACCESSTYPE] OF BITS END "ACCESS_TYPES"; PROTECT_PARAMS = RECORD SUBJECT : USER_NAME; ACCESS : ACCESS_TYPES END; "CREATE PARAMS "------------- CONST DIRECTORY =10; CONTIGUOUS =12; RANDOM =14; TYPE FILE_ORGANIZATION=DIRECTORY..RANDOM; NEW_ATTRIBUTES = RECORD VOLUME : VOLUME_NAME; ORGANIZATION : FILE_ORGANIZATION; ALLOCATION_SIZE : LONG; "NUMBER OF SECTORS ALLOCATED TO "THE FILE, IF IT IS CONTIGUOUS AREA_SIZE : INTEGER; "NUMBER OF SECTORS PER AREA, IF "THE FILE IS RANDOM OR DIRECTORY END "NEW ATTRIBUTES"; "GET FILE INFORMATION PARAMS "--------------------------- FILE_INFORMATION_TYPE = (F_ORGANIZATION, F_BYTESIZE, F_ALLOCATIONSIZE, "IF CONT FILE THEN SECTORS ELSE AREAS F_BODYADDRESS, "LOGICAL SECTOR NUMBER OF INDEX OR BODY F_AREASIZE, "SECTORS F_THRESHOLD, "NOT USED F_LINKS, "FROM DIRECTORIES F_IN_BFD, "BOOLEAN F_BFD_NUMBER, "BFD ENTRY NUMBER F_NBR_OF_USERS); "NBR OF USERS OF FILE "FORMAT OF COMMANDS "------------------ FILE_CMD = RECORD CMD_ID : FM_CMD_ID; CALLER : USER_NAME; FILE_1 : INTEGER; FILE_2 : INTEGER; FIRST_BYTE : LONG; BYTE_COUNT : LONG; END; SECT_CMD = RECORD CMD_ID : FM_CMD_ID; CALLER : USER_NAME; DEV_NAME : DEVICE_NAME; FIRST_SECT : LONG; SECT_COUNT : LONG; END; REPLY = RECORD RESULT : INTEGER; "COMPLETION CODE" RESULT_PAR : LONG; "COMMAND DEPENDANT RESULT PARAMETER" END "REPLY"; "FMS COMPLETION CODES "-------------------- CONST NONEXISTING_DEVICE = #400; ILLEGAL_DEVICE_KIND = #401; ILLEGAL_CR80_ADDR = #402; DEVICE_NAME_IN_USE = #403; ILLEGAL_UNIT = #404; ILLEGAL_SUBUNIT = #405; WRONG_VOLUME_NAME = #406; NONEXISTING_VOLUME = #407; VOLUME_MOUNTED = #408; DIFFERENT_VOLUMES = #409; ILLEGAL_FILE = #40A; ILLEGAL_ORGANIZATION = #40B; ILLEGAL_ALLOC_SIZE = #40C; ILLEGAL_AREA_SIZE = #40D; ILLEGAL_WRITE = #40E; FILE_CLOSED = #40F; FILES_OPEN = #410; NO_FILE_TO_ACCEPT = #411; NONEXISTING_USER = #412; USER_ALREADY_ACTIVE = #413; NO_CONNECTION = #414; ILLEGAL_USERGROUP = #415; ILLEGAL_CALLER = #416; OTHER_USERS = #417; NOT_CONTIGUOUS_DUALIZE = #418; OUT_OF_RANGE = #419; FILE_FULL = #41B; ACL_FULL = #41C; PROTECTION_FAILURE = #41D; ILLEGAL_DIRECTORY = #420; NAME_EXISTS = #421; NONEXISTING_NAME = #422; NOT_ALLOCATABLE = #423; KIND_UNIT_CONFLICT = #425; KIND_CTRLR_CONFLICT = #426; ILLEGAL_FILE_INF_TYPE = #428; NOT_A_DUAL_DISK = #429; ILLEGAL_DISCARD = #42A; UNKNOWN_COMMAND = #42C; BAD_SECTOR_DURING_FORMAT = #42D; UNIT_IS_IN_USE = #42F; VOLUME_NAME_IS_IN_USE = #430; DEVICE_NOT_RESERVED = #431; DEVICE_ALREADY_RESERVED = #432; DEVICE_NOT_SINGLE = #433; DEVICE_NOT_DUAL = #434; ILLEGAL_DCB_INDEX = #435; UNKNOWN_VOLUME_USE = #436; ILLEGAL_FINISH_DUALIZE = #437; ILLEGAL_START_DUALIZE = #43B; NOT_DUALIZING = #43C; DUALIZINGWITHOUTMOUNT = #43D; BAD_SECTOR_READ = #441; CORRUPT_HOMEBLOCK = #442; BAD_SECTOR_IN_ASF = #443; BST_FULL = #444; BAD_SECTOR_REPLACED = #448; LAST_BAD_SECTOR_REPLACED = #449; DIFFERENT_VOLUME_NAMES = #44A; DIFFERENT_ACCESS_DATES = #44B; NOT_ASSIGNED_DUAL = #44C; NOT_DISMOUNTED_DUAL = #44D; NOT_MOUNTED_DUAL = #44E; SECTOR_COUNT_CONFLICT = #44F; BST_SIZE_TOO_BIG = #450; NOT_EMPTY_DIRECTORY = #451; NO_DISK_CHANGE = #452; NO_SPARE_DEVICE_KINDS = #453; DRIVE_NOT_READY = #481; WRITE_PROTECTED_DEVICE = #482; UNEXPEC_DISK_I_F_STATUS = #483; DATA_OR_SYNC_ERROR = #484; ADDRESS_OR_SYNC_ERROR = #485; BAD_SECTOR = #486; WRITE_PROTECTED_SECTOR = #487; ILLEGAL_SECTOR = #488; TIMING_ERROR = #489; SUBBUS_OVERRUN = #48A; PARITY_ERROR = #48B; SELFTEST_RUNNING = #48C; CONTROLLER_RESET = #48D; SELFTEST_FAILED = #48E; CONTROLLER_FAILURE = #48F; TAPE_DEVICE_FAILURE = #B00; TAPE_SOFT_FAILURE = #B01; TAPE_NOT_INITIATED = #B03; TAPE_WRITE_PROTECTED = #B04; BEGINNING_OF_TAPE_SENSED = #B05; END_OF_TAPE_SENSED = #B06; LOGICAL_EOT_SENSED = #B07; FILE_MARK_SENSED = #B08; INVALID_RECORD_LENGTH = #B09; SHORT_DATA_RECORD = #B0A; LONG_DATA_RECORD = #B0B; TAPE_MUST_BE_LABELED = #B0C; FILE_MUST_BE_OPEN_FOR_INPUT = #B0D; FILE_NOT_BREAKABLE = #B0E; ILLEGAL_RESUME_TAPE = #B0F; END_OF_VOLUME = #B10; "END OF FMSPARAMS