ch16_b13-7.asm

51单片机基础篇 对于有一定基础的人看看 包含书中所以的源代码

        JZ      $NOBEEP
        DEC     BEEP
        SETB    BUZZER
        SJMP    $END
$NOBEEP CLR     BUZZER
$END    POP     00H
        POP     PSW
        POP     A
        RETI
;
CONV    MOV     A,BINARY
        MOV     B,#10
        DIV     AB      ;A=A/10,B=A MOD 10
        ANL     A,#0FH  ;A=A AND 0FH
        JNZ     $1
        MOV     A,#0FH  ;IF A=00H THEN A=0FH LEADING BLANK
$1      SWAP    A
        ORL     A,B     ;A AS BCD FORM
        MOV     BUFFER,A ;SAVE AT BUFFER
        RET
;
DELAY   MOV     R7,#00H
$1      MOV     R6,#00H
        DJNZ    R6,$
        DJNZ    R7,$1
        RET
;
SET_TMR0
        MOV     A,#21H  ;TIMER1 MODE2,TIMER0 MODE1
        MOV     TMOD,A
        MOV     TH0,#(65536-MS10) / 256 ;RELOAD TH0
        MOV     TL0,#(65536-MS10) .MOD. 256
        CLR     TF0     ;CLEAR TIMER0 FLAG
        SETB    TR0     ;TIMER0 START COUNT
        MOV     SCON,#50H    ;8BIT DATA OUTPUT
        MOV     TH1,#BPS9600 ;BAUD RATE 9600b/s
        SETB    TR1     ;TIMER1 START COUNT
        SETB    ET0     ;ENABLE TIMER0 INTERRUPT
        SETB    ES      ;ENABLE SERIAL INTERRUPT
        SETB    EA      ;ENABLE SYSTEM INTERRUPT
        RET
;
;ROUTINES FOR AT2051 KIT
;
;FUNCTION NAME : CLEAR_INTERNAL_DATA_MEMORY
;FUNCTION : CLEAR 4 BYTES DATA MEMORY 08H,09H,0AH,0BH
;
CLEAR_INTERNAL_DATA_MEMORY
        MOV     R0,#08H ;DATA MEMORY ADDR
        MOV     R2,#04H ;COUNT
$1      CLR     A
        MOV     @R0,A
        INC     R0
        DJNZ    R2,$1
        RET
;
;FUNCTION NAME : DATA_ADD_4BYTE
;FUNCTION : ADD 4 BYTES IN DATA MEMORY
;(R0+3)(R0+2)(R0+1)(R0)=(R0+3)(R0+2)(R0+1)(R0)+(R1+3)(R1+2)(R1+1)(R1)
;
DATA_ADD_4BYTE
        MOV     R2,#04H
        CLR     C
$1      MOV     A,@R0
        ADDC    A,@R1
        MOV     @R0,A
        INC     R0
        INC     R1
        DJNZ    R2,$1
        RET
;
;
;FUNCTION NAME : DATA_SUBTRACT
;FUNCTION : SUBTRACT 4 BYTES,RESULT IN DATA MEMORY
;(R0+3)(R0+2)(R0+1)(R0)=(R0+3)(R0+2)(R0+1)(R0)-(R1+3)(R1+2)(R1+1)(R1)
;
DATA_SUBTRACT
        MOV     R2,#04H
        CLR     C
$1      MOV     A,@R0
        SUBB    A,@R1
        MOV     @R0,A
        INC     R0
        INC     R1
        DJNZ    R2,$1
        RET
;
;FUNCTION NAME : DATA_COMPLEMENT
;FUNCTION : COMPLEMENT 4 BYTES IN (07)(06)(05)(04)
;
DATA_COMPLEMENT
        MOV     R0,#04
        MOV     R2,#04H         ;COUNT
        SETB    C               ;CY=1
$1      MOV     A,@R0
        CPL     A
        ADDC    A,#00H          ;A=A+CY
        MOV     @R0,A
        INC     R0
        DJNZ    R2,$1
        RET
;
;
;FUNCTION NAME : INTERNAL_DATA_COMPARE
;FUNCTION : COMPARE 2 BLOCKS INTERNAL DATA MEMORY (R2) TIMES
;
INTERNAL_DATA_COMPARE
$1      MOV     A,@R0
        MOV     B,@R1
        CJNE    A,B,$2
        DEC     R0
        DEC     R1
        DJNZ    R2,$1
$2      RET
;
;FUNCTION NAME : ACC_COMPARE
;FUNCTION : COMPARE ACC WITH (R0) IN DATA MEMORY (R2) TIMES
;
ACC_COMPARE
$1      MOV     B,@R0
        CJNE    A,B,$2
        INC     R0
        DJNZ    R2,$1
        CLR     A
        SJMP    $3              ;IF FOUND THEN A=0
$2      MOV     A,#01H          ;ELSE          A=1
$3      RET
;
;FUNCTION NAME :MUL_4BYTE
;FUNCTION : UNSIGNED 4 BYTE MULTIPLY
;(07H)(06H)(05H)(04H)=(07H)(06H)(05H)(04H) X (0FH)(0EH)(0DH)(0CH)
;WORKING AREA DATA MEMORY : (0BH),(0AH),(09H),(08H)
;
MUL_4BYTE
        LCALL   CLEAR_INTERNAL_DATA_MEMORY
        MOV     R3,#33          ;SHIFT COUNT
        CLR     C
$1      MOV     R1,#0BH
        MOV     R2,#08H
$2      MOV     A,@R1
        RRC     A
        MOV     @R1,A
        DEC     R1
        DJNZ    R2,$2
        JNC     $3
        CLR     C
        MOV     R0,#08H
        MOV     R1,#0CH
        LCALL   DATA_ADD_4BYTE
$3      DJNZ    R3,$1
        RET
;
;FUNCTION NAME :DIV_4BYTE
;FUNCTION : UNSIGNED 4 BYTE DIVIDE
;(07H)(06H)(05H)(04H)=(07H)(06H)(05H)(04H) / (0FH)(0EH)(0DH)(0CH)
;WORKING AREA DATA MEMORY :(0BH),(0AH),(09H),(08H)
;
DIV_4BYTE
        LCALL   CLEAR_INTERNAL_DATA_MEMORY
        MOV     R3,#32          ;SHIFT COUNT
        CLR     C
$1      MOV     R1,#04H
        MOV     R2,#08H
$2      MOV     A,@R1
        RLC     A
        MOV     @R1,A
        INC     R1
        DJNZ    R2,$2
        MOV     R0,#0BH
        MOV     R1,#0FH
        MOV     R2,#04H
        LCALL   INTERNAL_DATA_COMPARE
        JC      $3
        MOV     R0,#08H
        MOV     R1,#0CH
        LCALL   DATA_SUBTRACT
$3      CPL     C
        DJNZ    R3,$1
        MOV     R1,#04H
        MOV     R2,#04H
$4      MOV     A,@R1
        RLC     A
        MOV     @R1,A
        INC     R1
        DJNZ    R2,$4
        RET
;
;MEM BLOCK IN R0
;ADDRESS   IN R1
;DATA      IN B
IIC_WRITE
        CALL    IIC_START
        MOV     A,R0
        ANL     A,#07H  ;MASK BIT7-BIT3
        RL      A
        ORL     A,#A0H  ;WR=TRUE(0) AS BIT0=1
        CALL    IIC_OUT ;COMMAND OUT
        CALL    IIC_ACK ;9 CLK
;
        MOV     A,R1
        CALL    IIC_OUT ;ADDR OUT
        CALL    IIC_ACK
;
        MOV     A,B
        CALL    IIC_OUT ;DATA OUT
        CALL    IIC_ACK
;
        CALL    IIC_STOP
        RET
;
IIC_OUT CLR     SCLK
        CALL    DLY
        MOV     R7,#8
$RL     RLC     A
        JC      $O1
$O0     CLR     SDA
        JMP     $NEXT
$O1     SETB    SDA
$NEXT
        CALL    DLY
        SETB    SCLK
        CALL    DLY
        CLR     SCLK
        CLR     SDA
        CALL    DLY
        DJNZ    R7,$RL
        RET
;
;MEM BLOCK IN R0
;ADDRESS   IN R1
;DATA RETURN AT ACC
;
IIC_READ
        CALL    IIC_START
        MOV     A,R0
        ANL     A,#07H  ;MASK BIT7-BIT3
        RL      A
        ORL     A,#A0H  ;RD/!WR=0 AS BIT0=1
        CALL    IIC_OUT ;COMMAND OUT(WR)
        CALL    IIC_ACK
;
        MOV     A,R1
        CALL    IIC_OUT ;ADDR OUT
        CALL    IIC_ACK
;
        CALL    IIC_START
        MOV     A,R0
        ANL     A,#07H  ;MASK BIT7-BIT3
        RL      A
        ORL     A,#A1H  ;RD=1 AS BIT0=1
        CALL    IIC_OUT ;COMMAND OUT(RD)
        CALL    IIC_ACK
;
        CALL    IIC_IN ;DATA IN
        CALL    IIC_ACK
;
        CALL    IIC_STOP
        RET
;
IIC_ACK
        SETB    SCLK
        NOP
        CLR     SCLK
        NOP
        RET
;
IIC_IN  SETB    SDA
        CLR     SCLK
        MOV     R2,#8
        MOV     R0,#00H
$SI     SETB    SCLK
        JB      SDA,$SI1
$SI0    CLR     C
        JMP     $SNX
$SI1    SETB    C
$SNX    NOP
        MOV     A,R0    ;LOW BYTE
        RLC     A
        MOV     R0,A
        CLR     SCLK
        DJNZ    R2,$SI
        MOV     A,R0
        RET
;
IIC_INIT
        SETB    SCLK
        SETB    SDA
        RET
;
IIC_START
        SETB    SCLK
        SETB    SDA
;
        CLR     SDA
        NOP
        CLR     SCLK
        NOP
        RET
;
IIC_STOP
        SETB    SCLK
        SETB    SDA
        RET
;
DLY     NOP
        NOP
        NOP
        RET