EMAX两周岁庆祝活动----灌水嘉年华,盖楼拿奖励

Isword · 发表于 2006-8-28 23:08:01

引用第1797楼cscscs于2006-08-28 23:06发表的“”:

估计是16进制的水帖

;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

yangxiang · 发表于 2006-8-28 23:08:24

我终于113帖了.

yangxiang · 发表于 2006-8-28 23:08:46

我终于114帖了.

cscscs · 发表于 2006-8-28 23:08:59

人间之水帖奥义！！！尽在EM水池中

yangxiang · 发表于 2006-8-28 23:09:08

我终于115帖了.

无声的风 · 发表于 2006-8-28 23:09:11

汇编吧~

Isword · 发表于 2006-8-28 23:09:12

引用第1803楼yangxiang于2006-08-28 23:08发表的“”:
我终于113帖了.

换点别的吧...........太纯了点...........

yangxiang · 发表于 2006-8-28 23:09:32

我终于116帖了.

yangxiang · 发表于 2006-8-28 23:09:58

我终于117帖了.

cscscs · 发表于 2006-8-28 23:10:07

引用第1802楼Isword于2006-08-28 23:08发表的“”:

;destoryc000-$cfff,$0a9f,$0aa0,$0616
;return c=1;fail or esc c=0;choose a file->$08d6
;max file number=255
lda #0
.......

^_^!!辛苦你了～～

yangxiang · 发表于 2006-8-28 23:10:38

我终于118帖了.

无声的风 · 发表于 2006-8-28 23:10:42

0h~
三清道尊在上~
1800被我…

cscscs · 发表于 2006-8-28 23:10:45

引用第1810楼yangxiang于2006-08-28 23:09发表的“”:
我终于117帖了.

天哪！！说人话！！

athlon · 发表于 2006-8-28 23:10:58

咿呀学语注意
小心删帖
水过了……

Still4 · 发表于 2006-8-28 23:11:26

这个貌似是PCTOOLS？

十七·烈行风 · 发表于 2006-8-28 23:11:51

很多源码.该删啊

yangxiang · 发表于 2006-8-28 23:12:17

我终于119帖了.

cscscs · 发表于 2006-8-28 23:12:26

哇！！！！十七侠的脑袋！…………没了

yangxiang · 发表于 2006-8-28 23:12:42

我终于180帖了.

Isword · 发表于 2006-8-28 23:12:45

引用第1821楼yangxiang于2006-08-28 23:12发表的“”:
我终于119帖了.

说点人话吧..........
大哥,我求你了.........

		自动登录	找回密码
密码			加入易码