Trailing-Edge
-
PDP-10 Archives
-
tops20-v7-ft-dist1-clock
-
7-sources/jsysdef.r36
There are 20 other files named jsysdef.r36 in the archive. Click here to see a list.
! JSYS definitions file
!
! Defines macros of the form
!
! JSYS_jsysname(ac1,ac2,ac3,ac4;ac1,ac2,ac3,ac4)
! \input values / \output values/
!
!
! COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1986.
! ALL RIGHTS RESERVED.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND
! COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH
! THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR
! ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE
! AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE
! SOFTWARE IS HEREBY TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
! NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
! EQUIPMENT CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
! ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
!
! REVISION HISTORY
!
! 202 Add catch of error to ODCNV.
! Gregory A. Scott 22-May-86
!
! 174 Add FLIN, DFIN, change TBADD to indicate we want to catch errors.
! Gregory A. Scott 20-May-86
!
! 171 Add CFORK, GET, WFORK, OPENF, RPCAP, SFORK.
! Gregory A. Scott 19-May-86
!
! 152 Add CHKAC.
! Gregory A. Scott 11-May-86
!
! 132 Add RIR, DTI, change ATI to have us trap the error code.
! Gregory A. Scott 28-Apr-86
!
! 123 Add SFRKV.
! Gregory A. Scott 23-Apr-86
!
! 112 Add IDCNV.
! Gregory A. Scott 3-Apr-86
!
! 03 - Make TTMSG have ERJMP after it
! 02 - Make DVCHR have ERJMP after it
! 01 - The beginning
!
MACRO
MJSYS(NAME,SKIPCNT,INREG,OUTREG)=
%ASSIGN(JSYSNO,NAME)
UNDECLARE NAME;
LINKAGE %NAME('L_',NAME) = JSYS (
%IF NOT %NULL(INREG) %THEN RPLIST( %REMOVE(INREG) ) %FI
%IF NOT %NULL(OUTREG) %THEN ; RPLIST( %REMOVE(OUTREG) ) %FI
)
:SKIP(SKIPCNT);
BIND ROUTINE %NAME('JSYS_',NAME) = JSYSNO: %NAME('L_',NAME); %,
RPLIST(A)[] = REGISTER=A %IF %LENGTH GTR 1 %THEN ,RPLIST(%REMAINING) %FI %;
COMPILETIME
JSYSNO=0;
! The following table defines many of the JSYS calls as JSYS_name. The
! "Skips" parameter value is a function of the "RETURNS" documentation in
! the Monitor Calls Reference Manual for the given JSYS. As a general rule:
!
! RETURNS Skips
!
! +1 always -1 if you want to catch any possible error condition
!
! 0 for no value on the JSYS routine. OS will field any
! possible error condition and abort (on error).
!
! +1 or +2 1 -- should always be coded here. The JSYS call can
! coded "if JSYS_FOOBAR (...) then ...;".
!
! +1, +2, or +3 2 -- should always be coded here. The JSYS call can
! coded "if JSYS_FOOBAR (...) then ...;".
!
! JSYS Name Skips Inputs Outputs
!
MJSYS( ACCES, -1, (1,2) ) ! ACCESS or CONNECT
MJSYS( AIC, 0, (1,2), ) ! Activate specific software Interrupt Channels
MJSYS( ATI, -1, (1), ) ! Assign terminal code CTRL/CHARACTER
MJSYS( BIN, -1, (1), (2) ) ! Byte INput
MJSYS( BKJFN, 1, (1), (1) ) ! BacK up source JFN
MJSYS( BOUT, 0, (1,2), ) ! Byte OUTput
MJSYS( CHFDB, -1, (1,2,3), ) ! Change File Descriptor Block
MJSYS( CHKAC, 1, (1,2), (1) ) ! CHecK ACcess to file
MJSYS( CFIBF, 0, (1), ) ! Clear File Input BuFfer
MJSYS( CFORK, 1, (1,2), (1) ) ! Create FORK
MJSYS( CLOSF, 1, (1), (1) ) ! CLOSes a File
MJSYS( CLZFF, 0, (1), ) ! Close Fork's Files
MJSYS( COMND, -1, (1,2), (1,2,3) ) ! parse COMaND element
MJSYS( CRJOB, 1, (1,2,3), (1) ) ! CReate JOB
MJSYS( CRLNM, 1, (1,2,3), (1) ) ! CReate Logical NaMe
MJSYS( DELDF, -1, (1,2), ) ! Expunge deleted files
MJSYS( DELNF, 1, (1,2), (1,2) ) ! Delete given number of versions
MJSYS( DFIN, -1, (1), (1,2,3,4)) ! Double Floating INput
MJSYS( DIC, 0, (1,2), ) ! Deactivates a specified interrupt channel
MJSYS( DIR, 0, (1) ) ! Disable interrupts
MJSYS( DIRST, 1, (1,2), (1) ) ! Get user directory name
MJSYS( DISMS, 0, (1), ) ! Dismiss process for specified time
MJSYS( DTI, -1, (1), ) ! Disable term int char
MJSYS( DVCHR, -1, (1), (1,2,3) ) ! Get device charicteristics
MJSYS( EIR, 0, (1), ) ! Enable software interrupt system
MJSYS( EPCAP, 0, (1,2,3), ) ! Enable capabilities
MJSYS( ERSTR, 2, (1,2,3), (1) ) ! Translate error code
MJSYS( ESOUT, 0, (1), (1) ) ! Error String OUTput
MJSYS( FLIN, -1, (1), (1,2,3) ) ! FLoating INput
MJSYS( GET, -1, (1,2), ) ! GET file into fork
MJSYS( GETAB, 1, (1), (1) ) ! Get Table info
MJSYS( GETER, -1, (1), (2) ) ! Get error code
MJSYS( GETJI, 1, (1,2,3), ) ! Get job information
MJSYS( GETNM, 0, , (1) ) ! Get SIXBIT prog. name
MJSYS( GEVEC, 0, (1), (2) ) ! Get Entry Vector
MJSYS( GJINF, 0, , (1,2,3,4)) ! Get Job Information
MJSYS( GNJFN, 1, (1), (1) ) ! Get next JFN in group
MJSYS( GTAD, 0, , (1) ) ! Get date, time in internal form
MJSYS( GTJFN, 1, (1,2), (1) ) ! Get JFN
MJSYS( GTFDB, -1, (1,2,3), ) ! Get FDB
MJSYS( HALTF, 0, , ) ! Exit to monitor
MJSYS( IDCNV, 1, (2,3,4), (2,3) ) ! Convert seperate numbers into universal date_time format
MJSYS( IDTIM, 1, (1,2), (1,2) ) ! Translate text into interal date-time format
MJSYS( JFNS, -1, (1,2,3,4), (1) ) ! JFN to string translation
MJSYS( LGOUT, 1, (1), (1) ) ! Log out
MJSYS( LNMST, 1, (1,2,3), (1,3) ) ! Translate logical name
MJSYS( MSTR, -1, (1,2), ) ! Mountable structure manipulation
MJSYS( MTOPR, -1, (1,2,3), (1,2,3,4)) ! All-purpose JSYS
MJSYS( NIN, 1, (1,2,3), (1,2,3)) ! Read a number
MJSYS( NODE, -1, (1, 2), ) ! Network functions
MJSYS( NOUT, 1, (1,2,3), ) ! Output decimal number
MJSYS( ODCNV, -1, (2,4), (2,3,4) ) ! Get date and time
MJSYS( ODTIM, 0, (1,2,3), (1) ) ! Get date and time
MJSYS( OPENF, 1, (1,2), (1) ) ! OPENs a File
MJSYS( PBIN, 0, , (1) ) ! .Priin Byte INput
MJSYS( PBOUT, 0, (1), ) ! Outputs next byte
MJSYS( PSOUT, 0, (1), (1) ) ! Outputs next string
MJSYS( RCDIR, -1, (1,2,3), (1,2,3) ) ! Get directory info
MJSYS( RCM, 0, (1), (1) ) ! Read Channel Mask
MJSYS( RDTTY, 1, (1,2,3), (1,2) ) ! Read from primary input
MJSYS( RESET, 0, , ) ! Init current process
MJSYS( RFMOD, 0, (1), (2) ) ! Reads a file's mode
MJSYS( RFPOS, 0, (1), (2) ) ! Pickup terminal info
MJSYS( RIR, 0, (1), (2) ) ! Read Interrupt addrs
MJSYS( RLJFN, 1, (1), (1) ) ! Release JFN
MJSYS( RPACS, 0, (1), (2) ) ! Page Accessibility
MJSYS( RPCAP, 0, (1), (2,3) ) ! Read process caps
MJSYS( RSCAN, 1, (1), (1) ) ! Get rescan buffer
MJSYS( RTIW, 0, (1), (2,3) ) ! Read term int word
MJSYS( RUNTM, 0, (1), (1,2,3) ) ! Returns job runtime
MJSYS( SETNM, 0, (1), ) ! Set program's name
MJSYS( SETSN, 1, (1,2), ) ! Set prog subsys name
MJSYS( SFMOD, 0, (1,2), ) ! Sets a file's mode
MJSYS( SFPTR, 1, (1,2), (1) ) ! Sets file's pointer
MJSYS( SFORK, -1, (1,2), ) ! Start FORK
MJSYS( SFRKV, -1, (1,2), ) ! Start fork at vector
MJSYS( SIBE, 1, (1), (2) ) ! Skip if input empty
MJSYS( SIN, -1, (1,2,3,4), (1,2,3) ) ! String input
MJSYS( SINR, -1, (1,2,3,4), (1,2,3) ) ! String input
MJSYS( SIR, 0, (1,2), ) ! Set channel and priority table addresses
MJSYS( SOUT, -1, (1,2,3,4), (1,2,3) ) ! String output
MJSYS( SOUTR, -1, (1,2,3,4), (1,2,3) ) ! String output
MJSYS( SPACS, 0, (1,2), ) ! Set page accessability
MJSYS( STIW, 0, (1,2,3), ) ! Set term int word
MJSYS( TBADD, -1, (1,2), ) ! TaBle ADD
MJSYS( TBLUK, -1, (1,2), (1,2) ) ! Table lookup
MJSYS( TEXTI, 1, (1), (1) ) ! I/P from term or file
MJSYS( TIME, 0, , (1,2) ) ! Get system "up" time
MJSYS( TIMER, 1, (1,2,3), (1) ) ! Set timer interrupts
MJSYS( TTMSG, -1, (1,2), ) ! Broadcast message
MJSYS( WFORK, -1, (1), ) ! Wait for a FORK
UNDECLARE
JSYSNO,
%QUOTE MJSYS,
%QUOTE RPLIST;