b0bclr BuzzerIsOn ;buzzer on
b0bset BUZZER
jmp BuzzerTimeOver02
BuzzerTimeOver01:
b0bclr BUZZER ;buzzer off
b0bset BuzzerIsOn
BuzzerTimeOver02:
b0bts0 BuzzerIsOn
jmp BuzzerRet
decms BuzNumber
jmp BuzzerRet
BuzzerStop:
b0bclr BuzzerEnable
b0bclr BuzzerIsOn
BuzzerRet:
endm
;*****************************
include define.asm
.CODE
org 0x00
jmp Reset
org 0x08
jmp Interrupt
org 0x10
;*******************
Multiplication:
; b0mov a,CurrentL
b0mov a,VoltageL
mul a,VoltageL
b0mov ELO,a
b0mov a,R
b0mov ALO,a
; b0mov a,CurrentH
b0mov a,VoltageH
mul a,VoltageL
add a,ALO
b0mov EHI,a
b0mov a,R
b0mov DLO,a
b0bts0 FC
incms DLO
nop
clr DHI
; b0mov a,CurrentL
b0mov a,VoltageL
mul a,VoltageH
b0mov CLO,a
b0mov a,R
b0mov ALO,a
; b0mov a,CurrentH
b0mov a,VoltageH
mul a,VoltageH
add a,ALO
b0mov CHI,a
b0mov a,R
b0mov BLO,a
b0bts0 FC
incms BLO
nop
b0bclr FC
b0mov a,CLO
adc EHI,a
b0mov a,CHI
adc DLO,a
b0mov a,BLO
adc DHI,a
b0mov a,ELO
mul a,CurrentH
b0mov CLO,a
b0mov a,R
b0mov ALO,a
b0mov a,EHI
mul a,CurrentH
add a,ALO
b0mov CHI,a
b0mov a,R
b0mov ALO,a
b0mov a,DLO
mul a,CurrentH
add a,ALO
b0mov BLO,a
b0mov a,R
b0mov BHI,a
b0mov a,ELO
mul a,CurrentL
b0mov ELO,a
b0mov a,R
b0mov ALO,a
b0mov a,EHI
mul a,CurrentL
add a,ALO
b0mov EHI,a
b0mov a,R
b0mov ALO,a
b0mov a,DLO
mul a,CurrentL
add a,ALO





