Title Proces
;
;  COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983, 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.
;
;
; 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, 1)
; 
; Edit (%O'13', '3-Jul-86', 'Sandy Clemens')
; %( Add V2.1 files to DS21:. )%; 

        Entry Proces
        Search Monsym, Macsym
        T1==1
        T2==2
        T3==3
        T4==4
        P==17

Proces:

; 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.
;

Getinf: Movei   T1,.fhslf       ;what are the capabilities for this process?
        Rpcap                   ;T2=for process, T3=enabled for process
        Trne    T3,SC%WHL       ;if the process does not have wheel, skip
        Jrst    Yeswhl          ;there is wheel, go to Yeswhl

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

        End