Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/rmsio.c10
There are 2 other files named rmsio.c10 in the archive. Click here to see a list.
 INS 23/1	;10C1
	;KWS	17-OCT-84	[1132] Pass RMS asciz string rather than ascii string
 REP 44/22	;10C2
	OP.T20:				;
		CAIE	T1,7		;IS BYTESIZE 7? (IN ASCII)
		JRST	CVTVID		;NO, CONVERT IT TO ASCIZ STRING
		HRRZ	T1,F.WVID(FT)	;GET ADDRESS OF ASCIZ VALUE OF ID STRING
		$STORE	T1,FNA,(T4)	; AND STORE IT IN THE FAB FOR RMS-20
		JRST	OP.PNX		;

	CVTVID:	MOVEI	T1,.RCFNM(FTL)	;
		$STORE	T1,FNA,(T4)	;STORE ADDRESS OF ASCIZ ID IN FAB
		HRRZ	T3,F.SZID(FT)	;SIZE OF NAME
		MOVSI	T4,(POINT 7,)	;BUILD BYTE POINTER TO NAME
		HRR	T4,T1		;
		MOVE	T2,F.WVID(FT)	;SOURCE BYTE POINTER
	CVT.1:	ILDB	C,T2		;GET CHARACTER
		TLNE	T2,1000		;EBCDIC?
		LDB	C,PTR.97##	;
		TLNN	T2,1000		;SIXBIT?
 WIT
	;[1132] Deleted  5 lines of obsolete code

	OP.T20:	MOVEI	T2,.RCFNM(FTL)	;[1132]
		$STORE	T2,FNA,(T4)	;STORE ADDRESS OF ASCIZ ID IN FAB
		HRRZ	T3,F.SZID(FT)	;SIZE OF NAME
		MOVSI	T4,(POINT 7,)	;BUILD BYTE POINTER TO NAME
		HRR	T4,T2		;[1132]
		MOVE	T2,F.WVID(FT)	;SOURCE BYTE POINTER
	CVT.1:	ILDB	C,T2		;GET CHARACTER
		CAIN	T1,11		;[1132] EBCDIC
		LDB	C,PTR.97##	;
		CAIN	T1,6		;[1132] SIXBIT?
 REP 64/22	;10C3

 WIT
		SETZ	C,		;[1132]MAKE STRING ASCIZ
		IDPB	C,T4		;[1132]
 SUM 175955