yang di bawah ini contoh yang saya buat tapi lum bisa .

org 0h
ratusan equ 30h
puluhan equ 31h
satuan equ 32h
;
org 0h
start: call ADC
call Bin2Dec
call Display2SevenSegmen
sjmp start
;
;========================================
;Subrutin ini digunakan untuk mengambil data ADC
;========================================
PROGRAM:
adc_a bit p2.0
adc_b bit p2.1
adc_c bit p2.2
adc_start bit p2.3
adc_ale bit p2.4
adc_OE bit P2.5
adc_EOC bit P2.6
;
ADC:
ORG 0H
CLR p2.3 ;adc_start
CLR p2.4 ;adc_ale
CLR p2.5 ;adc_OE
SETB p2.6 ;adc_EOC
INIT:
SETB p2.0 ;adc_a
SETB p2.1 ;adc_b
CLR p2.2 ;adc_c
CALL DELAY
SETB p2.3 ;adc_start
CALL DELAY
SETB p2.4 ;adc_ale
CALL DELAY
CLR p2.3 ;adc_start
CLR p2.4 ;adc_ale

EOC: JNB P2.6,EOC
SETB P2.5
CALL DELAY
MOV A,P0
MOV P1,A
SJMP INIT
RET

;=================================================
;Subrutin ini untuk menampilkan data ke 7 Segmen
;dalam bentuk: ratusan, puluhan, and satuan
;data desimal diubah ke segmen dengan menggunakan
;Look up table Data7segmen
;=================================================
Display2SevenSegmen:
mov A, ratusan ;Copy data Ratusan ke A
mov DPTR,#Data7segmen ;Copy Address #Data7segmen ke DPTR
movc A,@A+DPTR ;Copy Isi A+DPTR ke A
mov P1,A ;Copy A ke P0
Setb P3.5 ;Decoder, A=1,
clr P3.6 ;B=0
Setb P3.7 ; dan C=1
call delay ;Panggil waktu tunda
;
mov A,puluhan
mov DPTR,#Data7segmen
movc A,@A+DPTR
mov P1,A
clr P3.5 ;
Setb P3.6
Setb P3.7
call delay
;
mov A,satuan
mov DPTR,#Data7segmen
movc A,@A+DPTR
mov P1,A
Setb P3.5 ;
Setb P3.6
Setb P3.7
call delay
ret
;
delay: mov R0,#0
delay1:mov R2,#0fh
djnz R2,$
djnz R0,delay1
ret
;
;========================================
;Subrutin ini untuk merubah data biner ke desimal
;menjadi 3 digit = ratusan-puluhan-satuan
;=========================================
Bin2Dec:
mov b,#100d
div ab
mov ratusan,a
mov a,b
mov b,#10d
div ab
mov puluhan,a
mov satuan,b
ret
;
Data7segmen:
db 11000000b,11111001b,10100100b,10110000b,10011001b
db 10010010b,10000010b,11111000b,10000000b,10010000b
;
end

boleh bisa minta contoh program assembler?
klo bisa minta kirimin ke email saya ya.. thanks