ilc7109测试程序.asm

icl7109测试程序。good

       LBEN   BIT  P3.4
       HBEN   BIT  P3.5
       CE     BIT  P3.6
       ORG    0000H;
       AJMP   MAXIN;
       ORG    0013H
       LJMP   SHURU
       ORG    0030H;
MAXIN: MOV  SP,#60H;
       SETB   EA
       SETB   EX1
       SETB   IT1
       SETB   P3.4
       SETB   P3.5
       SETB   P3.6
MAXIN1:LCALL   DIS      
       AJMP   MAXIN1


SHURU:PUSH  ACC
      PUSH  PSW
      CLR  CE
      CLR  LBEN
      MOV  A,P1;
      MOV  44H,A;
      SETB  LBEN
      CLR   HBEN
      MOV  A,P1
      MOV  C,ACC.4;  符号
      MOV  01H,C
      MOV  C,ACC.5;溢出
      MOV  02H,C
      ANL  A,#0FH
      MOV  45H,A
      SETB  HBEN
      SETB  CE
      LCALL  DEL200MS
      POP   ACC
      POP   PSW
       RETI


;****************************
DIS:LCALL  H_BCD
    
    MOV  DPTR,#TAB;
    MOV  P2,#0FFH;

    MOV  A,46H;
    MOVC  A,@A+DPTR;
    MOV  P0,A;
    CLR  P2.7;
    LCALL  DEL1MS;
    SETB P2.7;

    MOV  A,47H;
    MOVC  A,@A+DPTR;
    MOV  P0,A;
    CLR  P2.6;
    LCALL  DEL1MS;
    SETB P2.6;

    MOV  A,48H;
    MOVC  A,@A+DPTR;
    MOV  P0,A;
    CLR  P2.5;
    LCALL  DEL1MS;
    SETB P2.5;

    MOV  A,49H;
    MOVC  A,@A+DPTR;
    MOV  P0,A;
    CLR  P2.4;
    LCALL  DEL1MS;
    SETB P2.4;
    JNB  01H,DIS2
      RET
DIS2:MOV  P0,#10111111B
    CLR  P2.3
    LCALL  DEL1MS;
    SETB  P2.3
    RET;

;***************************

H_BCD:CLR  A;
      MOV  33H,#00;
      MOV  34H,#00;
      MOV  40H,44H
      MOV  41H,45H

      MOV  R7,#16
IBTL2:CLR  C;

      MOV  A,40H;
      RLC  A;
      MOV  40H,A;

      MOV  A,41H;
      RLC  A;
      MOV  41H,A;


      MOV  A,33H;
      ADDC  A,33H;
      DA  A;
      MOV  33H,A;

      MOV  A,34H;
      ADDC  A,34H;
      DA  A;
      MOV  34H,A;


      DJNZ  R7,IBTL2;


      MOV  A,33H
      ANL  A,#0FH;
      MOV  46H,A

      MOV  A,33H
      SWAP  A
      ANL  A,#0FH
      MOV  47H,A

      MOV  A,34H
      ANL  A,#0FH
      MOV  48H,A

      MOV  A,34H
      SWAP  A
      ANL  A,#0FH
      MOV  49H,A

       RET

;**********************

DEL1MS:  MOV  R6,#02H;
DEL1:    MOV  R7,#0FFH;
         DJNZ R7,$;
         DJNZ R6,DEL1;
         RET;

DEL10MS: LCALL  DIS
         MOV  R5,#08H;
TX1:     MOV  R4,#0FFH;          延时
         DJNZ R4,$;
         DJNZ R5,TX1;
         LCALL DIS;
         RET;

DEL200MS:MOV  R3,#13H;
   TX2:  ACALL  DEL10MS;
         DJNZ  R3,TX2;
         RET;

TAB:    DB  0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H
       DB  080H,090H,0FEH

       END;