Trailing-Edge
-
PDP-10 Archives
-
cuspmar86binsrc_2of2_bb-fp63a-sb
-
10,7/rms10/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 ***