Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64a-sb - 10,7/klepto/702062.txt
There are 2 other files named 702062.txt in the archive. Click here to see a list.
               Digital Equipment Corporation
             **DECsystem-10 Customer Support**
















                      PCO LOG REPORT
                      --------------









                        12-SEP-84


         This document contains the most current
        information  on the Program Change Orders
                    recorded to date.
Digital Equipment Corporation       12-SEP-84    Page   1
PCO Log Report

                   *********************
                   *PCO #:10-702   -062*
                   *********************


[Program Data]          System:   702
                        Component:702

[Validity]         7.02, FIXED IN 7.03, QUASAR 4(1216)

[Date Entered]          27-JUL-84

[Programmer]            SENDLOSKY

[Routines]              STRMPA    I$MSTR

[Key Words]             .IPCST      STRUCTURE   OMOUNT

[Source Before Edit]    %702 (000000)

[Source After Edit]     %702 (011258)

[Miscellaneous]         DOC changes:   Y
                        SER/SPR Number:10-034816
                        Archived:      NO
                        OTHER PRODUCT:
                        AUTOPATCH TAPE #


************************************************************************

[Notes]
Digital Equipment Corporation       12-SEP-84    Page   2
PCO Log Report

[PCO Write-up]



                        **********


[SYMPTOM]
 
When a structure is mounted  by  a  program  other  than  PULSAR,
QUASAR never knows about it.
 
 

                        **********


[DIAGNOSIS]
 
No code in the monitor or QUASAR.
 
 

                        **********


[CURE]
 
Add the code.  In the monitor, when a structure is being  mounted
by  someone  other  than  PULSAR,  send the new .IPCST, structure
mounted message, to QUASAR.  In QUASAR, add the code  to  support
this new message from the monitor.
 
Digital Equipment Corporation       12-SEP-84    Page   3
PCO Log Report


[FILCOM]
File 1)	GLXX:UUOSYM.BAS[30,702,BLD,LWS]	created: 1319 13-Dec-83
File 2)	GLXX:UUOSYM.MAC[30,702,BLD,LWS]	created: 1313 17-Jul-84
 
1)72	.IPCS1==1	;FIRST ARGUMENT
****
2)72		.IPCST==47	;STRUCTURE MOUNT (TO MDA)
2)	.IPCS1==1	;FIRST ARGUMENT
**************
 
Digital Equipment Corporation       12-SEP-84    Page   4
PCO Log Report


[FILCOM]
File 1)	GLXX:IPCSER.BAS[30,702,BLD,LWS]	created: 1039 04-Jan-84
File 2)	GLXX:IPCSER.MAC[30,702,BLD,LWS]	created: 1327 17-Jul-84
 
1)24	.IPCTL==:IPCFTM-IPCFTB+1
****
2)24	IPCFST:	EXP	ERRUF		;(47) STRUCTURE MOUNT (TO MDA)
2)	.IPCTL==:IPCFTM-IPCFTB+1
**************
1)24	IPCFM==.-IPCFTB			;LENGTH OF TABLE
****
2)24	.IPCST==IPCFST-IPCFTB+1
2)	IPCFM==.-IPCFTB			;LENGTH OF TABLE
**************
1)52	>;IFN FTMDA
**** @ REMMPA+9
2)53	;STRMPA - NOTIFY MDA OF A STRUCTURE MOUNT
2)	;	F / STR D.B.
2)	;	RETURN 	CPOPJ	ALWAYS
2)	STRMPA::PUSHJ	P,SAVE1##	;NEED A PRESERVED AC
2)		MOVEI	P1,1+1+1	;NEED ONE OVERHEAD WORD + 1 FOR
	STR NAME + 1 FOR UNIT
2)		HLRZ	T1,STRUNI##(F)	;PICK UP FIRST UNIT IN STR
2)	STRMP1:	HLRZ	T1,UNISTR##(T1)	;FIND NEXT UNIT
2)		SKIPE	T1		;END OF CHAIN?
2)		AOJA	P1,STRMP1	;NOT YET
2)		MOVE	T2,P1		;GET NUMBER OF WORDS NEEDED
2)		PUSHJ	P,GETWDS##	;GET SOME CORE
2)		  POPJ	P,		;CAN'T
2)		MOVEI	T3,.IPCST	;FUNCTION CODE
2)		HRLI	T3,(P1)		;LENGTH
2)		MOVEM	T3,0(T1)	;STORE IT
2)		MOVE	T3,STRNAM##(F)	;GET STR NAME
2)		MOVEM	T3,1(T1)	;STORE IT
2)		MOVSI	P1,(P1)		;SAVE [LENGTH,,MESSAGE ADDRESS]
2)		HRR	P1,T1
2)		HLRZ	T3,STRUNI##(F)	;GET FIRST UDB ADDR
2)	STRMP2:	MOVE	T2,UNINAM##(T3)	;GET UNIT NAME
2)		MOVEM	T2,2(T1)	;SAVE
2)		HLRZ	T3,UNISTR##(T3)	;GET LINK TO NEXT UDB
2)		SKIPE	T3		;END OF CHAIN?
2)		AOJA	T1,STRMP2	;NOT YET
2)		MOVE	T1,P1		;GET MESSAGE ADDRESS BACK
2)		PJRST	ATTMP1		;SEND IT AND RETURN
2)	>;IFN FTMDA
**************
 
Digital Equipment Corporation       12-SEP-84    Page   5
PCO Log Report


[FILCOM]
File 1)	GLXX:FILFND.BAS[30,702,BLD,LWS]	created: 0944 17-Jan-84
File 2)	GLXX:FILFND.MAC[30,702,BLD,LWS]	created: 1518 17-Jul-84
 
1)30		JRST	CPOPJ1##	;RETURN TO HAPPY USER
**** @ DEFS13+10
2)30	IFN FTMDA,<
2)		CAME	J,TLPJOB##	;PULSAR DOING THE MOUNT?
2)		S0PSHJ	STRMPA##	;NO--TELL QUASAR WHATS GOING ON
2)	> ;END IFN FTMDA
2)		JRST	CPOPJ1##	;RETURN TO HAPPY USER
**************
 
Digital Equipment Corporation       12-SEP-84    Page   6
PCO Log Report


[FILCOM]
File 1)	GLXX:QSRMAC.MAC[7,3,GALAXY,QSRSCH]    	created: 0958 05-Jul-84
File 2)	GLXX:QSRMAC.MAC[7,3,GALAXY,QSRSCH,LWS]	created: 1440 16-Jul-84
 
1)1	QSREDT==1216			;EDIT NUMBER
1)2	SUBTTL	Table of Contents
****
2)1	QSREDT==1217			;EDIT NUMBER
2)2	SUBTTL	Table of Contents
**************
1)12	\	;End Of Revision History
****
2)	1217	QSRMAC	Add support for new 'structure mounted' message
2)		QSRMDA	from monitor. This message is a result from
2)		QSRT10	a priv'd user mounting a structure without
2)		QUASAR	PULSAR getting involved.
2)			GCO 10055	16-Jul-84 /LWS
2)	\	;End Of Revision History
**************
1)126		   VL.RSN==777B35		;VOLUME RESOURCE NUMBER
****
2)126		   VL.FRC==1B19			;[1217] VOLUME 'FORCE' M
	OUNTED
2)		   VL.RSN==777B35		;VOLUME RESOURCE NUMBER
**************
1)127		.UCBCN:! BLOCK	1		;USER MOUNT COUNT
1)		.UCBVL:! BLOCK	1		;PTR TO VOLUME MOUNTED O
	N THIS DEVICE
1)		.UCBVS:! BLOCK	1		;POINTER TO THE VSL WHIC
	H OWNS THIS UCB
1)		UCBLEN:!			;A UCB LENGTH
1)			DEPHASE
****
2)127		.UCBS1:! BLOCK	1		;[1217] YES, A SECOND WO
	RD FOR STATUS
2)		    U1.FRC==1B0			  ;[1217] 'FORCED MOUNT'
	. VOL LINKED IS
