me500-密码锁－专用工具.asm

电子密码锁专用读写 24C04 工具程序

;在 LCD 第二行显示字符
;A=ASC DATA, B=LINE X POS
;---------------------------------------------------
LCDP2:                    ;在LCD的第二行显示字符
         PUSH  ACC        ;
         MOV  A,B         ;设置显示地址
         ADD  A,#0C0H     ;设置LCD的第二行地址
         CALL  WCOM       ;写入命令
         POP  ACC         ;由堆栈取出A
         CALL  WDATA      ;写入数据
         RET

;-------------------------------------------------------
;ASCII 转换并显示子程序
;-------------------------------------------------------
CONV:
          MOV   X,#9        ;设置显示起始位置
          MOV   A,R3
          ANL   A,#0F0H      ;取出高四位二进制数
          SWAP  A            ;高四位与低四位互换
          PUSH  ACC          ;压入堆栈
          CLR   C            ;C=0
          SUBB  A,#0AH       ;减10
          POP   ACC          ;弹出堆栈
          JC    ASCII0       ;该数小于10，转ASCII0
          ADD   A,#07H       ;大于10的数加上37H
ASCII0:   ADD   A,#30H       ;小于10的数加上30H
          MOV   B,X
          CALL  LCDP2

          MOV   A,R3
          ANL   A,#0FH        ;取出低四位二进制数
          PUSH  ACC
          CLR   C
          SUBB  A,#0AH        ;减10
          POP   ACC
          JC    ASCII1        ;该数小于10，转ASCII1
          ADD   A,#07H        ;大于10的数加上37H
ASCII1:   ADD   A,#30H        ;小于10的数加上30H
          INC   X
          MOV   B,X
          CALL  LCDP2
          RET
;-----------------------------------------------------
DELAY2:  MOV  R5,#15H
DELAY:                    ;延时R5×10MS
         MOV  R6,#50
  D1:    MOV  R7,#100
         DJNZ  R7,$
         DJNZ  R6,D1
         DJNZ  R5,DELAY
         RET
;-----------------------------------------------------
DELAY1:                    ;延时5MS
         MOV  R6,#25
  D2:    MOV  R7,#100
         DJNZ  R7,$
         DJNZ  R6,D2
         RET

;------------------------------------------------------
;键扫描子程序
;------------------------------------------------------
SCAN_KEY:
SCAN_K:    MOV  P1,#0F0H
           MOV  A,P1
           CJNE  A,#0F0H,KEY_NUM0  ;有键按下转
           JMP  KEY_END
KEY_NUM0:  CALL  KEY_IN
           CALL  BEEP_BL
           MOV  R5,#04H
           CALL  DELAY
KEY_END:   RET
;-----------------------------------------------------
;反转法询键值子程序  （A）＝键值
;-----------------------------------------------------
KEY_IN:    MOV  P1,#0F0H       ;置列线为0，行线为1
           MOV  A,P1
           ANL  A,#0F0H
           MOV  B,A
           MOV  P1,#0FH        ;置列线为1，行线为0
           MOV  A,P1
           ANL  A,#0FH
           ORL  A,B            ;高四位与低四位重新组合
           CJNE  A,#0FFH,KEY_IN1   ;0FFH为末按键
           RET
KEY_IN1:   MOV  B,A
           MOV  DPTR,#KEYTABLE
           MOV  R3,#0FFH
KEY_IN2:   INC  R3
           MOV  A,R3
           MOVC  A,@A+DPTR
           CJNE  A,B,KEY_IN3
           MOV  A,R3           ;找到，取顺序码
           RET
KEY_IN3:   CJNE  A,#0FFH,KEY_IN2  ;末完，继续查
           RET                    ;0FFH为结束码
;-----------------------------------------------------
KEYTABLE:
    DB  0EEH,0EDH,0EBH,0E7H,0DEH  ;0,1,2,3,4,  顺序码
    DB  0DDH,0DBH,0D7H,0BEH,0BDH  ;5,6,7,8,9,
    DB  0BBH,0B7H,07EH,07DH,07BH  ;A,B,C,D,E,
    DB  077H,0FFH                 ;F      0FF为结束码
