{dbLispIO4K.mc created by cal: 5-Nov-84 15:59:05 } {***************************************************************************** BITBLT *****************************************************************************} BBThru: TOSH ← smallpl, GOTO[IB.pc1] ,c1; {***************************************************************************** MISC Input *****************************************************************************} @MISC1: opcode[170'b], L2 ← L2.0, GOTO[Misc], c1; @MISC2: opcode[171'b], L2 ← L2.0, c1; Misc: PC ← PC + 1, Xbus ← ib, XDisp, c2; uTOS ← TOS, YDisp, DISP4[MiscDisp, 0C], c3; Misc0: Q ← 121'd, CANCELBR[sink2, 0F], c1, at[0C,10, MiscDisp];{MP9121} Misc3: Q ← 121'd, CANCELBR[sink2, 0F], c1, at[0F,10, MiscDisp];{MP9121} {***************************************************************************** INPUT Input *****************************************************************************} INPUT: DISP4[MiscIn], c1, at[0D,10, MiscDisp]; TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[0,10,MiscIn]; {was ←EIData} TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[1,10,MiscIn]; {was ←EStatus} TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[2,10,MiscIn]; {was ←KIData} TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[3,10,MiscIn]; {was ←KStatus} TOS ← uSTATE, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[4,10,MiscIn]; {uSTATE} TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[5,10,MiscIn]; {was ←MStatus} TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[6,10,MiscIn]; {was ←KTest} TOS ← 0, L2 ← L2.0, IBDisp, GOTO[MiscInEnd], c2, at[7,10,MiscIn]; {was ←PPort} TOS ← VersionHi, GOTO[MiscVers], c2, at[8,10,MiscIn]; Q ← 122'd, GOTO[sink3], c2, at[09,10,MiscIn];{MP9122} Q ← 122'd, GOTO[sink3], c2, at[0A,10,MiscIn];{MP9122} Q ← 122'd, GOTO[sink3], c2, at[0B,10,MiscIn];{MP9122} Q ← 122'd, GOTO[sink3], c2, at[0C,10,MiscIn];{MP9122} Q ← 122'd, GOTO[sink3], c2, at[0D,10,MiscIn];{MP9122} Q ← 122'd, GOTO[sink3], c2, at[0E,10,MiscIn];{MP9122} Q ← 122'd, GOTO[sink3], c2, at[0F,10,MiscIn];{MP9122} MiscInEnd: TOSH ← smallpl, L2 ← L2.0, DISPNI[OpTable], c3; MiscVers: TOS ← TOS LRot8, c3; TOS ← TOS or VersionLo, c1; IBDisp, L2 ← L2.0, GOTO[MiscInEnd], c2; {***************************************************************************** OUTPUT Output *****************************************************************************} OUTPUT: MAR ← S ← [rhS, S + 0], Xbus ← uTOS, XDisp, CANCELBR[$, 0F], c1, at[0E,10, MiscDisp]; S ← S - 2, DISP4[MiscOut], c2; TT ← MD, GOTO[OutEnd], c3, at[0,10,MiscOut]; {was IOPOData←} TT ← MD, GOTO[OutEnd], c3, at[1,10,MiscOut]; {was IOPCtl←} TT ← MD, GOTO[OutEnd], c3, at[2,10,MiscOut]; {was KOData←} TT ← MD, GOTO[OutEnd], c3, at[3,10,MiscOut]; {was KCtl←} TT ← MD, GOTO[OutEnd], c3, at[4,10,MiscOut]; {was EOData} TT ← MD, GOTO[OutEnd], c3, at[5,10,MiscOut]; {was EICtl←} TT ← MD, GOTO[OutEnd], c3, at[6,10,MiscOut]; {was DCtl←} TT ← MD, GOTO[OutEnd], c3, at[7,10,MiscOut]; {was Display Refresh} TT ← MD, GOTO[OutSetOpt], c3, at[8,10,MiscOut]; TT ← MD, GOTO[OutEnd], c3, at[ 9,10,MiscOut]; {was PCtl←} TT ← MD, GOTO[OutEnd], c3, at[0A,10,MiscOut]; {was MCtl←} {%M} TT ← MD, GOTO[OutEnd], c3, at[0B,10,MiscOut]; TT ← MD, GOTO[OutEnd], c3, at[0C,10,MiscOut]; {was EOCtl←} TT ← MD, GOTO[OutEnd], c3, at[0D,10,MiscOut]; {was KCmd←} TT ← MD, GOTO[OutEnd], c3, at[0E,10,MiscOut]; {was Out PPort} TT ← MD, GOTO[OutEnd], c3, at[0F,10,MiscOut]; {was POData←} OutEnd: Noop, GOTO[IB.nop], c1; OutSetOpt: uLispOptions ← TT, GOTO[IB.nop], c1; {*******************************************************************} logout: TT ← 55{password to mesa}, CANCELBR[$] c2; rhRx ← Rx ← uIOPage, c3; Off: MAR ← [rhRx, IOPage.ProcessorCommand+0], c1, at[LOGOUT]; MDR ← 4, c2; uLispBootMsg ← TT, GOTO[Off], c3; {*******************************************************************} { The following code is special for the Daybreak} { E N D }