Google
 

Trailing-Edge - PDP-10 Archives - bb-r775d-bm_tops20_ks_upd_4 - documentation/proces.mac
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
;
; 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.
;
;
;
; 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 )%
; 

	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