Trailing-Edge
-
PDP-10 Archives
-
BB-H137C-BM
-
new-subsys/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 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 ***