Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 1/1	;05C1
	TITLE FORDDT	FORTRAN INTERACTIVE DEBUGGING AID ,6(154)
	SUBTTL	P.E.T. HARDING/DBT/FLD/MD/JMT/MA/SJW/JNG/DCE/BPK/CKS/DCC/BAH 02-OCT-81



	;COPYRIGHT (C) 1973,1977,1978,1979,1980,1981 BY
 WIT
	TITLE FORDDT	FORTRAN INTERACTIVE DEBUGGING AID ,6(156)
	SUBTTL P.E.T. HARDING/DBT/FLD/MD/JMT/MA/SJW/JNG/DCE/BPK/CKS/DCC/BAH/JEH 
	;	01-SEP-82


	;COPYRIGHT (C) 1973,1977,1978,1979,1980,1981,1982 BY
 REP 25/1	;05C2
	EDITNO==154	;EDIT NO
 WIT
	EDITNO==156	;EDIT NO
 INS 230/3	;05C3
	;.BEGINR REVISION HISTORY
	;.COMPONENT FORDDT
	;.VERSION 6
	;.AUTOPATCH 5

	;.EDIT 155	Eliminate INTERNAL ERR NBR 5 when displaying an array
	;;		passed as a formal parameter
	;		JEH,02-SEP-82,SPR:20-17712
	;		A:SRC FORDDT

	;.EDIT 156	For TYPE command, start search of LOKSYM at OPENLS, to find
	;;		symbol in right module
	;		JEH,02-SEP-82,SPR:20-17712
	;		A:SRC FORDDT

	;.ENDA
	;.ENDV
	;.ENDR REVISION HISTORY

 INS 75/7	;05C4
	TYPCMD==020000  ;[156] PROCESSING A TYPE COMMAND
	COMDAT==040000	;[156] COMMON DATA
 INS 7/40	;05C5
		TRO	TF,TYPCMD	;[156] TURN ON TYPE COMMAND FLAG
 REP 32/74	;05C6
		JRST	FNDS45		;YES - IGNORE
 WIT
		JRST	FNDS46		;[156] YES - IGNORE
 INS 39/74	;05C7
	FNDS46:	TRNE	TF,TYPCMD	;[156] IF IN TYPE COMMAND, DONE
		POPJ	P,		;[156] RETURN, NO MATCH
		JRST	FNDS45		;[156] CONTINUE SEARCH
 REP 24/75	;05C8
		JRST	FNDS8		;GO AHEAD
	FNDS12:	TRO	F,MDLCLF	;MULT. DEF.
		POPJ	P,		;FAIL



 WIT
		MOVE	S,1(W1)		;[156] SAVE VALUE
		JRST	FNDS8		;GO AHEAD
	FNDS12:	TRO	F,MDLCLF	;MULT. DEF.
		TRNN	TF,TYPCMD	;[156] EXIT IT NOT FROM TYPE COMMAND
		POPJ	P,		;FAIL
		MOVE	W,1(R)		;[156] FIND VALUE OF SYMBOL
		CAME	W,S		;[156] MATCH PREVIOUS VALUE?
		JRST	FNDS8		;[156] NO, KEEP LOOKING
		TRO	TF,COMDAT	;[156] YES, SET COMMON DATA FLAG
		MOVE	R,W1		;[156] RESTORE FIRST MATCH ADDRESS
		JRST	FNDS9		;[156] EXIT
 REP 9/87	;05C9
		PUSHJ	P,LOK2		;
 WIT
		TRNN	TF,TYPCMD	;[156] IN TYPE COMMAND?
		JRST	LOKSM		;[156]  NO, SEARCH ALL LOW SEG
		SKIPE	R,OPENLS	;[156]  YES, START SEARCH FROM CURRENT MODULE
		TLO	F,FLCLNM	;[156]  FLAG LOCALS ONLY
	LOKSM:				;[156]
		PUSHJ	P,LOK2		;	
 REP 6/88	;05C10
		JRST	LOK3
 WIT
		JRST	LOK3A		;[156] JUMP OVER THIS ENTRY
 INS 38/88	;05C11
		JRST	LOK16		;[156] FINISH UP

	LOK3A:	TRNE	TF,TYPCMD	;[156] IN TYPE REQUEST?
		TLZN	F,FLCLNM	;[156]  YES, IS LOCAL FLAG SET?
		JRST	LOK3		;[156]  NO, KEEP LOOKING
		MOVE	R,.JBSYM	;[156] IF TYPE REQUEST, HAVE FINISHED SEARCHING
		JRST	LOK2		;[156]  OPEN MODULE BUT NO MATCH,
					;[156] RESTART SEARCH FROM BEGINNING OF LOW SEG

 REP 24/89	;05C12
		TYPE( in )
		JRST	SYMBL3		;NOW TYPE NAME

 WIT
		TRNE	TF,COMDAT	;[156] IS THE FIELD COMMON DATA?
		JRST	SECT1		;[156] YES
		TYPE( in )
		JRST	SYMBL3		;NOW TYPE NAME
	SECT1:	TYPE( in (COMMON))	;[156] LABEL IT SO
		POPJ	P,		;[156] EXIT
 REP 10/90	;05C13
		PUSHJ	P,RAYNAM	;IS (SAVLOC) AN ARRAY START ADDRESS?
		 JRST	OFF1		;NO
 WIT
		TRNN	F,FORMAL	;[155] IF IT'S NOT A FORMAL
		SETZM	FRMSAV		;[155]  ZERO OUT THE PASSED PARAM REFERENCE
		PUSHJ	P,RAYNAM	;IS (SAVLOC) AN ARRAY START ADDRESS?
		 JRST	OFF1		;NO
		SKIPE	MATHSM		;[155] IF NO RADIX 50 TO MATCH,
		SKIPN	FRMSAV		;[155]   AND NO FORMAL
		JRST	OFF0		;[155]   CONTINUE
		MOVE	T,MATHSM	;[155] ELSE SAVE RADIX 50 OF THE FORMAL PARAM
		MOVEM	T,TEM7		;[155]   WHILE SEARCHING FOR THE PASSED
		SETZM	MATHSM		;[155]   PARAMETER
	OFF0:				;[155]
 REP 19/90	;05C14
		JRST	OFF2		;GO
 WIT
		SKIPN	FRMSAV		;[155] NO FORMAL,
		JRST	OFF2		;GO
		MOVE	T,TEM7		;[155] ELSE RESTORE RADIX 50 OF FORMAL PARAM
		MOVEM	T,MATHSM	;[155]  
		JRST	OFF6		;[155] GO TO TYPE FORMAL VALUE
 SUM 204488