Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - nstrng.c06
There is 1 other file named nstrng.c06 in the archive. Click here to see a list.
 INS 4/2	;06C1
	;JEH	22-MAR-83 [1060] USE SPACES AS LEADING PADDING CHARACTER 
 REP 8/32	;06C2
		MOVE	T2,(T4)		;;GET FLAGS
		TXNE	T2,US%RIN	;IS RECEIVING ITEM NUMERIC?
		 JRST	PADZRO		;YES, PAD WITH ZEROES
		HLRZ	T2,SPCZRO(T3)	;GET A SPACE IN PROPER MODE
 WIT
		MOVE	T4,(T4)		;[1060] GET FLAGS
		HLRZ	T2,SPCZRO(T3)	;[1060] GET A SPACE IN PROPER MODE
		TXNE	T4,US%RRJ	;[1060] IS DESTINATION RIGHT JUSTIFIED
		 JRST	PADDS1		;[1060] YES, STICK WITH SPACES
		TXNE	T4,US%RIN	;[1060] IS RECEIVING ITEM NUMERIC?
		 JRST	PADZRO		;YES, PAD WITH ZEROES
 SUM 239905