易码技术论坛

 找回密码
 加入易码
搜索
查看: 247644|回复: 7

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

[复制链接]
发表于 2006-8-6 12:45:22 | 显示全部楼层
呵呵,支持开原..........
发表于 2006-8-6 13:46:46 | 显示全部楼层
确实有点火星了...
大概楼主是从台湾那边弄过来的吧.
ps:这段代码在NC3000的内核中可以找到,具体在那儿忘了.
 楼主| 发表于 2006-8-6 14:48:32 | 显示全部楼层
的确是从mowd那弄的..
就怕发过,所以自己火星个....
发表于 2006-8-7 15:27:32 | 显示全部楼层
支持开原..........
发表于 2006-8-8 08:32:15 | 显示全部楼层
加点注释啊!
谢谢 啊!
发表于 2006-8-9 15:13:39 | 显示全部楼层
上面的代码要有6502SDK来编译.....
发表于 2006-8-9 17:11:54 | 显示全部楼层
小顶一下
 楼主| 发表于 2006-8-6 11:33:40 | 显示全部楼层 |阅读模式
  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"
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

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

GMT+8, 2024-3-28 19:18 , Processed in 0.010347 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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