[分享][原创]让BAS进入有声世界

laugj

不好意思 加个精华~

啥时候又冒出了一个天才呢?

George

版主夸大了，其实在现实中我是很垃圾的。

偶的政治成绩…………汗…………

这玩意也只有在这里能被认可了…………
[em04]

wqx1

我是说是否可以移植到我的程序上(是商业机密我就算了)

先看看吧不行我就直接复制,改一下行和变量名

建议对一些POKE做一下解释

如POKE 2701,XX :REM XXXX

不行请发MAIL:wqxvan@163.com

P.S:对啊,我说的就是那个,部分的POKE是你自己弄的?不行啊?例如那个进度条显示(我弄出来个神秘的大小字共用的程序,效果不错?)

George

是中断，具体多少我忘了，看一下那个CALL值偏移表。

绝对是可以移植的！！！

简单的说，就把我给的演示程序那个PLAYER.dll载入，从3000开始载入，然后 CALL 3000

那个2701啊，其实没什么用，不用管它，就POKE 2701,0

因为那个功能的代码我并没有写对，就不要用了。

当然如果你能看懂汇编的话，可以把那个错误改过来，很简单的。

[em01]

我改过来了，但没发上来，那个功能用起来还挺麻烦的，需要懂汇编。

我觉得这样已经不错了…………
[em01]

wqx1

to GEORGE

呵呵,那我就放心地用了!我会在开头或结尾写上作者的名字的!

谢谢啊!

George

那我就很期待了！！！！

希望大家做出好的作品！！

当然我也会…………

wqx1

恩,准备移植到EXPLORER里

P.S:MIDIGAME是什么声道,MHZ的A16/VNT啊?

关系到一个背景音乐的重要问题!

十七·烈行风

好象还是midi的,修改了下，不过那个东西怎么有那么大- -

George

MIDI不好，我爱A16!!!!

只是音乐文件体积较大，可以做一个3k特别版
[em01][em01]

wqx1

不是,我的意思是

我发现了可以使音乐/游戏同步无影响的POKE

只要替换MIDIGAME(完美替换)

即可实现!

如果你能做一个速度不影响(游戏速度)并且可以不断播放音乐的我就先不弄那个了!

十七·烈行风

以下是引用George在2006-3-4 19:23:00的发言：[BR]MIDI不好，我爱A16!!!!

只是音乐文件体积较大，可以做一个3k特别版
[em01][em01]

A16的东西是很多，但是效果实在一般啊- -

MIDI虽然难做了点，但是我搞的几个MIDI，效果应该还可以吧。最主要是MIDI小啊，虽然3000不在乎用2M来装游戏的A16

laugj

A16流量还是有点大的 每侦16字节

十七·烈行风

所以说还是midi好啊。不知3000的LAV中，如何播放A16？

天琊

爽呆了

哈哈。。。。。。。
[em01][em01]

ulong001

哦，天啊，我前两天想在1000s的bas里从一个程序运行另一个程序（call xxxxx），却不想，让1ks的basic发出声音了！应该也是dsp发的，因为，那都是单词的读音，而且时不时更换！！等我研究一下，再带来好消息！

wqx1

这个我知道,NC3K上有的,我的EXPLORER就可以做到(内置)了

jiujingxing

我的是NC3000。我好高兴啊

kombi520

这个,这个   恩  唉!   有没有人说明一下NC3000具体该如何操作,需要哪些软件!    哎!本人才买NC3000,不甚了解!汗....![p:4]

红色激情

后后，鼻子酸了就擦干净吧．

George

13029_30978_5307.rar (2 KB, 下载次数: 675)

2006-2-2 12:26 上传

点击文件名下载附件
这是个演示程序

让BAS 进入有声世界！这里当然不是傻傻的PLAY了，而是真正用DSP 放！
Only for 3k!Only!
这几天甚是空虚啊，心情极度郁闷，还是在EMAX待着舒服。
反了一下sysdir/jinqu,跟踪啊跟踪，代码抄啊抄（我抄了N页），删啊删，终于提取出了核心代码，又debug 了不少时间，将与bas解释器冲突的地址改了改.不过最终成功了！版主看在我努力的份上，加个精吧（跪求了）。
代码汇编后不到1KB。各位BAS Fans们，想让你们的程序拥有b16+a16的连lav都望尘莫及的效果吗？今天就实现这个不可能的效果！
已经将操作超级简化了…
b16请看我的demo_2源码，在此不多说，谁还不懂跟贴问。
这次是用061 播A16，操作简单（可简单的背后…），我把源码贴下来，能看懂则看（说实话，那几个JSR $Exxx得好好研究），看不懂也无所谓，复制下来一编译就成了。纯傻瓜式操作，菜鸟都会！
大前提：only for 3k!,别问我061是什么东西,其它机型运行必然后悔莫及。
方法：1.载入源码到内存
      2.打开音乐文件.用 OPEN 就可以，如  OPEN XX FOR (RANDOM/INPUT) AS1就可以.只是文件大小有限制。最好用汇编打开。
      3.CALL 播放代码!

就三步操作，播放时不干扰屏幕.完毕自动返回BAS程序,播放过程不响应按键（我把那一段给删了），若需要响应加一段代码即可，其实播放过程中同样可以做点什么，留大家研究咯.再把文件关闭（BAS就用CLOSE，汇编INT $0517,INT $0523哪个都行）就行了。
谁说BAS 弱的！！有汇编就是强！
（版主若要将此帖转汇编区也可以，但千万在BAS区里别删啊）
由于存在无条件转移指令，因此大家使用时应注意 ".ORG XXXX"，一定不要随便载入。先确定播放代码的位置（PS:3K中$1000～$19BF处的内存可用，经本人实验$0BB8开始都可以用）即XXXX的值，汇编时在源码".ORG $0BB8"改成".ORG $XXXX"就成。我把代码默认放到3000(0BB8)处，懒的改的话直接调用(CALL 3000).这应该明白了吧？
至于PC端汇编软件，我原来也没用过，是从软件中心下的Kong小子的汇编器，还比较方便.
还有就是若PC端生成的文件扩展名为".bin",一定要改，否则下载时会将其“解密”，程序就面目全非了。
我就是不忍心看着BAS就这么沉下去，才不惜时间和精力去做。我才初三啊，理解力判断力都还很次，加之如山的作业，面临中考的紧迫，编得我已经有一觉睡过去永不起来的打算了。
整篇帖子全是我用记事本按出来的，苦啊。
大家要理解我，理解BAS啊……我真的快崩溃了…BAS一定要争气啊，大家也一定要努力啊…
哪位大虾看了鄙人的帖子觉得有什么不妥的，恳求您批评指正。
怕大家还是迷糊（不是大家的错，是我的表达能力太弱了），我写了演示程序。
至于有什么用，我想不用我多说了吧，编一个像Q-PLAYER或音文同步的程序已经是小case了，还可加点图片播放，随机播放，快进快退什么的。靠的是大家的技术和热情！
再次呼吁：一定定定…（回声）要革新BASIC啊啊啊啊…（回声）
附：汇编源码