;-------------------------------------------------------
;=================================================
;写串行E2PROM子程序
;(R1)=欲写数据存放地址指针
;(R7)=连续读字节数
;24CO1一次可连续写8个字节，12个字节分两次写。
;=================================================
EEPW:    PUSH  ACC
         PUSH  PSW
         CLR  PSW.3
         SETB  PSW.4
         MOV  R1,#PASS_NEW
         MOV  R7,#06H      ;连续写6个字节
         LCALL START
         MOV A,#0A0H       ;送器件地址
         ACALL SUBS
         MOV A,#00H        ;送片内字节地址
         ACALL  SUBS
AGAIN1:
         MOV A,@R1
         ACALL SUBS       ;调发送单字节子程序
         INC R1
         DJNZ R7,AGAIN1    ;连续写6个字节
         LCALL  STOP      ;发停止信号
         POP  PSW
         POP  ACC
         RET
SUBS:
         MOV R0,#08H      ;发送单字节子程序
LOOP:    CLR  SCLK24
         RLC A
         MOV SDA,C
         NOP
         SETB SCLK24
         ACALL DELAY24
         DJNZ R0,LOOP     ;循环8次送8个bit
         CLR SCLK24
         ACALL DELAY24
         SETB SCLK24
REP:     MOV C,SDA
         JC REP          ;判应答到否，未到则等待
         CLR  SCLK24
         RET

DELAY24:
         NOP
         NOP
         RET
;=========================================================
;读串行E2PROM子程序EEPR
;(R1)=欲读数据存放地址指针
;(R7)=连续读字节数
;=========================================================
EEPR:    PUSH  ACC
         PUSH  PSW
         CLR  PSW.3
         SETB  PSW.4
         MOV  R7,#06H
         MOV  R1,#PASS_OLD
         LCALL  START    ;发开始信号
         MOV A,#0A0H     ;送器件地址
         ACALL SUBS      ;调发送单字节子程序
         MOV A,#00H      ;送片内字节地址
         ACALL SUBS
         LCALL  START    ;再发开始信号
         MOV A,#0A1H
         ACALL SUBS
MORE:    ACALL SUBR
         MOV @R1,A
         MOV  A,#00H
         INC  R1
         DJNZ R7,MORE
         LCALL  STOP      ;送停止信号
         POP  PSW
         POP  ACC
         RET

SUBR:    MOV  R0,#08H      ;接受单字节子程序
LOOP2:   SETB  SCLK24
         ACALL DELAY24
         MOV  C,SDA
         RLC  A
         CLR  SCLK24
         ACALL DELAY24
         DJNZ R0,LOOP2
         CJNE R7,#01H,ALOW
         SETB SDA          ;若是最后一个字节置SDA=1
         AJMP SETOK
ALOW:
         CLR  SDA          ;否则置SDA=0
SETOK:   ACALL DELAY24
         SETB  SCLK24
         ACALL DELAY24
         CLR  SCLK24
         ACALL  DELAY24
         SETB  SDA         ;应答毕,SDA置1
         RET
START:
         CLR  SDA
         ACALL DELAY24
         SETB  SDA
         SETB  SCLK24
         ACALL DELAY24
         CLR  SDA
         SETB SCLK24
         RET
STOP:
         CLR  SDA
         SETB  SCLK24
         ACALL DELAY24
         SETB SDA
         ACALL DELAY24
         RET
;===============================================
;蜂鸣器响一声子程序
;===============================================
BEEP_BL:
         MOV  R6,#100
 BL2:    CALL  DEX1
         CPL  BEEP
         DJNZ  R6,BL2
         MOV  R5,#15
         CALL  DELAY_BL
         RET
 DEX1:   MOV  R7,#180
 DE2:    NOP
         DJNZ  R7,DE2
         RET
;-------------------------------------------
DELAY_BL:                    ;(R5)*延时10MS
         MOV  R6,#50
 DL1:    MOV  R7,#100
         DJNZ  R7,$
         DJNZ  R6,DL1
         DJNZ  R5,DELAY_BL
         RET
;-------------------------------------------
         END