Google
 

Trailing-Edge - PDP-10 Archives - BB-LW55A-BM_1988 - language-sources/rmsint.r36
There are 43 other files named rmsint.r36 in the archive. Click here to see a list.
!		BLISS-10 TO BLISS-36C CONVERSION  (VERSION 24(5)) 12/26/79


!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) 1979, 1980, 1981, 1984 BY DIGITAL EQUIPMENT CORPORATION


!****************************************************************
!*								*
!*			START OF RMSINT.REQ			*
!*								*
!*								*
!****************************************************************

!AUTHOR: S. BLOUNT

BUILTIN	JSYS,UUO,MACHOP;		!WARNING: DO NOT REPEAT THESE BUILTIN'S IN YOUR PROGRAM

LITERAL RMS$10=%O'600010';		!REFERENCED IN VERB CALLS ON 10.
					!TO LOAD USER PROG WITH RMS.REL,
					!REPLACE WITH EXTERNAL RMS$10;

LIBRARY 'SYS:RMSSYM.LUS';		!BRINGS IN RMS USER SYMBOL DEFINITIONS

! RMSINT SHOULD BE REQUIRED BY ALL RMS USER PROGRAMS.
! THE STATEMENT: REQUIRE 'SYS:RMSINT'; SHOULD BE PLACED SHORTLY AFTER
! MODULE name = BEGIN ... WITHIN YOUR RMS PROGRAMS.

! THE FOLLOWING GROUPS OF SYMBOLS ARE PLACED IN THE SCOPE OF YOUR PROGRAM:
!
!		$verb-name
!		$FETCH, $STORE, $FIELD, $RETURN
!		xAB$y, WHERE x=F,R, OR X  AND y=B OR E
!		XX$xxx, FB$xxx, FA$xxx, RB$xxx, RA$xxx, ...
!			XA$xxx, XB$xxx,  RMS SYMBOLIC CONSTANTS
!		F$xxx, R$xxx, X$xxx WHERE xxx IS RMS CTL BLOCK FIELD-NAME
!		ER$xxx, FE$xxx, SU$xxx, THE STATUS CODES
!		A NUMBER OF SYMBOLS WITH $$ SOMEWHERE IN THE NAME
!
!	IN THE FUTURE, ADDITIONAL SYMBOLS MAY BE ADDED TO THE RMS SYSTEM.
!	WHEN THIS IS DONE, THEY WILL BE FORMATTED IN AN ANALOGOUS FASHION.

! *** END RMSINT.REQ ***