Nochk:
b0bts1 FC
jmp Nogo
b0mov a,CLO
sub a,ALO
b0bts1 FC
decms CHI
nop
Nochk01:
b0mov a,CLO
sub a,ALO
b0mov CLO,a
b0mov a,CHI
sub a,AHI
b0mov CHI,a
b0bset FC
Nogo:
rlcm BLO
rlcm BHI
decms counter
jmp Divloop
ret
;*********
;***************************
CalculatePower:
; CLR AHI
; mov a,#0xdc
; b0mov ALO,a ;220V
; b0mov a,CurrentL
; b0mov BLO,a
; b0mov a,CurrentH
; b0mov BHI,a
; call Mpy16
b0mov a,CurrentH
sub a,#3
b0bts1 FC
; jmp $+5
; b0mov a,CurrentL
; sub a,#0xf0
; b0bts1 FC
jmp CalculatePowerError
clr errorcounter1
b0bclr CurrentError
call Multiplication
b0mov a,BHI
b0bts1 FZ
jmp DecTime
b0mov a,DHI
sub a,PowerBufferHH
b0bts1 FZ
jmp NotAdj
b0mov a,DLO
sub a,PowerBufferH
b0bts1 FZ
jmp NotAdj
AdjMiddle:
b0mov a,EHI
sub a,PowerBufferM
b0bts1 FZ
jmp NotAdj
AdjLow:
b0mov a,ELO
sub a,PowerBufferL
NotAdj:
b0bts1 FC
jmp IncTime
DecTime:
b0mov a,TimerDrvH
sub a,#0x30
b0bts1 FC
ret
decms TimerDrvH
nop
ret
IncTime:
b0mov a,TimerDrvH
sub a,#0xf0
b0bts0 FC
ret
incms TimerDrvH
nop
ret
CalculatePowerError:
b0mov a,errorcounter1
sub a,#250
b0bts0 FC
jmp $+3
incms errorcounter1
ret
b0bset CurrentError
ret
;****************************
BuzShort_10:
b0bset BuzzerShort
mov a,#10
jmp BuzActive
BuzLong_5:
b0bclr BuzzerShort
mov a,#5
jmp BuzActive
BuzShort_3:
mov a,#3
jmp $+2
BuzShort_1:
mov a,#1
b0bset BuzzerShort
BuzActive:
b0mov BuzNumber,a
b0bset BuzzerIsOn
clr TimerBuz





