代碼: 選擇全部
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"