⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.asm

📁 (1)完成键盘
💻 ASM
📖 第 1 页 / 共 3 页
字号:
                   LCALL  KEY_TEST1
                   CJNE   A,28H,INPUTERRORA1
                   LCALL L_KEYBEEP
                   LCALL  KEY_TEST1
                   CJNE   A,29H,INPUTERRORA1
                   LCALL L_KEYBEEP
                   LCALL  KEY_TEST1
                   CJNE   A,2AH,INPUTERRORA1
                   LCALL L_KEYBEEP
                   LCALL  KEY_TEST1
                   CJNE   A,2BH,INPUTERRORA1
                   LCALL L_KEYBEEP
                   AJMP  SETKEYB
INPUTERRORA1:      MOV R4,#030H
INPUTERRORA11:     LCALL   L_PLAYERRO
                   DJNZ R4, INPUTERRORA11
                   AJMP  SETKEY2
;---------------------STORE PASSWORD---------------------------
SETKEYB:           MOV R1,#20H
                   MOV R0,#26H
                   MOV R4,#6H
WRITESN:           CLR  CS
                   CLR SCK
                   MOV A,#06H
                   ACALL L_W_BETY
                   SETB CS
                   CLR CS
                   CLR SCK
                   MOV A,#02H
                   ACALL L_W_BETY
                   MOV A,R1
                   ACALL L_W_BETY
WRITESN1:          MOV A,@R0
                   MOV @R1,A
                   ACALL L_W_BETY
                   INC R0
                   INC R1
                   SETB CS
                   LCALL L_TESTWIP
                   DJNZ R4,WRITESN
                   LCALL L_TESTWIP
WRITESNB:           CLR  CS
                    CLR SCK
                   MOV A,#06H
                   ACALL L_W_BETY
                   SETB CS
                   CLR CS
                   CLR SCK
                   MOV A,#02H
                   ACALL L_W_BETY
                   MOV A,R1
                   ACALL L_W_BETY
                   MOV  A,#12H
                   ACALL L_W_BETY
                   MOV  A,#34H
                   ACALL L_W_BETY
                   SETB CS
                   AJMP  SETKEY
                   NOP
                   NOP
                   LJMP  L_EEROR
;*************************************************************
RETURN:            CJNE  A,#2H,RETURNA
                   AJMP  START
RETURNA:           AJMP USER2
;HHHHHHHHHHHHHHHHHHHHHH--MAIN END--HHHHHHHHHHHHHHHHHHHHHHHHHHH
 ;----------------------DATA  RESTORE---------------------------
READDATA:          MOV R0,#40H
                   MOV  R2,#20H
READDATA2:
                   CLR CS
                   MOV A, #03H
                   LCALL L_W_BETY
                   MOV A,R0
                   LCALL L_W_BETY
READDATA1:         LCALL L_R_BETY
                   MOV   @R0,A
                   INC   R0

                   SETB CS
                   LCALL  L_DELAY2MS
                   LCALL  L_DELAY2MS
                   LCALL  L_DELAY2MS
                   DJNZ  R2,READDATA2
                   RET
;----------------------PASSWORD RESTORE------------------------
                ;SHI FU GAI GUO PASSWORD
TESTCSN:           CLR CS
                   MOV A, #03H
                   LCALL L_W_BETY
                   MOV A,#026H
                   LCALL L_W_BETY
TESTCSN1:          LCALL L_R_BETY
                   CJNE A,#12H,TESTCSN3
                   LCALL L_R_BETY
                   CJNE A,#34H,TESTCSN3
                   SETB CS
                   AJMP   READSN
TESTCSN3:          MOV   R0,#20H
                   MOV   R1,#6H
TESTCSN2:          MOV   @R0,#1H
                   INC   R0
                   DJNZ  R1,TESTCSN2
                   LCALL L_FEEDDOG
                   RET
               ;PASSWORD ARE IN "#020H" OF WATCHDOG
READSN:            MOV R0,#20H
                   MOV R2,#3H
READSN2:           MOV R1,#2H
                   CLR CS
                   MOV A, #03H
                   LCALL L_W_BETY
                   MOV A,R0
                   LCALL L_W_BETY
READSN1:           LCALL L_R_BETY
                   MOV   @R0,A
                   INC   R0
                   DJNZ  R1,READSN1
                   SETB CS
                   LCALL  L_DELAY2MS
                   LCALL  L_DELAY2MS
                   LCALL  L_DELAY2MS
                   DJNZ  R2,READSN2
                   LCALL L_FEEDDOG
                    RET
 ;-------------------------------------------------------------
