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