[原始碼]電量檢測

6502 組合語言,是哈電族裡使用的程式語言,也是目前設計 Bin 的唯一方法,有興趣的就進來吧
Mowd
系統管理員
系統管理員
文章: 1824
註冊時間: 2003-07-16 6:31 PM
來自: 台灣台北
聯繫:

[原始碼]電量檢測

文章Mowd » 2004-04-16 10:06 AM

代碼: 選擇全部

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"
最後由 Mowd 於 2004-05-06 10:02 AM 編輯,總共編輯了 2 次。
Mowd 與你的交流天地
歡迎您的到來

Mowd
系統管理員
系統管理員
文章: 1824
註冊時間: 2003-07-16 6:31 PM
來自: 台灣台北
聯繫:

文章Mowd » 2004-05-06 10:02 AM

看大家那麼有心學習6502程式語言,在此拋磚引玉,公佈電量檢測的原始碼,希望有朝一日也能看到各位設計的程式。
Mowd 與你的交流天地
歡迎您的到來

Steven
版面管理員
版面管理員
文章: 716
註冊時間: 2003-07-18 1:15 PM

文章Steven » 2004-05-14 12:11 PM

....好複雜="=||
可以大略解釋一下嗎?
都看唔.

Mowd
系統管理員
系統管理員
文章: 1824
註冊時間: 2003-07-16 6:31 PM
來自: 台灣台北
聯繫:

文章Mowd » 2004-05-14 5:26 PM

至少你要知道每個指令是做什麼用的,說起來才會清楚。
Mowd 與你的交流天地
歡迎您的到來

Steven
版面管理員
版面管理員
文章: 716
註冊時間: 2003-07-18 1:15 PM

文章Steven » 2004-05-16 7:11 PM

@_@||....那本6502功略還沒翻完勒.

Steven
版面管理員
版面管理員
文章: 716
註冊時間: 2003-07-18 1:15 PM

文章Steven » 2004-07-04 10:11 AM

電量檢測....這是極品(對新手來說啦!^_^)!
先COPY下來...

頭像
ahk12345
會員
會員
文章: 115
註冊時間: 2004-09-28 3:00 PM

文章ahk12345 » 2004-12-01 9:31 PM

要如何放進小哈阿
我920的
用記事本把程式碼打上
在另存新檔
改成
電量檢測.bin
但他說
非哈電族bin檔案

Matt
版面管理員
版面管理員
文章: 603
註冊時間: 2003-07-28 3:38 PM
來自: 台灣台北

文章Matt » 2004-12-03 7:51 PM

天阿~~~
這種做法我還是頭一次遇到...
佩服佩服!!
沒那麼簡單啦...
想要可以去下載專區下載

Mowd
系統管理員
系統管理員
文章: 1824
註冊時間: 2003-07-16 6:31 PM
來自: 台灣台北
聯繫:

文章Mowd » 2004-12-04 10:39 PM

看這篇吧!不懂就再說吧。
自己先看看,不可以一有問題就自己不動頭腦想只想問別人喔~大膽去做吧!(最近遇到太多這種人了)
http://forum.mowd.tw/viewtopic.php?t=1696
Mowd 與你的交流天地
歡迎您的到來

Steven
版面管理員
版面管理員
文章: 716
註冊時間: 2003-07-18 1:15 PM

文章Steven » 2005-09-02 4:18 PM

他是直接測電池的電量還是測可用電量?
有時剩40%時就沒電了.

Mowd
系統管理員
系統管理員
文章: 1824
註冊時間: 2003-07-16 6:31 PM
來自: 台灣台北
聯繫:

文章Mowd » 2005-09-02 8:42 PM

我是測電池真正剩餘電量,哈電族電量從00-1F(hex)共有255格,通常到08-10就會說沒電了。
但是事實上電池還是有很多電。
Mowd 與你的交流天地
歡迎您的到來


回到「6502 組合語言」

誰在線上

正在瀏覽這個版面的使用者:沒有註冊會員 和 2 位訪客