日韩床上生活一级视频|能看毛片的操逼网站|色悠悠网站在线观看视频|国产免费观看A淫色免费|国产av久久久久久久|免费A级视频美女网站黄|国产毛片av日韩小黄片|热久久免费国产视频|中文字幕无码色色|成人在线视频99久久久

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