[求助]谁帮我编译一下
我想将B16浏览器直接整合入内核,于是自己写一个,大家看看行不行.我不会用工具编译,谁能帮编译试一下?NC3000
占用零页地址:A0:总张数.A1当前张数,第一张记0.A2,A3:子程序入口.
仅支持刷15次的B16,最多支持700张.
子程序
L1:DEX
Z1:BEQ L3
CLC
LDA$08CD
ADC$A2
STA$08CD
LDA$08CE
ADC$A3
STA$08CE
BCS L2
INC$08BF
L2:BNE L1/JMP L1
L3:RTS
主程序
LDX#$0A 开目录
L4:LDA DIR-1,X
STA$088C,X
DEX
BNE L4
INT$050D
BCS L6
LDX#$0F 开文件
L5:LDA FILE-1,X
STA$088C,X
DEX
BNE L5
LDA#$80
STA$08C9
INT$0515
BCC L7
L6:RTS
L7:LDA#$19 初始设置,将载入位置设为19C0,先载入第三字节,图片张数
STA$E1
LDA#$C0
STA$E0
LDA#$00
STA$08CE
STA$08C7
LDA#$03
STA$08CD
LDA#$01
STA$08C6
INT$0519
INT$0516
LDA$19C0
STA$A0
INT$C72A
L8:LDY#$00 开刷始图片,Y置0,记数.
L9:LDA#$06
STA$08C6
LDA#$40
STA$08C7
LDA#$14 文件载入位置,先设为第20字节(前面是文件头).
STA$08CD
LDA#$00
STA$08CE
STA$08CF
LDA#$C0 文件载入位置加(1):20+1600*15*(当前张数-1),故第一张记为0.
STA$A2
LDA#$5D
STA$A3
LDX$A1
JSR Z1
TYA 文件载入位置加(2):上面的结果+1600*(当前刷的张数-1)
LDA#$40
STA$A2
LDA#$06
STA$A3
JSR Z1
LDA$C7 处理按键
LDX#$00
STX$C7
CMP#$95
BNE L11
LDX$A1 图加,因为第一张记做0,先加1再与A0比,当相等时说明超了,置0.
INX
CPX$A0
BNE L10
LDX#$00
L10:STA$A1
L11:CMP#$94
BNE L13
LDX$A1 图减,当为0时,显示(A0)张图片.
BNE L12
LDX$A0
L12:DEX
STX$A1
L13:CMP#$9B 跳出
BEQ L14
INY
CPY#$0F
BEQ L8 刷完15张重新记数
BNE L9 没刷完继续
L14:INT$0312
DIR:DB. "/睛彩相册"
DB. $00
页:
[1]