我来火星一个....3000电量检测的源码

Isword

呵呵,支持开原..........

Eastsun

确实有点火星了...
大概楼主是从台湾那边弄过来的吧.
ps:这段代码在NC3000的内核中可以找到,具体在那儿忘了.

十七·烈行风

的确是从mowd那弄的..
就怕发过,所以自己火星个....

gcwy

支持开原..........

zhpe

加点注释啊！
谢谢 啊！

Isword

上面的代码要有6502SDK来编译.....

116205035

小顶一下

十七·烈行风

  ORG $4018

DB $00,$2A,$C7
LDX #$08
J1: LDA W1-$1,X
STA $02C6,X
DEX
BNE J1

LDX #$08
J2: LDA W2-$1,X
STA $02ED,X
DEX
BNE J2

LDX #$07
J3: LDA W3-$1,X
STA $031C,X
DEX
BNE J3

SEI
LDA $1C
ORA #$C0
STA $1C
JSR H9CD9   ;Delay
LDX #$FF
H9316: INX
CPX #$1F
BCS H9335
LDA $1C
AND #$E0
STA $1C
TXA
ORA $1C
STA $1C
JSR $E0CC
JSR $E0CC
JSR $E0CC
LDA $1C
AND #$20
BEQ H9316
H9335: TXA
STA $2000
STA $2002

LDA #$06
STA $2001
LDA $2000
SEC
SBC $2001
STA $2000
CLC
ADC $2000
ADC $2000
ADC $2000
STA $3CE
DB $00,$01,$CA

LDA $3D2
CMP #$30
BEQ LESS1
STA $2F7
LESS1: LDA $3D3
CMP #$30
BEQ LESS2
STA $2F8
LESS2: LDA $3D4
STA $2F9
LDA #$25
STA $2FA

JSR H93DC

LDA #$14
STA $3C3

LDA #$1F
SEC
SBC $2002
STA $2002
LDA #$13
CLC
ADC $2002
ADC $2002
STA $3C4
LDX #$20
STX $3C5
LDY #$43
STY $3C6
DB $00,$07,$CA

LDA #$13
STA $3C3
LDA #$13
STA $3C4
LDX #$21
STX $3C5
LDY #$44
STY $3C6
DB $00,$06,$CA

LDA #$17
STA $3C3
LDA #$10
STA $3C4
LDX #$1D
STX $3C5
LDY #$13
STY $3C6
DB $00,$06,$CA

LDX #$1F
STX $3C3
LDA #$1F
STA $3C4
LDX #$21
STX $3C5
LDY #$1F
STY $3C6
DB $00,$08,$CA

LDX #$1F
STX $3C3
LDA #$2B
STA $3C4
LDX #$21
STX $3C5
LDY #$2C
STY $3C6
DB $00,$08,$CA

LDX #$1F
STX $3C3
LDA #$37
STA $3C4
LDX #$21
STX $3C5
LDY #$38
STY $3C6
DB $00,$08,$CA

CLI
DB $00,$06,$C0
RTS

H9CD9: PHA
TXA
PHA
TYA
PHA
LDY #$32
JU3: LDA #$00
STA $03F6
LDX #$FF
JU2: DEX
BNE JU2
DEY
BNE JU3
PLA
TAY
PLA
TAX
PLA
RTS

H9B99: PHA
JSR H9BA3
TAX
PLA
LSR A
LSR A
LSR A
LSR A
H9BA3: AND #$0F
ORA #$30
CMP #$3A
BCC H9BAD
ADC #$06
H9BAD: RTS

H93DC: LDA #$FF   ;Show
STA $03AF
LDA #$FF
STA $03B0
DB $00,$19,$C7
RTS

W1: DB "電量檢測"
W2: DB "剩餘電量"
W3: DB "By Mowd"