*-----------------------------------------------------------
Title[InitialJunk.mc...June 19, 1982  11:46 AM...Taft];
* Minimal Junk task.
* Maintains real time clock consistent with PilotJunk, but omits all
* the other garbage (event counters, PC sampling).
*-----------------------------------------------------------

Set[XTask, IP[JNK]];

Subroutine;
JNKInitPC: T_ JNK, CoReturn;
TopLevel;

* TIOA initialization not required because InitialMain did it.
	T_ T-T-1, RBase_ RBase[Events];

* Minimal loop is 3 cycles because AckJunkTW_ drops wakeup at T2,
* so Block cannot be executed until T4.
JunkTaskLoop:
	RTClock_ (RTClock)+1, AckJunkTW_ T;
	RTC430_ A_ RTC430, XorSavedCarry;
	Block, Branch[JunkTaskLoop];