{
File : NewFuncDef.dfn
Author : Gwan Santosa
Date : 20-Sep-85  9:32:56
}

{
===============================================================
Definitions for LispMapB00.mc
===============================================================
}

Set[L0.RMAPB0.0, 00]; {used in Pseudo8bitColorB0.mc}
Set[L0.RMAPB0.1, 01]; {used in PixelBltB0.mc}
Set[L0.RMAPB0.2, 02];
Set[L0.RMAPB0.3, 03];
Set[L0.RMAPB0.4, 04];
Set[L0.RMAPB0.5, 05];
Set[L0.RMAPB0.6, 06];
Set[L0.RMAPB0.7, 07];
Set[L0.RMAPB0.8, 08];
Set[L0.RMAPB0.9, 09]; {used by PixelBltB0.mc}
Set[L0.RMAPB0.A, 0A];
Set[L0.RMAPB0.B, 0B];
Set[L0.RMAPB0.C, 0C];
Set[L0.RMAPB0.D, 0D];
Set[L0.RMAPB0.E, 0E];
Set[L0.RMAPB0.F, 0F];

Set[L0.WMAPB0.0, 00]; {used in PixelBltB0.mc}
Set[L0.WMAPB0.1, 01]; {used in PixelBltB0.mc}
Set[L0.WMAPB0.2, 02]; {used in PixelBltB0.mc}
Set[L0.WMAPB0.3, 03]; {used in PixelBltB0.mc}
Set[L0.WMAPB0.4, 04]; {used in PixelBltB0.mc}
Set[L0.WMAPB0.5, 05]; {used in Pseudo8bitColor.mc}
Set[L0.WMAPB0.6, 06]; {used in Pseudo8bitColor.mc}
Set[L0.WMAPB0.7, 07];
Set[L0.WMAPB0.8, 08];
Set[L0.WMAPB0.9, 09];
Set[L0.WMAPB0.A, 0A];
Set[L0.WMAPB0.B, 0B];
Set[L0.WMAPB0.C, 0C];
Set[L0.WMAPB0.D, 0D];
Set[L0.WMAPB0.E, 0E];
Set[L0.WMAPB0.F, 0F];

Set[L1.RMAPB0.0, 00];
Set[L1.RMAPB0.1, 01];
Set[L1.RMAPB0.2, 02];
Set[L1.RMAPB0.3, 03];
Set[L1.RMAPB0.4, 04];
Set[L1.RMAPB0.5, 05];
Set[L1.RMAPB0.6, 06];
Set[L1.RMAPB0.7, 07];
Set[L1.RMAPB0.8, 08];
Set[L1.RMAPB0.9, 09];
Set[L1.RMAPB0.A, 0A];
Set[L1.RMAPB0.B, 0B];
Set[L1.RMAPB0.C, 0C];
Set[L1.RMAPB0.D, 0D];
Set[L1.RMAPB0.E, 0E];
Set[L1.RMAPB0.F, 0F];

Set[L1.WMAPB0.0, 00]; {used in Pseudo8bitColorB0.mc}
Set[L1.WMAPB0.1, 01]; {used in Pseudo8bitColorB0.mc}
Set[L1.WMAPB0.2, 02]; 
Set[L1.WMAPB0.3, 03];
Set[L1.WMAPB0.4, 04];
Set[L1.WMAPB0.5, 05];
Set[L1.WMAPB0.6, 06];
Set[L1.WMAPB0.7, 07];
Set[L1.WMAPB0.8, 08];
Set[L1.WMAPB0.9, 09];
Set[L1.WMAPB0.A, 0A];
Set[L1.WMAPB0.B, 0B];
Set[L1.WMAPB0.C, 0C];
Set[L1.WMAPB0.D, 0D];
Set[L1.WMAPB0.E, 0E];
Set[L1.WMAPB0.F, 0F];

