📄 rem.lst
字号:
562 0149 2800 R JMP YWAKE
563 014A BUTONG:
564 014A 14BA INC RAMR ; Jishu+1
565 014B 01BD CPL RAMLS ; /RAMLS.5=PB.5(This time)
566 014C 2800 R JMP OVERY
567 014D DAYD3: ; >=2 ok! <=6?
568 014D 073A MOV A,RAMR
569 014E 0A0A SUB A,010D
570 014F 3C0A SZ STA_C ; C=0 A<8
571 0150 2800 R JMP YWAKE ; C=1 A>=8
572 0151 ; === Fast judge ok,down is 37MS(2T=36MS) 57+/-4= 53---61
573 0151 3092 SET PA1 ; Tv Call Vcc Always
574 0152 0001 CLR WDT
575 0153 1F3A CLR RAMR ; Jishu
576 0154 0714 MOV A,PB
577 0155 00BD MOV RAMLS,A ; Ls Save
578 0156 0FF7 MOV A,247D
579 0157 00BB MOV RAMS,A ; Ys Ram 37MS/8.79US=4209
580 0158 YS37MS: ; 37ms Have 53-61 changes
581 0158 0714 MOV A,PB
582 0159 043D XOR A,RAMLS ; Yihuo last time -> A
583 015A 3C05 SZ ACC.0 ; = Is 0 ; <> Is 1
584 015B 2800 R JMP BUTONGA
585 015C 2800 R NOP2 ; 17X(?-1)+11+10 = 4209 --> Shiji=36.944MS
586 015D 2800 R NOP2
587 015E 2800 R NOP2
588 015F 2800 R NOP2
589 0160 0000 NOP
590 0161 0001 CLR WDT ; WDT=2048X8.79US=18MS
591 0162 OVERYA:
592 0162 17BB SDZ RAMS ; = XIANGTONG [m]
593 0163 2800 R JMP YS37MS
594 0164 CALTA: ; Lilun=3-6 changes Fast judge
595 0164 073A MOV A,RAMR
596 0165 0A28 SUB A,040D
597 0166 3C0A SZ STA_C ; C-FLAG=0 A<51
598 0167 2800 R JMP DAYD53 ; C=1 A>=51
599 0168 2800 R JMP YWAKE
File: REM.ASM Holtek Cross-Assembler Version 2.86 Page 11
600 0169 BUTONGA:
601 0169 2800 R NOP2
602 016A 2800 R NOP2
603 016B 0001 CLR WDT
604 016C 14BA INC RAMR ; Jishu+1
605 016D 01BD CPL RAMLS ; /RAMLS.5=PB.5(This time)
606 016E 2800 R JMP OVERYA
607 016F DAYD53: ; >=51 ok! <=63?
608 016F 073A MOV A,RAMR
609 0170 0A46 SUB A,070D
610 0171 3C0A SZ STA_C ; C=0 A<63
611 0172 2800 R JMP YWAKE ; C=1 A>=63
612 0173 ; *** JieMa OK! Down is Music ***
613 0173 STASONG:
614 0173 0001 CLR WDT
615 0174 0739 MOV A,MUSICTIM ; Which music
616 0175 0A02 SUB A,002H ; MUSIC NUM=2
617 0176 3C0A SZ STA_C ; C-FLAG=0 A<2H
618 0177 1F39 CLR MUSICTIM ; C=1 A>=001H,EXIT TO 0 MUSIC
619 0178 0FF0 MOV A,0F0H ; OFSET IS at 02F0H
620 0179 0339 ADD A,MUSICTIM
621 017A 0087 MOV TBLP,A ; TABLE LOW 8BIT ADR THIS PAGE = 02XXH
622 017B 1D3A TABRDC RAMR ; RAMS=LOW DAT8 == LOW ADR OFFSET
623 017C 0708 MOV A,TBLH
624 017D 00A5 MOV RAMWA,A ; ZANCUN
625 017E 2800 R JMP LOOPMC ; TO 200H ADR(CAN USE TABRDC THIS PAGE)
626 017F
627 017F ; **** Music mid/end come here ,check anjian & Tv call 100ms ***
628 017F YWAKEAB: ; Anjian wake ?
629 017F 3632 CLR LSBITA
630 0180 3F3B SZ RAMS.6 ; 80h is musci rest-anjian check,COH music over!
631 0181 3232 SET LSBITA
632 0182 3412 CLR SPK ; STOP SPK=PA0
633 0183 0001 CLR WDT ;CLR PA1 ; OFFSET TV Call Vcc
634 0184 POLLINGA:
635 0184 ;CALL SCAN_KEY_MATRIX ; SCAN KEY PROCEDURE
636 0184 ;CALL F_DELAY ; TIME DELAY PROCEDURE
637 0184 ;CALL SEND_REMOTE_CODE ; SEND CODE PROCEDURE
638 0184 ;SZ MultiBIT ; Check Invalid Key
639 0184 ;JMP POLLINGA ; <>0
640 0184 ;SZ SENDBIT ; =0 Check Validity Key
641 0184 ;JMP POLLINGA ; <>0 FA
642 0184 ;SZ NOWKEY ; =0 Check NO Key Press
643 0184 ;JMP POLLINGA ; <>0
644 0184 0F00 MOV A,00000000B ; clr spk clr vcc
645 0185 0092 MOV PA,A ; Scan Column PA PORT OUTPUT
646 0186 1F94 SET PB ; PB=FF SET PB0,PB1 Pull-Up
647 0187 0714 MOV A,PB ; Read on column value to PBVALUE
648 0188 0DC1 OR A,11000001B ; PB7\PB6(NO)PB0(CALL IN),NO ANJIAN=FF
649 0189 1605 SIZA ACC ; FF+1=0 NO ANJIAN
650 018A 2800 R JMP YWAKE ; YOU ANJIAN
651 018B
652 018B 3092 SET PA1 ; gnd TO GND
653 018C 3E32 SZ LSBITA ; 80H song goon..
654 018D 14B9 INC MUSICTIM ; C0H is NEXT MUSIC C0H is song over!
655 018E 0001 CLR WDT ; 80H spend 37ms again check call signal ***
656 018F 1F28 CLR RAMC ; Jishu
657 0190 0714 MOV A,PB
658 0191 00BD MOV RAMLS,A ; Ls Save
659 0192 0FF7 MOV A,247D
File: REM.ASM Holtek Cross-Assembler Version 2.86 Page 12
660 0193 00BB MOV RAMS,A ; Ys Ram 37MS/8.79US=4209
661 0194 YS37MSR: ; 37ms Have 53-61 changes
662 0194 0714 MOV A,PB
663 0195 043D XOR A,RAMLS ; Yihuo last time -> A
664 0196 3C05 SZ ACC.0 ; = Is 0 ; <> Is 1
665 0197 2800 R JMP BUTONGAR
666 0198 2800 R NOP2 ; 17X(?-1)+11+10 = 4209 --> Shiji=36.944MS
667 0199 2800 R NOP2
668 019A 2800 R NOP2
669 019B 2800 R NOP2
670 019C 0000 NOP
671 019D 0001 CLR WDT ; WDT=2048X8.79US=18MS
672 019E OVERYAR:
673 019E 17BB SDZ RAMS ; = XIANGTONG [m]
674 019F 2800 R JMP YS37MSR
675 01A0 CALTAR: ; Lilun=3-6 changes Fast judge
676 01A0 0728 MOV A,RAMC
677 01A1 0A28 SUB A,040D ; tiaojian jiangdi
678 01A2 3C0A SZ STA_C ; C-FLAG=0 A<40
679 01A3 2800 R JMP DAYD53R ; C=1 A>=40
680 01A4 2800 R JMP YWAKE ; TV NO CALL -- EXIT
681 01A5 BUTONGAR:
682 01A5 2800 R NOP2
683 01A6 2800 R NOP2
684 01A7 0001 CLR WDT
685 01A8 14A8 INC RAMC ; Jishu+1
686 01A9 01BD CPL RAMLS ; /RAMLS.5=PB.5(This time)
687 01AA 2800 R JMP OVERYAR
688 01AB DAYD53R: ; >=40 ok! <=75?
689 01AB 0728 MOV A,RAMC
690 01AC 0A4B SUB A,075D
691 01AD 3C0A SZ STA_C ; C=0 A<75
692 01AE 2800 R JMP YWAKE ; TV NO CALL -- C=1 A>=75
693 01AF 3E32 SZ LSBITA ; TV CALL
694 01B0 2800 R JMP STASONG ; C0H is NEXT Song
695 01B1 14BA INC RAMR ; 80H This Song is go on! Music Next Dat
696 01B2 2800 R JMP LOOPMC
697 01B3 ; === Up Tv call music over! ====
698 01B3
699 01B3
700 01B3
701 01B3
702 01B3
703 01B3
704 01B3
705 01B3
706 01B3
707 01B3
708 01B3
709 01B3 ; ==== MUSIC ADR OFFSET ,True Adr is 02xxH & 03xxH ,This is xx =====
710 01B3 ORG 1F0H
711 01F0 0028 DW 0028H ; MUSIC O adr: 0228h
712 01F1 0058 DW 0058H ; MUSIC 1 adr: 0258h
713 01F2 0002 DW 0002H ; MUSIC 2
714 01F3 0003 DW 0003H ; MUSIC 3
715 01F4 0004 DW 0004H ; MUSIC 4
716 01F5 0005 DW 0005H ; MUSIC 5
717 01F6 0006 DW 0006H ; MUSIC 6
718 01F7 0007 DW 0007H ; MUSIC 7
719 01F8 0008 DW 0008H ; MUSIC 8
File: REM.ASM Holtek Cross-Assembler Version 2.86 Page 13
720 01F9 0009 DW 0009H ; MUSIC 9
721 01FA 000A DW 000AH ; MUSIC 1O
722 01FB 000B DW 000BH ; MUSIC 11
723 01FC 1041 DW 1041H ; MUSIC 12 adr: 0341h
724 01FD 1041 DW 1041H ; MUSIC 13
725 01FE 1041 DW 1041H ; MUSIC 14
726 01FF 1041 DW 1041H ; MUSIC 15
727 0200
728 0200
729 0200 ORG 200H ; CAN USE TABRDC
730 0200 LOOPMC:
731 0200 073A MOV A,RAMR
732 0201 0087 MOV TBLP,A ; TABLE LOW 8BIT ADR TABRDL=LAST PAGE 0300H
733 0202 1D3B TABRDC RAMS ; RAMS=LOW DAT8 MO REN
734 0203 3E25 SZ RAMWA.4 ; 1-03xxH(TABRDL) 0-02xxH(TABRDC)
735 0204 1DBB TABRDL RAMS ; Ramwa.4=1 is 03xxH
736 0205 0001 CLR WDT
737 0206 3FBB SZ RAMS.7 ; RAMS<>0 ? STOP ? YS1S (65MS)
738 0207 2800 R JMP YWAKEAB ; Songs over! --->CLR SPK(ANJIAN +CALL=22MS+43MS=65MS)
739 0208 0708 MOV A,TBLH ; TBLH=00+HIGH DAT6 FRE/2
740 0209 00BC MOV RAMT,A ; FRE/2
741 020A 073B MOV A,RAMS
742 020B 00BD MOV RAMLS,A ; YS USED
743 020C 00A9 MOV RAMD,A ; (TBLH X TBLH)X[9+3(RAMT-1)]X8.79US=0.5S(Jipai)
744 020D SPKON:
745 020D 0F01 MOV A,00000001B
746 020E 0492 XORM A,PA ; /PA0 PA1-PA7 NOT CHANGE SPK ; [8+(RAMT-1)X3]X8.79
747 020F 073C MOV A,RAMT
748 0210 YSFRE:
749 0210 1785 SDZ ACC
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -