#1.judul: MEMBUAT RANGKAIAN LCD KARAKTER 16 X 2
# 2.Tujuan Instrumen Umum (TIU)
# 1.Siswa dapat menunjukan komponen-komponen yang digunakan.
# 3.Tujuan Instrumen Khusus (TIK)
# 1.Siswa dapat merakit Rangkaian di dalam soft were PROTEUS.
# 2.Siswa dapat membuat program dengan menggunakan Notepad .
# 3.Siswa dapat mengirim program tadi ke dalam rangkaian melalui ASM51 dan diteruskan di panggil di rangkaian IC.
# 4.ALAT DAN BAHAN
# * ALAT
# 1.PC computer…………………………1buah
# *BAHAN ic AT89C51 ........................................1 buah
# resitor 10k ohm ....................................1buah
# lcd ..................................1 buah
# capistor 33 pf .......................................2 buah
# capasitor elektrolit 10 uf ......................1 buah
# crystal .........................................1 buah
# respack .......................................1 buah
# soft ware proteus..................................1
# software note pad .................................1
# software asm51 ....................................1
#
#
# 5.KESELAMATAN KERJA
# 1.Sebelum praktek berdoa terlebih dahulu.
# 2.Pakailah seragam praktek saat praktek
# 3.Siswa sewaktu praktek di larang bersendau gurau.
# 4.Gunakan bahan dan alat sesuai dengan fungsinya
# 5.Jika tugas kurang jelas tanyakan pada guru penguji.
# 6.Setelah selesai laporkan pada guru penguji.
# 6.LANGKAH KERJA
# 1.Nyalakan komputer
# 2.Klik START -> all program -> klik soft wre proteus
# 3.setelah masuk pada soft were Proteus,keluarkan komponen-komponen dengan cara klik P pada soft were Proteus yang berada di bagian kiri komputer kita.
# 4.Selanjutnya tulis pada Keywords komponen apa saja yang butuhkan.
# 5.Setelah itu, rangkailah sesuai dengan perintah
# 6.Setelah selesai ,Selanjutnya kita membuat program menggunakan note pad.contoh :
# $mod51
;-------------------------
; program demo untuk menjalankan lcd 16 x 2
; charakter fn: fn_11.h51
;-------------------------
org 0h
nop
ljmp mulai;
write_inst:
mov p1,#0h ; untuk menuliskan
mov p0,r1 ;instruksi ke lcd
setb p1.1 ;module
clr p1.1
acall delay
ret;
write_data:
mov p1,#01
mov p0,r1
setb p1.1
clr p1.1
acall delay
ret
delay: mov r0,#0
delay1: mov r5,#50h
djnz r5,$
djnz r0,delay1
ret;
ldelay: mov r2,#030h
ld1: acall delay
djnz r2,ld1
ret;
tulis: mov r4,#3
mov dptr,#haline
barisa: mov r3,#16
mov r1,#80h
acall write_inst
tulis1: clr a
movc a,@a+dptr
mov r1,a
inc dptr
acall write_data
djnz r3,tulis1;
barisb: mov r3,#16
mov r1,#0c0h
acall write_inst
tulis2: clr a
movc a,@a+dptr
mov r1,a
inc dptr
acall write_data
djnz r3,tulis2
acall delay
djnz r4,barisa
ret;
mulai: mov r1,#03fh
acall write_inst
mov r1,#0dh
acall write_inst
mov r1,#06h
acall write_inst
mov r1,#01h
acall write_inst
mov r1,#0ch
acall write_inst
acall tulis
sjmp mulai;
haline: db 'jerry paleevi '
db ' outsider '
end
# 7.Jika sudah selesai,simpan file dengan menggunakan format ASM ,misalnya lcd.asm
# Lalu simpan di dalam folder yang ada software asm51 nya
# 8.Setelah selesai buka soft were ASM51.
# 9.Ketik nama softwere pada notepad tadi tetapi tidak mengunakan kata-kata asm dan di ENTER.Misal LCD .
# 10Jika soft were benar akan menampilkan 0 ERRORS FOUND
# 11.jika ada kesalahan, missal ditemukan 1 ERRORS , maka buka file lcd. yang berformat lst(missal nya 1.lst)
# maka disitu akan diberitahukan kesalahan program kita tadi. Lalu benarkan program kita tadi…dan dikompel kembali di software asm51 kembali, kalau sudah benar
# 12.Kemudian masukkan softwere tadi pada rangkaian yang ada pada softwere Proteus.
# 13.Dengan cara mengeklik double pada IC dan panggil soft were dari dalam IC.
# 14.Klik program File,dan pilih softwere yang kita buat tadi.
# 15.Klik ok.
# 16.Coba dan nyalakan hasil rangkaian
# 8.Gambar rangaian
#
#TUGAS 2
#1.JUDUL : JAM DIGITAL DENGAN DOT METRIK
# 2.Tujuan Instrumen Umum (TIU)
# 1.Siswa dapat menunjukan komponen-komponen yang digunakan.
# 3.Tujuan Instrumen Khusus (TIK)
# 1.Siswa dapat merakit Rangkaian di dalam soft were PROTEUS.
# 2.Siswa dapat membuat program dengan menggunakan Notepad .
# 3.Siswa dapat mengirim program tadi ke dalam rangkaian melalui ASM51 dan diteruskan di panggil di rangkaian IC.
# 4.ALAT DAN BAHAN
# * ALAT
# 1.PC computer…………………………1buah
# *BAHAN ic AT89C51 ........................................1 buah
# resitor 10k ohm ....................................1buah
# lcd ..................................1 buah
# capistor 33 pf .......................................2 buah
# capasitor elektrolit 10 uf ......................1 buah
# crystal .........................................1 buah
# respack .......................................1 buah
# soft ware proteus..................................1
# software note pad .................................1
# software asm51 ....................................1
#
#
# 5.KESELAMATAN KERJA
# 1.Sebelum praktek berdoa terlebih dahulu.
# 2.Pakailah seragam praktek saat praktek
# 3.Siswa sewaktu praktek di larang bersendau gurau.
# 4.Gunakan bahan dan alat sesuai dengan fungsinya
# 5.Jika tugas kurang jelas tanyakan pada guru penguji.
# 6.Setelah selesai laporkan pada guru penguji.
# 6.LANGKAH KERJA
# 1.Nyalakan komputer
# 2.Klik START -> all program -> klik soft wre proteus
# 3.setelah masuk pada soft were Proteus,keluarkan komponen-komponen dengan cara klik P pada soft were Proteus yang berada di bagian kiri komputer kita.
# 4.Selanjutnya tulis pada Keywords komponen apa saja yang butuhkan.
# 5.Setelah itu, rangkailah sesuai dengan perintah
# 6.Setelah selesai ,Selanjutnya kita membuat program menggunakan note pad.contoh :
;=================================================
;PROGRAM 4.1:
;=================================================
;PORT0=DATA SEGMEN
;PORT2=DIGIT SELECT
;PORT 3.2=SET JAM
;PORT 3.3=SET MENIT
;PORT 3.4=SET DETIK
$MOD51
SEGM EQU P0
DGSEL EQU P2
DSEG
ORG 50H
JAM: DS 1
MENIT: DS 1
DETIK: DS 1
DTK20: DS 1
TSCAN: DS 1
DISPBUF: DS 32
S_DTK BIT P3.0
S_MNT BIT P3.2
S_JAM BIT P2.4
BARIS EQU P0
DTA BIT P2.0
MRST BIT P2.2
CLOCK BIT P2.4
JKL EQU 40
CSEG
ORG 0H
JMP START
ORG 0BH
JMP TIMER0
START: MOV JAM,#0
MOV MENIT,#0
MOV DETIK,#0
MOV DPTR,#TBL
MOV TMOD,#11H
MOV TH0,#HIGH(-50000)
MOV TL0,#LOW(-50000)
MOV DTK20,#20
SETB EA
SETB ET0
SETB TR0
MAIN: MOV TSCAN,#100
LOOP: CALL DISPLAY
DJNZ TSCAN,LOOP
CALL SCAN_INPUT
JMP MAIN
;SUB PROGRAM
TIMER0: MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
MOV R4,DTK20
CJNE R4,#10,TXX
MOV DISPBUF+12,#107
MOV DISPBUF+26,#107
TXX: CJNE R4,#20,TXY
MOV DISPBUF+12,#127
MOV DISPBUF+26,#127
TXY: DJNZ DTK20,X_TIM0
MOV DTK20,#20
INC DETIK
MOV R4,DETIK
CJNE R4,#60,X_TIM0
MOV DETIK,#0
INC MENIT
MOV R4,MENIT
CJNE R4,#60,X_TIM0
MOV MENIT,#0
INC JAM
MOV R4,JAM
CJNE R4,#24,X_TIM0
MOV JAM,#0
X_TIM0: RETI
SCAN_INPUT:
P_JAM: JB S_JAM,P_MNT
INC JAM
MOV A,JAM
CJNE A,#24,EXIT_SCAN
MOV JAM,#0
P_MNT: JB S_MNT,P_DTK
INC MENIT
MOV A,MENIT
CJNE A,#60,EXIT_SCAN
MOV MENIT,#0
P_DTK: JB S_DTK,EXIT_SCAN
INC DETIK
MOV A,DETIK
CJNE A,#60,EXIT_SCAN
MOV DETIK,#0
EXIT_SCAN: RET
DISPLAY:CALL CONVERT
MOV R0,#DISPBUF
CALL RST
MOV R6,#0
NKOLOM: MOV A,@R0
MOV BARIS,A
CALL TUNDA
MOV BARIS,#127
CALL CLK
INC R6
INC R0
CJNE R6,#JKL,NKOLOM
SDATA: SETB DTA
CALL CLK
CLR DTA
RET
RST: CLR MRST
NOP
SETB MRST
CALL SDATA
RET
CLK: SETB CLOCK
NOP
CLR CLOCK
RET
TUNDA: MOV B,#60
DJNZ B,$
RET
CONVERT:MOV DPTR,#TBL
MOV R0,#DISPBUF
MOV R1,#JAM
N_CONV: MOV A,@R1
MOV B,#10
DIV AB
PUSH B
MOV B,#6
MUL AB
MOV B,#6
CON1: PUSH ACC
MOVC A,@A+DPTR
MOV @R0,A
INC R0
POP ACC
INC A
DJNZ B,CON1
pop b
mov a,#6
mul ab
mov b,#6
con2: push acc
movc a,@a+dptr
mov @r0,a
inc r0
pop acc
inc a
djnz b,con2
inc r0
mov @r0,#127
inc r0
inc r1
cjne r1,#detik+1,n_conv
ret
delay: mov r6,#10
dly: mov r5,#150
djnz r5,$
djnz r6,dly
ret
;angka
;0123456789=10 chr
tbl: db 65,46,54,58,65,127 ;0
db 127,61,0,63,127,127 ;1
db 29,46,54,54,57,127 ;2
db 93,54,54,54,73,127 ;3
db 103,107,109,0,111,127 ;4
db 88,58,58,58,70,127 ;5
db 67,53,54,54,79,127 ;6
db 126,14,118,122,124,127 ;7
db 73,54,54,54,73,127 ;8
db 121,54,54,86,97,127 ;9
end
# 7.Jika sudah selesai,simpan file dengan menggunakan format ASM ,misalnya JAM.asm
# Lalu simpan di dalam folder yang ada software asm51 nya
# 8.Setelah selesai buka soft were ASM51.
# 9.Ketik nama softwere pada notepad tadi tetapi tidak mengunakan kata-kata asm dan di ENTER.Misal JAM .
# 10Jika soft were benar akan menampilkan 0 ERRORS FOUND
# 11.jika ada kesalahan, missal ditemukan 1 ERRORS , maka buka file JAM. yang berformat lst(missal nya JAM.lst)
# maka disitu akan diberitahukan kesalahan program kita tadi. Lalu benarkan program kita tadi…dan dikompel kembali di software asm51 kembali, kalau sudah benar
# 12.Kemudian masukkan softwere tadi pada rangkaian yang ada pada softwere Proteus.
# 13.Dengan cara mengeklik double pada IC dan panggil soft were dari dalam IC.
# 14.Klik program File,dan pilih softwere yang kita buat tadi.
# 15.Klik ok.
# 16.Coba dan nyalakan hasil rangkaian