Set[L1.TrapFixesB0.0, 00]; {used in LispMapB00.mc}
Set[L1.TrapFixesB0.1, 01]; {used in LispMapB00.mc}
Set[L1.TrapFixesB0.2, 02]; {used in Pseudo8bitColorB0.mc}
Set[L1.TrapFixesB0.3, 03]; {used in PixelBltB0.mc}
Set[L1.TrapFixesB0.4, 04]; {used in PixelBltB0.mc}
Set[L1.TrapFixesB0.5, 05];
Set[L1.TrapFixesB0.6, 06];
Set[L1.TrapFixesB0.7, 07];
Set[L1.TrapFixesB0.8, 08];
Set[L1.TrapFixesB0.9, 09];
Set[L1.TrapFixesB0.A, 0A];
Set[L1.TrapFixesB0.B, 0B];
Set[L1.TrapFixesB0.C, 0C];
Set[L1.TrapFixesB0.D, 0D];
Set[L1.TrapFixesB0.E, 0E];
Set[L1.TrapFixesB0.F, 0F];

Set[L1.RegSaveRet.0, 00]; {used in Pseudo8bitColorB0.mc}
Set[L1.RegSaveRet.1, 01]; {used in PixelBltB0.mc}
Set[L1.RegSaveRet.2, 02];
Set[L1.RegSaveRet.3, 03];
Set[L1.RegSaveRet.4, 04];
Set[L1.RegSaveRet.5, 05];
Set[L1.RegSaveRet.6, 06];
Set[L1.RegSaveRet.7, 07];
Set[L1.RegSaveRet.8, 08];
Set[L1.RegSaveRet.9, 09];
Set[L1.RegSaveRet.A, 0A];
Set[L1.RegSaveRet.B, 0B];
Set[L1.RegSaveRet.C, 0C];
Set[L1.RegSaveRet.D, 0D];
Set[L1.RegSaveRet.E, 0E];
Set[L1.RegSaveRet.F, 0F];

Set[L1.RestoreTosB0, 00],
Set[L1.NoFixesB0, 01],
Set[L1.RestoreAndExitB0, 00],
Set[L1.RestoreAndPFB0, 01],

{
===============================================================
Definitions for Pseudo8bitcolorB0.mc and PixelbltB0.mc
===============================================================
}

RegDef[SrcReg, R, 3]; {=PV}
RegDef[DstReg, R, 5]; {=PC}
RegDef[rSAddr, R, 0]; {=TOS}
RegDef[rhSAddr, RH, 0]; {=rhTOS}
RegDef[rDAddr, R, 1]; {=TOSH}
RegDef[rhDAddr, RH, 1]; {=rhTOSH}
RegDef[rArray, R, 4]; {=S}
RegDef[rhArray, RH, 4]; {=rhS}


Set[L2PSRET0, 08];

RegDef[rPSCArray, R, 4]; {=S}
RegDef[rhPSCArray, RH, 4]; {=rhS}
RegDef[rPS, R, 3]; {=PV}
RegDef[rhPS, RH, 3]; {=rhPV}
RegDef[urhPS, U, 38];
RegDef[urPS, U, 41];
RegDef[uPSXLo, U, 43];
RegDef[uPSYLo, U, 19];
RegDef[Data88, R, 6]; {=Rx}
RegDef[PSCOUNT, R, 1]; {=TOSH}
RegDef[PSTMP, R, 0]; {=TOS}

RegDef[urSAddr, U, 38]; {tmp, used in PixelBlt}
RegDef[urhSAddr, U, 41]; {tmp, used in PixelBlt}
RegDef[urDAddr, U, 43]; {tmp, used in PixelBlt}
RegDef[urhDAddr, U, 19]; {tmp, used in PixelBlt}
RegDef[upixelcount, U, 45]; {tmp, used in PixelBlt}
RegDef[uXoffset, U, 46]; {tmp, used in PixelBlt}
{RegDef[uSrcflag, U, 47]; {tmp, used in PixelBlt}
RegDef[uDstflag, U, 0C]; {tmp, used in PixelBlt}}

