|
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: 9452 (0x24ec)
Types: TextFile
Names: »ERP_PREFIX.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!PASCAL.D!ERP_PREFIX.S«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!ERP_PREFIX.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!PASCAL.D!ERP_PREFIX.S«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!ERP_PREFIX.S«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP005_V0501.D!CSS998.D!ERP_PREFIX.S«
"--------------------------------------------------------------------"
" "
" PROJECT: CR80 MX "
" "
" MODULE NAME: EVENT REPORT PREFIX "
" MODULE ID NMB: CSS998 "
" MODULE VERSION: 0101 "
" MODULE TYPE: PREFIX (SOURCE) "
" MODULE FILES: X "
" MERGE FILES: X "
" "
" SPECIFICATIONS: X "
" AUTHOR/DATE: HS/831201 "
" "
" DELIVERABLE: YES "
" SOURCE LANGUAGE: SWELL OR PASCAL "
" COMPILE COMPUTER: CR80/CR80 MX "
" TARGET COMPUTER: CR80/CR80 MX "
" OPERATING SYSTEM: CR80/CR80 MX "
" "
"--------------------------------------------------------------------"
" "
" CHANGE RECORD "
" "
" VERSION AUTHOR/DATE DESCRIPTION OF CHANGE "
" ------- ----------- --------------------- "
" "
" 0101 HS/831201 INITIAL RELEASE "
"--------------------------------------------------------------------"
"«ff»"
CONST
"-----------------------------------"
" O P C O D E S "
"-----------------------------------"
ERP_EVENT_REPORT = 1;
SUBSCRIBE_ENTER = 2;
SUBSCRIBE_EXIT = 3;
"-----------------------------------"
" S U B S C R I B E R "
" S E R V I C E "
"-----------------------------------"
ERP_NIL_SERVICE = #F;
ERP_LOG = 1;
ERP_LOG_ONLY = 3;
"-----------------------------------"
" R E P O R T E R "
" S E R V I C E "
"-----------------------------------"
" ERP_NIL_SERVICE = #F; "
" ERP_LOG = 1; "
ERP_DELAY_ANSWER = 2;
ERP_ALL = 3;
"-----------------------------------------"
" C O M P L E T I O N S C O D E S "
" F R O M E R P "
"-----------------------------------------"
ERP_CC = #D00;
ERP_OK = 0;
ERP_NOT_OK = 1 + ERP_CC;
ERP_STACK_FULL = 2 + ERP_CC;
ERP_LOG_FILE_ERROR = 3 + ERP_CC;
ERP_ILLEGAL_SERVICE = 4 + ERP_CC;
"-----------------------------------------"
" P R E D I F I N E D E V E N T "
" R E P O R T T Y P E S "
"-----------------------------------------"
NIL_TYPE = #FF;
RESERVED_TYPE = #FE;
MIN_PRED_TYPE = 128;
DEVICE_ERROR = 0 + MIN_PRED_TYPE;
IO_ERROR = 1 + MIN_PRED_TYPE;
SOFT_ERROR = 2 + MIN_PRED_TYPE;
FMS_DEVICE_ERROR = 3 + MIN_PRED_TYPE;
MAX_PRED_TYPE = FMS_DEVICE_ERROR;
TYPE
"-----------------------------------------"
" D E V I C E E R R O R "
"-----------------------------------------"
DEVICE_ERROR_TYPE =
RECORD
INTERRUPT_VECTOR : INTEGER;
DEVICE_STATUS : INTEGER;
SUBDEVICE : INTEGER;
INFO_0 : INTEGER;
INFO_1 : INTEGER;
INFO_2 : INTEGER
END;
TYPE
"-----------------------------------------"
" I O E R R O R "
"-----------------------------------------"
IO_ERROR_TYPE =
RECORD
INTERRUPT_VECTOR : INTEGER;
DEVICE_STATUS : INTEGER;
ABS_PROGRAM_LOC : ARRAY[0..1] OF INTEGER;
ABS_DATE_LOC : ARRAY[0..1] OF INTEGER;
INFO_0 : INTEGER;
INFO_1 : INTEGER
END;
TYPE
"-----------------------------------------"
" S O F T E R R O R "
"-----------------------------------------"
SOFT_ERROR_TYPE =
RECORD
ABS_PROGRAM_LOC : ARRAY[0..1] OF INTEGER;
INFO_0 : INTEGER;
INFO_1 : INTEGER
END;
TYPE
"-----------------------------------------"
" F M S D E V I C E E R R O R "
"-----------------------------------------"
FMS_DEVICE_ERROR_TYPE =
RECORD
DISK_DRIVER_STATUS : INTEGER;
DISK_STATUS : INTEGER;
DEVICE_NAME : ARRAY[0..1] OF INTEGER;
DISK_NUMBER : INTEGER;
SECTOR_NUMBER : ARRAY[0..1] OF INTEGER
END;
CONST
"-----------------------------------------"
" P R E D I F I N E D "
" M O D U L E I D ' S "
"-----------------------------------------"
NIL_MODULE_ID = #FF;
MIN_PRED_MODULE_ID = 0;
UTILITY_ID = 0;
KERNEL_ID = 1;
IO_SYSTEN_ID = 2;
FMS1_ID = 3;
FMS2_ID = 4;
FMS3_ID = 5;
TDX_DRIVER_ID = 6;
PASCAL_RUNTIME_ID = 7;
TOS_ID = 8;
LTU_DRIVER_ID = 9;
LINE_PRINTER_DRIVER_ID = 10;
MAG_TAPE_DRIVER_ID = 11;
COM_DRIVER_ID = 12;
ERP_ID = 13;
MAX_PRED_MODULE_ID = ERP_ID;
TYPE
"-----------------------------------"
" FORMAT OF LOG FILE PRESENTED TO "
" EVENT REPORT PROCESS AT "
" INITIALIZATION OF SUBSCRIBTION "
"-----------------------------------"
LOG_FILE_TYPE =
RECORD
FROM_ADAM : BOOLEAN;
FSN : FILE_SYSTEM_NAME;
VOL : VOLUME_NAME;
NAMELIST : NAMELISTTYPE;
NAME_NO : INTEGER
END;
"------------------------------------"
" EVENT REPORT MESSAGE SENT TO "
" EVENT REPORT PROCESS "
"------------------------------------"
EVENT_REPORT_MES =
RECORD
OP_SER_TYPE : INTEGER;
MODULE_ID : INTEGER;
REPORT_ADDRESS: INTEGER;
REPORT_SIZE : INTEGER;
DUMMY : INTEGER
END;
"------------------------------------"
" MESSAGE SENT TO EVENT REPORT "
" PROCESS AT INITIALIZATION "
" OF SUBSCRIBTION. "
"------------------------------------"
SUBSCRIBER_REQUEST =
RECORD
OP_SER_TYPE : INTEGER;
MODULE_ID : INTEGER;
LOG_FILE_ADDR : INTEGER;
DUMMY : ARRAY[0..1] OF INTEGER
END;
"------------------------------------"
" GENERAL ANSWER "
"------------------------------------"
ERP_ANSWER_MESSAGE =
RECORD
CC : COMPLETION_CODE;
BUFFER_ADDRESS : INTEGER;
BUFFER_SIZE : INTEGER;
DUMMY : ARRAY[0..1] OF INTEGER
END;
"------------------------------------"
" MESSAGE CONTAINING PROCESS NAME "
" OF REPORTING PROCESS "
"------------------------------------"
IDENTIFY_MESSAGE =
RECORD
OP : INTEGER;
REPORTING_PROCESS : ARRAY[0..2] OF INTEGER;
DUMMY : INTEGER
END;