L_W_SR :           CLR  CS
                    CLR SCK
                   MOV A,#06H
                   ACALL L_W_BETY
                   SETB CS
                   CLR CS
                   CLR SCK
                   MOV A,#01H
                   ACALL L_W_BETY
                   MOV A,#10H
                   SETB CS
                   RET
 ;------------------------------------------------------------
 L_FEEDDOG:        CLR  CS
                   SETB CS
                   RET
  ;---------------------------------------------------------
  L_EEROR:         CLR EA
                   MOV DPTR,#L_EEROR1
                   PUSH DPL
                   PUSH DPH
                   SETB EA
                   RETI
  L_EEROR1:        MOV 3AH,#12H
                   MOV 3BH,#34H
                   CLR A
                   PUSH  ACC
                   PUSH  ACC
                   RETI
                   NOP
                   NOP
                   LJMP  L_EEROR
 ;HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
 ;*******************L_LEDTEST********************************
L_LEDTEST:
self_check: mov b,#0   ;B寄存器赋值,作用是给A寄存器换值(A寄存器使用率太高)
            mov  r1,#8h       ;设定循环次数
zj:      mov  dptr,#showtab
         mov  a,b
         movc  a,@a+dptr
         mov  LED1,a         ;r0放字段码
         mov  LED2,a
         mov  LED3,a
         mov  LED4,a
         mov  LED5,a
         mov   p0,led1
         lcall sel1
         lcall delay
         LCALL  SEL8
         MOV A,P1
         JNB ACC.7, L_LEDTESTEND
         mov   p0,led2
         lcall sel2
         lcall delay
         LCALL  SEL8
         MOV A,P1
         JNB ACC.7, L_LEDTESTEND
         mov   p0,led3
         lcall sel3
         lcall delay
         LCALL  SEL8
         MOV A,P1
         JNB ACC.7, L_LEDTESTEND
         mov   p0,led4
         lcall sel4
         lcall delay
         LCALL  SEL8
         MOV A,P1
         JNB P1.7, L_LEDTESTEND
         mov   p0,led5
         lcall sel5
         lcall delay
         LCALL  SEL8
         MOV A,P1
         JNB P1.7, L_LEDTESTEND
         inc  b
         djnz r1,zj
         ajmp self_check
 delay:  mov r2,#02H
 delay1: mov r3,#0FFH
 delay2: mov r4,#0FFH
 delay3: djnz r4,delay3
         djnz r3,delay2
         djnz r2,delay1
         ret
showtab: db  01h,02h,04h,08h,10h,20h,40h,80h ;字段码
L_LEDTESTEND:          RET
                       NOP
                       NOP
                       LJMP  L_EEROR
;*******************L_LEDTEST END*****************************
;HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
;******************L_BEEPTEST*********************************
L_BEEPTEST:         MOV R2,#07FH
L_BEEPTEST1:        CLR P2.3
                    LCALL L_DELAY2MS
                    SETB P2.3
                    LCALL L_DELAY2MS
                    DJNZ R2,L_BEEPTEST1
                     MOV R3,#0FFH
L_BEEPTEST2:
                    CLR P2.3
                    LCALL L_DELAY1MS
                    SETB P2.3
                    LCALL L_DELAY1MS
                    DJNZ R3,L_BEEPTEST2
                    LCALL SEL8
                    MOV A,P1
                    JNB ACC.7,BEEPEND
                    LCALL SEL7
                    AJMP L_BEEPTEST
 BEEPEND:           RET
L_DELAY1MS:
                 MOV R7,#02H
L_DELAY1MS1:     MOV R6,#0FFH
L_DELAY1MS2:     DJNZ R6,L_DELAY1MS2
                 DJNZ R7,L_DELAY1MS1
                 RET
                 NOP
                   NOP
                   LJMP  L_EEROR
;***********************L_BEEPTEST  END***********************
;HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
;***********************L_KEYTEST*****************************
L_KEYTEST:       MOV  LED1,#0
                 MOV  LED2,#72H
                 MOV  LED3,#0F2H
                 MOV  LED4,#0DCH
                 MOV  LED5,#0
                 LCALL  SEL8
                 MOV A,P1
                 JNB ACC.7, L_PLAYKEYEND
                 JNB ACC.0, L_PLAYKEY1
                 JNB ACC.1, L_PLAYKEY2
                 JNB ACC.2, L_PLAYKEY3
                 JNB ACC.3, L_PLAYKEY4
                 AJMP L_KEYTEST
L_PLAYKEY1:      MOV  LED5,#0CH
                 LCALL L_PLAY5
                 LCALL L_KEYBEEP
                 AJMP  L_KEYTEST
