Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 33/1	;08C1
		INTEDT==105			;EDIT NUMBER
 WIT
		INTEDT==106			;EDIT NUMBER
 INS 139/3	;08C2

	0106		Rearrange default table for the IB. Add default for new bit
			IB.SYS. Based on IB.SYS, set/don't set process as system
			process in the initialization code.

 INS 15/7	;08C3
	;**;[106]At I%INIT:+9L Replace 9 lines with 10 lines  JCR  5/3/84
 REP 18/7	;08C4
	XX	IB.PRG,FWMASK,'NONAME'	;;PROGRAM NAME
	XX	IB.OUT,FWMASK,T%TTY	;;$TEXT OUTPUT ROUTINE
	XX	IB.FLG,IP.STP,0		;;ORION GETS STOP CODES FLAG
	XX	IB.INT,FWMASK,0		;;INTERRUPT VECTORS
	XX	IB.FLG,IT.OCT,0		;;OPEN TERMINAL FOR S%CMND
	XX	IB.FLG,IB.DPM,0		;;USE JOB NUMBER AS PID
	XX	IB.FLG,IB.NPF,0		;;DON'T SET UP GLXPFH
	XX	IB.ERR,FWMASK,0		;;USER $TEXT ERROR EXIT ROUTINE
	XX	IB.PIB,FWMASK,0		;;PID block address
 WIT
	XX	IB.OUT,FWMASK,T%TTY	;;[106]$TEXT OUTPUT ROUTINE
	XX	IB.FLG,IT.OCT,0		;;[106]OPEN TERMINAL FOR S%CMND
	XX	IB.FLG,IP.STP,0		;;[106]ORION GETS STOP CODES FLAG
	XX	IB.FLG,IB.DPM,0		;;[106]USE JOB NUMBER AS PID
	XX	IB.FLG,IB.NPF,0		;;[106]DON'T SET UP GLXPFH
	XX	IB.FLG,IB.SYS,0		;;[106]Don't set up as a system process
	XX	IB.INT,FWMASK,0		;;[106]INTERRUPT VECTORS
	XX	IB.PIB,FWMASK,0		;;[106]PID block address
	XX	IB.ERR,FWMASK,0		;;[106]USER $TEXT ERROR EXIT ROUTINE
	XX	IB.PRG,FWMASK,'NONAME'	;;[106]PROGRAM NAME
 REP 13/8	;08C5
		DMOVE	S1,INT.D		;POINT TO FULL IB
 WIT
	;**;[106]AT INT.D:-23L Add 13 lines, modify 1 line  JCR  5/3/84
	;[106]Here to decide if to set to system process

		LOAD	S1,IIB+IB.FLG,IB.SYS	;[106]Going to check for system process
		JUMPE	S1,INIT.2		;[106]If not set, nothing else to do

	;[106]Here to set system process

	INIT.1:	SETZ	S2,			;[106]Clear "priority word"
		TXO	S2,JP%SYS		;[106]Set system process bit
		MOVEI	S1,.FHSLF		;[106]For ourselves
		SPRIW				;[106]And do it
		  ERCAL	[$WARN (<Failed to set as a system process>)
			$RET]
	INIT.2:	DMOVE	S1,INT.D		;[106]POINT TO FULL IB
 SUM 105153