hzkzh16.asm

共有 45 个程序源码

       ORG  0000H
       LJMP  MAIN
       ORG  0100H
MAIN:     CLR  P1.7
          LCALL  YS2S
          LCALL  YS2S
          LCALL  YS2S
          MOV  P0,#0FFH
          MOV  P1,#0FFH
          MOV  P2,#0FFH
          MOV  P3,#0FFH
           DAT  BIT  P1.0         ; 595 定义
           CLK  BIT  P1.1
           AGREE  BIT  P1.2
           DAT595  EQU  2FH       ; 可以按位寻址
             RS  BIT  2FH.0
             RW  BIT  2FH.1
             E  BIT  2FH.2
             CS1  BIT  2FH.3
             CS2  BIT  2FH.4
           RSTB  BIT  2FH.5       ; LCM 液晶控制
           CS29  BIT  2FH.6       ; 29C040 片选
           CS64  BIT  2FH.7       ; 6264 片选
           A16  BIT  P1.3
           A17  BIT  P1.4
           LCALL  RESET595        ; 复位各端口以免总线冲突，让总线悬浮高阻态
                    SDA0  BIT  P1.6     ; 24C08定义
                    SCL0  BIT  P1.5
                    MTD0  EQU  4FH
                    SLA0  EQU  71H
                    NUMBYT0  EQU  72H
                    MRD0  EQU  30H
                    SLAW0  EQU  0A0H
BEGIN:   CLR  EA
    ;     CLR  EX1
    ;     MOV   SCON, #50H
    ;     MOV   TMOD, #20H
    ;     MOV   TH1 , #0FDH
    ;     MOV   TL1 , #0FDH
    ;     ANL   PCON, #7FH
    ;     SETB  TR1
  ;   GO12:    CLR  CS64
  ;            SETB  CS29
  ;            LCALL  WR595
  ;            MOV  R2,#256
  ;            MOV  DPTR,#0000H
  ;            MOV  A,#96H
  ;      HAN:  MOVX  @DPTR,A
  ;            INC  A
  ;            INC  A
  ;            INC  DPTR
  ;            DJNZ  R2,HAN
  ;            MOV  R1,#30H
  ;            MOV  R2,#16
 ;             MOV  DPTR,#0000H
  ;        GO:    MOVX  A,@DPTR
  ;            INC  DPTR
  ;            MOV  @R1,A
  ;            INC  R1
  ;            DJNZ  R2,GO
  ;            SETB  CS64
  ;            SETB  CS29
  ;            LCALL  WR595

              LCALL  WR29NOWR          ; 取消写保护
              CLR  A17
              CLR  A16
              MOV  7EH,#00H
              MOV  DPTR,#0B000H        ; B040开始
  SKYWANGY:   MOV  7BH,#8
  SKY:   MOV  78H,DPL
         MOV  7AH,DPH
         LCALL  RD29C040          ; 32个数据放RAM 30H-4FH
         LCALL  MAIPRO             ; 转换结果放50-6FH 共32个字节        
         MOV  31H,DPH
         MOV  32H,DPL
                CLR  CS64
                SETB  CS29
                LCALL  WR595
                MOV  R2,#32
                MOV  DPH,#00H
                MOV  DPL,78H
                MOV  R1,#50H
    GOBACK:     MOV  A,@R1                  
                MOVX  @DPTR,A
                INC  DPL
                INC  R1
                DJNZ  R2,GOBACK
                SETB  CS64
                SETB  CS29
                LCALL  WR595
              MOV  DPH,31H
              MOV  DPL,32H
              DJNZ  7BH,SKY             
              
                   MOV  7CH,#256
                   MOV  DPL,#00H
       AGAINN:       CLR  CS64
                     SETB  CS29
                     LCALL  WR595
                   MOV  DPH,#00H
                   MOVX  A,@DPTR
                   MOV  45H,A
                   MOV  DPH,7AH
                     SETB  CS64
                     CLR  CS29
                     LCALL  WR595
                   MOV  A,45H
                   MOVX  @DPTR,A
                   INC  DPL
                   DJNZ  7CH,AGAINN
                 LCALL  YS11MS              ; 等待编程周期结束
                 SETB  CS29                 ; 悬浮总线为三态
                 SETB  CS64
                 LCALL  WR595
            MOV  A,7AH
            INC  A
            MOV  DPH,A
        JNZ  SKY22
           INC  7EH
           MOV  A,7EH
                  CJNE  A,#01H,OTHWANG1
                  SETB  A16
                  CLR  A17
                  MOV  DPTR,#0000H
                  LJMP  SKYWANGY
       SKY22:  LJMP  SKYWANGY

   OTHWANG1:      CJNE  A,#02H,OTHWANG2
                  SETB  A17
                  CLR  A16
                  MOV  DPTR,#0000H
                  LJMP  SKYWANGY

   OTHWANG2:      CJNE  A,#03H, OVER
                  SETB  A16
                  SETB  A17
                  MOV  DPTR,#0000H
                  LJMP  SKYWANGY

                        ; 3FE40H
OVER:  CLR  P1.7
       LCALL  YS1S
       SETB  P1.7
       LCALL  YS1S
       LJMP   OVER

 MAIPRO: MOV  R0,#30H
         LCALL  CHANGE          ; 30H-20H ,32H-21H...,3EH-27H
         MOV  R0,#50H
         LCALL  MOV7            ; 50H-57H
           MOV  R0,#31H
           LCALL  CHANGE        ; 31H-20H,33H-21H....,3FH-27H
           MOV  R0,#58H
           LCALL  MOV7          ; 58H-5FH
         MOV  R0,#40H
         LCALL  CHANGE
         MOV  R0,#60H
         LCALL  MOV7
           MOV  R0,#41H
           LCALL  CHANGE
           MOV  R0,#68H
           LCALL  MOV7          ; 50H-6FH 放转换结果
;         MOV  R0,#50H          ; 串口发送出去
;         MOV  R2,#32
;ATWAIT:  MOV   SBUF,@R0
;  ATT:   JBC  TI,WAIT
;         LJMP  ATT
;  WAIT:  INC  R0
;         DJNZ  R2,ATWAIT
;         LCALL  YS1S
           RET


CHANGE:  MOV  R2,#8
         MOV  R1,#20H
CHAN:    MOV  A,@R0
         MOV  @R1,A
         INC  R0
         INC  R0
         INC  R1
         DJNZ  R2,CHAN
         RET
  MOV7:  MOV  C,27H.7
         RLC  A
         MOV  C,26H.7
         RLC  A
         MOV  C,25H.7
         RLC  A
         MOV  C,24H.7
         RLC  A
         MOV  C,23H.7
         RLC  A
         MOV  C,22H.7
         RLC  A
         MOV  C,21H.7
         RLC  A
         MOV  C,20H.7
         RLC  A
         MOV  @R0,A
  MOV6:  MOV  C,27H.6
         RLC  A
         MOV  C,26H.6
         RLC  A
         MOV  C,25H.6
         RLC  A
         MOV  C,24H.6
         RLC  A
         MOV  C,23H.6
         RLC  A
         MOV  C,22H.6
         RLC  A
         MOV  C,21H.6
         RLC  A
         MOV  C,20H.6
         RLC  A
         INC  R0
         MOV  @R0,A
  MOV5:  MOV  C,27H.5
         RLC  A
         MOV  C,26H.5
         RLC  A
         MOV  C,25H.5
         RLC  A
         MOV  C,24H.5
         RLC  A
         MOV  C,23H.5
         RLC  A
         MOV  C,22H.5
         RLC  A
         MOV  C,21H.5
         RLC  A
         MOV  C,20H.5
         RLC  A
         INC  R0
         MOV  @R0,A
  MOV4:  MOV  C,27H.4
         RLC  A
         MOV  C,26H.4
         RLC  A
         MOV  C,25H.4
         RLC  A
         MOV  C,24H.4
         RLC  A
         MOV  C,23H.4
         RLC  A
         MOV  C,22H.4
         RLC  A
         MOV  C,21H.4
         RLC  A
         MOV  C,20H.4
         RLC  A
         INC  R0
         MOV  @R0,A
  MOV3:  MOV  C,27H.3
         RLC  A
         MOV  C,26H.3
         RLC  A
         MOV  C,25H.3
         RLC  A
         MOV  C,24H.3
         RLC  A
         MOV  C,23H.3
         RLC  A
         MOV  C,22H.3
         RLC  A
         MOV  C,21H.3
         RLC  A
         MOV  C,20H.3
         RLC  A
         INC  R0
         MOV  @R0,A
  MOV2:  MOV  C,27H.2
         RLC  A
         MOV  C,26H.2
         RLC  A
         MOV  C,25H.2
         RLC  A
         MOV  C,24H.2
         RLC  A
         MOV  C,23H.2
         RLC  A
         MOV  C,22H.2
         RLC  A
         MOV  C,21H.2
         RLC  A
         MOV  C,20H.2
         RLC  A
         INC  R0
         MOV  @R0,A
  MOV1:  MOV  C,27H.1
         RLC  A
         MOV  C,26H.1
         RLC  A
         MOV  C,25H.1
         RLC  A
         MOV  C,24H.1
         RLC  A
         MOV  C,23H.1
         RLC  A
         MOV  C,22H.1
         RLC  A
         MOV  C,21H.1
         RLC  A
         MOV  C,20H.1
         RLC  A
         INC  R0
         MOV  @R0,A
  MOV0:  MOV  C,27H.0
         RLC  A
         MOV  C,26H.0
         RLC  A
         MOV  C,25H.0
         RLC  A
         MOV  C,24H.0
         RLC  A
         MOV  C,23H.0
         RLC  A
         MOV  C,22H.0
         RLC  A
         MOV  C,21H.0
         RLC  A
         MOV  C,20H.0
         RLC  A
         INC  R0
         MOV  @R0,A
         RET

            RDRD:  MOV  MTD0,#10H              ; 读24C08前9个数据，母片数据校验，上次关机状态
                   MOV  SLA0,#0A0H
                   MOV  NUMBYT0,#1
                   MOV  B,#00H
                   LCALL  WRNBYT0
                   MOV  SLA0,#0A1H
                   MOV  NUMBYT0,#16
                   LCALL  RDNBYT0              ; 30-32(EA)\33(06)\38(机芯类别