{File name MdbNewLisp.mc;    DandeLion Interlisp Emulator - slow returns
Last edited: Purcell, 28-Dec-83 12:35:27 use 3 mapflags only
 Last edited: Charnley,  29-Dec-83 14:32:39
Last edited: Purcell, 28-Dec-83 12:35:27 use 3 mapflags for 4MB real mem but keep dp stored for iop
Last edited: Charnley, 15-Jul-83 10:37:34
Last edited: April 7, 1983  12:34 AM; sink if fault and PV<3000'b
Last edited: April 5, 1983  11:31 AM disable fault context double exit trap
Last edited: February 5, 1983  11:42 AM
Last edited: January 17, 1983  12:54 PM moved initialization to InitLisp.mc
 Last edited: November 20, 1982  4:33 PM % debugging hack: draw screen and pause
Last edited: November 20, 1982  1:00 PM debugging IOP starting handshake
Last edited: August 11, 1982  1:45 AM Try keeping display off during disk boot
}

SetTask[0];  {StartAddress[Start];}

{M1Loc:	Q ← 129'd, GOTO[sink2],	c1, at[Maintenance1Loc];{MP9129}
	Q ← 130'd, GOTO[sink3],	c2, at[Maintenance2Loc];{MP9130}
	Q ← 131'd, GOTO[sink1],	c3, at[Maintenance3Loc];{MP9131}}

{******************************************************************
	READFLAGS
*******************************************************************}
READFLAGS:
	Xbus ← TOSH xor smallpl, NZeroBr,	c1, opcode[161'b]; {71}
	rhTT ← TT ← TOS LRot8, BRANCH[$, rdfUfn],	c2;
	TOSH ← smallpl,	c3;

	Map ← [rhTT, TT],	c1;
	TOS ← 0E0,	c2;
	TOS ← MD and TOS,	c3;

	TOS ← TOS LRot12,	c1;
	Ybus ← TOS and 0F, YDisp,	c2;
	DISP4[CvtFlags,1], c3;

	TOS ← 00, GOTO[RFExit], c1, at[01,10,CvtFlags]; {00}   {clean		0  clean}
	TOS ← 02, GOTO[RFExit], c1, at[03,10,CvtFlags]; {20}   {dirty		2  wp na}
	TOS ← 01, GOTO[RFExit], c1, at[05,10,CvtFlags]; {40}   {vacant		1  dirty}
	TOS ← 03, GOTO[RFExit], c1, at[07,10,CvtFlags]; {60}   {vacant, dirty	3  vacant}
	TOS ← 08, GOTO[RFExit], c1, at[09,10,CvtFlags]; {80}   {ref		8  ref}
	TOS ← 0A, GOTO[RFExit], c1, at[0B,10,CvtFlags]; {A0}   {vacant, ref	A  wp,ref}{na}
	TOS ← 09, GOTO[RFExit], c1, at[0D,10,CvtFlags]; {C0}   {dirty, ref	9  dirty,ref}
	TOS ← 0D, GOTO[RFExit], c1, at[0F,10,CvtFlags]; {F0}   {???		D  rsvp}


RFExit:	TOS ← TOS LRot12, IBDisp, L2 ← L2.0, GOTO[DNI.pc1],	c2;
rdfUfn:	Rx ← 161'b, GOTO[ufn1],	c3;
{******************************************************************
	READRP
*******************************************************************}
READRP:
	Xbus ← TOSH xor smallpl, NZeroBr,	c1, opcode[162'b]; 
	rhTT ← TT ← TOS LRot8, BRANCH[$, rdrpUfn],	c2;
	TOSH ← smallpl,	c3;

	Map ← [rhTT, TT],	c1;
	TOS ← ~0E0, L2 ← L2.0,	c2;
	TOS ← MD and TOS, c3;

{%M}
	Ybus ← TOS - 1, PgCarryBr,	c1;
	BRANCH[rsect0, rsectN0],	c2;
rsect0:
	GOTO[readrpend],	c3;
rsectN0:
	TOS ← TOS - 3, GOTO[readrpend],	c3;
{%M}
readrpend:
	PC ← PC + PC16,	c1;
	IBDisp,	c2;
	TOS ← TOS LRot8, L2 ← L2.0, DISPNI[OpTable],	c3;

rdrpUfn:	Rx ← 162'b, GOTO[ufn1],	c3; 


{******************************************************************
	WRITEMAP
*******************************************************************}

WRITEMAP:   {vp, rp, flag => vp}

	MAR ← [rhS, S], S ← S -1,	c1, opcode[163'b];{73}
	Ybus ← TOSH xor smallpl, NZeroBr, CANCELBR[$, 2],	c2;
	Rx ← MD{rp}, BRANCH[$, ufnWM0],	c3;
	
{ Test to see if the rp is in the display bank. If so, leave it alone else bump pg# by 300}
	TT ← Rx and ~0FF, c1;
	Ybus ← TT + 0, ZeroBr, c2;
	TT ← 3, BRANCH[notDB, isDB], c3;
	
notDB:	TT ← TT LRot8, c1;
	Rx ← Rx + TT, c2;  {add 3 segs}
	, c3;

isDB:	MAR ← [rhS, S + 0],	c1;
	S ← S -1, 	c2;
	Q ← MD{rpH},	c3;

	MAR ← [rhS, S], S ← S -1,	c1;
	Ybus ← Q xor smallpl, NZeroBr, CANCELBR[$,2],	c2;
	TT ← MD{vp}, BRANCH[$, ufnWM1],	c3;

	MAR ← [rhS, S+0], L2 ← L2.0,	c1;
	Rx ← Rx LRot8,			c2;
	Q ← MD{vpH},			c3;
	
	Noop, 				c1;
	Ybus ← Q xor smallpl, NZeroBr,	c2;
	rhTT ← TT ← TT LRot8, BRANCH[$, ufnWM2],	c3;

	S ← S -1, Xbus ← TOS LRot4, XDisp,	c1;
	Rx ← Rx and ~0E0, DISP4[wmf, 4],	c2;

	Rx ← Rx or 0, GOTO[wMap],	c3, at[4, 10, wmf];  {clean}
	Rx ← Rx or 80, GOTO[wMap],	c3, at[0C,10,wmf];   {ref, clean}
	Rx ← Rx or 040, GOTO[wMap], 	c3, at[5, 10, wmf];  {dirty --> dirty, ref}
	Rx ← Rx or 0C0, GOTO[wMap],	c3, at[0D,10,wmf];   {dirty, ref --> dirty, ref}
	Rx ← Rx or 20{60}, GOTO[wMap],	c3, at[6, 10, wmf];   {wp}	
	Rx ← Rx or 0A0, GOTO[wMap],	c3, at[0E,10,wmf];    {wp,ref}
	Rx ← Rx or 060, GOTO[wMap],	c3, at[7, 10, wmf];  {vacant, dirty --> vacant, dirty}
	Rx ← Rx or 0E0, GOTO[wMap], {reserved}	c3, at[0F,10,wmf]; {?? - everything}

wMap:	Map ← [rhTT, TT],	c1;
	MDR ← Rx, PC ← PC + PC16, IBDisp,	c2;
	TOS ← TT LRot8, L2 ← L2.0, DISPNI[OpTable],	c3;

ufnWM0:	S ← S+1, GOTO[ufnX2],	c1; 
ufnWM1:	S ← S+3, GOTO[ufnX2],	c1; 
ufnWM2:	S ← S+3, GOTO[ufnX2],	c1; 

{*************************
	Read Map Update Subroutine 
**************************}
{Timing: 4 cycles}
{Enter at cycle 3, returns to cycle1}
{returns thru L0 if map fixed ok, relative to RMapFixCaller}
{returns thru L1 if wants to trap, relative to RFixForTrap}


RLMapFix:	Xbus ← Rx LRot0,XwdDisp, GOTO[RLMapFix1],	c3;

{RLMapFixPC:
	Rx ← PC, Xbus ← PC LRot0,XwdDisp, GOTO[RLMapFix1],	c3;}

RLMapFix1:
	Map ← [rhTT,TT], DISP2[RFixRFlags],	c1;

RFixRFlags:
	MDR ← Rx or 80, L0Disp, GOTO[ReRead],	c2, at[PgClean,4];
	MDR ← Rx or 80, L0Disp, GOTO[ReRead],	c2, at[PgDirty,4,RFixRFlags];
	MDR ← Rx or 80, L0Disp, GOTO[ReRead],	c2, at[PgProt,4,RFixRFlags];
	GOTO[RWTrap],	c2, at[PgVacant,4,RFixRFlags];

ReRead:	Xbus ← ReadOK, XDisp, RET[RMapFixCaller],	c3;

RWTrap:	Noop, GOTO[PFault],	c3;

{copy of MapFix for more than 16 returns}

RLxMapFix:	Xbus ← Rx LRot0, XwdDisp,	c3;

RLxMapFix1:		
	Map ← [rhTT,TT], DISP2[RxFixRFlags],	c1;

RxFixRFlags:
	MDR ← Rx or 80, L0Disp, GOTO[RexRead],	c2, at[PgClean,4];
	MDR ← Rx or 80, L0Disp, GOTO[RexRead],	c2, at[PgDirty,4,RxFixRFlags];
	MDR ← Rx or 80, L0Disp, GOTO[RexRead],	c2, at[PgProt,4,RxFixRFlags];

	GOTO[RWTrap],	c2, at[PgVacant,4,RxFixRFlags];

RexRead:	Xbus ← ReadOK, XDisp, RET[RxMapFixCaller],	c3;


{*************************
	Write Map Update Subroutine 
**************************}
{Timing: 4 cycles}
{Enter at cycle 3, returns to cycle1}
{returns thru L0 if map fixed ok}
{returns thru L1 if wants to trap}

WLMapFix:	Xbus ← Rx LRot0, XwdDisp,	c3;
	Map ← [rhTT, TT], WriteDISP2[FixWFlags],	c1;

FixWFlags:
	MDR ← Rx or 0C0, L0Disp, GOTO[ReWrite],	c2, at[PgWrtOK,4,FixWFlags];
	GOTO[RWTrap],	c2, at[PgNoWrt,4,FixWFlags];

ReWrite:
	Rx ← Rx, Xbus ← PgDirty, XDisp, RET[WMapFixCaller],	c3;


{*************************
	FixForTrap (merge RFixForTrap and WFixForTrap)
**************************}
	PC ← PC - 1, GOTO[NoMoreFix],	c1, at[L1.DecDec,10,Fix];
	PC ← PC - 1, GOTO[PushFix],	c1, at[L1.PushDec2,10,Fix];
PushFix:	S ← S + 2, GOTO[TrapFixDone],	c2;
	PC ← PC - PC16, GOTO[NoMoreFix],	c1, at[L1.DecOnly,10,Fix];
	PC ← PC - 1 - PC16, GOTO[NoMoreFix],	c1, at[L1.Dec3,10,Fix];
	S ← S + 2, GOTO[NoMoreFix],	c1, at[L1.PushOnly,10,Fix];
	S ← S - 2, GOTO[NoMoreFix],	c1, at[L1.PopOnly,10,Fix];
	S ← S + 4, GOTO[NoMoreFix],	c1, 
at[L1.Push2OK,10,Fix];
NoMoreFix:	Noop, GOTO[TrapFixDone],	c2;


TrapFixDone: Noop, {GOTO[PUNT]}	c3;

NoFixes:	Rx ← PV LRot8,	c1, at[L1.NoFixes,10,Fix];
	Ybus ← 5 - Rx {- 6}{+FFFA}, PgCarryBr{small PV},	c2;
	Rx ← FAULTFXP, BRANCH[PUNT, ReFault],	c3;

{store fault address in interface page}
AnotherFault:	Noop, GOTO[PFault], c3, at[PFaultB0];

BBFault:
PFault:	rhRx ←  INTERFACEspace, 	c1;
	Rx ← INTERFACEbasePage{20'b}{INTERFACEbase=10000'b},	c2;
	Rx ← Rx LRot8,	c3;

{for debugging set uPageFault  to all ones while in fault}
	Map ←  [rhRx,Rx],	c1;
	,	c2;
	Rx ← rhRx ← MD,	c3;

	MAR ← [rhRx, 0 + IFPFAULTHI],	c1;
	MDR ← rhTT, CANCELBR[$, 2], WriteOK,	c2;
	,	c3;

	MAR ← [rhRx, 0 + IFPFAULTHI + 1], L2 ← 0{NotInCall},	c1;
	MDR ← TT, L1Disp, CANCELBR[$, 2], WriteOK,	c2;
	Rx ← {0 -} FAULTFXP, RET[Fix],	c3;

ReFault:	Q ← 24'd, GOTO[sink2],	c1;{MP9024}

{**************************************************}
CONTEXTSWITCH: 			
{**************************************************}

{Takes context number in TOS: switch to that context, return value ignored}

{% SHOULD CHECK IF ANY PENDING INTERRUPTS - CURRENTLY
 MAY MISS KEYSTROKES }

opcode[176'b],{7E}
	Ybus ← TOS xor ResetFXP, ZeroBr{faultExit}, L2← 0{NotInCall},	c1;
	Rx← TOS, BRANCH[$,  SwReset],	c2;
	TOSH ← 0, CANCELBR[ConJn],	c3;

SwReset: ClrIntErr,TOSH ← 1{Resetting},	c3;
	rhRio ← oldIOPageHigh, c1;
	Rio ← oldIOPageLow, c2;
	uWP ← 0, c3;
	MAR ← [rhRio, Rio + PeriodicInterruptOffset],c1;
	MDR ← 0, CANCELBR[$,2], LOOPHOLE[wok], c2;
	, c3;
ConJn:	uWDC ← TOSH, PC← PC + PC16 {advance PC}, GOTO[PuntFor2],	c1;


{note that this code winds up storing the context number on the stack and then
setting the no-push bit in the frame. This is not exactly the same as the Dorado, but no code relies on the value returned "to" a context}



{**************************************************}
{UvPCpageL is up to date as each opcode starts executing.  If the instruction buffer holds bytes from two pages then mint is set and uPCCrossL ← -1.  At end of instruction if (uPCCrossL and PC#0FF) then PC has crossed page as it was advanced in the instruction.  In such a case the buffer will need refill and the situation will be caught at the next IBDisp by means of mint.  If a trap such as stack overflow should happen after PC is advanced but before IBDisp then this case must be explicitly checked for}



StackOverflow:   {testing}
	Rx ← {0 -} SubovFXP, L2 ← 0{NotInCall}, GOTO[PuntFor2],	c1;

{**************************************************
PuntFor: 	{Punt without Back up}  {Rx=FXP#}{L2 odd  => set InCall bit}		
**************************************************}
{to finish an opcode simulate the fetch for the next one}
{i.e.  ibEmpty and PC=0 then updatepc by PCCrossL←true}
{     PCCrossL and PC#FF then updatepc}

PuntFor:   Noop,	c1;
PuntFor2:	Ybus ← PC - PC16, PgCarryBr,	c2;
	TT ← 30{ibPtrMask}, Cin ← pc16, BRANCH[pcZero, pcNZero],	c3;

pcNZero:	Noop, GOTO[pntC2],	c1;

pcZero:	Ybus ← TT and ~ ErrnIBnStkp, ZeroBr{empty},	c1;
pntC2:	Noop, BRANCH[$, setCross],	c2;
	Noop, GOTO[PUNT],	c3;

setCross:	uPCCrossL ← TT xor ~TT, GOTO[PUNT],	c3;

{**************************************************}
PUNT: 	{L2 odd  => set InCall bit  ELSE  set NoPush bit}		
{**************************************************}

	MAR ← S ← [rhS, S + 1], GOTO[RetCont9],	c1;
RetCont9:	MDR ← TOSH, BRANCH[$, RetCar9, 1],	c2;
	Noop,	c3;

	MAR ← S ← [rhS, S + 1],	c1;
	MDR ← TOS,  CANCELBR[$, 2], WriteOK,	c2;
	PV ← PV - 0A{flags-pvar},	c3;

pntNP:{Set NoPushReturn bit}

	MAR ← PV ← [rhPV, PV + 0], 	c1;
	Noop,	c2;
	Q{flags} ← MD{flags}, L2Disp,	c3;

pntNP1:	MAR ← PV ← [rhPV, PV + 0], BRANCH[$, pntInC, 0E],	c1;
	MDR ← Q{flags} or uFxNoPushReturn, GOTO[pntJ],	c2;
pntInC:	MDR ← Q{flags} or uFxInCall, GOTO[pntJ],	c2;
pntJ:	TT ← PC and 0FF,	c3;

pntPC:{Store relative byte PC  = 2*[UvPCpageL-UvCL+(PC and 0FF)]+PC16}

	Q ← UvCL,	c1;
	TT{PC-UvCL-1} ← TT - Q - 1, Xbus ← uPCCrossL, XRefBr,	c2;
UnCross:	Q ← UvPCpageL, BRANCH[pntNC, $],	c3;

pntC:{Optional click: uPCCross is true, so check for PC#FF}

{option}	Ybus ← PC + 2, PgCarryBr{LastWord?},	c1;
{option}	Q{bytePC} ← Q + 0FF + 1, BRANCH[$, UnCross],	c2;
{option}	uPCCrossL ← 0, {UvPCpageL corrected}	c3;

pntNC:	TT{PC-UvCL+UvPCpageL} ← TT + Q + 1,	c1;
	TT{bytePC} ← TT + TT + PC16, CarryBr,	c2;
	PV ← PV + 5{FxPc - FxFlags}, BRANCH[$, PcNegError],	c3;

	MAR ← PV ← [rhPV, PV + 0],	c1;
	MDR{bytePC} ← TT{bytePC},	c2;
	TT{ESP} ← uStkLimO,	c3;

pntN:{store Next}

	MAR ← PV ← [rhPV, PV - 1], {pc = next or 1}	c1;
	MDR{next} ← S ← S + 1, CANCELBR[$, 2], WriteOK,	c2;
	PV ← PV - 04{0 - next}, {restore PV}	c3;

pntF:{make remaining stack Free}

	MAR ← S ← [rhS, S + 0], 	c1;
	MDR{next} ← uFreeStackBlock,	c2;
	TT{size} ← TT - S,	c3;

	MAR ← S ← [rhS, S + 1], 	c1;
	MDR{next} ← TT + nStkLimOffset, CANCELBR[$, 2], WriteOK,	c2;
	Noop{@@} {rhTT ←  INTERFACEspace},	c3;

{pntP:}{swap PV with memory in interface page}

{make subroutine %%%}{MidPunt called by RTN2 when  stack overflow}
pntP:	TT ← INTERFACEbasePage, GOTO[MidPunt2],	c1;
MidPunt:	TT ← INTERFACEbasePage, GOTO[MidPunt2],	c1;
MidPunt2:	TT ← TT LRot8,	c2;
	TT ← TT  + Rx{punt}, rhTT ←  INTERFACEspace,	c3;

	Map ← Q ← [rhTT,TT],	c1;
	Rx ← Rx -1,	c2;
	uuPV ← PV, TT ← rhTT ← MD,{ XRefBr,}	c3;

{%M	MAR ← [rhTT, Q + 0],	c1;
	MDR{next} ← PV, Rx ← Rx{punt}-1, ZeroBr{KeyFXP},	c2;
	PV ← MD, BRANCH[RTN2, RTN2K],	c3;
%M}

	MAR ← [rhTT, Q + 0],	c1;
	,	c2;
	Rx ← MD,	c3;

	MAR ← [rhTT, Q + 0],	c1;
	MDR{next} ← PV,	c2;
	PV ← Rx, GOTO[RTN2],	c3;

{exceptions:}

RetCar9:	S ← S +0FF + 1, CANCELBR[$, 1],	c3;
	MAR ← [rhS, S + 0], GOTO[RetCont9],	c1;

PcNegError:
	Q ← 126'd, GOTO[sink2],	c1;{MP9126}

{**************************************************}
RETURN: 		{3%  8 clicks}
{**************************************************}

	MAR ← Q{pAlink} ← [rhPV, PV - 9{alink-pvar}], CANCELBR[$, 0F],	c1, opcode[20'b];{10}
RetCont0:	TT{ivar} ← uIVar, BRANCH[$, RetCar0{smash PV}, 1],	c2;
	PV ← MD{aLink}, XLDisp, L1 ← 1{TT{S}},	c3;

rtI:{IVar}{if aLink is odd then the next fetch hits Flags instead of ivar}

	MAR ←  [rhPV, PV - 0B{IVar}], BRANCH[FastRet2, SlowRet, 2],	c1;
SlowRet:	Rx{alinkFlags} ← PV - 0B{flags-(pvar+1)},  CANCELBR[$, 2],	c2;
	STK{alinkFlags} ← Rx, PV{pClink} ← Q{pAlink} + 7+1{clink-alink},	c3;


{************ HARD RETURN is necessary? **************}
{	hardRet1 if self.alink#self.clink	}
{	hardRet2 if caller.usecnt>0	}
{	hardRet3 if caller.next is busy	}
{	   unless caller.next=ivar & self.blink.cnt=0	}
{*****************************************************}
{	hardRet3a if caller.next#ivar  &  caller.next#free	}
{	hardRet3b if self.blink.cnt>0  &  caller.next#free	}
{*****************************************************}

rthC:{clink - 1}

	{uuPV{pClink} ←} MAR ← PV ← [rhPV, PV + 0],	c1;
	Q{alink} ← Rx{alinkFlags} + 0A{pvar-flags},	c2;
	TT{clink} ← MD{clink},	c3;

rthF:{flags.usecnt - 2}

	rhRx ← nRhS,	c1;
	,	c2;
	,	c3;

	MAR ← [rhRx, Rx{alinkFlags}+0],	c1;
{RetCont4:}	Ybus ← Q{alink} xor TT{clink}, NZeroBr, rhTT ← nRhS,	c2;
	TT{flags} ← MD{flags}, BRANCH[$, hardRet1],	c3;

rthN:{next - 3}

	MAR ← Rx ← [rhRx, Rx + 4{next-flags}],	c1;
RetCont5:	Ybus← TT{flags} - 1, PgCarryBr{cnt>0?}, rhRx ← nRhS, BRANCH[$, RetCar5, 1],	c2;
	Rx{next} ← MD{next}, BRANCH[$, hardRet2],	c3;

rthT:{next stack block type free?}

	MAR ← Q{next} ← [rhRx, Rx{next} + 0],	c1;
	Noop, 	c2;
	Rx{block} ← MD{block},	c3;

rthBL:{blink}

sav0:	MAR ← PV{pBlink} ← [rhPV, PV - 1],	c1;
	Ybus ← Rx{block} xor uFreeStackBlock, ZeroBr{free}, CANCELBR[$, 2],	c2;
	TT{t3:blink} ← MD{blink}, L1{free}←0, BRANCH[free0, free1],	c3;

rthBLF:{blinkFlags}

free0:	MAR ← [rhTT, TT{t3:blink} + 0], GOTO[free2],	c1;
free1:	MAR ← [rhTT, TT{t3:blink} + 0], GOTO[free2],	c1;
free2:	Ybus ← uIVar xor Q{next}, ZeroBr, L1Disp{free},	c2;
	Q{t4:blinkFlags} ← MD{blinkFlags}, BRANCH[hardRet3a,$],	c3;

rthBF:{get bflags}

	MAR ← PV ← [rhPV, PV - 0A{bflags - blink}],	c1;
RetCont6:	Ybus ← 0 - Q{t4:blinkFlags}, PgCarryBr{cnt=0?}, L1Disp{free}, BRANCH[$, RetCar6, 1],	c2;
	Rx{bflags} ← MD{bflags}, BRANCH[hardRet3b, $],	c3;


{************ FREE FRAMES (basic and extension) ************}
rtfM:{misc}

	Ybus ← Rx{bflags} and uBfResidualRhmask, ZeroBr,	c1;
	Ybus ← 0 - Q{t4:blinkFlags}, PgCarryBr{cnt=0?}, BRANCH[rtSkip, $],	c2;
	PV ← uIVar,{treat BF as part of FX} CANCELBR[freeFx, 1],		c3;
rtSkip:		Rx{ivar} ← uIVar, BRANCH[$, freeBf],	c3;

nqnz:	MAR ← [rhTT, TT{t3:blink} + 0],	c1;
	MDR ← Q{blinkFlags} - 1,	c2;
	Noop, GOTO[freeFx],	c3;

{rtfBF: free basic frame}

freeBf:	MAR ← [rhRx, Rx{ivar} + 0],	c1;
	MDR ← uFreeStackBlock,	c2;
	TT{t3:blink} ← TT + 2,	c3;

	MAR ← [rhRx, Rx{ivar}+1],	c1;
	MDR ← TT{t3:blink} - Rx{uIVar}, CANCELBR[$, 2],WriteOK,	c2;
	Noop,	c3;

{rtfFX: free frame extension}{free from PV to ESP, then return to uuPV{alink}}

freeFx:	MAR ← PV ← [rhPV, PV + 0{bflags - bflags}],	c1;
	MDR ← uFreeStackBlock,	c2;
	TT{ESP} ← uESP,	c3;

	MAR ←  [rhPV, PV + 1],	c1;
	MDR ← TT{ESP} - PV, CANCELBR[$, 2],WriteOK,	c2;
	PV{destFX} ← STK{alinkFlags}{uRx{alinkFlags}}, GOTO[RTN2],	c3;


{************ Keyboard context switch ************}
RTN2K:	MAR ← [rhPV, PV + 4{FxNext}], L1 ← 1, GOTO[rtn22],	c1;

{************ RESTORE STATE of frame ************}
RTN2:	{return to frame pointed to by PV{points to flags}}{context switch here}
{************ ***********************************}

	MAR ← [rhPV, PV + 4{FxNext}], L1 ← 1,	c1;
rtn22:	rhTT ← nRhS, BRANCH[$, RetCar8, 1],	c2;
RetCont8:	TT{ESP} ← MD{next}, L1Disp{1},	c3;

{rtrS: check free stack block}

extend:	MAR ← [rhTT, TT{ESP} + 0], BRANCH[$, rtrFirst],	c1;
	uStkLimO ← Q{uStkLimO}, {skip on first iteration}	c2;
extend3:	Rx{block} ← MD{block},	c3;

	MAR ← [rhTT, TT{ESP} + 1],	c1;
	Ybus ← Rx{block} xor uFreeStackBlock, NZeroBr, CANCELBR[$, 2],	c2;
	Rx{size} ← MD{size}, BRANCH[$, notFree],	c3;

	{uESP ←} TT{ESP} ← TT{ESP} + Rx{size}, L1 ← 0,	c1;
	uESP ← TT,	c2;
	Q{uStkLimO} ← TT{ESP} - nStkLimOffset, GOTO[extend]	c3;

rtrFirst:	S ← TT{ESP}, GOTO[extend3],	c2;

{{rtrF: flags}}

{sufficient stack?}

notFree:	Noop, {PV unchanged, ready to overflow punt}	c1;
	Ybus ← S - Q{uStkLimO}, CarryBr{S >= limit},	c2;
	Rx ← SubovFXP, BRANCH[$, MidPunt],	c3;

	MAR ← PV ← [rhPV, PV + 0], L1Disp,	c1;
	Rx{pFlags} ← PV, rhRx ← nRhS, BRANCH[$, notFreeTrap],	c2;
	TT{flags} ← MD{flags},	c3;

	Xbus ← TT{flags} LRot8, XDisp,	c1;
	UvCL ← 0, L1 ← 0, DISP4[rtf, 0A],	c2;
	PV ← PV + 0A{pvar - flags}, GOTO[FastRet],	c3, at[0A, 10, rtf];

rtrNoP: {Other cases: turn off special bit, discard TOS, TOSH}

	Q{flagMask} ← ~ uFxNoPushReturn, GOTO[rtrFix],	c3, at[0B, 10, rtf];
	Q{flagMask} ← ~ uFxInCall, GOTO[rtrFix],	c3, at[0E, 10, rtf];
	Q{flagMask} ← ~ uFxInCall, GOTO[rtrFix],	c3, at[0F, 10, rtf];

rtrFix:	MAR ← [rhRx, Rx{pFlags} + 0],	c1;
	MDR ← TT{flags} and Q{flagMask},	c2;
	S ← S - 1,	c3;

	MAR ← [rhS, S], S ← S - 1,	c1;
	PV ← PV + 5{pc-flags}, CANCELBR[$, 2],	c2;
	TOS ← MD, L1Disp,	c3;

	MAR ← [rhS, S + 0], BRANCH[$, InCall, 0B],	c1;
	PV ← PV + 5{pvar-pc},  	c2;
	TOSH ← MD, GOTO[FastRet],	c3;

InCall:	S ← S -1,	c2;
	TOSH ← MD,	c3;

{(PC) get byte PC into PC and UvPCpageL for immediate storing}{UvCL = 0}

	MAR ← [rhPV, PV+0], Xbus ← 0, XC2npcDisp,	c1;
	PV ← PV + 5{pvar-pc}, BRANCH[ICwasO, ICwasE, 2],	c2;
ICwasE:	PC{pc} ← MD{pc}, GOTO[ICnowO], Cin ← pc16,	c3;
ICwasO:	PC{pc} ← MD{pc}, GOTO[ICnowO],	c3;

ICnowO:	PC ← (PC{bytePC} - 1{apply incs}) RShift1, SE ← 0, YDisp,	c1;
	Q ← PC{pc} and ~0FF, BRANCH[pcEv, pcOdd, 0E],	c2;
pcEv:	UvPCpageL ← Q, Cin←pc16, GOTO[preAPPLY],	c3;
pcOdd:	UvPCpageL ← Q, GOTO[preAPPLY],	c3;

preAPPLY:
	IBPtr ← 1,	c1;
	uPCCrossL ← 0,	c2;
	Xbus ← ib, GOTO[APPLY],	c3;

{************ Slow Exceptions ************}
hardRet1:	PV{pPvar} ← PV{pClink} +1, GOTO[hdRet],	c1;
hardRet2:	PV{pPvar} ← PV{pClink} +1, GOTO[hdRet],	c1;
hardRet3a:	PV{pPvar} ← PV{pBlink} +2, GOTO[hdRet],	c1;
hardRet3b:	PV{pPvar} ← PV{pBflags} +0C, GOTO[hdRet],	c1;

hdRet:	Rx ← 20'b, GOTO[ufn3],	c2;
{	Noop,	c3;
hardRet:	Noop, GOTO[ufn2], {cycle one break point}	c1;}


notFreeTrap:	Q ← 16'd, GOTO[sink1],	c3;{MP9016}

RetCar5:	Rx ← Rx +0FF + 1, CANCELBR[$, 1],	c3;
	MAR ← [rhRx, Rx + 0], GOTO[RetCont5],	c1;

RetCar6:	PV ← PV - 0FF -  1, CANCELBR[$, 1],	c3;
	MAR ← [rhPV, PV + 0], GOTO[RetCont6],	c1;

RetCar8:	PV ← PV +4{FxNext},	c3;
	MAR ← [rhPV, PV + 0],	c1;
	PV ← PV - 4, GOTO[RetCont8],	c2;


{************************************
	FAST RETURN:   PV{PVars},  S{next} if L1:2   TT{next} if L1:1	
*************************************}

{(A) get IVar}

FastRet:	MAR ← [rhPV, PV - 0B{pvar-IVar}], L1 ← 2{S:next},	c1;
FastRet2:	PV ← PV - 5{pvar-pc}, BRANCH[$, RetCar2, 1],	c2;
RetCont2:	STK ← TOSH, TOSH ← MD{ivar}, L1Disp,	c3;

{(PC) get byte PC (relative to code base)}

rtPC:	MAR ← [rhPV, PV+0], Xbus ← 0, XC2npcDisp, BRANCH[rtS, rtTT, 2],	c1;
rtS:	S ← S -1, BRANCH[wasO, wasE, 2], IB ← 6{constant used later},	c2;
rtTT:	S ← TT -1, BRANCH[wasO, wasE, 2], IB ← 6{constant used later},	c2;
wasE:	PC{PC} ← MD{PC}, GOTO[nowO], Cin ← pc16,	c3;
wasO:	PC{PC} ← MD{PC}, GOTO[nowO],	c3;

{(C) get UvCL, code base}

nowO:	MAR ← PV ← [rhPV, PV- 3{fn lo}], L0 ← L0.RetRedo,	c1;
	Ybus ← PC, PC ← PC RShift1, SE ← 0, YDisp, IBPtr ← 1, BRANCH[$, RetCar7, 1],	c2;
RetCont7:	TT{UvCL} ← MD{UvCL}, L3 ← 0E, BRANCH[beEven, beOdd, 0E],	c3;

{(C) get UvChighL, calulate virtual PC in TT}

beEven:	MAR ← Q ← [rhPV, PV + PC16{=1}], L1 ← L1.Ret, GOTO[jnRet],	c1;
beOdd:	MAR ← Q ← [rhPV, PV + 1], L1 ← L1.Ret, GOTO[jnRet],	c1;
jnRet:	UvCL ← TT, PV ← Q + ibNA{6} + 1{fn hi}, CANCELBR[$, 2],	c2;
	rhTT ← MD{UvChighL}, TT ← TT + PC,	c3;

{(MF) map and fetch with restored PC}

rtMF:	Map ← Q ← [rhTT, TT], L0 ← L0.RetRedo,	c1;
	TT ← TT and ~0FF, L2 ← L2.0,	c2;
	UvPCpageL ← TT, rhPC ← PC ← MD, ReadXRefBr,	c3;

{(F) fetch instructions with restored PC}

	MAR ← Q ← [rhPC, Q + 0], ReadBRANCH[RetMapX,$],	c1, at[L0.RetRedo,10,RMapFixCaller];
	uIVar ← TOSH, TT ← rhTT, L3Disp,	c2;
	IB ← MD, PC ← Q, UvChighL ← TT, BRANCH[rptr0, rptr1, 0E],	c3;

rptr0:	MAR ← [rhPC, PC + 1], IBPtr←0, L0←L0.NERefill, GOTO[retjoin],	c1; 
rptr1:	MAR ← [rhPC, PC + 1], IBPtr←1, L0←L0.NERefill, GOTO[retjoin],	c1;
retjoin:	TOSH ← STK, AlwaysIBDisp, DISP2[NoRCross],	c2;

{exceptions:}

RetMapX:	Rx ← PC, GOTO[RLMapFix],	c2;

RetFix:	uIVar ← TOSH, TT ← rhTT,	c1, at[L1.Ret,10,Fix];
	UvChighL ← TT, PC ← Q,	c2;
	TOSH ← STK,	c3;

	uPCCrossL ← 0, GOTO[NoMoreFix],	c1;

RetCar0:	PV ← PV - 9{alink-pvar},	c3;
	MAR ← Q ← [rhPV, PV + 0], GOTO[RetCont0],	c1;

RetCar2:	PV ← PV -6,	c3;
	MAR ← [rhPV, PV + 0],	c1;
	PV ← PV +6, GOTO[RetCont2],	c2;

RetCar7:	PV ← PV -0FF - 1, L3 ← 0E, BRANCH[rc7e, rc7o, 0E],	c3;
rc7e:	MAR ← [rhPV, PV + 0], GOTO[rc7],	c1;
rc7o:	MAR ← [rhPV, PV + 0], GOTO[rc7],	c1;
rc7:	L3Disp, GOTO[RetCont7],	c2;

	{ E N D }