Google
 

Trailing-Edge - PDP-10 Archives - bb-l014t-bm_tops20_v7_0_atpch20 - autopatch/srtjss.c20
There is 1 other file named srtjss.c20 in the archive. Click here to see a list.
 INS 1/1	;20C1
	; UPD ID= 113 on 10/16/88 at 12:29 AM by KSTEVENS                      
 REP 5/61	;20C2
	RMSOUT:	MOVE	T1,[PRFAB,,OUTFAB]	;COPY PROTOTYPE FAB, RAB, AND XAB
 WIT
	RMSOUT:	MOVE	T1,[INFAB,,OUTFAB] ;[540]COPY PROTOTYPE FAB, RAB, AND XAB
 REP 11/61	;20C3
		MOVE	T1,MODE		;GET MODE INDEX
		MOVE	T1,[EXP 6,7,9,^D36]-1(T1)
		$STORE	(T1,BSZ,(P1))	;SET BYTE SIZE
 WIT
	;[540]Remove 3 lines
 SUM 179358