📄 gainewxiankong.lst
字号:
269 0000A9 1F12(1) mov voluplim,a
270 0000AA C11E(2) CALL VOLMIUS
271 0000AB downkey_2:
272 0000AB
273 0000AB 2D01(1) MOV A,#1
274 0000AC 1310(1) ADD DOWNTIME,A
275 0000AD 78D0(1+S) b0bts1 fp00
276 0000AE 8095(2) jmp volmiuskey
277 0000AF 2B10(1) CLR DOWNTIME
278 0000B0 C0EF(2) call buttonup
279 0000B1 8039(2) jmp sb_1
280 0000B2 ;-------------------------------------
281 0000B2 voladdkey:
282 0000B2 0000(1) nop
283 0000B3 C0DF(2) call leadzero
284 0000B4 2D02(1) mov a,#02h
285 0000B5 1F15(1) mov sdata,a
286 0000B6 C105(2) call SENDDATRA
287 0000B7 2DF9(1) mov a,#0f9h
288 0000B8 1F15(1) mov sdata,a
289 0000B9 C105(2) call SENDDATRA
290 0000BA C12B(2) call VOLDELAY12MS
291 0000BB 5811(1+S) BTS1 upTIME.0
292 0000BC 80BE(2) jmp upkey_1
293 0000BD 80C8(2) jmp upkey_2
294 0000BE upkey_1:
295 0000BE 1E12(1) mov a,voluplim
296 0000BF 0610(1+S) cmprs a,#16
297 0000C0 80C2(2) jmp upkey_1_1
298 0000C1 80C8(2) jmp upkey_2
299 0000C2 upkey_1_1:
300 0000C2 2D01(1) mov a,#1
301 0000C3 1312(1) add voluplim,a
302 0000C4 1E13(1) mov a,voldownlim
303 0000C5 2401(1) sub a,#1
304 0000C6 1F13(1) mov voldownlim,a
305 0000C7 C117(2) CALL VOLadd
306 0000C8 upkey_2:
307 0000C8 2D01(1) MOV A,#1
308 0000C9 1311(1) ADD UPTIME,A
309 0000CA 60D1(1) b0bclr fp10
310 0000CB C131(2) call delay50
311 0000CC C131(2) call delay50
312 0000CD 7DD2(1+S) b0bts1 fp25
313 0000CE 80B2(2) JMP voladdkey
314 0000CF 2B11(1) CLR UPTIME
315 0000D0 C0EF(2) call buttonup
316 0000D1 8039(2) jmp sb_1
317 0000D2 ;---------------------------------------------
318 0000D2 dly:
319 0000D2 0000(1) nop
320 0000D3 0000(1) nop
321 0000D4 0000(1) nop
322 0000D5 0000(1) nop
323 0000D6 0000(1) nop
324 0000D7 0000(1) nop
325 0000D8 0000(1) nop
326 0000D9 0000(1) nop
327 0000DA 0000(1) nop
328 0000DB 0000(1) nop
329 0000DC 0000(1) nop
330 0000DD 0000(1) nop
331 0000DE 0E00(2) ret
332 0000DF ;-------------------------------------------------
333 0000DF leadzero:
334 0000DF 2DFF(1) mov a,#0ffh
335 0000E0 1F15(1) mov sdata,a
336 0000E1 C105(2) call SENDDATRA
337 0000E2 2D55(1) mov a,#55h
338 0000E3 1F15(1) mov sdata,a
339 0000E4 C105(2) call SENDDATRA
340 0000E5 2D03(1) mov a,#03h
341 0000E6 1F15(1) mov sdata,a
342 0000E7 C105(2) call SENDDATRA
343 0000E8 2D02(1) mov a,#02h
344 0000E9 1F15(1) mov sdata,a
345 0000EA C105(2) call SENDDATRA
346 0000EB 2D00(1) mov a,#00h
347 0000EC 1F15(1) mov sdata,a
348 0000ED C105(2) call SENDDATRA
349 0000EE 0E00(2) ret
350 0000EF ;-----------------------------------------------------------
351 0000EF buttonup:
352 0000EF 2DFF(1) mov a,#0ffh
353 0000F0 1F15(1) mov sdata,a
354 0000F1 C105(2) call SENDDATRA
355 0000F2 2D55(1) mov a,#55h
356 0000F3 1F15(1) mov sdata,a
357 0000F4 C105(2) call SENDDATRA
358 0000F5 2D03(1) mov a,#03h
359 0000F6 1F15(1) mov sdata,a
360 0000F7 C105(2) call SENDDATRA
361 0000F8 2D02(1) mov a,#02h
362 0000F9 1F15(1) mov sdata,a
363 0000FA C105(2) call SENDDATRA
364 0000FB 2D00(1) mov a,#00h
365 0000FC 1F15(1) mov sdata,a
366 0000FD C105(2) call SENDDATRA
367 0000FE 2D00(1) mov a,#00h
368 0000FF 1F15(1) mov sdata,a
369 000100 C105(2) call SENDDATRA
370 000101 2DFB(1) mov a,#0fbh
371 000102 1F15(1) mov sdata,a
372 000103 C105(2) call SENDDATRA
373 000104 0E00(2) ret
374 000105
375 000105 ;--------------------------------------------
376 000105 SENDDATRA:
377 000105 69D2(1) b0bset tx
378 000106 C13B(2) call delay64
379 000107 61D2(1) b0bclr tx
380 000108 C131(2) call delay50
381 000109 2D08(1) mov a,#8
382 00010A 1F14(1) mov movetime,a
383 00010B 0000(1) nop
384 00010C 0000(1) nop
385 00010D SENDDATRA_1:
386 00010D 0915(1) rrcm sdata
387 00010E 5286(1+S) bts0 flagc
388 00010F 8112(2) jmp SENDDATRA_2
389 000110 61D2(1) b0bclr tx
390 000111 8113(2) jmp SENDDATRA_3
391 000112 SENDDATRA_2:
392 000112 69D2(1) b0bset tx
393 000113 SENDDATRA_3:
394 000113 C131(2) call delay50
395 000114 2614(1+S) decms movetime
396 000115 810D(2) jmp SENDDATRA_1
397 000116 0E00(2) ret
398 000117 ;----------------------------------------------------
399 000117 voladd:
400 000117 6CD2(1) b0bset updown
401 000118 C131(2) call delay50
402 000119 6BD2(1) b0bset clock
403 00011A C131(2) call delay50
404 00011B 63D2(1) b0bclr clock
405 00011C C131(2) call delay50
406 00011D 0E00(2) ret
407 00011E volmius:
408 00011E 64D2(1) b0bclr updown
409 00011F C131(2) call delay50
410 000120 6BD2(1) b0bset clock
411 000121 C131(2) call delay50
412 000122 63D2(1) b0bclr clock
413 000123 C131(2) call delay50
414 000124 0E00(2) ret
415 000125 ;--------------------------------
416 000125 DELAY12MS:
417 000125 2D14(1) mov a,#20
418 000126 1F0C(1) mov devar2,a
419 000127 DELAY12MS_1:
420 000127 C14F(2) CALL delay100
421 000128 260C(1+S) decms devar2
422 000129 8127(2) jmp DELAY12MS_1
423 00012A 0E00(2) ret
424 00012B ;-----------------------------------
425 00012B VOLDELAY12MS:
426 00012B 2D96(1) mov a,#150
427 00012C 1F0C(1) mov devar2,a
428 00012D VOLDELAY12MS_1:
429 00012D C14F(2) CALL delay100
430 00012E 260C(1+S) decms devar2
431 00012F 812D(2) jmp VOLDELAY12MS_1
432 000130 0E00(2) ret
433 000131 ;-------------------------------------
434 000131 delay50:
435 000131 2D5A(1) MOV A,#5AH
436 000132 2FCC(1) B0MOV WDTR,A ; CLEAR WDT
437 000133 2D08(1) mov a,#8 ; 50us
438 000134 1F0B(1) mov devar1,a
439 000135 0000(1) nop
440 000136 0000(1) nop
441 000137 0000(1) nop
442 000138 delay53_1:
443 000138 260B(1+S) decms devar1
444 000139 8138(2) jmp delay53_1
445 00013A 0E00(2) ret
446 00013B ;----------------------------
447 00013B delay64:
448 00013B 2D5A(1) MOV A,#5AH
449 00013C 2FCC(1) B0MOV WDTR,A ; CLEAR WDT
450 00013D 2D0B(1) mov a,#11 ; 64 us
451 00013E 1F0B(1) mov devar1,a
452 00013F 0000(1) nop
453 000140 delay64_1:
454 000140 260B(1+S) decms devar1
455 000141 8140(2) jmp delay64_1
456 000142 0E00(2) ret
457 000143 ;---------------------------------------------------
458 000143 delay1ms:
459 000143 2D0A(1) mov a,#10
460 000144 1F0C(1) mov devar2,a
461 000145 delay1ms_1:
462 000145 C131(2) CALL delay50
463 000146 260C(1+S) decms devar2
464 000147 8145(2) jmp delay1ms_1
465 000148 0E00(2) ret
466 000149 delay10ms:
467 000149 2D64(1) mov a,#100
468 00014A 1F0C(1) mov devar2,a
469 00014B delay10ms_1:
470 00014B C131(2) CALL delay50
471 00014C 260C(1+S) decms devar2
472 00014D 814B(2) jmp delay10ms_1
473 00014E 0E00(2) ret
474 00014F delay100:
475 00014F 2D5A(1) MOV A,#5AH
476 000150 2FCC(1) B0MOV WDTR,A ; CLEAR WDT
477 000151 2DFA(1) mov a,#250 ; 64 us
478 000152 1F0B(1) mov devar1,a
479 000153 delay100_1:
480 000153 0000(1) NOP
481 000154 0000(1) NOP
482 000155 260B(1+S) decms devar1
483 000156 8153(2) jmp delay100_1
484 000157 0E00(2) ret
485 000158 ;==========================================================================
486 000158 ; Isr (Interrupt Service Routine)
487 000158 ; Arguments :
488 000158 ; Returns :
489 000158 ; Reg Change:
490 000158 ;-------------------------------------------------------------------------------
491 000158 Isr:
492 000158 0F00(2) RETI
493 000159 ;-------------------------------------------------------------------------------
494 000159 ; SysInit
495 000159 ; System initial to define Register, RAM, I/O, Timer......
496 000159 ;-------------------------------------------------------------------------------
497 000159 ; 0 input, 1 output
498 000159 SysInit:
499 000159 62C2(1) b0bclr fp22m ;rx input
500 00015A 69C2(1) b0bset fp21m ;tx output
501 00015B 68C2(1) b0bset fp20m ;mute
502 00015C 64C5(1) b0bclr fp54m ;lock
503 00015D 6BC2(1) b0bset fp23m ;lclock 4811 clock
504 00015E 6CC2(1) b0bset fp24m ;updown 4811
505 00015F 65C2(1) b0bCLR fp25m ;keyout
506 000160 60B8(1) b0bclr fp00m
507 000161 68C1(1) b0bSET fp10m ; 先给"C" 置OUTPUT
508 000162 2DFF(1) MOV A,#0FFH
509 000163 2FE0(1) B0MOV P0UR,A
510 000164 2FE2(1) B0MOV P2UR,A
511 000165 2FE1(1) b0mov p1ur,A
512 000166 2FE5(1) b0mov p5ur,A
513 000167 2BC9(1) CLR INTEN
514 000168 2BC8(1) CLR INTRQ
515 000169 2BDA(1) clr tc0m
516 00016A 69D2(1) b0bset fp21
517 00016B 0E00(2) ret
518 00016C ;-------------------------------------------------------------------------------
519 00016C ; ClrRAM
520 00016C ; Use index @YZ to clear RAM (00h~2Fh)
521 00016C ;-------------------------------------------------------------------------------
522 00016C
523 00016C ClrRAM:
524 00016C
525 00016C 2B84(1) clr Y
526 00016D 2D2F(1) mov A, #0x2f
527 00016E 2F83(1) b0mov Z, A ;Set @YZ address from 2fh
528 00016F ClrRAM10:
529 00016F 2BE7(1) clr @YZ ;Clear @YZ content
530 000170 2683(1+S) decms Z ;z = z - 1 , skip next if z=0
531 000171 816F(2) jmp ClrRAM10
532 000172 2BE7(1) clr @YZ ;Clear address $00
533 000173 0E00(2) ret
534 000174 ENDP
535 000174
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -