Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/srtcmd.c13
There are 2 other files named srtcmd.c13 in the archive. Click here to see a list.
 INS 1/1	;13C1
	;IGUANA:<MERRILL.20812>SRTCMD.MAC.2 27-Jan-86 13:45:01, Edit by MERRILL
	;EDIT 535 Remove check for /APPEND in CS4ARM, manual states it is not mandatory
 REP 67/25	;13C2
		SKIPGE	APPFLG			;OK IF /APPEND
		RET
		MOVEI	T1,CS7TMP		;OTHERWISE 
		HRROI	T2,[ASCIZ /INDEXED/]	;REMOVE
		PJRST	DELEN			;INDEXED
 WIT
	;**;[535] At CS4ARM + 12L
		RET
 REP 62/36	;13C3
		MOVE T2,@T2		;GET ACTUAL
 WIT
		XMOVEI	T2,@T2		;[527] GET ACTUAL
 REP 17/46	;13C4
		SUBI T2,40		;SIXBITIZE
		DPB T2,[POINT 6,(T4),23]	;[C20]
		LDB T2,[POINT 7,1(T1),6]	;[OK] GET FIRST CHAR
		SUBI T2,40		;SIXBITIZE
		DPB T2,[POINT 6,(T4),29]	;[C20]
		LDB T2,[POINT 7,1(T1),13];[OK] GET FIRST CHAR
		SUBI T2,40		;SIXBITIZE
		DPB T2,[POINT 6,(T4),35]	;[C20]
		HRRZI T2,'SRT'		;GET PROGRAM CODE
		HRLM T2,(T4)		;[C20] SAVE IT
 WIT
		DPB T2,[POINT 7,@T4,6]	;[C20][527]
		LDB T2,[POINT 7,1(T1),6]	;[OK] GET FIRST CHAR
		DPB T2,[POINT 7,@T4,13]	;[C20][527]
		LDB T2,[POINT 7,1(T1),13];[OK] GET FIRST CHAR
		DPB T2,[POINT 7,@T4,20]	;[C20][527]
		MOVEI	T2," "		;[527]LOAD T2 WITH A SPACE
		DPB	T2,[POINT 7,@T4,27] ;[527] FINISH THE WORD OFF WITH SPACES
		DPB	T2,[POINT 7,@T4,34] ;[527] ...
 SUM 140148