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

 REP 38/1	;21C1
		NFTEDT==111			;EDIT LEVEL
 WIT
		NFTEDT==112			;EDIT LEVEL
 INS 178/3	;21C2
	0112	Slight improvement to edit 61.  Always restore the command buffer
		after it has been converted to parse the source and destination 
		file fields.  This insures that CONTROL-H and CONTROL-R function
		correctly and that the user always sees only what is typed (not what
		is the result of the conversion).

 INS 76/27	;21C3
		MOVE P3,S1			;[0112] Save pointer for unconvert
 INS 91/27	;21C4
		        MOVE S1,P3		;[0112] Get string pointer back
		        SKIPE -1(P2)		;[0112] Was file name converted?
		        $CALL UNCOVN		;[0112] (S1,P2/S1)Yes, restore command buffer
 INS 94/27	;21C5
		MOVE S1,P3			;[0112] Get string pointer back
		SKIPE -1(P2)			;[0112] Was file name converted?
		$CALL UNCOVN			;[0112] (S1,P2/S1)Yes, restore command buffer
 INS 8/29	;21C6
	;
	;[0112] UNCOVN is an alternate entry point for RESNAM which is only called
	;[0112] from PARFIL.  It is called to restore the command buffer to its
	;[0112] original state after parsing the fields.  This ensures that field
	;[0112] editing (^R, ^H, etc.) works correctly.  UNCOVN accepts the address
	;[0112] of the string in S1 and the address of the destination string (from
	;[0112] which it offsets to obtain the flag bits) in P2.

	UNCOVN:	$SAVE <S2,T1>			;[0112] Alternate entry from PARFIL
		MOVE S2,-1(P2)			;[0112] Get flag bits
		JRST RESNA1			;[0112] Join common code
 REP 11/29	;21C7
		HLL S1,[POINT 7,0]		;MAKE A BYTE POINTER
 WIT

	RESNA1:	HLL S1,[POINT 7,0]		;[0112] Make a byte pointer
 SUM 37490