mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 07:54:25 +00:00
64 lines
3.2 KiB
Plaintext
64 lines
3.2 KiB
Plaintext
/* UDI exception codes. */
|
|
$SAVE NOLIST
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* D I S C L A I M E R N O T I C E */
|
|
/* ------------------- ----------- */
|
|
/* */
|
|
/* This document and/or portions of the material and data furnished */
|
|
/* herewith, was developed under sponsorship of the U. S. Government. */
|
|
/* Neither the U.S. nor the U.S.D.O.E., nor the Leland Stanford Junior */
|
|
/* University, nor their employees, nor their respective contractors, */
|
|
/* subcontractors, or their employees, makes any warranty, express or */
|
|
/* implied, or assumes any liability or responsibility for accuracy, */
|
|
/* completeness or usefulness of any information, apparatus, product */
|
|
/* or process disclosed, or represents that its use will not infringe */
|
|
/* privately-owned rights. Mention of any product, its manufacturer, */
|
|
/* or suppliers shall not, nor is it intended to, imply approval, dis- */
|
|
/* approval, or fitness for any particular use. The U. S. and the */
|
|
/* University at all times retain the right to use and disseminate same */
|
|
/* for any purpose whatsoever. Such distribution shall be made by the */
|
|
/* National Energy Software Center at the Argonne National Laboratory */
|
|
/* and only subject to the distributee furnishing satisfactory proof */
|
|
/* that he has a valid license from the Intel Corporation in effect. */
|
|
/* */
|
|
/*-----------------------------------------------------------------------*/
|
|
/* */
|
|
/* R E V I S I O N H I S T O R Y */
|
|
/* */
|
|
/* 14JAN82 Alex Hunter 1. Change value of E$SUPPORT per Series III */
|
|
/* Programmer's Reference Manual Rev. B. */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
declare
|
|
E$OK literally '0000H',
|
|
E$CONTEXT literally '0101H',
|
|
E$CROSSFS literally '0102H',
|
|
E$EXIST literally '0103H',
|
|
E$FACCESS literally '0026H',
|
|
E$FEXIST literally '0020H',
|
|
E$FNEXIST literally '0021H',
|
|
E$MEM literally '0002H',
|
|
E$NOPEN literally '0104H',
|
|
E$OPEN literally '0105H',
|
|
E$OREAD literally '0106H',
|
|
E$OWRITE literally '0107H',
|
|
E$PARAM literally '0108H',
|
|
E$PTR literally '0109H',
|
|
E$SHARE literally '0028H',
|
|
E$SIX literally '010AH',
|
|
E$SPACE literally '0029H',
|
|
E$STRING$BUF literally '0081H',
|
|
E$SUPPORT literally '0023H',
|
|
E$SYNTAX literally '010CH',
|
|
E$UNSAT literally '010EH',
|
|
E$ADDRESS literally '010FH',
|
|
E$BAD$FILE literally '0110H',
|
|
E$ZERO$DIVIDE literally '8000H',
|
|
E$OVERFLOW literally '8001H',
|
|
E$8087 literally '8007H';
|
|
$RESTORE
|
|
|