L_PLAYKEY2:      MOV  LED5,#0B6H
                 LCALL L_PLAY5
                 LCALL L_KEYBEEP
                 AJMP  L_KEYTEST
L_PLAYKEY3:      MOV  LED5,#9EH
                 LCALL L_PLAY5
                 LCALL L_KEYBEEP
                 AJMP  L_KEYTEST
L_PLAYKEY4:      MOV  LED5,#0CCH
                 LCALL L_PLAY5
                 LCALL L_KEYBEEP
                 AJMP  L_KEYTEST
L_KEYBEEP:       CLR     P2.3
                 LCALL   L_DELAY65MS
                 SETB    P2.3

L_PLAYKEYEND:        RET
                    NOP
                   NOP
                   LJMP  L_EEROR
;--------------------------------------------------------------
L_DELAY65MS:
                 MOV    R7,#80H
L_DELAY65MS1:    MOV    R6,#0FFH
L_DELAY65MS2:    DJNZ   R6,L_DELAY65MS2
                 DJNZ   R7,L_DELAY65MS1
                 RET
;**********************L_KEYTEST END **************************
;HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
;********************L_ADTEST**********************************
L_ADTEST:
;*******************初始化程序*********************
 CSH:   MOV  LED1,#080H
        MOV  LED2,#080H
        MOV  LED3,#080H
        MOV  LED4,#080H
        MOV  LED5,#080H
KKK1:   SETB  EX0
        LCALL L_PLAY5LED
        CLR  EX0
        LCALL  SEL8
        MOV A,P1
        JNB ACC.7, L_ADEND
        LCALL  SEL7
        AJMP KKK1
L_ADEND:   RET
;*******************采样中断子程序******************
PINT0:    CLR    EA
          PUSH   PSW
          MOV    R0,#ADH
AD1:      CLR    P2.0
          CLR    P2.1
          MOV    A,P1
          SETB   P2.1
          JB ACC.4,AD3 ;判断输入是否溢出?OR=1.4=1溢出
          ANL    A,#0FH
          MOV    @R0,A
          INC    R0
          CLR    P2.2
          MOV    A,P1
          SETB   P2.2
          SETB   P2.0
          MOV    @R0,A
AD2:      LCALL   CHULI
AD4:      POP    PSW
          SETB   EA
          RETI
AD3:      LCALL L_KEYBEEP
          MOV LED3,#0E2H
          MOV LED4,#0E2H
          MOV LED5,#0E2H
          LCALL   L_PLAY5LED
          AJMP  AD4
CHULI:  MOV    A,ADH
        ANL    A,#0FH
        MOV    DPTR,#L_TAB
        MOVC   A,@A+DPTR
        MOV    LED3,A
        MOV    A,ADL
        SWAP   A
        ANL    A,#0FH
        MOV    DPTR,#L_TAB
        MOVC   A,@A+DPTR
        MOV    LED4,A
        MOV     A,ADL
        ANL    A,#0FH
        MOV    DPTR,#L_TAB
        MOVC   A,@A+DPTR
        MOV    LED5,A

        RET
         NOP
         NOP
         LJMP  L_EEROR
;*********************L_ADTEST END************************
;HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
;*****************WATCH DOG TEST****************
L_WDOGTEST:
;*****************DEFINE**************************************
                L_W_AD EQU 2FH ;WATCH DOG ADDRESS
                L_R_AD  EQU 77H ;RAM ADDRAESS
                CS EQU P3.4
                SCK EQU P3.5
                SI EQU P3.6
                SO EQU P3.7


;***************MAIN*********************************

L_KEY:          ACALL KEY_TEST
                CJNE  A,#1H, L_KEY1
                ACALL  L_READ
                ACALL  L_W_PLAY
                LCALL   L_TESTKEY
                JNB   ACC.7,L_KEY0
                AJMP   L_KEY
L_KEY1:
                CJNE  A,#2H, L_KEY2
                ACALL  L_WRITE
                LCALL   L_TESTKEY
                 JNB   ACC.7,L_KEY0

L_KEY2:          AJMP   L_KEY
L_KEY0 :         RET
;***********WATCH DOG  WRITE PROGRAM***************************
L_WRITE:        CLR  CS
                MOV A,#06H
                ACALL L_W_BETY
                SETB CS
                CLR CS
                MOV A,#02H
                ACALL L_W_BETY
                MOV A,#L_W_AD
                ACALL L_W_BETY
                MOV A,#L_R_AD
                ACALL L_W_BETY
                SETB CS
                RET
;****************END*******************************************
;************ WATCH DOG READ PROGRAM***************************
L_READ:         CLR CS

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -