?? lcd_f2.asm
字號:
flash_y1:
jb fl_250ms,led_d2
mov led1,a
mov led2,a
mov led3,a
led_d2:
jb sq1_f,led_d22
mov a,sec_bak
add a,#2
call sec_ct
cjne a,b,led_d1
led_d22:
;mov r1,#fo1
mov a,led_ch
mov b,#03
mul ab
add a,r1
subb a,led_ch
mov r1,a
jnb set_f,led_de1
mov led_ch,ch_no_temp
led_de1:
mov r3,led_ch
inc r3 ;r3=>ch_no
setb sq1_f
call ff_mov
;jnb set1_f,led_d1
;jb fl_250ms,led_d1
;call blk_14
led_d1:
ret
end
;&*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
led_y:
mov r0,#fd2_temp
call fmov
push 03h ;r3=ch_no
call ftob
pop 03h
yy_led:
mov r1,#led1
dec r1
mov r7,#02
inled:
inc r1
inc r0 ;to y1 (h)
mov a,@r0
anl a,#0f0h ;h1=>led1
swap a
mov @r1,a
mov a,@r0
anl a,#0fh ;h2=>led2
inc r1
mov @r1,a
djnz r7,inled
;**********************jb sgn 2001.9.14
mov a,fd2_temp+1
orl a,fd2_temp+2
jnz zq1
zer_data:
mov led1,#20h
mov led2,#0h
mov led3,#0h
mov led4,#0h
jmp yy_dot
zq1:
mov a,fd2_temp
jb acc.7,zq2
call z_data
jmp yy_dot
zq2:
call f_data
jmp yy_dot
;*************************************
z_data:
mov r0,#fd2_temp
mov a,@r0
jnz zz1
;0.1
mov a,#01d
call ddot
ret
zz1:
cjne a,#04d,zz2
mov a,led4
add a,#20h
mov led4,a
ret
zz3:
mov r1,#led1
add a,r1
dec a ;-1 rrl bit
mov r1,a
mov a,@r1
add a,#20h ;dot bit
mov @r1,a ;2001.4.19
ret
zz2:
jc zz3
cjne a,#10d,zz4
zz5:
;***********************************
led999:
mov led1,#9
mov led2,#9
mov led3,#9
mov led4,#29h
ret
zz4:
jc zz5
cjne a,#7fh,zz6
mov a,#02d
call ddot
ret
zz6:
cjne a,#7eh,zz8
mov a,#03d
call ddot
ret
zz8:
jmp zer_data
;******************************************
ddot:
mov r5,a
ddot1:
mov led4,led3
mov led3,led2
mov led2,led1
mov led1,#00h ;??????????2001.9.20
djnz r5,ddot1
mov led1,#20h
ret
;**********************************
f_data:
mov r0,#fd2_temp
mov a,@r0
clr acc.7
mov @r0,a
call z_data
mov a,led4
cjne a,#20h,fsd1
fds2:
mov led3,a
sjmp fsd3
fsd1:
jnc fds2
fsd3:
mov led4,led3
mov led3,led2
mov led2,led1
mov led1,#ff_led ;"1"=>led1
ret
;***************************************
yy_dot:
;jb set1_f,fd_cu_end
mov r5,#00d
mov r1,#led4
mov r6,#04d
dds4:
mov a,@r1
cjne a,#20h,dds1
dds2: sjmp dds3
dds1: jnc dds2
inc r5
dec r1
djnz r6,dds4
dds3:
mov r1,#dt1_dat
mov a,r3 ;r3=ch_no+1
dec a ;2001.9.27
add a,r1
mov r1,a
clr c
mov a,r5
subb a,@r1
jz yy_dot_end
mov r4,a ;r4=1,2,3
jc yy_dot_end
;***************0.5=>1
;mov a,r4
;clr c
;mov a,#led4
;inc a
;subb a,r4
;mov r0,a ;r0=> 0.5
;mov b,a ;r0=>b
;mov a,@r0
les11:
mov led4,led3 ;led3=>led4
mov led3,#black
mov led3,led2 ;led2
mov led2,#black
mov led2,led1
mov led1,#black
djnz r4,les11
yy_dot_end :
mov a,led4
cjne a,#20h,f_d2
f_d1:
clr c
subb a,#20h
mov led4,a
sjmp f_d3
f_d2:
jnc f_d1
;*****************************
;fd count
f_d3:
mov a,r3 ;r3=ch+no
dec a
mov r0,#fd1_dat
add a,r0
mov r0,a
mov a,@r0
;****************************
mov b,led4 ;a-k+[2*k/d]*d;k=mod(a/d)
xch a,b
div ab
mov a,led4
clr c
subb a,b
mov led4,a
fd_cu_end:
ret
;*****************************************ch_no to led
y1_led:
mov r3,ch_no
inc r3
y1_led1:
mov r1,#y1
mov a,r3
dec a
mov b,#03
mul ab
add a,r1
mov r1,a
;************************
call led_y
mov r0,#led1
mov a,r3
dec a
mov b,#4
mul ab
add a,r0
mov r0,a
mov @r0,led1
inc r0
mov @r0,led2
inc r0
mov @r0,led3
inc r0
mov @r0,led4
djnz r3 ,y1_led1
ret
;********************************************
;********************************
clr_led0_bak:
clr fff_f
clr a
mov led0_bak,#ff_led
mov led1_bak,a
mov led2_bak,a
mov led3_bak,a
mov led4_bak,a
ret
;******************************
;jbc menu1_over ,mnb
led_cl0:
mov a,kb_data
cjne a,#01,ll24
ret
din_dot:
;****************** add dot to led_bak ****************
mov a,led_ch; led_power =>led_ch 2001.10.18
mov r0,#dt1_dat
add a,r0
mov r0,a
mov a,#03
clr c
subb a,@r0
add a,r1
mov r1,a
mov a,@r1
add a,#20h
mov @r1,a
ret
;*****************************************
ll24:
mov led4,led4_bak
mov led3,led3_bak
mov led2,led2_bak
mov led1,led1_bak
mov r1,#led1
call din_dot
;************************jb fff_f
mov a,kb_data
cjne a,#02,ll23
mov led4,led0_bak
mov led3,#l_led
mov led2,#o_led
mov led1,#p_led
jb fl_250ms,led_cl_end
mov led4,#black
ret
ll23:
;************************flash
mov r0,#led1
dec r0
mov a,kb_data
dec a
dec a
;dec a ;2001.10.18
add a,r0
mov r0,a
jb fl_250ms ,led_cl_end
mov @r0,#black
led_cl_end:
ret
;************************************
jj_zer:
clr menu1_over
mov r7,#04d
mov r0,#led1_bak
jj_z1:
mov a,@r0
jnz jj_zer_end
inc r0
djnz r7,jj_z1
setb menu1_over
jj_zer_end:
ret
kill_0:
mov a,led1_bak
jnz new1
mov led1_bak,led2_bak
mov led2_bak,led3_bak
mov led3_bak,led4_bak
mov led4_bak,#00h
sjmp kill_0
new1:
ret
norml:
mov a,led1_bak
swap a
orl a,led2_bak
mov fd1_temp+1,a
;****************
mov a,led3_bak
swap a
orl a,led4_bak
mov fd1_temp+2,a
;**************************
mov a,led0_bak
cjne a,#black,ja1q
clr c
sjmp ja2q
ja1q:
setb c
ja2q: mov a,dot_bit
mov acc.7,c
mov fd1_temp,a
mov r0,#fd1_temp
jmp btof
;******************************
proc d_f_data
d_f_data:
call jj_zer
jnb menu1_over ,dc1
ret
;************add dot to led4_bak
dc1:
mov r7,#04
mov r0,#led1_bak
dot10:
mov a,@r0
cjne a,#20h,dot1
sjmp dot2
dot1:
jnc dot2
inc r0
djnz r7,dot10
;************************* add dot led4_bak
add a,#20h
mov led4_bak,a
dot2:
call kill_0
;********** jb led1_bak=20h *******
mov a,led1_bak
cjne a,#20h,dot_1
sjmp dot_0
dot_1:
mov dot_bit,#00
mov r7,#04d
mov r0,#led1_bak
dot_12:
inc dot_bit
mov a,@r0
cjne a,#20h,ghh0
sjmp dot_11 ;!!1 ;lxl<1
ghh0:
jnc dot_11
inc r0
djnz r7,dot_12
dec r0
dot_11:
clr c
subb a,#20h ;led_n_bak -20h
mov @r0,a ;clr dot
;********************* norml led1_mak led4_bak ********
jmp norml
;******************* over *******************
dot_0:
mov r7,#03d
mov r0,#led2_bak
mov dot_bit,#80h
dfo1:
mov a,@r0
jnz dfo2
inc r0
dec dot_bit
djnz r7,dfo1
mov fd1_temp,#41h
mov fd1_temp+1,#0h
mov fd1_temp+2,#0h
ret ;all 0.000
dfo2:
mov a,dot_bit
cjne a,#80h,dfo3
mov dot_bit,#00
dfo3:
mov led1_bak,#0
call kill_0
jmp norml
end
;***********************************
; kb (1-5)
proc kb_ctrl
kb_ctrl:
setb kd_over
mov a,kb_data
;dec a
dec a
jnz ka_s1
clr dot_f
ka_s1:
mov a,kc_data
mov b,#02d
div ab
mov a,b
jnz ka_d1 ;0=>dot data
setb dot_f
ka_d1:
inc kb_data
mov a,kb_data
cjne a,#07d,cc_q1
mov kb_data,#01h
jb set_f,ka_d11
call kbb_jmp
sjmp ka_d12
ka_d11:
call kbbs_jmp
ka_d12:
call clr_led0_bak
cc_q1:
mov kc_data,#01h
ret
end
;kc up 1
kc_up:
jnb kd_over ,kb_d5
mov a,kb_data
dec a
dec a
jnz kb_d1
cpl fff_f
mov led0_bak,#black
jb fff_f ,kb_d5
mov led0_bak,#ff_led
sjmp kb_d5
kb_d1:
inc kc_data
mov a,kc_data
cjne a,#11d,kb_d4
mov kc_data,#01d
kb_d4:
call dat_al
kb_d5:
ret
;***************************************************
dat_al:
mov r0,#led1_bak
mov a,kb_data ;(kb_data:1--6)
dec a
dec a
add a,R0
dec a
mov r0,a
;mov a,@r0
;cjne a,#20h,daf11
;sjmp daf12
daf11:
;jc daf13
daf12:
;mov a,kc_data
;add a,#20h
;sjmp daf14
daf13:
mov a,kc_data
daf14:
dec a
mov @r0,a
ret
;********************************
proc kb_jmp
kb_jmp:
jb set1_f,kb0_1
;clr sq1_f ;2001.10.18
;************;ka
;call clr_kd
;******************
ret
kb0_1:
mov sec_bak,sec
mov a,led_power
;************** add 'dr' dec 1 ************
cjne a,#03,kb30_1
dec addres
mov a,addres
cjne a,#0ffh,kb30_2
mov addres,#64
kb30_2:
ret
kb30_1:
cjne a,#18,kb1 ;************!!!!!!!!!!!!!
kb12:
jmp kb_ctrl
kb1:
jnc kb12
ret
end
cu_r1:
mov a,led_ch
mov b,#03
mul ab
add a,r1
mov r1,a
ret
proc kbb_jmp
kbb_jmp:
mov a,LED_power
jnz kbb1
ret
kbb1:
cjne a,#022,kbb2
kbb1_1:
mov b,#22
call cout_dt
mov r1,#fo1
call cu_r1
jmp fd_ram
kbb2:
jc kbb1_1
cjne a,#26,kbb4
kbb2_1:
mov b,#26
call cout_dt
mov r1,#fs1
call cu_r1
jmp fd_ram
kbb4:
jc kbb2_1
cjne a,#30,kbb7
kbb4_1:
mov b,#30
call cout_dt
mov r1,#l1
call cu_r1
jmp fd_ram
kbb7:
jc kbb4_1
cjne a,#34,kbb8
kbb7_1:
mov b,#34
call cout_dt
mov r1,#h1
call cu_r1
jmp fd_ram
kbb8:
jc kbb7_1
cjne a,#38,kbb9
kbb8_1:
mov b,#38
call cout_dt
mov r1,#c1
call cu_r1
jmp fd_ram
kbb9:
jc kbb8_1
ret
end
;************************************
proc jj_ha_f
jj_ha_f:
mov a,ch_no
inc a
rl a
mov r7,a
mov a,h_l_out
jj_ha1:
rrc a
jc jj_ha2
djnz r7,jj_ha1
clr ha_over
jb ha_fl,jj_ha4
sjmp jj_ha3
jj_ha2:
jb ha_fl,jj_ha4
jb ha_over ,jj_ha3
mov beep,sec
clr beep_out
setb ha_fl
sjmp jj_ha3
jj_ha4:
mov a,beep
add a,#03d
call sec_ct
cjne a,b,jj_ha5
jj_ha6:
setb beep_out
setb ha_over
clr ha_fl
sjmp jj_ha3
jj_ha5:
jnc jj_ha6
mov c,fl_250ms
mov beep_out,c
jj_ha3:
ret
end
proc jj_ha
jj_ha:
mov a,ch_no
inc a
rl a
mov r7,a
mov a,fs_out
jj_ha1:
rrc a
jc jj_ha2
djnz r7,jj_ha1
clr ha_over1
jb ha_f ,jj_ha4
sjmp jj_ha3
jj_ha2:
jb ha_f,jj_ha4
jb ha_over1 ,jj_ha3
mov beep1,sec
clr beep_out
setb ha_f
sjmp jj_ha3
jj_ha4:
mov a,beep1
add a,#03d
call sec_ct
cjne a,b,jj_ha5
jj_ha6:
setb beep_out
setb ha_over1
clr ha_f
sjmp jj_ha3
jj_ha5:
jnc jj_ha6
jj_ha3:
ret
end
;**************************************
f_fo_fs:
mov r0,#fs1_no
call f_fa1
mov r1,#fo1
call f_fa2
mov a,r3
mov r4,a
mov r1,#fs1
call f_fa21
mov r0,#fs1_no
call f_fa3
led_err_out:
mov r0,#fs1_no
call err_do
mov a,ch_no
mov dptr,#err_asc
movc a,@a+dptr
orl a,r4
mov fs_out,a
ret
fg_ad1:
mov a,test_no;;;;;;ch_no_temp
rl a
add a,r0
mov r0,a
ret
y1_add1:
mov a,r0
mov r1,a
call cu_y1
mov a,r1
mov r0,a
ret
;********************************
f_fa1:
call fg_ad1
mov a,@r0
mov b,a
anl a,#00001111b
mov r3,a ;fo=>r3
mov a,b
swap a
anl a,#00001111b
mov r2,a ;fs=>r2
mov r0,#y1
jmp y1_add1
;************************************
fg_ad:
mov a,test_no;;;;;;ch_no_temp
mov b,#03d
mul ab
add a,r1
mov r1,a
;***************************
mov a,test_no;;;;;;;ch_no_temp
jmp fcmp
;*************************************
proc f_fa2
f_fa2:
call fg_ad
jc up_1
mov r3,#00h
sjmp up_2
up_1:
inc r3
mov a,r3
lcall nu_5
mov r3,a
up_2:
ret
end
proc f_fa21
f_fa21:
call fg_ad
jnc up_1
mov r2,#00h
sjmp up_2
up_1:
inc r2
mov a,r2
call nu_5
mov r2,a
up_2:
ret
end
nu_5:
mov b,#cmp_no
inc b
cjne a,b,nuc1
sjmp nuc2
nuc1:
jc nu_51
nuc2:
mov a,#cmp_no
nu_51: ret
f_fa3:
mov a,r2
swap a
anl a,#0f0h
orl a,r4
mov b,a
call fg_ad1
mov @r0,b
ret
;*************************************
f_l_h:
;mov r0,#f1_temp
;mov @r0,#04h
;inc r0
;mov @r0,#30h
;inc r0
;mov @r0,#00h
;mov r0,#f1_temp
;lcall btof
;mov ch_no_temp ,#00d
;mov r7,#05d
;*************************************
mov r0,#fs1_no
inc r0
call f_fa1
mov r1,#l1
call f_fa2
mov a,r3
mov r4,a
mov r1,#h1
call f_fa21
mov r0,#fs1_no
inc r0
call f_fa3
p0_out:
mov r0,#fs1_no
inc r0 ;h,l=>byt
call err_do
mov a,ch_no
mov dptr,#err_asc
movc a,@a+dptr
orl a,r4
;mov fs_out,a
cpl a
mov b,a
mov dptr,#err_asc
mov a,ch_no
movc a,@a+dptr
orl a,b
;*************************************
cpl a ;out_wei=1
;mov led24,a
mov h_l_out,a
cpl a
mov c,acc.0
mov l1_out,c
mov c,acc.1
mov h1_out,c
mov c,acc.2
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -