bilbo/saturn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
saturn/dts/smpsys.c
Zack Buhman e59d6da0a4 initial
2023-01-05 21:46:12 -08:00

369 lines
12 KiB
C
Executable File
Raw Blame History

/* */
/* アプリケーション初期化プログラムサンプル */
/* V1.10 '94.11.11 S.U and T.S */
/* */
/* 動作タイミングと機能について： */
/* ライセンス画面表示中に、不定になっている各種デバイス */
/* 状態や、そのメモリのクリアなどを行ないます。 */
/* 処理の所要時間は、0.1 秒程度かかります。 */
/* 終了後、先読みしておいたプログラムの実行に移ります。 */
/* その実行開始アドレスは APP_ENTRY に定義してください。 */
/* */
/* リンケージについて： */
/* ＩＰの sys_init.obj の直後にリンクしてください。 */
/* プログラムをこのまま使用した場合、約３６０Ｈバイトに */
/* なり、ＩＰサイズは１０００Ｈを越えますので注意して */
/* ください。 */
/* */
/* プログラム変更時の注意： */
/* main() の前に実行文を含む関数を追加しないでください。 */
/* */
#include "sega_sys.h"
/* 先読みしたプログラムの実行開始アドレス（メイン処理完了後にジャンプ）*/
#define APP_ENTRY (0x06003000)
/* デバイスを初期化するルーチン */
static void vd1Comfil(void); /* ＶＤＰ１ クリッピング初期化 */
static void vd2Ramfil(void); /* ＶＤＰ２ ＶＲＡＭクリア */
static void colRamfil(void); /* カラーＲＡＭクリア */
static void sndRamfil(Sint32); /* サウンドＲＡＭクリア */
static void scuDspInit(void); /* ＳＣＵ ＤＳＰ 初期化 */
static void msh2PeriInit(void); /* マスタＳＨ周辺モジュール初期化 */
static void sndDspInit(void); /* サウンドＤＳＰクリア */
/* その他サブルーチン */
static void vbIrtn(void); /* ＶＢ-Ｉｎ 割込み処理 */
static void vbOrtn(void); /* ＶＢ-Ｏｕｔ 割込み処理 */
static void syncVbI(void); /* ＶＢ-Ｉｎ 同期処理用 */
#ifndef __GNUC__
static void memset_w(Sint16 *, Sint16, Sint32); /* ワード ｍｅｍｓｅｔ */
static void memcpy_w(Sint16 *, Sint16 *, Sint32); /* ワード ｍｅｍｃｐｙ */
static Sint16 *blkmfil_w(Sint16 *, Sint16, Sint32);
/* ワード・ブロックｆｉｌｌ */
static Sint32 *blkmfil_l(Sint32 *, Sint32, Sint32);
/* ロングワード・ブロックｆｉｌｌ */
#else
static void memset_w(volatile Sint16 *, Sint16, Sint32);
static void memcpy_w(volatile Sint16 *, Sint16 *, Sint32);
static void blkmfil_w(volatile Sint16 *, Sint16, Sint32);
/* ワード・ブロックｆｉｌｌ */
static void blkmfil_l(volatile Sint32 *, Sint32, Sint32);
/* ロングワード・ブロックｆｉｌｌ */
#endif
/* 現時点の(ライセンス画面表示中)画面サイズに関する情報 */
#define XRES (320) /* ライセンス画面の水平サイズ */
#define SCLIP_UX (XRES-1) /* 〃 */
#define SCLIP_UY_N (224-1) /* 〃 (ＮＴＳＣの場合) */
#define SCLIP_UY_P (256-1) /* 〃 (ＰＡＬの場合) */
/* 処理対象デバイスのベースアドレス */
#define SND_RAM ((volatile Sint32 *)0x25a00000)
#define VD1_VRAM ((volatile Sint16 *)0x25c00000)
#define VD1_REG ((volatile Sint16 *)0x25d00000)
/* VD2_VRAM は、ライセンス表示で使用中のＶＲＡＭ領域を除く */
#define VD2_VRAM ((volatile Sint32 *)0x25e08004)
/* COL_RAM は、ライセンス表示で使用中のカラーＲＡＭ領域を除く */
#define COL_RAM ((volatile Sint16 *)0x25f00020)
#define VD2_REG ((volatile Sint16 *)0x25f80000)
#define SCSP_DSP_RAM ((volatile Sint16 *)0x25b00800)
/* ＳＭＰＣレジスタ */
#define SMPC_REG(ofs) (*(volatile Uint8 *)(0x20100000+ofs))
/* ＳＣＵレジスタ */
#define DSP_PGM_CTRL_PORT (*(volatile Sint32 *)0x25fe0080)
#define DSP_PGM_RAM_PORT (*(volatile Sint32 *)0x25fe0084)
#define DSP_DATA_RAM_ADRS_PORT (*(volatile Sint32 *)0x25fe0088)
#define DSP_DATA_RAM_DATA_PORT (*(volatile Sint32 *)0x25fe008c)
/* ＳＣＳＰ サウンドＲＡＭサイズレジスタ */
#define SCSP_SNDRAMSZ (*(volatile Sint8 *)0x25b00400)
/* ＳＨ２周辺モジュールレジスタ */
#define MSH2_DMAC_SAR(ofs) (*(volatile Sint32 *)(0xffffff80 + ofs))
#define MSH2_DMAC_DAR(ofs) (*(volatile Sint32 *)(0xffffff84 + ofs))
#define MSH2_DMAC_TCR(ofs) (*(volatile Sint32 *)(0xffffff88 + ofs))
#define MSH2_DMAC_CHCR(ofs) (*(volatile Sint32 *)(0xffffff8c + ofs))
#define MSH2_DMAC_DRCR(sel) (*(volatile Sint8 *)(0xfffffe71 + sel))
#define MSH2_DMAC_DMAOR (*(volatile Sint32 *)(0xffffffb0))
#define MSH2_DIVU_CONT (*(volatile Sint32 *)(0xffffffb8))
/* メインの処理に関する情報 */
/* 現在ライセンス表示中、１６ビット１０２４色モードを使用 */
/* ＶＤＰ２のＶＲＡＭとカラーＲＡＭは４回に分けてクリア */
/* ＶＲＡＭは１回に ２００００Ｈ バイト(表示中部分を除く) */
/* カラーＲＡＭは１回に ２００Ｈ バイト(表示中部分を除く) */
#define MSETDIV (4)
#define BLKMSK_VD2_VRAM (0x1fffc)
#define BLKMSK_COL_RAM (0x001fe)
/* サウンドＲＡＭは３手順でクリア */
#define M68000_VECTBLSZ (0x00400/sizeof(Sint32))
#define BLKMSK_SND_RAM (0x003fc)
/* サウンドＤＳＰ ＲＡＭサイズ */
#define SCSP_DSP_RAMSZ (0x00400)
/* 割込み処理に関する情報 */
#define VBI_NUM (0x40) /* ＶＢイン割込み番号 */
#define VBO_NUM (0x41) /* ＶＢアウト割込み番号 */
#define VB_MASK (0x0003) /* ＳＣＵ割込みマスク２つ分 */
/* スタティック変数 */
static Sint16 yBottom, ewBotRight;
static Sint16 vdp1cmds[48];
#ifndef __GNUC__
/* static Sint16 vbIcnt = 0, sequence = 0; */
static Sint16 vbIcnt = 0, sequence = 0;
static Sint32 *vramptr = VD2_VRAM;
static Sint16 *cramptr = COL_RAM;
#else
static volatile Sint16 vbIcnt = 0, sequence = 0;
static volatile Sint32 *vramptr = VD2_VRAM;
static volatile Sint16 *cramptr = COL_RAM;
#endif
/* メイン処理 */
void main(void)
{
/* 注意：AUTO 変数をとると、APP_ENTRY のプログラムに */
/* 制御が移るとき、スタックが若干無駄になる */
yBottom = (VD2_REG[2]&1)? SCLIP_UY_P: SCLIP_UY_N;
ewBotRight = ((XRES/8)<<9)+(yBottom);
/* 画面縦上限＝ ２２３(ＮＴＳＣ) or ２５５(ＰＡＬ) */
SYS_SETUINT(VBI_NUM, vbIrtn); /* ＶＢイン処理登録 */
SYS_SETUINT(VBO_NUM, vbOrtn); /* ＶＢアウト 〃 */
SYS_CHGSCUIM( ~VB_MASK, 0); /* ＶＢ割込み２つ許可 */
vd1Comfil(); /* ＶＤＰ１初期化 */
for (sequence = 0; sequence < MSETDIV; sequence++)
{
syncVbI(); /* カラーＲＡＭクリアのため同期 */
colRamfil(); /* カラーＲＡＭクリア */
vd2Ramfil(); /* ＶＤＰ２ＲＡＭクリア */
sndRamfil(sequence); /* サウンドＲＡＭクリア */
}
scuDspInit(); /* ＳＣＵのＤＳＰ初期化 */
msh2PeriInit(); /* ＳＨ周辺モジュール〃 */
sndDspInit(); /* サウンドＤＳＰ 〃 */
SYS_CHGSCUIM( -1, VB_MASK); /* ＶＢ割込み２つ禁止 */
SYS_SETUINT(VBI_NUM, (void(*)())0 ); /* フック */
SYS_SETUINT(VBO_NUM, (void(*)())0 ); /* 再初期化 */
((void(*)())APP_ENTRY)(); /* 次の実行開始アドレス */
}
#ifndef __GNUC__
static void memset_w(Sint16 *buf, Sint16 pattern, Sint32 size)
#else
static void memset_w(volatile Sint16 *buf, Sint16 pattern, Sint32 size)
#endif
{
register Sint32 i;
for (i = 0; i < size; i+= sizeof(Sint16)) {
*buf++ = pattern;
}
}
#ifndef __GNUC__
static void memcpy_w(Sint16 *dst, Sint16 *src, Sint32 size)
#else
static void memcpy_w(volatile Sint16 *dst, Sint16 *src, Sint32 size)
#endif
{
register Sint32 i;
for (i = 0; i < size; i+= sizeof(Sint16)) {
*dst++ = *src++;
}
}
/* ｂｌｋｍｆｉｌは、区切りのいいアドレス範囲をｍｅｍｓｅｔするもの */
#ifndef __GNUC__
static Sint16 *blkmfil_w(Sint16 *buf, Sint16 pattern, Sint32 brkmsk)
#else
static void blkmfil_w(volatile Sint16 *buf, Sint16 pattern, Sint32 brkmsk)
#endif
{
register Sint32 i;
#ifndef __GNUC__
i = (Sint32)buf & brkmsk;
#else
i = (volatile Sint32)buf & brkmsk;
#endif
for (; i <= brkmsk; i+= sizeof(Sint16)) {
*buf++ = pattern;
}
#ifndef __GNUC__
return (buf);
#endif
}
#ifndef __GNUC__
static Sint32 *blkmfil_l(Sint32 *buf, Sint32 pattern, Sint32 brkmsk)
#else
static void blkmfil_l(volatile Sint32 *buf, Sint32 pattern, Sint32 brkmsk)
#endif
{
register Sint32 i;
#ifndef __GNUC__
i = (Sint32)buf & brkmsk;
#else
i = (volatile Sint32)buf & brkmsk;
#endif
for (; i <= brkmsk; i+= sizeof(Sint32)) {
*buf++ = pattern;
}
#ifndef __GNUC__
return (buf);
#endif
}
/* ＶＢインは、割込みでスタティック変数をインクリメントするのみ */
static void vbIrtn(void)
{
vbIcnt++;
}
/* ＶＢアウトは、割込みでＶＤＰ１レジスタをコントロールするのみ */
static void vbOrtn(void)
{
#ifndef __GNUC__
register Sint16 *vdp1r;
#else
register volatile Sint16 *vdp1r;
#endif
/* イレースライトでフレームバッファをクリア */
vdp1r = VD1_REG;
*vdp1r++ = 0x0; /* １／６０秒自動描画モード */
*vdp1r++ = 0x0;
*vdp1r++ = 0x2;
*vdp1r++ = 0x0; /* イレースライトは透明色 */
*vdp1r++ = 0x0; /* 〃 左上座標 */
*vdp1r = ewBotRight; /* 〃 右下座標 */
}
/* ＶＢＩ同期は、呼ばれると待ち、ＶＢＩ直後に抜けて戻る */
static void syncVbI(void)
{
register Sint32 cur_cnt_value;
/* 待つのはカラーＲＡＭクリアのため */
cur_cnt_value = vbIcnt;
while (cur_cnt_value == vbIcnt);
}
/* ＶＤＰ１に、システムクリッピングとローカル座標を読ませる */
static void vd1Comfil(void)
{
register Sint16 *cmdbuf;
memset_w((cmdbuf=vdp1cmds), 0, sizeof(vdp1cmds));
cmdbuf[0] = 0x0009;
cmdbuf[10] = SCLIP_UX;
cmdbuf[11] = yBottom;
cmdbuf[16] = 0x000a;
cmdbuf[32] = 0x8000;
memcpy_w(VD1_VRAM, vdp1cmds, sizeof(vdp1cmds));
}
/* ＶＤＰ２のＲＡＭを、１／４ずつクリア */
static void vd2Ramfil(void)
{
#ifndef __GNUC__
vramptr = blkmfil_l(vramptr, 0, BLKMSK_VD2_VRAM);
#else
blkmfil_l(vramptr, 0, BLKMSK_VD2_VRAM);
#endif
}
/* カラーＲＡＭを、１／４ずつクリア */
static void colRamfil(void)
{
#ifndef __GNUC__
cramptr = blkmfil_w(cramptr, 0, BLKMSK_COL_RAM);
#else
blkmfil_w(cramptr, 0, BLKMSK_COL_RAM);
#endif
}
/* サウンドＲＡＭを、３手順でクリア */
static void sndRamfil(Sint32 initstep)
{
#ifndef __GNUC__
register Sint32 *memptr;
#else
register volatile Sint32 *memptr;
#endif
switch (initstep) {
case 0:
SMPC_REG(31) = 7; /* Ｍ６８０００を停止 */
break;
case 1:
SCSP_SNDRAMSZ = 2; /* サウンドＲＡＭサイズ設定 */
/* サウンドＲＡＭ先頭４００Ｈ */
memptr = SND_RAM; /* (ベクタ)に４００Ｈをフィル */
blkmfil_l(memptr, 0x400, BLKMSK_SND_RAM);
*memptr = 0x0007fffc; /* ＳＰ初期値をセット */
memptr += M68000_VECTBLSZ;
*memptr = 0x4e7160fc; /* アドレス４００Ｈに ＮＯＰと */
/* ＢＲＡ ＠－２ 命令を書込み */
break;
case 2:
SMPC_REG(31) = 6; /* Ｍ６８０００起動(無限待ち) */
break;
/* 備考： １イントの間がある */
} /* ため、ＳＭＰＣステータスの */
} /* セット／チェックを省略 */
static void msh2PeriInit(void)
{
register Sint32 i, ofs, dummy;
ofs = 0;
for(i = 0;i < 2; i++)
{ /* ＤＭＡＣ各レジスタを初期化 */
MSH2_DMAC_SAR(ofs) = 0x00000000;
MSH2_DMAC_DAR(ofs) = 0x00000000;
MSH2_DMAC_TCR(ofs) = 0x00000001;
dummy = MSH2_DMAC_CHCR(ofs);
MSH2_DMAC_CHCR(ofs) = 0x00000000;
MSH2_DMAC_DRCR(i) = 0x00;
ofs = 0x10;
}
dummy = MSH2_DMAC_DMAOR;
MSH2_DMAC_DMAOR = 0x00000000;
/* ＤＩＶＵ割込みを不許可 */
MSH2_DIVU_CONT = 0x00000000;
}
static void scuDspInit(void)
{
register Sint32 i;
DSP_PGM_CTRL_PORT = 0x0; /* ＤＳＰ停止 */
for(i = 0; i < 256; i++)
DSP_PGM_RAM_PORT = 0xf0000000; /* ＥＮＤ命令フィル */
for(i = 0; i < 256; i++){ /* ＤＳＰ ＲＡＭクリア */
DSP_DATA_RAM_ADRS_PORT = i;
DSP_DATA_RAM_DATA_PORT = 0x0;
}
}
static void sndDspInit(void)
{
memset_w(SCSP_DSP_RAM, 0, SCSP_DSP_RAMSZ);
/* サウンドＤＳＰ */
} /* プログラム領域クリア */
Reference in New Issue View Git Blame Copy Permalink