.ORG $0BB8
JSR INITIALIZE
LDA #$01
STA $BF70
JSR Z4D57
RTS
INITIALIZE: INT $0B1C
JSR Z5C74
RTS
Z5C74: INT $0514
LDA $08FB
STA $BF74
LDA $08FC
STA $BF75
LDA $08FD
STA $BF76
LDA $08FE
STA $BF77
LDA #$00
STA $BF71
LDA #$60
STA $BF72
LDA #$00
STA $BF73
RTS
Z4D57: JSR Z505A
BCC Z4D5F
JMP Z4E64
Z4D5F: LDA $03E9
JSR $E099
LDX #$FF
Z4D67: JSR $E0BA
JSR $E093
BCC Z4D72
DEX
BNE Z4D67
Z4D72: LDA #$00
STA $03F6
STA $0401
LDA #$99
JSR Z5031
BCS Z4D84
JMP Z4E64
Z4D84: LDA #$40
JSR Z5031
BCS Z4D8E
JMP Z4E64
Z4D8E: CLI
LDA #$00
STA $03F6
STA $0401
JSR Z4EFA
BCS Z4DA5
LDA $BF78
BNE Z4DA4
JMP Z4E64
Z4DA4: RTS
Z4DA5: LDX #$FF
LDA #$00
STA $0401
STA $03F6
Z4DAF: LDA #$00
STA $0401
STA $03F6
JSR $E0BA
JSR $E093
BCC Z4DC5
DEX
BNE Z4DAF
JMP Z4E64
Z4DC5: LDA #$AA
JSR Z5031
LDA #$03
JSR Z5031
JSR $E0BA
LDX #$FF
LDY #$FF
Z4DD6: JSR $E0BA
DEX
BNE Z4DE2
DEY
BNE Z4DE2
JMP Z4E64
Z4DE2: LDA $C7
BPL Z4DE9
JMP Z4E64
Z4DE9: LDA #$00
STA $0401
STA $03F6
JSR $E0B7
BCC Z4DD6
CMP #$AA
BNE Z4DD6
JSR $E0B7
BCC Z4DD6
CMP #$00
BNE Z4DD6
JSR $E0BA
JSR $E0BA
JSR $E09C
LDX #$FF
Z4E0E: LDA $1E
AND #$40
BNE Z4E1A
JSR $E0BA
DEX
BNE Z4E0E
Z4E1A: JSR $E0BA
LDA #$C0
STA $17
LDA $0436
ORA #$08
STA $18
STA $0436
PHP
PHA
LDA $3D
AND #$FC
ORA #$03
STA $3D
PLA
PLP
LDA $043D
STA $3A
LDA $043C
STA $3C
PHP
PHA
LDA $3D
AND #$FC
ORA #$02
STA $3D
PLA
PLP
LDA #$00
STA $3C
PHP
PHA
LDA $3D
AND #$FC
ORA #$00
STA $3D
PLA
PLP
LDA #$00
STA $3D
CLI
SEC
RTS
Z4E64:INT $031D
CLI
CLC
RTS
Z4EFA: LDA #$00
STA $03F6
STA $0401
LDA $0A9C
CMP #$00
BEQ Z4F10
JSR CAPTION
RTS
Z4F10: JSR Z4FC2
LDX #$F0
Z4F15: JSR $E093
BCS Z4F1D
JMP Z4F26
Z4F1D: JSR $E0BA
DEX
BNE Z4F15
JMP Z4E6A
Z4F26: LDA #$33
JSR Z5031
BCS Z4F30
JMP Z4E6A
Z4F30: LDX #$00
Z4F32: LDA $0280,X
JSR Z5031
BCS Z4F3D
JMP Z4E6A
Z4F3D: INX
CPX #$0F
BCC Z4F32
LDA #$0F
STA $BF79
LDA #$00
STA $BF7A
LDA #$00
STA $BF7B
SEC
LDA $BF74
SBC $BF79
STA $BF74
LDA $BF75
SBC $BF7A
STA $BF75
LDA $BF76
SBC $BF7B
STA $BF76
LDA $BF76
CMP $BF7B
BNE Z4F83
LDA $BF75
CMP $BF7A
BNE Z4F83
LDA $BF74
CMP $BF79
Z4F83: BEQ Z4F8A
BCC Z4F8A
JMP Z4EFA
Z4F8A: JSR Z4FC2
LDX #$F0
Z4F8F: JSR $E093
BCC Z4F9D
JSR $E0BA
DEX
BNE Z4F8F
JMP Z4E6A
Z4F9D: LDA #$22
JSR Z5031
BCS Z4FA7
JMP Z4E6A
Z4FA7: LDA $BF74
JSR Z5031
LDX #$00
Z4FAF: LDA $0280,X
JSR Z5031
BCS Z4FBA
JMP Z4E6A
Z4FBA: INX
CPX $BF74
BCC Z4FAF
SEC
RTS
Z4FC2: LDA $BF71
STA $08CD
LDA $BF72
STA $08CE
LDA #$00
STA $08CF
LDA #$00
STA $08D0
LDY $BF73
JSR Z665E
LDA #$00
STA $08D1
INT $0519
BCS Z502F
LDA #$0F
STA $08C6
LDA #$00
STA $08C7
LDA #$80
STA $E0
LDA #$02
STA $E1
INT $0516
BCS Z502F
LDA #$0F
CLC
ADC $BF71
STA $BF71
BCC Z500D
INC $BF72
Z500D: LDA $BF72
CMP #$C0
BNE Z5019
LDA $BF71
CMP #$00
Z5019: BCC Z502F
SEC
LDA $BF71
SBC #$00
STA $BF71
LDA $BF72
SBC #$80
STA $BF72
INC $BF73
Z502F: RTS
Z665E: CPY #$00
BEQ Z66CF
LDA #$00
STA $BF79
LDA #$40
STA $BF7A
LDA #$00
STA $BF7B
SEC
LDA $08CD
SBC $BF79
STA $08CD
LDA $08CE
SBC $BF7A
STA $08CE
LDA $08CF
SBC $BF7B
STA $08CF
Z668D: LDA #$00
STA $BF79
LDA #$80
STA $BF7A
LDA #$00
STA $BF7B
CLC
LDA $08CD
ADC $BF79
STA $08CD
LDA $08CE
ADC $BF7A
STA $08CE
LDA $08CF
ADC $BF7B
STA $08CF
DEY
BNE Z668D
SEC
LDA $08CE
SBC #$20
STA $08CE
LDA $08CF
SBC #$00
STA $08CF
LDX #$00
RTS
Z66CF: LDA #$00
STA $BF79
LDA #$60
STA $BF7A
LDA #$00
STA $BF7B
SEC
LDA $08CD
SBC $BF79
STA $08CD
LDA $08CE
SBC $BF7A
STA $08CE
LDA $08CF
SBC $BF7B
STA $08CF
LDX #$00
RTS
Z5031: STX $0680
PHA
LDX #$FF
PHP
PHA
LDA $3D
AND #$FC
ORA #$00
STA $3D
PLA
PLP
Z5043EX
BEQ Z5054
LDA $3B
AND #$20
BEQ Z5043
PLA
STA $3A
LDX $0680
SEC
RTS
Z5054DX $0680
PLA
CLC
RTS
Z4E6A: LDA #$00
STA $BF78
CLC
RTS
Z505A: LDA $040B
BNE Z50A0
JSR $E09F
BCS Z5067
JMP Z5099
Z5067: JSR $E096
LDY #$03
LDX #$C8
Z506E: JSR $E0BA
DEX
BNE Z506E
DEY
BNE Z506E
JSR $E0AB
BCS Z507F
JMP Z5099
Z507F: INT $0313
BIT $040B
BMI Z50A0
JSR $E0BA
JSR $E093
BCC Z5092
JMP Z5099
Z5092: LDY #$00
STY $03F6
CLC
RTS
Z5099: LDA #$00
STA $BF78
SEC
RTS
Z50A0: JSR $E0CF
LDA #$02
STA $BF78
SEC
RTS
CAPTION: NOP
RTS