Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/rmsio.c12
There are 2 other files named rmsio.c12 in the archive. Click here to see a list.
 INS 48/22	;12C1
		MOVE	T4,[POINT 7,DEVASC##] ;[1146] SETUP BP FOR DEVICE IN ASCII.
		HRRZ	T1,F.WDNM(FT)	;[1146] GET ADDR OF DEVICE NAME
		HRLI	T1,(POINT 6,)	;[1146] MAKE INTO BP
		MOVEI	T2,6		;[1146] SIX CH. MAX
	OP.20A:	ILDB	C,T1		;[1146] GET CH. OF DEVICE NAME
		JUMPE	C,OP.20B	;[1146] STOP IF NULL
		ADDI	C,40		;[1146] CONVERT TO ASCII
		IDPB	C,T4		;[1146] STORE BYTE
		SOJG	T2,OP.20A	;[1146] ARE WE DONE?
	OP.20B:	SETZ	C,		;[1146] YES, APPEND A NULL TO MAKE ASCIZ
		IDPB	C,T4		;[1146] 
		MOVEI	T2,.RCFNM(FTL)	;[1146]
		$STORE	T2,FNA,(T4)	;[1146]
 INS 51/22	;12C2
		MOVEM	T4,SVIBP##	;[1146] SAVE VALUE OF ID BP
 REP 59/22	;12C3
		SETZ	C,		;[1132]MAKE STRING ASCIZ
		IDPB	C,T4		;[1132]
 WIT
		MOVEI	C,15		;[1146] CR
		IDPB	C,T4		;[1146]
		MOVEI	C,12		;[1146] LF
		IDPB	C,T4		;[1146]
		SETZ	C,		;[1132]MAKE STRING ASCIZ
		IDPB	C,T4		;[1132]
		MOVX	T4,GJ%OFG	;[1146] PARSE ONLY GTJFN
		MOVEM	T4,GJ.BLK##+.GJGEN ;[1146] SET UP GTJFN BLOCK
		MOVE	T4,[POINT 7,DEVASC##] ;[1146]
		MOVEM	T4,GJ.BLK##+.GJDEV ;[1146]
		HRRZI	T1,GJ.BLK##	;[1146] ADDRESS OF GTJFN BLOCK IN T1
		MOVE	T2,SVIBP##	;[1146] VALUE OF ID BP IN T2
		GTJFN%			;[1146]
		  ERJMP	GENERR		;[1146] ERROR
		HRRZ	T2,T1		;[1146] JFN INTO T2
		HRRO	T1,SVIBP##	;[1146] BP TO OUT STRING IN T1
		MOVX	T3,<111101,,1>	;]1146] OUTPUT ALL EXCEPT GENERATION NUMBER
		SETZ	T4,		;[1146] CLEAR T4
		JFNS%			;[1146] ASK MONITOR WHAT THE STRING IS
		  ERJMP GENERR		;[1146]
		MOVE	T1,T2		;[1146]
		RLJFN%			;[1146] RELEASE THE JFN
		  ERJMP OP.PNX		;[1146] IGNORE ANY ERROR
		JRST	OP.PNX		;[1146]
	GENERR:	MOVE	T4,F.WVID(FT)	;[1146] GET ORIGINAL VALUE OF ID
		MOVEI	T2,.RCFNM(FTL)	;[1146] 
		$STORE	T2,FNA,(T4)	;[1146] STORE ADDRESS OF ASCIZ ID IN FAB
 SUM 79729