📄 demo_6961.asm
字号:
;================================================================
rpt_show:
jb rpt_flag,rpt_1
setb rpt_flag
jmp rpt_end
rpt_1:
clr rpt_flag
call play_show
rpt_end:
ret
;================================================================
rock_show:
jb rock_flag,rock_1
setb rock_flag
jmp rock_end
rock_1:
clr rock_flag
call play_show
rock_end:
ret
;================================================================
jazz_show:
jb jazz_flag,jazz_1
setb jazz_flag
jmp jazz_end
jazz_1:
clr jazz_flag
call play_show
jazz_end:
ret
;================================================================
clas_show:
jb clas_flag,clas_1
setb clas_flag
setb d2_qf8.0
jmp clas_end
clas_1:
clr clas_flag
clr d2_qf8.0
clas_end:
call show_disp
ret
;================================================================
hall_show:
jb hall_flag,hall_1
setb hall_flag
setb d1_qf8.0
jmp hall_end
hall_1:
clr hall_flag
clr d1_qf8.0
hall_end:
call show_disp
ret
;================================================================
vol_show:
jb vol_flag,vol_1
setb vol_flag
setb d3_qf8.0
jmp vol_end
vol_1:
clr vol_flag
clr d3_qf8.0
vol_end:
call show_disp
ret
;================================================================
l_show:
jb l_flag,l_1
setb l_flag
setb d2_qf8.1
jmp l_end
l_1:
clr l_flag
clr d2_qf8.1
l_end:
call show_disp
ret
;================================================================
k1_show:
jb k1_flag,k1_1
setb k1_flag
setb d1_qf8.1
jmp k1_end
k1_1:
clr k1_flag
clr d1_qf8.1
k1_end:
call show_disp
ret
;================================================================
k2_show:
jb k2_flag,k2_1
setb k2_flag
setb d3_qf8.1
jmp k2_end
k2_1:
clr k2_flag
clr d3_qf8.1
k2_end:
call show_disp
ret
;================================================================
k3_show:
jb k3_flag,k3_1
setb k3_flag
setb d4_qf8.1
jmp k3_end
k3_1:
clr k3_flag
clr d4_qf8.1
k3_end:
call show_disp
ret
;================================================================
khz_show:
jb khz_flag,khz_1
setb khz_flag
setb d5_qf8.1
jmp khz_end
khz_1:
clr khz_flag
clr d5_qf8.1
khz_end:
call show_disp
ret
;================================================================
mhz_show:
jb mhz_flag,mhz_1
setb mhz_flag
setb d6_qf8.1
jmp mhz_end
mhz_1:
clr mhz_flag
clr d6_qf8.1
mhz_end:
call show_disp
ret
;================================================================
sg11_show:
jb sg11_flag,sg11_1
setb sg11_flag
setb d1_qf8.2
setb d2_qf8.2
setb d3_qf8.2
setb d4_qf8.2
setb d5_qf8.2
setb d6_qf8.2
setb d7_qf8.2
jmp sg11_end
sg11_1:
clr sg11_flag
clr d1_qf8.2
clr d2_qf8.2
clr d3_qf8.2
clr d4_qf8.2
clr d5_qf8.2
clr d6_qf8.2
clr d7_qf8.2
sg11_end:
call show_disp
ret
;================================================================
pt_show:
;setb pt_flag
call clr_6312_ram
call strobe_set
mov pt6312_buf,#44h
call pt6312_pat
mov adr_buf,#0c0h
mov data_buf,#29h
call adr_da_set
mov adr_buf,#0c2h
mov data_buf,#1fh
call adr_da_set
mov adr_buf,#0c4h
mov data_buf,#3ch
call adr_da_set
mov adr_buf,#0c6h
mov data_buf,#1ch
call adr_da_set
mov adr_buf,#0c8h
mov data_buf,#55h
call adr_da_set
mov adr_buf,#0cah
mov data_buf,#5dh
call adr_da_set
mov adr_buf,#0cch
mov data_buf,#1dh
call adr_da_set
mov r6,#6
pp3:
call load_delay
djnz r6,pp3
ret
;================================================================
dimup_show:
mov a,dim_flag
cjne a,#7,up_1
call strobe_set
mov pt6312_buf,#8fh
call pt6312_pat
ret
up_1:
cjne a,#6,up_2
mov dim_flag,#7
call strobe_set
mov pt6312_buf,#8fh
call pt6312_pat
ret
up_2:
cjne a,#5,up_3
mov dim_flag,#6
call strobe_set
mov pt6312_buf,#8eh
call pt6312_pat
ret
up_3:
cjne a,#4,up_4
mov dim_flag,#5
call strobe_set
mov pt6312_buf,#8dh
call pt6312_pat
ret
up_4:
cjne a,#3,up_5
mov dim_flag,#4
call strobe_set
mov pt6312_buf,#8ch
call pt6312_pat
ret
up_5:
cjne a,#2,up_6
mov dim_flag,#3
call strobe_set
mov pt6312_buf,#8bh
call pt6312_pat
ret
up_6:
cjne a,#1,up_7
mov dim_flag,#2
call strobe_set
mov pt6312_buf,#8ah
call pt6312_pat
ret
up_7:
cjne a,#0,up_8
mov dim_flag,#1
call strobe_set
mov pt6312_buf,#89h
call pt6312_pat
ret
up_8:
ret
;================================================================
dimdn_show:
mov a,dim_flag
cjne a,#0,dn_1
call strobe_set
mov pt6312_buf,#88h
call pt6312_pat
ret
dn_1:
cjne a,#1,dn_2
mov dim_flag,#0
call strobe_set
mov pt6312_buf,#88h
call pt6312_pat
ret
dn_2:
cjne a,#2,dn_3
mov dim_flag,#1
call strobe_set
mov pt6312_buf,#89h
call pt6312_pat
ret
dn_3:
cjne a,#3,dn_4
mov dim_flag,#2
call strobe_set
mov pt6312_buf,#8ah
call pt6312_pat
ret
dn_4:
cjne a,#4,dn_5
mov dim_flag,#3
call strobe_set
mov pt6312_buf,#8bh
call pt6312_pat
ret
dn_5:
cjne a,#5,dn_6
mov dim_flag,#4
call strobe_set
mov pt6312_buf,#8ch
call pt6312_pat
ret
dn_6:
cjne a,#6,dn_7
mov dim_flag,#5
call strobe_set
mov pt6312_buf,#8dh
call pt6312_pat
ret
dn_7:
cjne a,#7,dn_8
mov dim_flag,#6
call strobe_set
mov pt6312_buf,#8eh
call pt6312_pat
ret
dn_8:
ret
;================================================================
load_word:
mov d1_q70,#00000110b ;" L "
mov d2_q70,#00111111b ;" O "
mov d3_q70,#01110111b ;" A "
mov d4_q70,#01011110b ;" d "
ret
;=======================================================================
number_table:
db 00111111b ; SHOW " 0 "
db 00000110b ; SHOW " 1 "
db 01011011b ; SHOW " 2 "
db 01001111b ; SHOW " 3 "
db 01100110b ; SHOW " 4 "
db 01101101b ; SHOW " 5 "
db 01111101b ; SHOW " 6 "
db 00000111b ; SHOW " 7 "
db 01111111b ; SHOW " 8 "
db 01101111b ; SHOW " 9 "
;=======================================================================
dot_table:
db 11111111b ; SHOW " DOT ON "
db 00000000b ; SHOW " DOT OFF "
db 11111111b ; SHOW " DOT ON "
db 00000000b ; SHOW " DOT OFF "
db 11111111b ; SHOW " DOT ON "
db 00000000b ; SHOW " DOT OFF "
db 11111111b ; SHOW " DOT ON "
db 00000000b ; SHOW " DOT OFF "
db 11111111b ; SHOW " DOT ON "
db 00000000b ; SHOW " DOT OFF "
;====================================================================
show_disp:
jnb play_flag,show_end
mov adr_buf,#0c1h
mov data_buf,d1_qf8
call adr_da_set
mov adr_buf,#0c3h
mov data_buf,d2_qf8
call adr_da_set
mov adr_buf,#0c5h
mov data_buf,d3_qf8
call adr_da_set
mov adr_buf,#0c7h
mov data_buf,d4_qf8
call adr_da_set
mov adr_buf,#0c9h
mov data_buf,d5_qf8
call adr_da_set
mov adr_buf,#0cbh
mov data_buf,d6_qf8
call adr_da_set
mov adr_buf,#0cdh
mov data_buf,d7_qf8
call adr_da_set
show_end:
ret
;====================================================================
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -