There are 22 other files named proces.mac in the archive. Click here to see a list.
Title Proces COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983, 1984
; 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
; Digital assumes no responsibility for the use or reliability of its
; software on equipment which is not supplied by Digital.
; Facility: DIL-SAMPLE
; Edit History:
; new_version (1, 0)
; Edit (%O'1', '29-Oct-82', 'Sandy Clemens')
; %( Clean up DIL sample application and place in library.
; Files: JTSERV.CBL (NEW), JTTERM.CBL (NEW), IDXINI.CBL (NEW),
; JTTERM.VAX-COB (NEW), JTVRPT.CBL (NEW), PROCES.MAC (NEW) )%
; Edit (%O'6', '20-Jan-83', 'Sandy Clemens')
; %( Add copyright notice for 1983. Files: DSHST.TXT, IDXINI.CBL,
; JTSERV.CBL, JTTERM.CBL, JTTERM.VAX-COB, JTVRPT.CBL, PROCES.MAC )%
; Edit (%O'7', '24-Jan-83', 'Sandy Clemens')
; %( Add liability waiver to copyright notice. Files: DSHST.TXT,
; IDXINI.CBL, JTSERV.CBL, JTTERM.CBL, JTTERM.VAX-COB, JTVRPT.CBL,
; PROCES.MAC )%
; new_version (2, 0)
; Edit (%O'12', '17-Apr-84', 'Sandy Clemens')
; %( Add V2 files to DS2:.
; Make TOPS-10 version of PROCES.MAC -- Doug Rayner. )%
Opr==Xwd 1,2 ;Full file access PPN
; This is the code that will check to see if the process that is
; running the DIX sample application server is an enabled wheel. It is
; used to determine the number of passive links that should be opened.
; The DIX sample application server will open four passive links for a
; non-enabled wheel process and will open six links passive links for
; an enabled wheel.
Getppn T1, ;Get job's PPN
Jfcl ;Ignore special return
Camn T1,[Opr] ;[1,2]?
Jrst Yeswhl ;Yes
Nowhl: Movei T4,0 ;put 0 into acc 7, this means NO WHEEL
Movem T4,@0(16) ;put 0 into arguement of subroutine
Jrst Fini ;ok, go to the end
Yeswhl: Movei T4,1 ;put 1 into acc 7, this means WHEEL
Movem T4,@0(16) ;put 1 into arguement of subroutine
Fini: ;ok, we are done now
Popj p, ;return