📄 main.lis
字号:
0185 .dbfunc e ChangeKeyStatus _ChangeKeyStatus fV
0185 ; ChrIndex -> X+2
0185 ; ch_str -> X+0
0185 ; C_Code -> X-4
0185 _ChangeKeyStatus::
0185 .dbline -1
0185 10 push X
0186 4F mov X,SP
0187 380F add SP,15
0189 .dbline 313
0189 ; }
0189 ; }
0189 ; }
0189 ; }
0189 ; }
0189 .dbline 314
0189 ; }
0189 62D000 mov REG[0xd0],>__r0
018C 55009C mov [__r1],<L45
018F 55009C mov [__r0],>L45
0192 5A00 mov [__r3],X
0194 62D503 mov REG[0xd5],3
0197 10 push X
0198 550000 mov [__rX],0
019B 5100 mov A,[__r0]
019D 5800 mov X,[__r1]
019F X12:
019F 08 push A
01A0 28 romx
01A1 62D000 mov REG[0xd0],>__r0
01A4 3F00 mvi [__r3],A
01A6 18 pop A
01A7 75 inc X
01A8 0900 adc A,0
01AA 7600 inc [__rX]
01AC 3C0002 cmp [__rX],2
01AF BFEF jnz X12
01B1 20 pop X
01B2 .dbline 316
01B2 ; }
01B2 ; }
01B2 52FC mov A,[X-4]
01B4 5404 mov [X+4],A
01B6 560300 mov [X+3],0
01B9 3D0300 cmp [X+3],0
01BC B006 jnz X13
01BE 3D04A1 cmp [X+4],-95
01C1 A02B jz L49
01C3 X13:
01C3 3D0300 cmp [X+3],0
01C6 B006 jnz X14
01C8 3D04A2 cmp [X+4],-94
01CB A073 jz L53
01CD X14:
01CD 3D0300 cmp [X+3],0
01D0 B006 jnz X15
01D2 3D04A3 cmp [X+4],-93
01D5 A0B9 jz L57
01D7 X15:
01D7 3D0300 cmp [X+3],0
01DA B006 jnz X16
01DC 3D04A4 cmp [X+4],-92
01DF A103 jz L61
01E1 X16:
01E1 3D0300 cmp [X+3],0
01E4 B006 jnz X17
01E6 3D04A5 cmp [X+4],-91
01E9 A147 jz L65
01EB X17:
01EB 81A5 xjmp L46
01ED X11:
01ED .dbline 317
01ED ; }
01ED L49:
01ED .dbline 319
01ED ; }
01ED ; }
01ED 62D000 mov REG[0xd0],>_KeyProStatus
01F0 5100 mov A,[_KeyProStatus]
01F2 62D000 mov REG[0xd0],>__r0
01F5 67 asr A
01F6 67 asr A
01F7 67 asr A
01F8 67 asr A
01F9 67 asr A
01FA 67 asr A
01FB 2103 and A,3
01FD 5300 mov [__r0],A
01FF 260001 and [__r0],1
0202 3C0000 cmp [__r0],0
0205 A009 jz L51
0207 560600 mov [X+6],0
020A 560500 mov [X+5],0
020D 8007 xjmp L52
020F L51:
020F 560601 mov [X+6],1
0212 560500 mov [X+5],0
0215 L52:
0215 62D000 mov REG[0xd0],>__r0
0218 5206 mov A,[X+6]
021A 5300 mov [__r0],A
021C 260001 and [__r0],1
021F 5100 mov A,[__r0]
0221 64 asl A
0222 64 asl A
0223 64 asl A
0224 64 asl A
0225 64 asl A
0226 64 asl A
0227 5300 mov [__r0],A
0229 260040 and [__r0],64
022C 62D000 mov REG[0xd0],>_KeyProStatus
022F 5100 mov A,[_KeyProStatus]
0231 21BF and A,-65
0233 62D000 mov REG[0xd0],>__r0
0236 2A00 or A,[__r0]
0238 62D000 mov REG[0xd0],>_KeyProStatus
023B 5300 mov [_KeyProStatus],A
023D .dbline 320
023D ; }
023D 8153 xjmp L47
023F L53:
023F .dbline 322
023F ; }
023F ; }
023F 62D000 mov REG[0xd0],>_KeyProStatus
0242 5100 mov A,[_KeyProStatus]
0244 62D000 mov REG[0xd0],>__r0
0247 67 asr A
0248 67 asr A
0249 67 asr A
024A 67 asr A
024B 67 asr A
024C 2107 and A,7
024E 5300 mov [__r0],A
0250 260001 and [__r0],1
0253 3C0000 cmp [__r0],0
0256 A009 jz L55
0258 560800 mov [X+8],0
025B 560700 mov [X+7],0
025E 8007 xjmp L56
0260 L55:
0260 560801 mov [X+8],1
0263 560700 mov [X+7],0
0266 L56:
0266 62D000 mov REG[0xd0],>__r0
0269 5208 mov A,[X+8]
026B 5300 mov [__r0],A
026D 260001 and [__r0],1
0270 5100 mov A,[__r0]
0272 64 asl A
0273 64 asl A
0274 64 asl A
0275 64 asl A
0276 64 asl A
0277 5300 mov [__r0],A
0279 260020 and [__r0],32
027C 62D000 mov REG[0xd0],>_KeyProStatus
027F 5100 mov A,[_KeyProStatus]
0281 21DF and A,-33
0283 62D000 mov REG[0xd0],>__r0
0286 2A00 or A,[__r0]
0288 62D000 mov REG[0xd0],>_KeyProStatus
028B 5300 mov [_KeyProStatus],A
028D .dbline 323
028D ; }
028D 8103 xjmp L47
028F L57:
028F .dbline 325
028F ; }
028F ; }
028F 62D000 mov REG[0xd0],>_KeyProStatus
0292 5100 mov A,[_KeyProStatus]
0294 62D000 mov REG[0xd0],>__r0
0297 67 asr A
0298 67 asr A
0299 67 asr A
029A 67 asr A
029B 67 asr A
029C 67 asr A
029D 67 asr A
029E 2101 and A,1
02A0 5300 mov [__r0],A
02A2 260001 and [__r0],1
02A5 3C0000 cmp [__r0],0
02A8 A009 jz L59
02AA 560A00 mov [X+10],0
02AD 560900 mov [X+9],0
02B0 8007 xjmp L60
02B2 L59:
02B2 560A01 mov [X+10],1
02B5 560900 mov [X+9],0
02B8 L60:
02B8 62D000 mov REG[0xd0],>__r0
02BB 520A mov A,[X+10]
02BD 5300 mov [__r0],A
02BF 260001 and [__r0],1
02C2 5100 mov A,[__r0]
02C4 64 asl A
02C5 64 asl A
02C6 64 asl A
02C7 64 asl A
02C8 64 asl A
02C9 64 asl A
02CA 64 asl A
02CB 5300 mov [__r0],A
02CD 260080 and [__r0],-128
02D0 62D000 mov REG[0xd0],>_KeyProStatus
02D3 5100 mov A,[_KeyProStatus]
02D5 217F and A,127
02D7 62D000 mov REG[0xd0],>__r0
02DA 2A00 or A,[__r0]
02DC 62D000 mov REG[0xd0],>_KeyProStatus
02DF 5300 mov [_KeyProStatus],A
02E1 .dbline 327
02E1 ; }
02E1 ; }
02E1 80AF xjmp L47
02E3 L61:
02E3 .dbline 329
02E3 ; }
02E3 ; }
02E3 62D000 mov REG[0xd0],>_KeyProStatus
02E6 5100 mov A,[_KeyProStatus]
02E8 62D000 mov REG[0xd0],>__r0
02EB 67 asr A
02EC 67 asr A
02ED 67 asr A
02EE 67 asr A
02EF 210F and A,15
02F1 5300 mov [__r0],A
02F3 260001 and [__r0],1
02F6 3C0000 cmp [__r0],0
02F9 A009 jz L63
02FB 560C00 mov [X+12],0
02FE 560B00 mov [X+11],0
0301 8007 xjmp L64
0303 L63:
0303 560C01 mov [X+12],1
0306 560B00 mov [X+11],0
0309 L64:
0309 62D000 mov REG[0xd0],>__r0
030C 520C mov A,[X+12]
030E 5300 mov [__r0],A
0310 260001 and [__r0],1
0313 5100 mov A,[__r0]
0315 64 asl A
0316 64 asl A
0317 64 asl A
0318 64 asl A
0319 5300 mov [__r0],A
031B 260010 and [__r0],16
031E 62D000 mov REG[0xd0],>_KeyProStatus
0321 5100 mov A,[_KeyProStatus]
0323 21EF and A,-17
0325 62D000 mov REG[0xd0],>__r0
0328 2A00 or A,[__r0]
032A 62D000 mov REG[0xd0],>_KeyProStatus
032D 5300 mov [_KeyProStatus],A
032F .dbline 330
032F ; }
032F 8061 xjmp L47
0331 L65:
0331 .dbline 332
0331 ; }
0331 ; }
0331 62D000 mov REG[0xd0],>_KeyProStatus
0334 5100 mov A,[_KeyProStatus]
0336 62D000 mov REG[0xd0],>__r0
0339 67 asr A
033A 67 asr A
033B 67 asr A
033C 211F and A,31
033E 5300 mov [__r0],A
0340 260001 and [__r0],1
0343 3C0000 cmp [__r0],0
0346 A009 jz L67
0348 560E00 mov [X+14],0
034B 560D00 mov [X+13],0
034E 8007 xjmp L68
0350 L67:
0350 560E01 mov [X+14],1
0353 560D00 mov [X+13],0
0356 L68:
0356 62D000 mov REG[0xd0],>__r0
0359 520E mov A,[X+14]
035B 5300 mov [__r0],A
035D 260001 and [__r0],1
0360 5100 mov A,[__r0]
0362 64 asl A
0363 64 asl A
0364 64 asl A
0365 5300 mov [__r0],A
0367 260008 and [__r0],8
036A 62D000 mov REG[0xd0],>_KeyProStatus
036D 5100 mov A,[_KeyProStatus]
036F 21F7 and A,-9
0371 62D000 mov REG[0xd0],>__r0
0374 2A00 or A,[__r0]
0376 62D000 mov REG[0xd0],>_KeyProStatus
0379 5300 mov [_KeyProStatus],A
037B .dbline 333
037B ; }
037B 5100 mov A,[_KeyProStatus]
037D 62D000 mov REG[0xd0],>__r0
0380 67 asr A
0381 67 asr A
0382 67 asr A
0383 211F and A,31
0385 5300 mov [__r0],A
0387 260001 and [__r0],1
038A 10 push X
038B 5100 mov A,[__r0]
038D 7C0000 xcall _LED_ShiftCAP_Switch
0390 20 pop X
0391 .dbline 334
0391 ; }
0391 L46:
0391 L47:
0391 .dbline -2
0391 .dbline 336
0391 ; }
0391 ; }
0391 L44:
0391 38F1 add SP,-15
0393 20 pop X
0394 .dbline 0 ; func end
0394 7F ret
0395 .dbsym l ChrIndex 2 c
0395 .dbsym l ch_str 0 A[2:2]c
0395 .dbsym l C_Code -4 c
0395 .dbend
0395 .dbfunc e SearchKeyTab _SearchKeyTab fc
0395 ; TabIndex -> X+1
0395 ; ChrIndex -> X+0
0395 ; AppendKeycode -> X-6
0395 ; RealKeyNum -> X-4
0395 _SearchKeyTab::
0395 .dbline -1
0395 10 push X
0396 4F mov X,SP
0397 3804 add SP,4
0399 .dbline 345
0399 ; }
0399 ; }
0399 ; }
0399 ; }
0399 ; }
0399 ; }
0399 ; }
0399 ; }
0399 ; }
0399 .dbline 346
0399 ; }
0399 560100 mov [X+1],0
039C .dbline 349
039C ; }
039C ; }
039C ; }
039C 62D000 mov REG[0xd0],>__r0
039F 52FB mov A,[X-5]
03A1 5300 mov [__r1],A
03A3 52FA mov A,[X-6]
03A5 60D5 mov REG[0xd5],A
03A7 5000 mov A,0
03A9 3F00 mvi [__r1],A
03AB .dbline 351
03AB ; }
03AB ; }
03AB 62D000 mov REG[0xd0],>_KeyProStatus
03AE 5100 mov A,[_KeyProStatus]
03B0 62D000 mov REG[0xd0],>__r0
03B3 67 asr A
03B4 67 asr A
03B5 67 asr A
03B6 67 asr A
03B7 67 asr A
03B8 67 asr A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -