Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - sched1.c08
There is 1 other file named sched1.c08 in the archive. Click here to see a list.
 REP 28/33	;08C1
	SQTES1:	AOS	SQCNT##		;MOVE THE PRIMARY TABLE POINTER BACK ONE
		MOVSI	T1,(5B5)	;SIMULATE A DBP
		ADDM	T1,SQPNT##	;DECREMENT BYTE POINTER
		JRST	TPOPJ##		;RETURN
 WIT
	SQTES1:	AOS	T1,SQCNT##	;MOVE PRIMARY TABLE POINTER BACK ONE
		CAIG	T1,^D100	;UNLESS ALREADY AT TOP
		SETO	T1,
		JUMPL	T1,SQTES2
		MOVEI	T1,^D100	;RESET COUNT TO KNOWN VALUE
		MOVEM	T1,SQCNT##
		SKIPA	T1,[POINT 5,PSQTAB##]
	SQTES2:	ADJBP	T1,SQPNT##
		MOVEM	T1,SQPNT##
		JRST	TPOPJ##
 REP 7/55	;08C2
		JRST	ZCKXPN		;YES, DON'T LOOK FOR OUTPUT NOW
 WIT
		JRST	CHKXPN		;YES, DON'T LOOK FOR OUTPUT NOW
 DEL 55/57	;08C3
	IFN FTMP,<
		PUSHJ	P,SCDOWN##
		  CPUNLK	(SCD)>
 INS 12/58	;08C4
	IFN FTMP,<
		PUSHJ	P,SCDOWN##
		  CPUNLK	(SCD)>
 SUM 246235