易码技术论坛

 找回密码
 加入易码
搜索
查看: 117186|回复: 0

[求助]谁帮我编译一下

[复制链接]
发表于 2005-8-9 13:18:47 | 显示全部楼层 |阅读模式
我想将B16浏览器直接整合入内核,于是自己写一个,大家看看行不行.我不会用工具编译,谁能帮编译试一下?
NC3000
占用零页地址:A0:总张数.  A1当前张数,第一张记0.  A2,A3:子程序入口.
仅支持刷15次的B16,最多支持700张.

子程序
L1EX
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            开目录
L4DA DIR-1,X
   STA$088C,X
   DEX
   BNE L4
   INT$050D
   BCS L6
   LDX#$0F            开文件
L5DA FILE-1,X
   STA$088C,X
   DEX
   BNE L5
   LDA#$80
   STA$08C9
   INT$0515
   BCC L7
L6:RTS
L7DA#$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
L12EX
   STX$A1
L13:CMP#$9B           跳出
   BEQ L14
   INY
   CPY#$0F
   BEQ L8             刷完15张重新记数
   BNE L9             没刷完继续
L14:INT$0312
DIRB. "/睛彩相册"
       DB. $00
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-3-28 23:16 , Processed in 0.011309 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表