2)						  ;[1217]  BEING MOUNTED
	 BEHIND PULSAR'S BACK
2)		.UCBCN:! BLOCK	1		;USER MOUNT COUNT
2)		.UCBVL:! BLOCK	1		;PTR TO VOLUME MOUNTED O
	N THIS DEVICE
2)		.UCBVS:! BLOCK	1		;POINTER TO THE VSL WHIC
	H OWNS THIS UCB
2)		UCBLEN:!			;A UCB LENGTH
2)		.UCBS0==.UCBST			;[1217] FOR SYMMETRY
2)			DEPHASE
**************
 
Digital Equipment Corporation       12-SEP-84    Page   7
PCO Log Report


[FILCOM]
File 1)	GLXX:QUASAR.MAC[7,3,GALAXY]           	created: 1438 25-Apr-84
File 2)	GLXX:QUASAR.MAC[7,3,GALAXY,QSRSCH,LWS]	created: 1434 16-Jul-84
 
1)4		;DEFINE MESSAGE ENTRY POINTS THAT ARE SYSTEM DEPENDENT
****
2)4		SYSPRM	%IPCST,.IPCST,0		;[1217] MONITOR STR MOUN
	TED MSG (TOPS10)
2)		;DEFINE MESSAGE ENTRY POINTS THAT ARE SYSTEM DEPENDENT
**************
1)5		SUBTTL		SYSTEM QUASAR
****
2)4		SYSPRM	X$MSTR,I$MSTR##,E$IMT	;[1217] MON STR MOUNTED
	MSG (TOPS10)
2)5		SUBTTL		SYSTEM QUASAR
**************
1)8		TBLLEN==.-SYSTBL		;TABLE LENGTH
****
2)8		%IPCST,,X$MSTR			;[1217] STR MOUNTED MSG
2)		TBLLEN==.-SYSTBL		;TABLE LENGTH
**************
 
Digital Equipment Corporation       12-SEP-84    Page   8
PCO Log Report


[FILCOM]
File 1)	DSK:QSRMDA.MAC[7,3,GALAXY]            	created: 1324 16-May-84
File 2)	GLXX:QSRMDA.NEW[7,3,GALAXY,QSRSCH,LWS]	created: 1519 16-Jul-84
 
1)46		MOVEI	S2,[ASCIZ ||]		;ASSUME WRITE ENABLED
1)		SKIPE	S1			;WAS IT?
1)		MOVEI	S2,[ASCIZ |Unit is hardware write protected|]
1)		$WTO	(<Volume ^W/.VLVID(P1)/ for structure ^W/.DSSNM(
	T3)/ mounted>,<^T/(S2)/>,MDAOBJ)
1)		MOVE	S1,.VLSTR(P1)		;GET THE STRUCTURE NAME
	IN S1
1)		SETZM	S2			;NO ALIAS...
1)		SKIPE	D$ASR			;IS AUTOMATIC STR RECOGN
	ITION ENABLED ???
**** @ DSKD.8+2
2)46		LOAD	S2,.UCBS1(T2),U1.FRC	;[1217] GET 'FORCED' MOU
	NT BIT
2)		STORE	S2,.VLFLG(P1),VL.FRC	;[1217] SET IN VOL BLOCK
	 ALSO
2)		MOVEI	S2,[ASCIZ ||]		;ASSUME WRITE ENABLED
2)		SKIPE	S1			;WAS IT?
2)		MOVEI	S2,[ASCIZ |Unit is hardware write protected|]
2)		$WTO	(<Volume ^W/.VLVID(P1)/ for structure ^W/.DSSNM(
	T3)/ mounted>,<^T/(S2)/>,MDAOBJ)
2)		MOVE	S1,.VLSTR(P1)		;GET THE STRUCTURE NAME
	IN S1
2)		SETZM	S2			;NO ALIAS...
2)		MOVX	TF,VL.FRC		;[1217] GET 'FORCED' MOU
	NT BIT
