📄 tesk500.asm
字号:
@@Mkeyp3_:
page0
mov a p3
mov scanid a
mov a keyp3
and a scanid
mov scanid #0111b
page6
xor a Mtr3
jmp @@trig_chk
@@Mkeyp6_:
page0
mov a p6
mov scanid a
mov a keyp6
and a scanid
mov scanid #1111b
page6
xor a Mtr6
jmp @@trig_chk
endif
@@tr_cg_ok:
page7
mov deboc_count #0 ;clear debounce counter
page0
mov a #0111b ;key bounce flag
and a m14
mov m14 a
mov a #0001b
and a m15
caje #0001b @@p1ok
mov a #0010b
and a m15
caje #0010b @@p1ok
mov a #0100b
and a m15
caje #0100b @@p1ok
mov a #1000b
@@p1ok:
mov m15 a
ifdef mrx_2
page6
mov a skblock
page0
caje #0001b @@update_mrx_2
ifdef mrx_3
caje #0010b @@update_mrx_3
ifdef mrx_4
caje #0011b @@update_mrx_4
endif ;mrx_4
endif ;mrx_3
endif ;mrx_2
mov a scanid
caje #0001b @@update_mrx_1_0
caje #0010b @@update_mrx_1_1
caje #0100b @@update_mrx_1_2
caje #1000b @@update_mrx_1_3
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@update_MixedKeyP2
caje #0111b @@update_MixedKeyP3
caje #1111b @@update_MixedKeyP6
@@update_MixedKeyP6:
page6
mov a Mtr6
page0
xor a m15
page6
mov Mtr6 a
jmp @@change
@@update_MixedKeyP3:
page6
mov a Mtr3
page0
xor a m15
page6
mov Mtr3 a
jmp @@change
@@update_MixedKeyP2:
page6
mov a Mtr2
page0
xor a m15
page6
mov Mtr2 a
jmp @@change
endif
@@update_mrx_1_3:
mov a tr13_16
xor a m15
mov tr13_16 a
jmp @@change
@@update_mrx_1_2:
mov a tr9_12
xor a m15
mov tr9_12 a
jmp @@change
@@update_mrx_1_1:
mov a tr5_8
xor a m15
mov tr5_8 a
jmp @@change
@@update_mrx_1_0:
mov a tr1_4
xor a m15
mov tr1_4 a
@@change:
page0
and a m15
caje #0000b @@trh2l_run
jmp @@trl2h_run
ifdef mrx_2
@@update_mrx_2:
mov a scanid
caje #0001b @@update_mrx_2_0
caje #0010b @@update_mrx_2_1
caje #0100b @@update_mrx_2_2
caje #1000b @@update_mrx_2_3
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@update_MixedKeyP2
caje #0111b @@update_MixedKeyP3
caje #1111b @@update_MixedKeyP6
endif
jmp @@scankey1
@@update_mrx_2_3:
page6
mov a tr29_32
page0
xor a m15
page6
mov tr29_32 a
jmp @@change
@@update_mrx_2_2:
page6
mov a tr25_28
page0
xor a m15
page6
mov tr25_28 a
jmp @@change
@@update_mrx_2_1:
page6
mov a tr21_24
page0
xor a m15
page6
mov tr21_24 a
jmp @@change
@@update_mrx_2_0:
page6
mov a tr17_20
page0
xor a m15
page6
mov tr17_20 a
jmp @@change
endif
ifdef mrx_3
@@update_mrx_3:
mov a scanid
caje #0001b @@update_mrx_3_0
caje #0010b @@update_mrx_3_1
caje #0100b @@update_mrx_3_2
caje #1000b @@update_mrx_3_3
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@update_MixedKeyP2
caje #0111b @@update_MixedKeyP3
caje #1111b @@update_MixedKeyP6
endif
jmp @@scankey1
@@update_mrx_3_3:
page7
mov a tr45_48
page0
xor a m15
page7
mov tr45_48 a
jmp @@change
@@update_mrx_3_2:
page7
mov a tr41_44
page0
xor a m15
page7
mov tr41_44 a
jmp @@change
@@update_mrx_3_1:
page7
mov a tr37_40
page0
xor a m15
page7
mov tr37_40 a
jmp @@change
@@update_mrx_3_0:
page7
mov a tr33_36
page0
xor a m15
page7
mov tr33_36 a
jmp @@change
endif
ifdef mrx_4
@@update_mrx_4:
mov a scanid
caje #0001b @@update_mrx_4_0
caje #0010b @@update_mrx_4_1
caje #0100b @@update_mrx_4_2
caje #1000b @@update_mrx_4_3
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@update_MixedKeyP2
caje #0111b @@update_MixedKeyP3
caje #1111b @@update_MixedKeyP6
endif
jmp @@scankey1
@@update_mrx_4_3:
page7
mov a tr61_64
page0
xor a m15
page7
mov tr61_64 a
jmp @@change
@@update_mrx_4_2:
page7
mov a tr57_60
page0
xor a m15
page7
mov tr57_60 a
jmp @@change
@@update_mrx_4_1:
page7
mov a tr53_56
page0
xor a m15
page7
mov tr53_56 a
jmp @@change
@@update_mrx_4_0:
page7
mov a tr49_52
page0
xor a m15
page7
mov tr49_52 a
jmp @@change
endif
@@mrx:
mov a #0111b
and a m14
mov m14 a
page7
mov deboc_count #0 ;clear debounce counter
jmp @@chk_s_play
@@chk_s_play_back:
mov a mrx
caje #1111b @@chk_direct_key
ifdef mrx_2
page6
mov a skblock
caje #1 @@mrx_01
ifdef mrx_3
caje #2 @@mrx_02
endif
ifdef mrx_4
caje #3 @@mrx_03
endif
endif
@@_mrx_00:
page0
mov a scanid
caje #0001b @@scan1
caje #0010b @@scan2
caje #0100b @@scan3
ifdef mrx_2
page6
mov skblock #1
jmp @@timer_ok
endif
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #1000b @@Mkeyp2_
caje #0011b @@Mkeyp3_
caje #0111b @@Mkeyp6_
endif
jmp @@timer_ok
ifdef mrx_2
@@mrx_01:
page0
mov a scanid
caje #0001b @@scan5
caje #0010b @@scan6
caje #0100b @@scan7
ifdef mrx_3
page6
mov skblock #2
jmp @@timer_ok
endif
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #1000b @@Mkeyp2_
caje #0011b @@Mkeyp3_
caje #0111b @@Mkeyp6_
endif
page6
mov skblock #0
jmp @@timer_ok
endif ;mrx_2
ifdef mrx_3
@@mrx_02:
page0
mov a scanid
caje #0001b @@scan9
caje #0010b @@scan10
caje #0100b @@scan11
ifdef mrx_4
page6
mov skblock #3
jmp @@timer_ok
endif
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #1000b @@Mkeyp2_
caje #0011b @@Mkeyp3_
caje #0111b @@Mkeyp6_
endif
page6
mov skblock #0
jmp @@timer_ok
endif ;mrx_3
ifdef mrx_4
@@mrx_03:
page0
mov a scanid
caje #0001b @@scan13
caje #0010b @@scan14
caje #0100b @@scan15
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #1000b @@Mkeyp2_
caje #0011b @@Mkeyp3_
caje #0111b @@Mkeyp6_
endif
page6
mov skblock #0
jmp @@timer_ok
endif ;mrx_4
@@chk_direct_key:
mov a scanid
caje #1000b @@timer_ok
caje #0001b @@key1_
caje #0010b @@key2_
jmp @@key3_
@@trl2h_run:
ifdef mrx_2
page6
mov a skblock
caje #0001b @@tr17_32r
ifdef mrx_3
caje #0010b @@tr33_48r
ifdef mrx_4
caje #0011b @@tr49_64r
endif
endif ;mrx_3
endif ;mrx_2
page0
mov a scanid
caje #0001b @@tr1_4r
caje #0010b @@tr5_8r
caje #0100b @@tr9_12r
caje #1000b @@tr13_16r
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@Mtr2r
caje #0111b @@Mtr3r
caje #1111b @@Mtr6r
endif
jmp @@scankey1
@@tr1_4r:
mov a m15
page3
caje #0001b @@tr1r
caje #0010b @@tr2r
caje #0100b @@tr3r
jmp @@tr4r
@@tr5_8r:
mov a m15
page3
caje #0001b @@tr5r
caje #0010b @@tr6r
caje #0100b @@tr7r
jmp @@tr8r
@@tr9_12r:
mov a m15
page3
caje #0001b @@tr9r
caje #0010b @@tr10r
caje #0100b @@tr11r
jmp @@tr12r
@@tr13_16r:
mov a m15
page3
caje #0001b @@tr13r
caje #0010b @@tr14r
caje #0100b @@tr15r
jmp @@tr16r
ifdef mrx_2
@@tr17_32r:
page0
mov a scanid
caje #0001b @@tr17_20r
caje #0010b @@tr21_24r
caje #0100b @@tr25_28r
caje #1000b @@tr29_32r
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@Mtr2r
caje #0111b @@Mtr3r
caje #1111b @@Mtr6r
endif
jmp @@scankey1
endif
ifdef mrx_3
@@tr33_48r:
page0
mov a scanid
caje #0001b @@tr33_36r
caje #0010b @@tr37_40r
caje #0100b @@tr41_44r
caje #1000b @@tr45_48r
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@Mtr2r
caje #0111b @@Mtr3r
caje #1111b @@Mtr6r
endif
jmp @@scankey1
endif
ifdef mrx_4
@@tr49_64r:
page0
mov a scanid
caje #0001b @@tr49_52r
caje #0010b @@tr53_56r
caje #0100b @@tr57_60r
caje #1000b @@tr61_64r
ifdef @_key_type_@ ;add at 05-26'04 for mix key
caje #0011b @@Mtr2r
caje #0111b @@Mtr3r
caje #1111b @@Mtr6r
endif
jmp @@scankey1
endif
ifdef mrx_2
@@tr17_20r:
mov a m15
page3
caje #0001b @@tr17r
caje #0010b @@tr18r
caje #0100b @@tr19r
jmp @@tr20r
@@tr21_24r:
mov a m15
page3
caje #0001b @@tr21r
caje #0010b @@tr22r
caje #0100b @@tr23r
jmp @@tr24r
@@tr25_28r:
mov a m15
page3
caje #0001b @@tr25r
caje #0010b @@tr26r
caje #0100b @@tr27r
jmp @@tr28r
@@tr29_32r:
mov a m15
page3
caje #0001b @@tr29r
caje #0010b @@tr30r
caje #0100b @@tr31r
jmp @@tr32r
endif
ifdef mrx_3
@@tr33_36r:
mov a m15
page3
caje #0001b @@tr33r
caje #0010b @@tr34r
caje #0100b @@tr35r
jmp @@tr36r
@@tr37_40r:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -