Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/rmsio.c14
There are 11 other files named rmsio.c14 in the archive. Click here to see a list.
 INS 35/4	;14C1
		;[1162] Add SU.RR after SU.T1
	EXTERN  SU.RR 
 DEL 61/8	;14C2
		CAIN	T1,VB%ST	;IS IT START VERB?
		 HRRZI	T1,VB%RD	;MAKE IT BE READ FOR PURPOSES OF SMU OPTION 1
 REP 7/11	;14C3
		MOVE	T1,[T1,,ACSAV0##]
		BLT	T1,ACSAV0+16	;SAVE ACS THRU PP
 WIT
		MOVE	T0,[T1,,ACSAV0##] ;[1163]
		BLT	T0,ACSAV0+16	;[1163]SAVE ACS THRU PP
 REP 21/11	;14C4
	RMSGOT:	MOVE	T1,[ACSAV0,,T1]
		BLT	T1,PP		;RESTORE ACS
 WIT
	RMSGOT:	MOVE	17,[ACSAV0,,T1]	;[1163]
		BLT	17,PP		;[1163]RESTORE ACS
 REP 103/23	;14C5
		LDB	T3,[POINT 2,T0,2] ;[1044] GRAB OFF EBCDIC AND SIXBIT BITS OF 
					  ;[1044]  DEVICE DATA MODE FIELD.
 WIT
		LDB	T3,[POINT 2,T0,14] ;[1160][1044] GRAB OFF EBCDIC AND SIXBIT BITS OF 
					  ;[1044]  CORE DATA MODE FIELD.
 REP 6/55	;14C6
		 JRST	STASE2		; YES, NOT ALLOWED
 WIT
		SKIPN	SU.RR		;[1162] Yes, any records retained now?
		 SKIPA			;[1162] Everything is ok
		  JRST	STASE2		;[1162] Not allowed to START within RETAIN
 REP 32/56	;14C7
	STASE2:	$ERROR	(E.529,SV.KIL,MT.FIL)
 WIT
	;[1162] Illegal to execute START within scope of RETAIN and FREE
	STASE2:	$ERROR	(E.535,SV.KIL,MT.FIL) ;[1162]
 SUM 244750