Tutorial Microcontroller MCS-51 ATMEL ISP
 

 

Product Kit Trainer

,
0
o
C

 

Step 1st
Build the circuit as shown in figure 2.14. As you seen on figure 2.14. P0.0 trough P0.7 is connected to DB0 - DB7 ADC0804, and P2.0- P2.7. is connected to D0 - D7, and P3.0, P3.1. is connected to RS and EN each. Remember, that all we want to do with this lesson is write data ADC, in the first line of LCD Character

Step 2nd
In this step, you must tipe the assembly program to make your LCD Character shown the data, we assume that you have already known the editor, we used MIDE-51 to edit the program. 

       org 0h
start: call ADC
       call Bin2Dec
       call Display2SevenSegmen
       sjmp start
;
;=================================================
;this subroutine is used to take data from ADC and
;keep to Accumulator
;=================================================
ADC:   mov A,P0
       nop
       nop
       ret
;
;========================================================
;this subroutine is used to convert binary data from ADC
;become decimal 3 digit
;========================================================
Bin2Dec:
       mov b,#100d
       div ab
       mov hundreds,a
       mov a,b
       mov b,#10d
       div ab
       mov tens,a
       mov ones,b
       ret       
;===============================================
;this subroutine is used to convert data ADC to 
;8 x 7 segmen
;===============================================
Display7segmen:
    mov P2,#11111111b    ; P1 = 11111111b
    mov DPTR,#hundreds   ; DPTR = [hundreds ]
    mov A,DataADC        ; A = [DataADC] 
    movc A,@A+DPTR       ; A = [A+DPTR]  
    mov DPTR,#Data7segmen; DPTR = [Data7Segmen]
    movc A,@A+DPTR       ; A = [A+DPTR]
    mov P0,A             ; P0 = A
    clr P2.1             ; P2.1 = 0, displaying hundreds 
    Acall delay        
;
    mov DPTR,#tens       ; DPTR = [ tens ]
    mov A,DataADC        ; A = [DataADC] 
    movc A,@A+DPTR       ; A = [A+DPTR]  
    mov DPTR,#Data7segmen; DPTR = [Data7Segmen]
    movc A,@A+DPTR       ; A = [A+DPTR]
    setb P2.1            ; P2.1 = 1
    mov P0,A             ; P0 = A
    clr P2.2             ; P2.2 = 0, displaying hundreds 
    Acall delay        
;
    mov DPTR,#ones       ; DPTR = [ ones] 
    mov A,DataADC        ; A = DataADC
    movc A,@A+DPTR       ; A =[ A+DPTR]  
    mov DPTR,#Data7segmen; DPTR = [Data7Segmen]
    movc A,@A+DPTR       ; A = [A+DPTR]
    setb P2.2            ; P2.2 = 1
    mov P0,A             ; P0 = A  
    clr P2.3             ; P2.3 = 0, displaying ones
    Acall delay
;
    setb P2.3
    mov P0,#11111011b
    clr P2.4             ; P2.4 = 0, displaying coma
    Acall delay
;
    mov DPTR,#fraction
    mov A,DataADC
    movc A,@A+DPTR
    mov DPTR,#Data7segmen
    movc A,@A+DPTR
    setb P2.4
    mov P0,A
    clr P2.5             ; P2.5 = 0, displaying fraction
    Acall delay
    ret
;
    setb P2.5
    mov P0,#10100011b
    clr P2.6             ; P2.6 = 0, displaying o
    Acall delay
;
    setb P2.6
    mov P0,#11000011b
    clr P2.7             ; P2.7 = 0, displaying C
    Acall delay
;
delay: mov R0,#0
delay1:mov R2,#0fh
       djnz R2,$
       djnz R0,delay1
       ret
;
fraction :
db 0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0,4
db 8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8,2,6
db 0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0
db 4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8,2
db 6,0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6
db 0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8
db 2,6,0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2
db 6,0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4
db 8,2,6,0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6
db 0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8,2,6,0
;
Ones :
db 0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9
db 9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8,9,9
db 0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9
db 9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8,9
db 9,0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9
db 9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8
db 9,9,0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8
db 9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8
db 8,9,9,0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8
db 9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8,9,9,0
;
Tens :
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
db 2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
db 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
db 4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5
db 5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
db 6,6,6,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
db 7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
db 8,8,8,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0
;
Hundreds :
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 
;
data7segmen:
db11000000b,11111001b,10100100b,10110000b,10011001b
db10010010b,10000010b,11111000b,10000000b,10010000b
end