LindiX 发表于 2005-8-9 13:06:00

你把程序源代码贴上来，我给你加注释。

qyfcool 发表于 2005-8-9 13:11:00

家里不上网,谁帮帖一下?谢谢.

qyfcool 发表于 2005-8-10 15:58:00

好,帖出来了,中间那一段不懂,帮解答一下,谢谢.

6 GRAPH:LC=2:PRINT "***** 网络热键 *****";:LOCATE 2,3
7 PRINT "设定网络热键","取消网络热键";:LOCATE LC,1:PRINT "

LindiX 发表于 2005-8-11 11:50:00

中间有一段程序没有贴出来？
行号为150,160,170的那些程序呢？
[此贴子已经被作者于2005-8-12 19:06:53编辑过]

qyfcool 发表于 2005-8-11 19:09:00

咦?怎么不见了?再帖一次.
6 GRAPH:LC=2:PRINT "***** 网络热键 *****";:LOCATE 2,3
7 PRINT "设定网络热键","取消网络热键";:LOCATE LC,1:PRINT "

Mrzeng 发表于 2005-8-12 14:17:00

...






------------------------------------------
UCWEB手机浏览器,无线上网,无限可能

qyfcool 发表于 2005-8-12 14:59:00

不可能啊，为什么会不见的？明明帖出来的说。

qyfcool 发表于 2005-8-14 10:47:00

TNND，不信那么邪门！
60 POKE 3328,0:POKE 3329,13:POKE 3330,5:POKE 3331,96
70 CALL 3328:POKE 2331,DIA:POKE 2332,DIB
80 POKE 2369,PEEK (2351):POKE 2370,PEEK (2352):POKE 2402,0:POKE 3329,6
90 POKE 231,240:POKE 232,47:CALL 3328:POKE 2402,1:POKE 232,49:CALL 3328
主要的都帖出来了。
[此贴子已经被作者于2005-8-14 11:31:43编辑过]

LindiX 发表于 2005-8-15 02:42:00

算了，别贴了。
在你的帖子上点引用就能看到你贴出来的内容，不过那个程序写的不好，而且只是修改了系统内核的Code。
我找个时间写个给你。

qyfcool 发表于 2005-8-16 13:52:00

谢谢.

KB_dev 发表于 2005-8-19 12:29:00

以下是引用LindiX在2005-8-15 2:42:00的发言：算了，别贴了。
在你的帖子上点引用就能看到你贴出来的内容，不过那个程序写的不好，而且只是修改了系统内核的Code。
我找个时间写个给你。
不懂就不要胡说八道！
那个BASIC的列表代码和系统内核的CODE没有任何关系

qyfcool 发表于 2005-8-19 12:57:00

555555555555~~~~~~~~~~~~~~~~~~~~为什么就没人解释一下呢?

bqq00 发表于 2006-3-29 01:54:00

以下是引用qyfcool在2005-8-9 11:50:00的发言：不行啊,还是不懂,BIN的太乱了,看QIQI的BASIC文件列表,又不知道各个地址的意义,谁帮解答一下啊?就是说说3K对应的各个地址是多少也行.


我有同感,希望谁能讲讲BIN那个的原理

真的不懂呀,特别是那几个文件系统中断的入参\出参



NFLASH文件列表子程序
代码约300个字节，是lee用的列表代码的1/6
速度则和以前nc1020上的那种超快速度差不多，这可算是目前最好的列表代码了,不过最多只能列出255个文件



;destory:$c000-$cfff,$0a9f,$0aa0,$0616
;return c=1;fail or esc c=0;choose a file->$08d6
;max file number=255
lda #0
sta $0a9f ;初始化列表位置
lda $0a
pha
and #$f0
ora #$01
sta $0a
lda $092f
sta $08d1
lda $0930
sta $08d2
lda #16
sta $08d3
lda #0
sta $08d4
sta $ed
sta $0a1b
lda #$c0
sta $ee
lda #$10
sta $0a1c
brk $0505 ;读出目录所占块
lda #$00 ;统计文件个数
sta $80
lda #$c0
sta $81
ldx #0
l1:ldy #0
lda ($80),y
iny
and ($80),y
cmp #$ff
beq is_end
lda $80
clc
adc #$10
sta $80
bcc l2
inc $81
l2:inx
bne l1
is_end:stx $0616 ;文件个数
bne not_empty
sec
pla
sta $0a
rts
not_empty:
lda #$ff
sta $03b3
sta $03af
sta $03b0
l12:brk $c72a
lda #$00
sta $81
lda $09af
asl
rol $81
asl
rol $81
asl
rol $81
asl
rol $81
clc
adc #$02
sta $80
lda $81
adc #$c0
sta $81 ;定位
lda $0616
sec
sbc $09af
tax ;发送到文字缓存
lda #$c0
sta $82
lda #$02
sta $83
l6:ldy #0
l3:lda ($80),y
beq l11
sta ($82),y
iny
cpy #$0e
bne l3
l11:lda $80
clc
adc #$10
sta $80
bcc l4
inc $81
l4:lda $82
clc
adc #$14
sta $82
bcc l5
inc $83
l5:dex
bne l6
lda $0a9f
sta $82
lda $0616
sta $80
lda #0
sta $83
sta $81
brk $c72c
lda $0a9f
sta $80
lda #0
sta $81
brk $c72d ;显示列表位置及当前文件序号
brk $c719
lda #$00
sta $0aa1 ;当前光标位置
l13:
brk $ca0a
lda $0aa1
asl
asl
asl
asl
sta $03c4
clc
adc #$10
sta $03c6
lda #1
sta $03c3
lda #$9f
sta $03c5
lda #$02
sta $03c9
brk ca0a
l8:brk $c00a
ldx #0
l7:cmp key_table,x
beq l9
inx
cpx #key_num
bne l7
jmp l8
l9:txa
asl
tax
lda key_jmp,x
sta $80
lda key_jmp+1,x
sta $81
jmp($0080)
key_table:
$13,$0e,$14,$15,$17,$16,$0d,$1b
key_jmp:
page_up,page_down,line_up,line_down,line_up,line_down,enter,esc
page_up:
lda $0a9f
sec
sbc #5
bcc f1
sta $0a9f
jmp l12
f1:jsr $e015 ;beep
jmp l8
page_down:
lda $09af
clc
adc #5
bcs f1
cmp $0616
bcs f1
jmp l12
line_up:
lda $09af
beq f1
lda $0aa1
beq l14
dec $0aa1
dec $09af
jmp l13
l14:dec $09af
jmp l12
line_down:
lda $09af
cmp $0616
beq f1
lda $0aa1
cmp #$05
beq l15
inc $0aa1
inc $09af
jmp l13
l15:inc $09af
jmp l12
enter:
lda #$00
sta $80
lda $09af
asl
rol $80
asl
rol $80
asl
rol $80
asl
rol $80
clc
adc #2
sta $82
lda $80
adc #$c0
sta $83
ldy #0
l18:lda ($82),y
beq l17
sta $08d6,y
iny
bne l18
l17:clc
pla
sta $0a
rts
esc:sec
pla
sta $0a
rts




qyfcool 发表于 2005-8-9 11:50:27

[求助]又是列表[em06]

不行啊,还是不懂,BIN的太乱了,看QIQI的BASIC文件列表,又不知道各个地址的意义,谁帮解答一下啊?就是说说3K对应的各个地址是多少也行.
页: [1]
查看完整版本: [求助]又是列表[em06]