📄 8ledjianbian(dingshi).lst
字号:
407 00135 disp2_next7: ; 第五灯次暗
408 00135 1808 mov a,@8
409 00136 0319 xor a,count
410 00137 0E83 jbs psw,z
411 00138 153B jmp disp2_next8
412 00139 0906 bc port6,4
413 0013A 0012 ret
414 0013B disp2_next8: ; 第四灯次暗
415 0013B 1809 mov a,@9
416 0013C 0319 xor a,count
417 0013D 0E83 jbs psw,z
418 0013E 1541 jmp disp2_next9
419 0013F 08C5 bc port5,3
420 00140 0012 ret
421 00141 disp2_next9: ; 第三灯次暗
422 00141 180A mov a,@10
423 00142 0319 xor a,count
424 00143 0E83 jbs psw,z
425 00144 1547 jmp disp2_next10
426 00145 0885 bc port5,2
427 00146 0012 ret
428 00147 disp2_next10: ; 第二灯次暗
429 00147 180B mov a,@11
430 00148 0319 xor a,count
431 00149 0E83 jbs psw,z
432 0014A 154D jmp disp2_next11
433 0014B 0845 bc port5,1
434 0014C 0012 ret
435 0014D disp2_next11: ; 第一灯次暗
436 0014D 180C mov a,@12
437 0014E 0319 xor a,count
438 0014F 0E83 jbs psw,z
439 00150 1553 jmp disp2_next12
440 00151 0805 bc port5,0
441 00152 0012 ret
442 00153 disp2_next12: ;第二灯次暗
443 00153 180D mov a,@13
444 00154 0319 xor a,count
445 00155 0E83 jbs psw,z
446 00156 0012 ret
447 00157 0845 bc port5,1
448 00158 0012 ret
449 ;------------------------------------------------------------------------
450 ;==========================第四部分=====================================
451 00159 gu_next3:
452 00159 0416 mov a,temp0_0
453 0015A 0111 sub a,count_gu
454 0015B 0E03 jbs psw,c
455 0015C 0012 ret
456 0015D 0080 clra ; 第四灯最亮
457 0015E 0319 xor a,count
458 0015F 0E83 jbs psw,z
459 00160 1563 jmp disp3_next
460 00161 08C5 bc port5,3
461 00162 0012 ret
462 00163 disp3_next: ; 第五灯最亮
463 00163 1801 mov a,@1
464 00164 0319 xor a,count
465 00165 0E83 jbs psw,z
466 00166 1569 jmp disp3_next1
467 00167 0906 bc port6,4
468 00168 0012 ret
469 00169 disp3_next1: ; 第六灯最亮
470 00169 1802 mov a,@2
471 0016A 0319 xor a,count
472 0016B 0E83 jbs psw,z
473 0016C 156F jmp disp3_next2
474 0016D 0946 bc port6,5
475 0016E 0012 ret
476 0016F disp3_next2: ; 第七灯最亮
477 0016F 1803 mov a,@3
478 00170 0319 xor a,count
479 00171 0E83 jbs psw,z
480 00172 1575 jmp disp3_next3
481 00173 0986 bc port6,6
482 00174 0012 ret
483 00175 disp3_next3: ; 第八灯最亮
484 00175 1804 mov a,@4
485 00176 0319 xor a,count
486 00177 0E83 jbs psw,z
487 00178 157B jmp disp3_next4
488 00179 09C6 bc port6,7
489 0017A 0012 ret
490 0017B disp3_next4: ; 第七灯最亮
491 0017B 1805 mov a,@5
492 0017C 0319 xor a,count
493 0017D 0E83 jbs psw,z
494 0017E 1581 jmp disp3_next5
495 0017F 0986 bc port6,6
496 00180 0012 ret
497 00181 disp3_next5: ; 第六灯最亮
498 00181 1806 mov a,@6
499 00182 0319 xor a,count
500 00183 0E83 jbs psw,z
501 00184 1587 jmp disp3_next6
502 00185 0946 bc port6,5
503 00186 0012 ret
504 00187 disp3_next6: ; 第五灯最亮
505 00187 1807 mov a,@7
506 00188 0319 xor a,count
507 00189 0E83 jbs psw,z
508 0018A 158D jmp disp3_next7
509 0018B 0906 bc port6,4
510 0018C 0012 ret
511 0018D disp3_next7: ; 第四灯最亮
512 0018D 1808 mov a,@8
513 0018E 0319 xor a,count
514 0018F 0E83 jbs psw,z
515 00190 1593 jmp disp3_next8
516 00191 08C5 bc port5,3
517 00192 0012 ret
518 00193 disp3_next8: ; 第三灯最亮
519 00193 1809 mov a,@9
520 00194 0319 xor a,count
521 00195 0E83 jbs psw,z
522 00196 1599 jmp disp3_next9
523 00197 0885 bc port5,2
524 00198 0012 ret
525 00199 disp3_next9: ; 第二灯最亮
526 00199 180A mov a,@10
527 0019A 0319 xor a,count
528 0019B 0E83 jbs psw,z
529 0019C 159F jmp disp3_next10
530 0019D 0845 bc port5,1
531 0019E 0012 ret
532 0019F disp3_next10: ; 第一灯最亮
533 0019F 180B mov a,@11
534 001A0 0319 xor a,count
535 001A1 0E83 jbs psw,z
536 001A2 15A5 jmp disp3_next11
537 001A3 0805 bc port5,0
538 001A4 0012 ret
539 001A5 disp3_next11: ; 第二灯最亮
540 001A5 180C mov a,@12
541 001A6 0319 xor a,count
542 001A7 0E83 jbs psw,z
543 001A8 15AB jmp disp3_next12
544 001A9 0845 bc port5,1
545 001AA 0012 ret
546 001AB disp3_next12: ; 第三灯最亮
547 001AB 180D mov a,@13
548 001AC 0319 xor a,count
549 001AD 0E83 jbs psw,z
550 001AE 0012 ret
551 001AF 0885 bc port5,2
552 001B0 0012 ret
553 ;----------------------------------------------------------------------
554 ;可变计数器，决定占空比
555 ;-----------------------------------------------------------------------
556 001B1 bian_loop:
557
558 001B1 0552 inc count_bian
559 001B2 1864 mov a,@100
560 001B3 0112 sub a,count_bian
561 001B4 0E83 jbs psw,z ; 是否已经到25
562 001B5 15BD jmp bian_next ; 否，跳到count_next
563 001B6 00D2 clr count_bian ; 是，count_bian清0
564 001B7 0559 inc count
565 001B8 180E mov a,@14 ; 分级度是否等于14
566 001B9 0119 sub a,count
567 001BA 0E03 jbs psw,c
568 001BB 15BD jmp bian_next ; 否，转到bian_next
569 001BC 00D9 clr count ; 是，清分级度
570 001BD bian_next:
571 001BD 184B mov a,@75
572 001BE 0392 add a,count_bian
573 001BF 0053 mov temp3_75,a
574 001C0 1832 mov a,@50
575 001C1 0392 add a,count_bian
576 001C2 0054 mov temp2_50,a
577 001C3 1819 mov a,@25
578 001C4 0392 add a,count_bian
579 001C5 0055 mov temp1_25,a
580 001C6 1800 mov a,@0
581 001C7 0392 add a,count_bian
582 001C8 0056 mov temp0_0,a
583 001C9 0012 ret
584 ;----------------------------------------------------------------------
585 ;按键扫描程序
586 ;----------------------------------------------------------------------
587 001CA key_scan:
588 001CA 0406 mov a,port6 ; 读取P6口
589 001CB 055A inc year
590 001CC 1A02 and a,@0x02
591 001CD 1B02 xor a,@0x02
592 001CE 0E83 jbs psw,z ; 键值是否一样
593 001CF 15DA jmp key_next ; 否，清0
594 001D0 0C5B jbc flag,1 ; 否，是否已经响应过
595 001D1 0012 ret
596 001D2 180A mov a,@10
597 001D3 015E sub time0,a
598 001D4 0E83 jbs psw,z
599 001D5 15D8 jmp time_out
600 001D6 18FF mov a,@255
601 001D7 005E mov time0,a
602 001D8 time_out:
603 001D8 0A5B bs flag,1
604 001D9 0012 ret
605 001DA key_next:
606 001DA 00DB clr flag
607 001DB 0012 ret
608 end
0 Error(s), 0 Warning(s), 0 User Message(s)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -