mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-13 07:25:22 +02:00
d4a1b5e109
Original/legacy cmpsc.c implementation moved to altcmpsc.dll module. Refer to Release Notes and/or README.CMPSC documents for more details.
541 lines
26 KiB
C
541 lines
26 KiB
C
/* CMPSCPUT.C (c) Copyright "Fish" (David B. Trout), 2012-2014 */
|
|
/* Compression Call Put Next Index Functions */
|
|
/* */
|
|
/* Released under "The Q Public License Version 1" */
|
|
/* (http://www.hercules-390.org/herclic.html) as modifications to */
|
|
/* Hercules. */
|
|
|
|
#include "hstdinc.h" // (MUST be first #include in EVERY source file)
|
|
|
|
#if !defined(_HENGINE_DLL_)
|
|
#define _HENGINE_DLL_
|
|
#endif
|
|
|
|
#if !defined(_CMPSCPUT_C_)
|
|
#define _CMPSCPUT_C_
|
|
#endif
|
|
|
|
#if !defined( NOT_HERC ) // (building Hercules?)
|
|
#include "hercules.h"
|
|
#include "opcode.h"
|
|
#include "inline.h"
|
|
#endif
|
|
#include "cmpsc.h" // (Master header)
|
|
|
|
#ifdef FEATURE_COMPRESSION
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// COMPRESSION: Put Next output DST Index
|
|
//
|
|
// Returns: TRUE if there is no more room remaining in the DST buffer for
|
|
// any more index values (i.e. it's TRUE that we HAVE reached the
|
|
// end of our buffer), otherwise FALSE (i.e. there is still room
|
|
// remaining in the DST buffer for additional index values).
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex009 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex109 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex209 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex309 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex409 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex509 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex609 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex709 )) ( PIBLK* pPIBLK );
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex010 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex110 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex210 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex310 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex410 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex510 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex610 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex710 )) ( PIBLK* pPIBLK );
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex011 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex111 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex211 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex311 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex411 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex511 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex611 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex711 )) ( PIBLK* pPIBLK );
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex012 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex112 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex212 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex312 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex412 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex512 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex612 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex712 )) ( PIBLK* pPIBLK );
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex013 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex113 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex213 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex313 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex413 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex513 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex613 )) ( PIBLK* pPIBLK );
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex713 )) ( PIBLK* pPIBLK );
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// CDSS=1, 9 bits per index, CBN sequences: 0-1-2-3-4-5-6-7*.
|
|
// * before CBN# = 3 bytes needed.
|
|
// * after CBN# = 2 bytes consumed.
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex009 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 7), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex109 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex109 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 6) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0x8000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex209 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex209 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 5) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xC000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex309 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex309 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 4) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xE000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex409 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex409 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 3) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex509 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex509 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF800), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex609 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex609 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFC00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex709 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex709 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index ) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFE00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex009 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// CDSS=2, 10 bits per index, CBN sequences: 0-2-4-6*, 1-3-5-*7*.
|
|
// * before CBN# = 3 bytes needed.
|
|
// * after CBN# = 2 bytes consumed.
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex010 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 6), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex210 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex110 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 5) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0x8000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex310 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex210 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 4) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xC000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex410 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex310 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 3) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xE000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex510 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex410 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex610 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex510 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF800), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex710 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex610 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index ) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFC00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex010 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex710 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFE00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 7), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex110 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// CDSS=3, 11 bits per index, CBN sequences: 0-3-*6*-1-4-*7*-2-5*.
|
|
// * before CBN# = 3 bytes needed.
|
|
// * after CBN# = 2 bytes consumed.
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex011 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 5), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex311 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex111 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 4) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0x8000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex411 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex211 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 3) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xC000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex511 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex311 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xE000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex611 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex411 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex711 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex511 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index ) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF800), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex011 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex611 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFC00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 7), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex111 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex711 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFE00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 6), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex211 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// CDSS=4, 12 bits per index, CBN sequences: 0-4*, 1-*5*, 2-*6*, 3-*7*.
|
|
// * before CBN# = 3 bytes needed.
|
|
// * after CBN# = 2 bytes consumed.
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex012 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 4), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex412 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex112 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 3) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0x8000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex512 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex212 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xC000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex612 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex312 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xE000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex712 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex412 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index ) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex012 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex512 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF800), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 7), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex112 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex612 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFC00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 6), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex212 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex712 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 3) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFE00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 5), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex312 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// CDSS=5, 13 bits per index, CBN sequences: 0-*5*-2-*7*-*4*-1-*6*-3*.
|
|
// * before CBN# = 3 bytes needed.
|
|
// * after CBN# = 2 bytes consumed.
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex013 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 3), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex513 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex113 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0x8000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex613 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex213 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index << 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xC000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 1;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 1;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex713 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex313 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index ) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xE000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex013 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex413 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 1) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF000), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 7), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex113 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex513 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 2) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xF800), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 6), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex213 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex613 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 3) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFC00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 5), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex313 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 2);
|
|
}
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutIndex713 )) ( PIBLK* pPIBLK )
|
|
{
|
|
store_op_hw( (pPIBLK->index >> 4) | (((U16)fetch_op_b( pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK ) << 8) & 0xFE00), pPIBLK->pCMPSCBLK->pOp1, pPIBLK->pMEMBLK );
|
|
store_op_b( (pPIBLK->index << 4), pPIBLK->pCMPSCBLK->pOp1 + 2, pPIBLK->pMEMBLK );
|
|
pPIBLK->pCMPSCBLK->pOp1 += 2;
|
|
pPIBLK->pCMPSCBLK->nLen1 -= 2;
|
|
*pPIBLK->ppPutIndex = ARCH_DEP( PutIndex413 );
|
|
return (pPIBLK->pCMPSCBLK->nLen1 < 3);
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// Derive CBN value based on PutIndex function pointer: one for each CDSS
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutGetCBN09 )) ( PutIndex* pPutIndex )
|
|
{
|
|
if (&ARCH_DEP( PutIndex009 ) == pPutIndex) return 0;
|
|
else if (&ARCH_DEP( PutIndex109 ) == pPutIndex) return 1;
|
|
else if (&ARCH_DEP( PutIndex209 ) == pPutIndex) return 2;
|
|
else if (&ARCH_DEP( PutIndex309 ) == pPutIndex) return 3;
|
|
else if (&ARCH_DEP( PutIndex409 ) == pPutIndex) return 4;
|
|
else if (&ARCH_DEP( PutIndex509 ) == pPutIndex) return 5;
|
|
else if (&ARCH_DEP( PutIndex609 ) == pPutIndex) return 6;
|
|
else return 7;
|
|
}
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutGetCBN10 )) ( PutIndex* pPutIndex )
|
|
{
|
|
if (&ARCH_DEP( PutIndex010 ) == pPutIndex) return 0;
|
|
else if (&ARCH_DEP( PutIndex110 ) == pPutIndex) return 1;
|
|
else if (&ARCH_DEP( PutIndex210 ) == pPutIndex) return 2;
|
|
else if (&ARCH_DEP( PutIndex310 ) == pPutIndex) return 3;
|
|
else if (&ARCH_DEP( PutIndex410 ) == pPutIndex) return 4;
|
|
else if (&ARCH_DEP( PutIndex510 ) == pPutIndex) return 5;
|
|
else if (&ARCH_DEP( PutIndex610 ) == pPutIndex) return 6;
|
|
else return 7;
|
|
}
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutGetCBN11 )) ( PutIndex* pPutIndex )
|
|
{
|
|
if (&ARCH_DEP( PutIndex011 ) == pPutIndex) return 0;
|
|
else if (&ARCH_DEP( PutIndex111 ) == pPutIndex) return 1;
|
|
else if (&ARCH_DEP( PutIndex211 ) == pPutIndex) return 2;
|
|
else if (&ARCH_DEP( PutIndex311 ) == pPutIndex) return 3;
|
|
else if (&ARCH_DEP( PutIndex411 ) == pPutIndex) return 4;
|
|
else if (&ARCH_DEP( PutIndex511 ) == pPutIndex) return 5;
|
|
else if (&ARCH_DEP( PutIndex611 ) == pPutIndex) return 6;
|
|
else return 7;
|
|
}
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutGetCBN12 )) ( PutIndex* pPutIndex )
|
|
{
|
|
if (&ARCH_DEP( PutIndex012 ) == pPutIndex) return 0;
|
|
else if (&ARCH_DEP( PutIndex112 ) == pPutIndex) return 1;
|
|
else if (&ARCH_DEP( PutIndex212 ) == pPutIndex) return 2;
|
|
else if (&ARCH_DEP( PutIndex312 ) == pPutIndex) return 3;
|
|
else if (&ARCH_DEP( PutIndex412 ) == pPutIndex) return 4;
|
|
else if (&ARCH_DEP( PutIndex512 ) == pPutIndex) return 5;
|
|
else if (&ARCH_DEP( PutIndex612 ) == pPutIndex) return 6;
|
|
else return 7;
|
|
}
|
|
|
|
U8 (CMPSC_FASTCALL ARCH_DEP( PutGetCBN13 )) ( PutIndex* pPutIndex )
|
|
{
|
|
if (&ARCH_DEP( PutIndex013 ) == pPutIndex) return 0;
|
|
else if (&ARCH_DEP( PutIndex113 ) == pPutIndex) return 1;
|
|
else if (&ARCH_DEP( PutIndex213 ) == pPutIndex) return 2;
|
|
else if (&ARCH_DEP( PutIndex313 ) == pPutIndex) return 3;
|
|
else if (&ARCH_DEP( PutIndex413 ) == pPutIndex) return 4;
|
|
else if (&ARCH_DEP( PutIndex513 ) == pPutIndex) return 5;
|
|
else if (&ARCH_DEP( PutIndex613 ) == pPutIndex) return 6;
|
|
else return 7;
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// (by CBN)
|
|
|
|
PutIndex* ARCH_DEP( PutIndexTab09 )[8] = { ARCH_DEP( PutIndex009 ), ARCH_DEP( PutIndex109 ), ARCH_DEP( PutIndex209 ), ARCH_DEP( PutIndex309 ), ARCH_DEP( PutIndex409 ), ARCH_DEP( PutIndex509 ), ARCH_DEP( PutIndex609 ), ARCH_DEP( PutIndex709 ) };
|
|
PutIndex* ARCH_DEP( PutIndexTab10 )[8] = { ARCH_DEP( PutIndex010 ), ARCH_DEP( PutIndex110 ), ARCH_DEP( PutIndex210 ), ARCH_DEP( PutIndex310 ), ARCH_DEP( PutIndex410 ), ARCH_DEP( PutIndex510 ), ARCH_DEP( PutIndex610 ), ARCH_DEP( PutIndex710 ) };
|
|
PutIndex* ARCH_DEP( PutIndexTab11 )[8] = { ARCH_DEP( PutIndex011 ), ARCH_DEP( PutIndex111 ), ARCH_DEP( PutIndex211 ), ARCH_DEP( PutIndex311 ), ARCH_DEP( PutIndex411 ), ARCH_DEP( PutIndex511 ), ARCH_DEP( PutIndex611 ), ARCH_DEP( PutIndex711 ) };
|
|
PutIndex* ARCH_DEP( PutIndexTab12 )[8] = { ARCH_DEP( PutIndex012 ), ARCH_DEP( PutIndex112 ), ARCH_DEP( PutIndex212 ), ARCH_DEP( PutIndex312 ), ARCH_DEP( PutIndex412 ), ARCH_DEP( PutIndex512 ), ARCH_DEP( PutIndex612 ), ARCH_DEP( PutIndex712 ) };
|
|
PutIndex* ARCH_DEP( PutIndexTab13 )[8] = { ARCH_DEP( PutIndex013 ), ARCH_DEP( PutIndex113 ), ARCH_DEP( PutIndex213 ), ARCH_DEP( PutIndex313 ), ARCH_DEP( PutIndex413 ), ARCH_DEP( PutIndex513 ), ARCH_DEP( PutIndex613 ), ARCH_DEP( PutIndex713 ) };
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// (by CDSS)
|
|
|
|
PutIndex** ARCH_DEP( PutIndexCDSSTab )[5] = { ARCH_DEP( PutIndexTab09 ),
|
|
ARCH_DEP( PutIndexTab10 ),
|
|
ARCH_DEP( PutIndexTab11 ),
|
|
ARCH_DEP( PutIndexTab12 ),
|
|
ARCH_DEP( PutIndexTab13 ) };
|
|
|
|
PutGetCBN* ARCH_DEP( PutGetCBNTab )[5] = { ARCH_DEP( PutGetCBN09 ),
|
|
ARCH_DEP( PutGetCBN10 ),
|
|
ARCH_DEP( PutGetCBN11 ),
|
|
ARCH_DEP( PutGetCBN12 ),
|
|
ARCH_DEP( PutGetCBN13 ) };
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
#endif /* FEATURE_COMPRESSION */
|
|
|
|
#ifndef _GEN_ARCH
|
|
#ifdef _ARCHMODE2
|
|
#define _GEN_ARCH _ARCHMODE2
|
|
#include "cmpscput.c"
|
|
#endif /* #ifdef _ARCHMODE2 */
|
|
#ifdef _ARCHMODE3
|
|
#undef _GEN_ARCH
|
|
#define _GEN_ARCH _ARCHMODE3
|
|
#include "cmpscput.c"
|
|
#endif /* #ifdef _ARCHMODE3 */
|
|
#endif /* #ifndef _GEN_ARCH */
|