Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/mcb/nsclo.list
There are no other files named nsclo.list in the archive.
NSCLO	MACRO M1110  13-OCT-79 10:19
TABLE OF CONTENTS

     4-   65	$CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR
NSCLO	MACRO M1110  13-OCT-79 10:19  PAGE 3


      1					.IIF NDF V$$ER1	.TITLE NSCLO
      2					.IIF DF V$$ER1	.TITLE NSCLO1
      3						.IDENT	/V01.00/
      4
      5					;
      6					; COPYRIGHT (C) 1978 BY
      7					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      8					;
      9					;
     10					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
     11					; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
     12					; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
     13					; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
     14					; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
     15					; TRANSFERRED.
     16					;
     17					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
     18					; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
     19					; CORPORATION.
     20					;
     21					; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
     22					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
     23					;
     24					;
     25					; MODULE DESCRIPTION
     26					;
     27					;	ACP CLOSE LUN QIO PROCESSOR
     28					;
     29					;
     30					;
     31					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     32					;
     33					; IDENT HISTORY:
     34					;
     35					; 1.00	10-FEB-78
     36					;	VERSION 2.0 RELEASE
     37					;
     38
     39					; MACRO LIBRARY CALLS
     40					;
     41
     42						.MCALL	MBXDF$,LLWDF$
     43	000000					MBXDF$			;DEFINE MAILBOX BLOCK OFFSETS
     44	000000					LLWDF$			;DEFINE WINDOW BLOCK OFFSETS
     45
     46					;
     47					; LOCAL MACRO DEFINITIONS
     48					;
     49					;
     50					; PUSH AND POP STACK INSTRUCTIONS
     51					;
     52
     53						.MACRO	PUSH	S
     54						.IRP	SS,<S>
     55						MOV	SS,-(SP)
     56						.ENDR
     57						.ENDM	PUSH
NSCLO	MACRO M1110  13-OCT-79 10:19  PAGE 3-1


     58
     59						.MACRO	POP	D
     60						.IRP	DD,<D>
     61						MOV	(SP)+,DD
     62						.ENDR
     63						.ENDM	POP
NSCLO	MACRO M1110  13-OCT-79 10:19  PAGE 4
$CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR

     65					.SBTTL	$CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR
     66
     67					;+
     68					; ** - $CLOQIO - CLOSE LUN QIO PROCESSOR
     69					;
     70					; THIS ROUTINE PROCESSES QIO REQUESTS WITH FUNCTION CODES
     71					; OF 7.  SINCE FUNCTION CODE 7 IS NOT A LEGAL FUNCTION
     72					; FOR THE NETWORK PSEUDO DEVICE (NS:), THESE REQUESTS MUST
     73					; COME FROM THE EXECUTIVE DURING I/O RUNDOWN OF A TASK.
     74					;
     75					; INPUTS:
     76					;
     77					;	R1=SUBFUNCTION CODE
     78					;	R3=I/O PACKET ADDRESS
     79					;
     80					; OUTPUTS:
     81					;
     82					;-
     83
     84	000000					.PSECT	$NSACP
     85
     86	000000				$CLOQIO::SWSTK$	20$		;SWITCH TO SYSTEM STATE
     87
     88						.IF DF	V$$ER1
     89
     90						MOV	I.TCB(R3),R4	;GET TCB ADDRESS
     91						BIT	#T3.NET,T.ST3(R4) ;VERSION 1 OR VERSION 2 INTERFACE ?
     92						BNE	10$		;IF NE, VERSION 1
     93
     94						.IFTF
     95
     96	000004					CALL	MAPHDR		;GET ADDRESS OF TASK'S HEADER
     97	000010	116200 	000000G			MOVB	H.NML(R2),R0	;GET MAILBOX LUN
     98	000014					CALL	MAPLUN		;GET ADDRESS OF 2ND LUN WORD FOR MAILBOX
     99	000020	011004 				MOV	(R0),R4		;GET ADDRESS OF MAILBOX
    100	000022	017305 	000000G			MOV	@I.LN2(R3),R5	;GET CONTENTS OF 2ND LUN WORD FOR THE LUN
    101									;THAT THE CLOSE LUN WAS ISSUED ON
    102	000026	020405 				CMP	R4,R5		;WAS THE CLOSE LUN ON THE MAILBOX LUN?
    103	000030	001004 				BNE	5$		;IF NE, NO - COMPLETE CLOSE LUN NOW
    104	000032	042704 	000001 			BIC	#1,R4		;REMOVE INTERLOCK BIT FROM ADDRESS
    105	000036					CALLR	CLS1		;RUN DOWN ALL V2 LOGICAL LINKS AND MAILBOX
    106									; FOR THIS TASK
    107
    108	000042				5$:	CALLR	IOFLS		;COMPLETE CLOSE LUN BUT DON'T CLEAR INTERLOCK
    109
    110						.IFT
    111
    112					10$:	PUSH	R3		;SAVE I/O PACKET ADDRESS
    113						MOV	@I.LN2(R3),R4	;GET WINDOW BLOCK ADDRESS
    114						BIC	#1,R4		;REMOVE INTERLOCK BIT FROM ADDRESS
    115						CALL	$DIV1A		;RUN DOWN THIS V1 LINK
    116						POP	R3		;RESTORE I/O PACKET ADDRESS
    117						BCC	20$		;IF CC, ABORT SUCCEEDED
    118						CALLR	IOREDO		;OTHERWISE RE-QUEUE REQUEST TO TRY AGAIN LATER
    119
    120						.ENDC
    121
