BSAVE形式で保存したファイルをMSX2で動画再生させるプログラムです。 ファイル名PROGRAM.BINの部分は適宜変更してお使いください。 何かキーを押すとプログラムが終了するようになっています。
また、MSXPenにも対応しており、 WebMSXエミュレーター上で変換した動画を再生することが出来ます。 下記手順通り行ってみてください。
Project Settingsの設定を行います。
ASM SettingsのFile nameにPROGRAM.BINを入力します。ファイル名を変更している場合はその名前を入力します。
ASM SettingsのBuild asはplain fileを選択します。
Emulator SettingsのMachineがMSX2以降になってることを確認して、
Saveをクリックします。
Basicタブの内容をMSXPen側の
Basicタブに貼り付けます。(
クリップボードにコピーボタンを使用すると便利です。)
Asmタブの内容をMSXPen側の
Asmタブに貼り付けます。(
クリップボードにコピーボタンを使用すると便利です。)
Basicタブ及び
Asmタブの内容は変換ボタンをクリックした後に内容が反映されますので、変換する前に貼り付けないようにしてください。
Runボタンをクリックすると動画が再生されます。
10 CLEAR 255,&HD000
20 DEFINT A-Y
30 DIM PA(8-1)
40 GOSUB 2000:REM PALETTE ADDRESS
49 REM PALETTE ROUTINE
50 GOSUB 3000:DEF USR=&HD000
60 SCREEN 5
70 COLOR 15,0,0
80 CLS
90 BLOAD "PROGRAM.BIN",S
99 REM SCREEN3
100 VDP(0)=VDP(0) AND &HF1
110 VDP(1)=VDP(1) AND &HE7:VDP(1)=VDP(1) OR &H8
120 VDP(4)=0:VDP(2)=0
129 REM NO USE TRANSPARENT COLOR & SPRITE OFF
130 VDP(9)=VDP(9) OR &H22
140 F=0:P=0
150 ON INTERVAL=60 GOSUB 1000
160 INTERVAL ON
170 IF INKEY$="" THEN 170
180 INTERVAL OFF
190 END
999 REM CHANGE PGT ADDRESS & PALETTE
1000 'INTERVAL OFF:REM NO NEED THIS LINE FOR turboR
1010 VDP(4)=F+1
1020 A=USR(PA(P))
1030 P=(P+1) MOD 8
1040 IF P=0 OR P=4 THEN F=(F+1) MOD 31:IF F=0 THEN P=0
1050 'INTERVAL ON:REM NO NEED THIS LINE FOR turboR
1060 RETURN
1999 REM PALETTE ADDRESS
2000 FOR I=0 TO 8-1
2010 ZP=&H420+32*I
2020 IF ZP>&H7FFF THEN ZP=ZP-65536
2030 PA(I)=ZP
2040 NEXT I
2050 RETURN
2999 REM PALETTE ROUTINE
3000 FOR I=&HD000 TO &HD025
3010 READ C$
3020 POKE I,VAL("&H"+C$)
3030 NEXT I
3040 RETURN
3100 DATA F3,2A,F8,F7,06,10,3A,07
3110 DATA 00,4F,0C,3E,10,90,ED,79
3120 DATA 3E,90,ED,79,0C,CD,74,01
3130 DATA 5F,23,CD,74,01,ED,59,ED
3140 DATA 79,23,10,E2,FB,C9
変換結果を是非つぶやいてみてください。動画に撮ってツイートするのも良いですが、
MSXPenにはShare機能があるので、
動画再生プログラム for MSXPenにある手順で動画を作成した後、
MSXPen側にあるShare
ボタンをクリックするとシェア用URLが表示されるので、このURLを付けてツイートすることも出来ます。
その際にはハッシュタグ#MSX2動画を付けてくださると、ツイートが探し易く(特に私が)なります。
The tweet hashtag is #MSX2動画.
VRAM 0000Hから配置されるBSAVE形式のファイルになっています。
0000H |
BSAVEヘッダ BSAVE Header 7H Bytes = 1 + 2 + 2 + 2 |
FEH |
0000H | ||
FFF0H | ||
0000H | ||
0007H |
パターンネームテーブル Pattern Name Table 360H Bytes = 32 × (24 + 3) = 864 |
|
空き Fill 00H |
||
0427H |
アニメーション用パレットテーブル Palette Tables for Animation 100H Bytes = 32 × 8 = 256 |
パレットテーブル パターン1 Palette Table Pattern 1 20H Bytes = 2 × 16 = 32 |
パターン2 Pattern 2 |
||
: : : |
||
パターン8 Pattern 8 |
||
空き Fill 00H |
||
0807H |
1〜4コマ目 1st to 4th frame |
パターンジェネレータテーブル Pattern Generator Table 800H Bytes |
1007H |
5〜8コマ目 5th to 8th frame |
〃 |
: : : |
: : : |
|
F007H |
117〜120コマ目 117th to 120th frame |
〃 |
F807H |
121〜124コマ目 121st to 124th frame |
7F0H Bytes ※BLOAD不具合回避のため To avoid BLOAD Bug |
バージョン | 更新日付 | 内容 |
---|---|---|
1.7.2.23 | 2024/02/07 |
|
1.7.1.22 | 2024/02/03 |
|
1.7.0.21 | 2023/10/19 |
|
1.6.1.20 | 2023/09/29 |
|
1.6.0.19 | 2023/09/24 |
|
1.5.0.18 | 2023/07/12 |
|