2)		TDNN	TF,.VLFLG(P1)		;[1217] IS A 'FORCED' MO
	UNT IN PROGRESS ?
2)		SKIPE	D$ASR			;IS AUTOMATIC STR RECOGN
	ITION ENABLED ???
**************
1)77		$COUNT	(STRM)			;count # of successful s
	tr mounts
1)		MOVX	S1,%STAMN		;GET STRUCTURE MOUNTED B
	IT
**** @ MNTOPC+5
2)77	MNTA.0:	$COUNT	(STRM)			;[1217] COUNT # OF SUCCE
	SSFUL STR MOUNTS
2)		MOVX	S1,%STAMN		;GET STRUCTURE MOUNTED B
	IT
**************
1)170		$RETF				;RETURN
1)	> ;END TOPS-10 CONDITIONAL
**** @ BLDS.3+1
2)170		MOVX	S1,VL.FRC		;[1217] STRUCTURE TRYING
	 TO BE 'FORCED'
2)		TDNN	S1,.VLFLG(P1)		;[1217]   UP BY SOMEONE
	??
Digital Equipment Corporation       12-SEP-84    Page   9
PCO Log Report


2)		$RETF				;RETURN
2)		MOVE	S1,P1			;[1217] YES, BUT TOO BAD
	!!!
2)		MOVX	S2,.DMNCK		;[1217] GET /NOCHECK BIT
2)		PUSHJ	P,SNDDSM		;[1217] TELL PULSAR TO D
	ISMOUNT STR
2)		$RETF				;[1217] RETURN FALSE
2)	> ;END TOPS-10 CONDITIONAL
**************
1)171		MOVE	S2,.UCBNM(S2)		;GET ITS SIXBIT NAME
**** @ SNDB.1+3
2)171		MOVX	TF,U1.FRC		;[1217] GET 'FORCED' MOU
	NT BIT FOR UCB
2)		ANDCAM	TF,.UCBS1(S2)		;[1217] CLEAR IT IN UCB.
2)		MOVE	S2,.UCBNM(S2)		;GET ITS SIXBIT NAME
**************
1)172		PUSHJ	P,SNDLBR		;SEND THE MSG OFF TO THE
	 TAPE LABELER
1)		$RETT				;AND RETURN
1)	>
**** @ SNDB.3+11
2)172		LOAD	TF,.VLFLG(P1),VL.FRC	;[1217] GET 'FORCED' MOU
	NT BIT
2)		SKIPE	P2			;[1217] ALWAYS SEND ON D
	ISMOUNT
2)		JUMPN	TF,SNDB.4		;[1217] DON'T BOTHER PUL
	SAR IF 'FORCED'
2)		PUSHJ	P,SNDLBR		;SEND THE MSG OFF TO THE
	 TAPE LABELER
2)		$RETT				;AND RETURN
2)	SNDB.4:	MOVE	S1,P1			;[1217] GET PRIMARY VOL
	ADDRESS
2)		SETZM	S2			;[1217] CLEAR S2
2)		PUSHJ	P,MNTA.0		;[1217] TELL OPR IT'S MO
	UNTED
 
 
2)		MOVX	S1,VL.FRC		;[1217] GET 'FORCED' MOU
	NT BIT
2)		ANDCAM	S1,.VLFLG(P1)		;[1217] DON'T NEED IT AN
	YMORE
2)		$RETT				;[1217] RETURN
2)	>
**************
 
Digital Equipment Corporation       12-SEP-84    Page  10
PCO Log Report


[FILCOM]
File 1)	GLXX:QSRT10.MAC[7,3,GALAXY]           	created: 1438 25-Apr-84
File 2)	GLXX:QSRT10.MAC[7,3,GALAXY,QSRSCH,LWS]	created: 1443 16-Jul-84
 
1)11		SUBTTL	I$SYSV  --  Read time-dependent system variables
****
2)10		INTERN	I$MSTR		;[1217] ROUTINE TO HANDLE MONITO
	R STR MOUNTED MSG
2)11		SUBTTL	I$SYSV  --  Read time-dependent system variables
**************
1)23		SUBTTL	I$ATCH/I$DTCH - ATTACH/DEATCH MESSAGE PROCESSING
	 ROUTINES
****
2)23	SUBTTL	I$MSTR - PROCESS MONITOR STRUCTURE MOUNTED MSG
2)	;This routine extracts each unit from the .IPCST message and kic
	ks
2)	;PULSAR to recognize labels on the device. If the UCB for the un
	it
2)	;doesn't exist, one is created. The UC.FRC bit is lit in the UCB
2)	;indicating that the volume(s) is/are being mounted someone othe
	r
2)	;than PULSAR.
2)	;CALL: 	M/ The message address
2)	;RET: 	True always
2)	I$MSTR:	PUSHJ	P,.SAVE3		;[1217] SAVE P1-P3
2)		HLRZ	P2,.IPCS0(M)		;[1217] GET LENGTH OF MS
	G
2)		CAIGE	P2,3			;[1217] MUST CONTAIN AT
	LEAST STR AND UNIT
2)		$RETT				;[1217] IGNORE IF TOO SH
	ORT
2)		MOVNI	P2,-2(P2)		;[1217] BUILD AOBJN
2)		HRLI	P2,.IPCS2(M)		;[1217]   PTR TO PICK UP
2)		MOVSS	P2			;[1217]     UNITS IN MES
	SAGE
2)	MSTR.1:	SKIPN	P1,(P2)			;[1217] GET SIXBIT UNIT
	NAME
2)		  $STOP	(MUN,<Missing unit name in .IPCST message>) ;[12
	17] SO THERE!
2)		MOVE	S1,P1			;[1217] GET UNIT NAME IN
	 S1
2)		PUSHJ	P,D$GUCB##		;[1217] GO SEE IF UCB EX
	ISTS
2)		JUMPT	MSTR.3			;[1217] UCB EXISTS, GO K
	ICK PULSAR
2)		MOVE	S1,UCBQUE##		;[1217] NO UCB, CREATE O
	NE
2)		MOVX	S2,UCBLEN		;[1217] FOR THIS UNIT.
2)		PUSHJ	P,L%CENT		;[1217]
2)		MOVE	S1,S2			;[1217] GET THE ADDRESS
	OF UCB
Digital Equipment Corporation       12-SEP-84    Page  11
PCO Log Report


2)		MOVE	P3,S1			;[1217] SAVE ACROSS NEXT
	 CALL
2)		MOVEM	P1,.UCBNM(S1)		;[1217] STORE UNIT NAME
	IN UCB
2)		PUSHJ	P,I$GATR		;[1217] GO FILL IN SPECI
	FICS
2)		MOVE	S1,P3			;[1217] GET UCB ADDRESS
	BACK
2)		PUSHJ	P,D$INCA##		;[1217] UPDATE 'A' MATRI
	X
2)		MOVE	S1,P3			;[1217] GET UCB ADDRESS
	AGAIN
2)	MSTR.3:	MOVX	S2,UC.AVR!UC.AVA	;[1217] THIS DEVICE IS A
	VAILABLE AND
2)		IORM	S2,.UCBS0(S1)		;[1217] WE'RE GOING TO R
	EAD LABELS!
2)		MOVX	S2,U1.FRC		;[1217] GET 'FORCED MOUN
	T' BIT
2)		IORM	S2,.UCBS1(S1)		;[1217] LITE IN SECOND U
	CB STATUS WORD
2)		MOVE	S1,P1			;[1217] GET SIXBIT UNIT
	NAME AGAIN
2)		PUSHJ	P,D$SREC##		;[1217] SEND RECOGNIZE M
	SG TO PULSAR
2)		AOBJN	P2,MSTR.1		;[1217] LOOP FOR ALL UNI
	TS IN MSG
2)		$RETT				;[1217] RETURN AND WAIT
	FOR PULSAR ACK
2)24		SUBTTL	I$ATCH/I$DTCH - ATTACH/DEATCH MESSAGE PROCESSING
	 ROUTINES
**************

[END OF PCO 10-702   -062]