Trailing-Edge
-
PDP-10 Archives
-
BB-FB51A-RM
-
sna-ai/sources/jsys.r36
There are 2 other files named jsys.r36 in the archive. Click here to see a list.
! Copyright (c) 1981, 1982 by
! DIGITAL EQUIPMENT CORPORATION, Maynard, Massachusetts
!
! 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 which is not supplied by Digital.
%sbttl 'Expansion Macros'
compiletime
$C$ = 0;
macro
$$JSYS_EXPAND_REGISTERS (MAX) [] =
%if $C$ gtr MAX
%then %exititeration %fi
%if $C$ gtr 1
%then , %fi register = $C$
%assign ($C$, $C$+1)
$$JSYS_EXPAND_REGISTERS (MAX) %;
macro
$$REGISTERS (COUNT) =
%assign ($C$, 1)
$$JSYS_EXPAND_REGISTERS (COUNT) %;
macro ! JSYS Declaration
$JSYS (JSYS_NAME, IREG, OREG, SKIP_VALUE) =
linkage %name('$',%string(JSYS_NAME),'$') =
jsys %if (IREG gtr 0) or (OREG gtr 0)
%then (%if IREG gtr 0
%then $$REGISTERS (IREG) %fi
%if OREG gtr 0
%then ; $$REGISTERS (OREG) %fi)
%fi
: skip (SKIP_VALUE);
bind routine %name('JSYS_',%string(JSYS_NAME)) =
%name(%string(JSYS_NAME)) : %name('$',%string(JSYS_NAME),'$')
%;
%sbttl 'JSYS Declarations'
! Name Input Output Skip
! reg reg value
$JSYS (ACCES, 2, 0, -1); !Access a directory
$JSYS (ADBRK, 3, 3, -1); !Control address breaks
$JSYS (AIC, 2, 0, -1); !Activate interrupt channels
$JSYS (ALLOC, 3, 0, 1); !Allocate a device
$JSYS (ARCF, 3, 0, -1); !Archive control
$JSYS (ASND, 1, 1, 1); !Assign a device
$JSYS (ASNSQ, 2, 1, 1); !Assign ARPAnet spec. queue
$JSYS (ATACH, 4, 1, 1); !Attach/detach
$JSYS (ATI, 1, 0, -1); !Assign terminal interrupts
$JSYS (ATNVT, 2, 1, 1); !Create ARPAnet virt. tty
$JSYS (BIN, 1, 2, -1); !Byte input
$JSYS (BKJFN, 1, 1, 1); !Backup JFN
$JSYS (BOOT, 2, 0, -1); !Comm. hardware control
$JSYS (BOUT, 2, 1, -1); !Byte output
$JSYS (CACCT, 1, 1, 1); !Change account
$JSYS (CFIBF, 1, 0, -1); !Clear tty input buffer
$JSYS (CFOBF, 1, 0, -1); !Clear tty output buffer
$JSYS (CFORK, 2, 1, 1); !Create fork
$JSYS (CHFDB, 3, 0, -1); !Change FDB
$JSYS (CHKAC, 2, 1, 1); !Check file access
$JSYS (CIS, 0, 0, -1); !Clear interrupt system
$JSYS (CLOSF, 1, 1, 1); !Close file
$JSYS (CLZFF, 1, 1, -1); !Close process' files
$JSYS (COMND, 2, 3, -1); !Command parsing
$JSYS (CRDIR, 3, 1, -1); !Directory maintenance
$JSYS (CRJOB, 3, 1, 1); !Create a job
$JSYS (CRLNM, 3, 3, 1); !Logical name manipulation
$JSYS (CVHST, 2, 1, 1); !Convert ARPAnet host to name
$JSYS (CVSKT, 1, 2, 1); !Convert ARPAnet socket
$JSYS (DEBRK, 0, 0, -1); !Dismiss interrupt
$JSYS (DELDF, 2, 2, -1); !Expunge disk files
$JSYS (DELF, 1, 1, 1); !Delete files
$JSYS (DELNF, 2, 2, 1); !Delete specified generations
$JSYS (DEQ, 2, 1, 1); !Dequeue from resource wait
$JSYS (DEVST, 2, 1, 1); !Translate device name
$JSYS (DFIN, 1, 3, 1); !Double floating input
$JSYS (DFOUT, 4, 1, 1); !Double floating output
$JSYS (DIAG, 1, 1, 1); !Misc. device diagnostic func.
$JSYS (DIBE, 1, 0, -1); !Dismiss until input buf. empty
$JSYS (DIC, 2, 0, -1); !Deactivate interrupt channels
$JSYS (DIR, 1, 0, -1); !Disable interrupt system
$JSYS (DIRST, 2, 1, 1); !Translate directory string
$JSYS (DISMS, 1, 0, -1); !Sleep for specified period
$JSYS (DOBE, 1, 0, -1); !Dismiss until output buf empty
$JSYS (DSKAS, 2, 1, 1); !Assign specific disk address
$JSYS (DSKOP, 4, 1, -1); !Misc. disk operations
$JSYS (DTACH, 0, 0, -1); !Detach job from tty
$JSYS (DTI, 1, 0, -1); !Deassign tty interrupt
$JSYS (DUMPI, 2, 2, 1); !Dump mode input
$JSYS (DUMPO, 2, 2, 1); !Dump mode output
$JSYS (DVCHR, 1, 3, -1); !Return device characteristics
$JSYS (EIR, 1, 0, -1); !Enable interrupts
$JSYS (ENQ, 2, 1, 1); !Place in resource wait queue
$JSYS (ENQC, 3, 1, 1); !ENQueue control
$JSYS (EPCAP, 3, 0, -1); !Enable capabilities
$JSYS (ERSTR, 3, 1, 2); !Translate error number
$JSYS (ESOUT, 1, 1, -1); !Output an error string
$JSYS (FFFFP, 1, 1, -1); !Find first free page
$JSYS (FFORK, 1, 0, -1); !Freeze a fork
$JSYS (FFUFP, 1, 1, 1); !Find first used page
$JSYS (FLHST, 1, 0, -1); !Flush ARPAnet host
$JSYS (FLIN, 1, 3, 1); !Floating point input
$JSYS (FLOUT, 3, 3, 1); !Floating point output
$JSYS (GACCT, 2, 2, -1); !Get account for job
$JSYS (GACTF, 2, 2, 2); !Get account for file
$JSYS (GCVEC, 1, 3, -1); !Get UUO entry vector
$JSYS (GDSKC, 1, 2, -1); !Get disk usage
$JSYS (GDSTS, 1, 4, -1); !Get device status
$JSYS (GDVEC, 1, 2, -1); !Get RMS entry vector
$JSYS (GET, 2, 0, -1); !Get a save file
$JSYS (GETAB, 1, 1, 1); !Return a word from the mon.
$JSYS (GETER, 1, 2, -1); !Return most recent error
$JSYS (GETJI, 3, 2, 1); !Get job info
$JSYS (GETNM, 0, 1, -1); !Get program name
$JSYS (GETOK_,4, 0, -1); !Request access to resource
$JSYS (GEVEC, 1, 2, -1); !Get entry vector
$JSYS (GFRKH, 2, 1, 1); !Get a fork handle
$JSYS (GFRKS, 3, 1, 1); !Get fork structure
$JSYS (GFUST, 2, 2, -1); !Return file writer/author
$JSYS (GIVOK_,3, 0, -1); !Allow access to resource
$JSYS (GJINF, 0, 4, -1); !Get current job info
$JSYS (GNJFN, 1, 1, 1); !Get next wildcarded JFN
$JSYS (GPJFN, 1, 2, -1); !Get primary JFNs for job
$JSYS (GTAD, 0, 1, -1); !Get date
$JSYS (GTDAL, 1, 3, -1); !Get disk allocation
$JSYS (GTDIR, 3, 3, -1); !Get directory information
$JSYS (GTFDB, 3, 0, -1); !Get FDB information
$JSYS (GTHST, 4, 4, 1); !Get ARPAnet host information
$JSYS (GTJFN, 2, 2, 1); !Get a JFN
$JSYS (GTRPI, 1, 3, -1); !Get pager trap information
$JSYS (GTNCP, 4, 4, 1); !Get ARPAnet NCP information
$JSYS (GTRPW, 1, 2, -1); !Get trap words
$JSYS (GTSTS, 1, 2, -1); !Get file status
$JSYS (GTTYP, 1, 3, -1); !Get terminal type
$JSYS (HALTF, 0, 0, 0); !Halt current process
$JSYS (HFORK, 1, 0, -1); !Halt specified fork
$JSYS (HPTIM, 1, 1, 1); !Return high-precision time
$JSYS (HSYS, 2, 1, 1); !Halt the system
$JSYS (IDCNV, 4, 3, 1); !Input date & time conversion
$JSYS (IDTIM, 2, 2, 1); !Input date & time
$JSYS (IDTNC, 2, 2, 1); !Input date and/or time conv.
$JSYS (IIC, 2, 0, -1); !Initiate interrupt
$JSYS (INLNM, 2, 2, 1); !Return logical name
$JSYS (JFNS, 4, 1, -1); !Return file name
$JSYS (KFORK, 1, 0, -1); !Kill fork
$JSYS (LGOUT, 1, 1, 1); !Log job out
$JSYS (LNMST, 3, 3, 1); !Logical name translation
$JSYS (LOGIN, 3, 3, 1); !Log job in
$JSYS (LPINI, 3, 0, -1); !Load lpt VFU
$JSYS (MDDT_, 0, 0, -1); !Transfer control to MDDT
$JSYS (METER_,1, 3, -1); !Return EBOX meter
$JSYS (MRECV, 2, 1, 1); !IPCF receive
$JSYS (MSEND, 2, 1, 1); !IPCF send
$JSYS (MSFRK, 2, 0, -1); !Start process in monitor mode
$JSYS (MSTR, 2, 0, -1); !Misc. structure manipulation
$JSYS (MTALN, 2, 0, -1); !Assign mta serial numbers
$JSYS (MTOPR, 4, 4, -1); !Misc. device control func.
$JSYS (MTU_, 3, 0, -1); !Privileged mta control
$JSYS (MUTIL, 2, 1, 1); !IPCF utility functions
$JSYS (NIN, 3, 3, 1); !Integer input
$JSYS (NODE, 2, 0, -1); !Network utility functions
$JSYS (NOUT, 3, 3, 1); !Integer output
$JSYS (ODCNV, 4, 4, -1); !Convert date/time output
$JSYS (ODTIM, 3, 1, -1); !Output date/time
$JSYS (ODTNC, 5, 1, -1); !ODTIM subset
$JSYS (OPENF, 2, 1, 1); !Open file
$JSYS (PBIN, 0, 1, -1); !Primary byte input
$JSYS (PBOUT, 1, 0, -1); !Primary byte output
! $JSYS (PDVOP_,3, 0, -1); !PDV manipulation
$JSYS (PEEK, 2, 1, 1); !Peek at the monitor
$JSYS (PLOCK, 3, 0, -1); !Lock pages
$JSYS (PMAP, 3, 0, -1); !Page manipluation
$JSYS (PMCTL, 3, 0, -1); !Physical memory control
$JSYS (PPNST, 3, 1, -1); !Translate TOPS-10 PPN
$JSYS (PRARG, 3, 3, -1); !Build argument block
$JSYS (PSOUT, 1, 1, -1); !Primary string output
$JSYS (RCDIR, 3, 3, -1); !Translate directory name
$JSYS (RCM, 1, 1, -1); !Return interrupt channel mask
$JSYS (RCUSR, 3, 3, -1); !Translate user name
$JSYS (RCVIM, 2, 2, 1); !Retrive ARPAnet special msg.
$JSYS (RCVOK_,2, 0, -1); !Receive next GETOK% request
$JSYS (RDTTY, 3, 2, 1); !Read from tty
$JSYS (RELD, 1, 1, 1); !Release device
$JSYS (RELSQ, 1, 0, -1); !Release ARPAnet spec. msg. q.
$JSYS (RESET, 0, 0, -1); !Reset process
$JSYS (RFACS, 2, 0, -1); !Return ACs from process
$JSYS (RFBSZ, 1, 2, 2); !Return file byte size
$JSYS (RFCOC, 1, 3, -1); !Return control char mask
$JSYS (RFMOD, 1, 2, -1); !Return file mode
$JSYS (RFORK, 1, 0, -1); !Resume fork
$JSYS (RFPOS, 1, 2, -1); !Return tty pointer
$JSYS (RFPTR, 1, 2, 1); !Return file pointer
$JSYS (RFRKH, 1, 1, 2); !Release fork handle
$JSYS (RFSTS, 1, 3, -1); !Return fork status
$JSYS (RFTAD, 3, 0, -1); !Return file date/time
$JSYS (RIN, 3, 2, -1); !Random byte input
$JSYS (RIR, 1, 2, -1); !Return LEVTAB,,CHNTAB
$JSYS (RIRCM, 1, 2, -1); !Return reserved channel mask
$JSYS (RLJFN, 1, 1, 1); !Release JFN
$JSYS (RMAP, 1, 2, -1); !Return page info
$JSYS (RNAMF, 2, 2, 1); !Rename file
$JSYS (ROUT, 3, 0, -1); !Random byte output
$JSYS (RPACS, 1, 2, -1); !Return page accessibility
$JSYS (RPCAP, 1, 3, -1); !Return process capabilitites
$JSYS (RSCAN, 1, 1, 1); !Rescan input
! $JSYS (RSMAP_,1, 2, -1); !Read section map
$JSYS (RTFRK, 0, 2, -1); !Return fork handle for susp.
$JSYS (RTIW, 1, 3, -1); !Return tty interrupt word
$JSYS (RUNTM, 1, 3, -1); !Return run time
$JSYS (RWM, 1, 2, -1); !Return interrupt wait mask
$JSYS (RWSET, 0, 0, -1); !Release working set
$JSYS (SACTF, 2, 2, 1); !Set file account
$JSYS (SAVE, 2, 0, -1); !Save in .EXE file
$JSYS (SCTTY, 2, 2, -1); !Redefine tty for process
$JSYS (SCVEC, 3, 3, -1); !Set UUO vector
$JSYS (SDSTS, 2, 0, -1); !Set device status
$JSYS (SDVEC, 2, 0, -1); !Set RMS vector
$JSYS (SETER, 2, 0, -1); !Set process error
$JSYS (SETJB, 3, 0, -1); !Set job parameters
$JSYS (SETNM, 1, 0, -1); !Set program name
$JSYS (SETSN, 2, 0, 1); !Set system name
$JSYS (SEVEC, 2, 0, -1); !Set entry vector
$JSYS (SFACS, 2, 0, -1); !Set process ACs
$JSYS (SFBSZ, 2, 1, 1); !Set file byte size
$JSYS (SFCOC, 3, 0, -1); !Set control char. output
$JSYS (SFMOD, 2, 0, -1); !Set tty mode
$JSYS (SFORK, 2, 0, -1); !Start fork
$JSYS (SFPOS, 2, 0, -1); !Set tty pointer
$JSYS (SFPTR, 2, 1, 1); !Set file pointer
$JSYS (SFRKV, 2, 0, -1); !Start process using entry vec.
$JSYS (SFTAD, 3, 0, -1); !Set file date/time
$JSYS (SFUST, 2, 2, -1); !Set file writer
$JSYS (SIBE, 1, 2, 1); !Skip if input buffer empty
$JSYS (SIN, 4, 3, -1); !String input
$JSYS (SINR, 4, 3, -1); !Record input
$JSYS (SIR, 2, 2, -1); !Specify interrupt tables
$JSYS (SIRCM, 3, 0, -1); !Set reserved channel mask
$JSYS (SIZEF, 1, 3, 1); !Return file size
$JSYS (SJPRI, 2, 0, -1); !Set job priority
$JSYS (SKED_, 2, 0, -1); !Scheduler control
$JSYS (SKPIR, 1, 0, 2); !Skip if interrupts enabled
$JSYS (SMAP_, 3, 0, -1); !Section map control
$JSYS (SMON, 2, 0, -1); !Set monitor parameters
$JSYS (SNDIM, 2, 1, 1); !Send spec. ARPAnet message
$JSYS (SNOOP, 4, 1, 1); !System performance analysis
$JSYS (SOBE, 1, 2, 1); !Skip if output buffer empty
$JSYS (SOBF, 1, 0, 1); !Skip if output buffer full
$JSYS (SOUT, 4, 3, -1); !String output
$JSYS (SOUTR, 4, 3, -1); !Record output
$JSYS (SPACS, 2, 0, -1); !Set page accessibility
$JSYS (SPJFN, 2, 0, -1); !Set primary JFNs
$JSYS (SPLFK, 2, 1, 1); !Splice process structure
$JSYS (SPOOL, 2, 1, 1); !Spooling control
$JSYS (SPRIW, 2, 0, -1); !Set priority work for process
$JSYS (SSAVE, 3, 0, -1); !Shareable save in .EXE file
$JSYS (STAD, 1, 1, 1); !Set date/time
$JSYS (STCMP, 2, 2, -1); !String comparison
$JSYS (STDEV, 1, 2, 1); !Translate device name
$JSYS (STI, 2, 0, -1); !Simulate tty input
$JSYS (STIW, 3, 0, -1); !Set tty input word
$JSYS (STO, 1, 2, -1); !Simulate tty output
$JSYS (STPAR, 2, 0, -1); !Set tty parameters
$JSYS (STPPN, 1, 2, -1); !Translate TOPS-10 PPN
$JSYS (STSTS, 2, 1, 1); !Clear file status
$JSYS (STTYP, 2, 0, -1); !Set terminal type
$JSYS (SWJFN, 2, 0, -1); !Swap JFNs
$JSYS (SWTRP_,3, 0, -1); !Set arithmetic trap
$JSYS (SYERR, 2, 0, -1); !Make ERROR.SYS entry
$JSYS (SYSGT, 1, 2, -1); !Get system data
$JSYS (TBADD, 2, 1, -1); !Add to table
$JSYS (TBDEL, 2, 0, -1); !Delete from table
$JSYS (TBLUK, 2, 3, -1); !Table lookup
$JSYS (TEXTI, 1, 1, 1); !Text input
$JSYS (TFORK, 3, 0, -1); !Set JSYS traps
$JSYS (THIBR, 1, 0, 1); !Snooze for specified period
$JSYS (TIME, 0, 2, -1); !Return system uptime
$JSYS (TIMER, 3, 1, 1); !Control run time
$JSYS (TLINK, 2, 1, 1); !Control tty linking
$JSYS (TMON, 1, 2, -1); !Return monitor flags
$JSYS (TTMSG, 2, 0, -1); !Broadcast messages
$JSYS (TWAKE, 1, 1, 1); !Wake a THIBRing job
$JSYS (UFPGS, 2, 1, 1); !Update file pages
$JSYS (USAGE, 2, 0, -1); !Control accounting
$JSYS (USRIO, 0, 1, 1); !Enable user I/O
$JSYS (UTEST, 2, 0, -1); !Test monitor calls
$JSYS (UTFRK, 1, 0, -1); !Resume susp. process
$JSYS (VACCT, 2, 2, -1); !Validate account
$JSYS (WAIT, 0, 0, -1); !Wait for interrupt
$JSYS (WFORK, 1, 0, -1); !Wait for a fork
$JSYS (WILD_, 3, 1, -1); !Wildcard manipulations
! $JSYS (XGSEV_,1, 2, -1); !Extended get special vector
! $JSYS (XGTPW_,2, 0, -1); !Extended get page fail info
! $JSYS (XGVEC_,1, 3, -1); !Extended get entry vector
$JSYS (XRIR_, 2, 0, -1); !Extended get LEVTAB,,CHNTAB
! $JSYS (XRMAP_,2, 0, -1); !Extended get page params.
! $JSYS (XSFRK_,3, 0, -1); !Extended start fork
$JSYS (XSIR_, 2, 0, -1); !Extended set LEVTAB,,CHNTAB
! $JSYS (XSSEV_,1, 3, -1); !Extended set spec. vector
! $JSYS (XSVEC_,3, 0, -1); !Extended set entry vector
undeclare $C$;