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

 REP 10/8	;12C1
		SKIPGE	T1		;SEE IF ERROR
		MOVEI	P3,COMERD##	;YES--SET DISPATCH
		HRR	M,(P3)		;GET DISPATCH TABLE ENTRY
 WIT
		JUMPGE	T1,COM1E	;JUMP IF NO ERROR
		MOVEI	P3,COMERD##	;ERROR--SET DISPATCH
		SKIPA	M,(P3)		;LOAD DISPATCH BITS,,ADDRESS AND SKIP
	COM1E:	HRR	M,(P3)		;GET DISPATCH TABLE ENTRY
 INS 35/9	;12C2
	NEWJED:	JSP	T1,COMER	;PRINT "NO FREE DDBs"
		ASCIZ	/Job capacity exceeded (No free TTY DDBs)
	/
	NEWJEP:	JSP	T1,COMER	;Not enough core
		ASCIZ	/Job capacity exceeded (No core for a PDB)
	/
 REP 6/10	;12C3
		  JRST	NEWJER		;IF CAN'T, NO DDB'S. SAY JOB CAP EXC
		PUSHJ	P,CREPDB##	;CREATE A PDB FOR THIS JOB
		  JRST	[PUSHJ	P,TTYKIL##  ;KILL TTY DDB OBTAINED ABOVE
			 JRST	NEWJER]	;CAN'T GET A PDB, SAY JOB CAP EXC
 WIT
		  JRST	NEWJED		;IF CAN'T, NO DDB'S. SAY NO FREE DDBs
		PUSHJ	P,CREPDB##	;CREATE A PDB FOR THIS JOB
		  JRST	[PUSHJ	P,TTYKIL##  ;KILL TTY DDB OBTAINED ABOVE
			 JRST	NEWJEP]	;CAN'T GET A PDB, SAY SO
 INS 4/20	;12C4
		PUSHJ	P,RESET##	;ZAP PSI, IPCF STUFF, ETC.  HANDLE ^C CORRECTLY
		SETZM	.JDAT+.JBINT##	;NO OLD-STYLE TRAPPING EITHER
 INS 21/20	;12C5
	IFN FTDECNET,<
		PUSHJ	P,SCULGO##	;TELL SCMUUO THAT JOB IS GOING AWAY
	>
 SUM 244366