RegDef[uSrcBITMAPLo, U, 5D]; {tmp, used in PixelBlt}
RegDef[uSrcBITMAPHi, U, 19]; {tmp, used in PixelBlt}
RegDef[uSrcXLo, U,57]; {tmp, used in PixelBlt}
RegDef[uSrcYLo, U,05]; {tmp, used in PixelBlt}
RegDef[uDstBITMAPHi, U, 35]; {tmp, used in PixelBlt}
RegDef[uDstBITMAPLo, U, 04]; {tmp, used in PixelBlt}
RegDef[uDstXLo, U, 26]; {tmp, used in PixelBlt}
RegDef[uDstYLo, U, 31]; {tmp, used in PixelBlt}
RegDef[uTrnWidthLo, U, 3A]; {tmp, used in PixelBlt}
RegDef[uUnTrnWidthLo, U, 5C]; {tmp, used in PixelBlt}
RegDef[uTrnHeightLo, U, 0D]; {= uTOS, used in PixelBlt}

{For Multiplier subroutine}

Set[L0.MUL.00, 00]; {used in Pseudo8bitColorB0.mc}
Set[L0.MUL.01, 01]; {used in PixelBltB0.mc}
Set[L0.MUL.02, 02]; {used in PixelBltB0.mc}
Set[L0.MUL.03, 03];
Set[L0.MUL.04, 04];
Set[L0.MUL.05, 05];
Set[L0.MUL.06, 06];
Set[L0.MUL.07, 07];
Set[L0.MUL.08, 08];
Set[L0.MUL.09, 09];
Set[L0.MUL.0A, 0A];
Set[L0.MUL.0B, 0B];
Set[L0.MUL.0C, 0C];
Set[L0.MUL.0D, 0D];
Set[L0.MUL.0E, 0E];
Set[L0.MUL.0F, 0F];

Set[L0.GBMP, 09];{must be odd!  uses even also, used by GetTestBMParams}

Set[BitMapType, 35'd];

Set[L2.FETCHBM.00, 00]; {used in PixelBltB0.mc}
Set[L2.FETCHBM.01, 01]; {used in PixelBltB0.mc}
Set[L2.FETCHBM.02, 02];
Set[L2.FETCHBM.03, 03];
Set[L2.FETCHBM.04, 04];
Set[L2.FETCHBM.05, 05];
Set[L2.FETCHBM.06, 06];
Set[L2.FETCHBM.07, 07];
Set[L2.FETCHBM.08, 08];
Set[L2.FETCHBM.09, 09];
Set[L2.FETCHBM.0A, 0A];
Set[L2.FETCHBM.0B, 0B];
Set[L2.FETCHBM.0C, 0C];
Set[L2.FETCHBM.0D, 0D];
Set[L2.FETCHBM.0E, 0E];
Set[L2.FETCHBM.0F, 0F];

RegDef[uBITMAPBASELO, U, 42]; {For BitMapBit, low VA of Bitmapbase, tmp}
RegDef[uBITMAPBASEHI, U, 44]; {For BitMapBit, high VA of Bitmapbase, tmp}
RegDef[uBITMAPRASTERWIDTH, U, 2]; {For BitMapBit, Bitmaprasterwidth, tmp}
RegDef[uBITMAPHEIGHT, U, 3]; {For BitMapBit, Bitmapheight, tmp}
RegDef[uBITMAPWIDTH, U, 34]; {For BitMapBit, Bitmapwidth, tmp}
RegDef[uBITMAPBITSPERPIXEL, U, 7]; {For BitMapBit, Bitmapbitsperpixel, tmp}

RegDef[uDBMBaseLo, U, 30]; {For BitMapBit, low VA of Bitmapbase, tmp}
RegDef[uDBMBaseHi, U, 51]; {For BitMapBit, high VA of Bitmapbase, tmp}
RegDef[uDBRasterWidth, U, 53]; {For BitMapBit, Bitmaprasterwidth, tmp}
RegDef[uDBitMapHeight, U, 56]; {For BitMapBit, Bitmapheight, tmp}
RegDef[uDBitMapWidth, U, 55]; {For BitMapBit, Bitmapwidth, tmp}
RegDef[uDBitsPerPixel, U, 59]; {For BitMapBit, Bitmapbitsperpixel, tmp}