NSCLO	MACRO M1110  13-OCT-79 10:19  PAGE 4-1
$CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR

    122	000046				20$:	RETURN			;RETURN TO TASK STATE
    123
    124		000001 				.END
NSCLO	MACRO M1110  13-OCT-79 10:19  PAGE 4-2
SYMBOL TABLE

A$$CHK= 000000   	G$$TTK= 000000   	M$$CRB= 000124   	P$$WRD= 000000   	W.CCBU  000006
A$$CPS= 000000   	G$$WRD= 000000   	M$$CRX= 000000   	Q$$OPT= 000010   	W.CINT  000032
A$$PRI= 000000   	H.NML = ****** GX	M$$FCS= 000000   	R$$DER= 000000   	W.CSND  000020
A$$TRP= 000000   	IOFLS = ****** GX	M$$MGE= 000000   	R$$K11= 000001   	W.CTL   000000
CLS1  = ****** GX	I$$RAR= 000000   	M$$OVR= 000000   	R$$SND= 000000   	W.INTQ  000034
CX.GDQ= 000001   	I$$RDN= 000000   	M.MAIL  000012   	R$$11M= 000000   	W.LLA   000010
CX.REQ= 000002   	I.LN2 = ****** GX	M.MAX   000007   	S$$WRG= 000000   	W.LUN   000007
CX.UNL= 000004   	K$$CNT= 177546   	M.MBL = 000016   	S$$YSZ= 007600   	W.MBOX  000016
C$$CKP= 000000   	K$$CSR= 177546   	M.NAST  000005   	T$$KMG= 000000   	W.MODC  000005
C$$ORE= 000400   	K$$LDC= 000000   	M.NEXT  000000   	T$$MIN= 000000   	W.PIO   000014
C$$RSH= 177564   	K$$TPS= 000074   	M.SPA   000010   	V$$CTR= 001000   	W.RCVQ  000026
D$$BUG= 177514   	LD$LP = 000000   	M.STAT  000004   	WS.DIC= 000004   	W.SEGZ  000012
D$$ISK= 000000   	L$$ASG= 000000   	M.TASK  000002   	WS.DIP= 000100   	W.SNDQ  000022
D$$L11= 000001   	L$$DRV= 000000   	M.USE   000006   	WS.EST= 000002   	W.STAT  000004
D$$YNC= 000000   	L$$P11= 000001   	N$$LDV= 000001   	WS.INT= 000040   	W.TASK  000002
D$$YNM= 000000   	L$$11R= 000000   	N$$MOV= 000010   	WS.KIP= 000200   	W.ULA   000011
E$$XPR= 000000   	MAPHDR= ****** GX	N$$SYS= 000001   	WS.MOD= 000010   	W.WBL = 000040
F$$LVL= 000001   	MAPLUN= ****** GX	N$$USR= 000001   	WS.STA= 000020   	X$$DBT= 000000
G$$TPP= 000000   	MS.AST= 000010   	P$$P45= 000000   	WS.VE1= 000001   	$CLOQI  000000RG    002
G$$TSS= 000000   	MS.CIP= 000200

. ABS.	000040	   000
      	000000	   001
$NSACP	000050	   002
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  2679 WORDS  ( 11 PAGES)
DYNAMIC MEMORY:  3724 WORDS  ( 14 PAGES)
ELAPSED TIME:  00:00:10
NSCLO,[131,34]NSCLO/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSCLO
NSCLO      CREATED BY  MACRO  ON 13-OCT-79 AT 10:19	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CLS1  	= ******  GX	 4-105     
H.NML 	= ******  GX	 4-97      
IOFLS 	= ******  GX	 4-108     
I.LN2 	= ******  GX	 4-100     
MAPHDR	= ******  GX	 4-96      
MAPLUN	= ******  GX	 4-98      
V$$ER1	= ******	 3-1        3-2        4-88      
$CLOQI	  000000 RG	#4-86      
NSCLO      CREATED BY  MACRO  ON 13-OCT-79 AT 10:19	PAGE 2

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		 4-86       4-96       4-98      
CALLR 		#4-105     #4-108     
LLWDF$		#3-42      #3-44      
MBXDF$		#3-42      #3-43      
POP   		#3-59      
PUSH  		#3-53      
RETURN		 4-122     
SWSTK$		#4-86