mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
Upload
Digital Research
This commit is contained in:
@@ -0,0 +1,39 @@
|
||||
/* Customary literal declarations. */
|
||||
$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
|
||||
/*
|
||||
/* 09NOV81 Alex Hunter 1. Removed definitions of %-keywords, since
|
||||
/* PL/M-VAX V5.7 no longer wants the '%'.
|
||||
/*
|
||||
/********************************************************************/
|
||||
|
||||
declare TRUE literally '0FFH', FALSE literally '0',
|
||||
FOREVER literally 'while 1',
|
||||
ENDDO literally 'END;',
|
||||
ENDIF literally ' ';
|
||||
$RESTORE
|
||||
|
Reference in New Issue
Block a user