Program Jam Digital,dengan Dotmatrix

A.TUJUAN PRAKTEK
Setelah selesai praktek diharapkan siswa dapat:
1. Terampil dalam merangkai rangkaian
2. Terampil menggunakan IC Digital
3. Terampil membaca gambar skema rangkaian
4. Terampil merangkai rangkaian
5. Trampil dalam melakukan pemrograman IC

B.ALAT DAN BAHAN YANG DIPERGUNAKAN
1.ALAT
  Sebuah pc
  Kabel dan tempat transfer data pada IC
  Softwere simulasi yang terkait(Proteus)
  Alat tulis
2.BAHAN
   IC AT89C51
   IC 74164
   Resistor 10k
   Capasitor 33p  
   Dot matrix
   Kabel Penghubung
   Crystal
   Sumber tegangan 5v
   Elco 47 uf 16 v
   Respack

C.KESEHATAN DAN KESELAMATAN KERJA
1. Perhatikan cara memegang IC yang benar
2. Sebelum melakukan langkah-langkah percobaan,yakinlah bahwa Switch Power
Base pada kondisi off.


D.INSTRUKSI KERJA
1. Pastikan alat dan bahan tersedia
2. Pastikan alat dan bahan siap digunakan
3. Tulis program sebagai berikut:

;=================================================
;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     P3.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,#85
    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

4. Kemudian rangkailah rangkaian seperti gambar berikut:

5. Jika sudah selesai laporkan pada guru pembimbing.
6. Buat laporan sesuai dengan yang sudah di praktekan.

Program Simulasi Nama pada LCD karakter

A.TUJUAN PRAKTEK
Setelah selesai praktek diharapkan siswa dapat:
1. Terampil dalam merangkai rangkaian
2. Terampil menggunakan IC Digital
3. Terampil membaca gambar skema rangkaian
4. Terampil merangkai rangkaian
5. Trampil dalam melakukan pemrograman IC

B.ALAT DAN BAHAN YANG DIPERGUNAKAN
1.ALAT
o Sebuah pc
o Kabel dan tempat transfer data pada IC
o Softwere simulasi yang terkait
o Alat tulis
2.BAHAN
IC AT89C51
LCD lm016l
Resistor 10k
Capasitor 33p
Kabel Penghubung
Crystal
Elco 47 uf 16 v
Respack

C.KESEHATAN DAN KESELAMATAN KERJA
1. Perhatikan cara memegang IC yang benar
2. Sebelum melakukan langkah-langkah percobaan,yakinlah bahwa Switch Power
Base pada kondisi off.

D.INSTRUKSI KERJA
1. Pastikan alat dan bahan tersedia
2. Pastikan alat dan bahan siap digunakan
3. Tulis program sebagai berikut:

$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 '                     '
db '                     '

end


4. Kemudian rangkailah rangkaian seperti gambar berikut:

5. Jika sudah selesai laporkan pada guru pembimbing.
6. Buat laporan sesuai dengan yang sudah di praktekan.

Program Menampilkan Nama Sekolah dengan Dotmatrix

A.TUJUAN PRAKTEK
Setelah selesai praktek diharapkan siswa dapat:
1. Terampil dalam merangkai rangkaian
2. Terampil menggunakan IC Digital
3. Terampil membaca gambar skema rangkaian
4. Terampil merangkai rangkaian
5. Trampil dalam melakukan pemrograman IC
B.ALAT DAN BAHAN YANG DIPERGUNAKAN
1.ALAT
• Sebuah pc
• Kabel dan tempat transfer data pada IC
• Softwere simulasi yang terkait
• Alat tulis
2.BAHAN
• IC AT89C51
• IC 74164.IEC
• Resistor
• Capasitor
• Crystal
• Matrix-5X7
• Kabel Penghubung
• Sumber tegangan
• Elco
C.KESEHATAN DAN KESELAMATAN KERJA
1. Perhatikan cara memegang IC yang benar
2. Sebelum melakukan langkah-langkah percobaan,yakinlah bahwa Switch Power
Base pada kondisi off.
D.INSTRUKSI KERJA
1. Pastikan alat dan bahan tersedia
2. Pastikan alat dan bahan siap digunakan
3. Tulis program di notepad sebagai berikut

$mod51
baris equ P0 ;Data Baris
DTA bit P2.0
MRST bit P2.2
CLOCK bit P2.4

jkl equ 24

start: MOV P0,#127
mov dptr,#ud1
call upi
call fl
call lr
mov dptr,#BINA
call dni
call fl
call lr
mov dptr,#wyt
call rs
mov dptr,#tbl
call lr
mov dptr,#ud1
call fl
call upo
mov dptr,#ud1
call dni
call fl
call lr
mov dptr,#ud1
call upi
call upo
mov dptr,#bina
call lr
mov dptr,#ud1
call dno
call dni
call fl
call lr
jmp start

;geser kiri
lr:
lr3: mov r7,#20
lr2: call rst
mov r6,#0
lr1: mov a,r6
movc a,@a+dptr
cjne a,#255,ljt
ret
ljt: mov Baris,a
call tunda
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,lr1
djnz r7,lr2
inc dptr
jmp lr3

;geser kanan
rs: mov b,#0ffh
masih: inc b
mov a,b
movc a,@a+dptr
cjne a,#255,masih
rl3: mov r7,#20
rl2: call rst
mov r6,#0
rl1: mov a,r6
add a,b
movc a,@a+dptr
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,rl1
djnz r7,rl2
djnz b,rl3
ret

;flash
fl: mov r5,#7
fl3: mov r7,#50
fl2: call rst
mov r6,#0
fl1: mov a,r6
movc a,@a+dptr
mov Baris,a
call tunda
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,fl1
djnz r7,fl2
mov r4,#50
fl4: mov r3,#jkl
fl5: call tunda
djnz r3,fl5
djnz r4,fl4
djnz r5,fl3
ret

;up in
upi: mov r4,#255
mov r5,#0
up4: inc r5
mov a,r4
clr c
rlc a
mov r4,a
mov r7,#40
up3: mov Baris,#127
call rst
mov r6,#0
up2: mov a,r6
movc a,@a+dptr
setb acc.7
mov b,r5
up1: rl a
djnz b,up1
orl a,r4
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,up2
djnz r7,up3
cjne r5,#8,up4
ret

;up out
upo: mov r4,#0
mov r5,#0
uo4: inc r5
mov r7,#40
uo3: mov Baris,#127
call rst
mov r6,#0
uo2: mov a,r6
movc a,@a+dptr
rr a
mov b,r5
uo1: rl a
djnz b,uo1
orl a,r4
mov Baris,a
call tunda
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,uo2
djnz r7,uo3
mov a,r4
setb c
rlc a
mov r4,a
cjne r5,#8,uo4
ret

;down in
dni: mov r4,#255
mov r5,#0
dn4: inc r5
mov a,r4
clr c
rrc a
mov r4,a
mov r7,#40
dn3: mov Baris,#127
call rst
mov r6,#0
dn2: mov a,r6
movc a,@a+dptr
setb acc.7
mov b,r5
dn1: rr a
djnz b,dn1
orl a,r4
mov Baris,a
call tunda
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,dn2
djnz r7,dn3
cjne r5,#8,dn4
ret

;down out
dno: mov r4,#0
mov r5,#0
do4: inc r5
mov r7,#40
do3: mov Baris,#127
call rst
mov r6,#0
do2: mov a,r6
movc a,@a+dptr
setb acc.7
mov b,r5
do1: rr a
djnz b,do1
orl a,r4
mov Baris,a
call tunda
mov Baris,#127
call clk
inc r6
cjne r6,#jkl,do2
djnz r7,do3
mov a,r4
setb c
rrc a
mov r4,a
cjne r5,#8,do4
ret
sdata: SETB dta
CALL clk
CLR dta
RET
rst: clr MRST
nop
setb p2.2
call sdata
ret
clk: SETB clock
NOP
CLR clock
RET
tunda: push b
MOV B,#45
DJNZ B,$
pop b
RET

;SMK = 3 chr
ud1: db 127, 127, 127, 127, 89 , 54 , 54 , 54 , 77 , 127, 0 , 125, 115, 125, 0 , 127, 0 , 119, 107, 93 , 62 , 127
db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255
tlr: db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
db 0 , 25 , 123, 119, 0 , 95 , 43 , 43 , 43 , 7 , 123, 123, 64 , 59 , 59 , 95 , 43 , 43 , 43 , 7 , 127, 62 , 63 , 127
;BINA = 4 chr
BINA: db 127, 0 , 54 , 54 , 54 , 73 , 127, 127, 62 , 0 , 62 , 127, 127, 0 , 125, 123, 119, 0 , 127
db 1 , 118, 118, 118, 1 , 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255
;WIYATA = 6 chr
wyt: db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
db 64 , 63 , 71 , 63 , 64 , 127, 127, 62 , 0 , 62 , 127, 127, 120, 119, 15 , 119, 120, 127
db 1 , 118, 118, 118, 1 , 127, 126, 126, 0 , 126, 126, 127, 1 , 118, 118, 118, 1 , 127
db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255
;SMK Binawiyata Karangmalang Sragen Alamat: Jln. Abimanyu No.18 Taman Asri Sr = 80 chr
tbl: db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
db 89 , 54 , 54 , 54 , 77 , 127, 0 , 125, 115, 125, 0 , 127, 0 , 119, 107, 93 , 62 , 127
db 127, 127, 127, 127, 127, 127, 0 , 54 , 54 , 54 , 73 , 127, 127, 59 , 2 , 63 , 127, 127
db 3 , 119, 123, 123, 7 , 127, 95 , 43 , 43 , 43 , 7 , 127, 67 , 63 , 79 , 63 , 67 , 127
db 127, 59 , 2 , 63 , 127, 127, 123, 119, 15 , 119, 123, 127, 95 , 43 , 43 , 43 , 7 , 127
db 123, 123, 64 , 59 , 59 , 127, 95 , 43 , 43 , 43 , 7 , 127, 127, 127, 127, 127, 127, 127
db 0 , 119, 107, 93 , 62 , 127, 95 , 43 , 43 , 43 , 7 , 127, 3 , 119, 123, 123, 119, 127
db 95 , 43 , 43 , 43 , 7 , 127, 3 , 119, 123, 123, 7 , 127, 119, 43 , 43 , 43 , 67 , 127
db 3 , 123, 3 , 123, 7 , 127, 95 , 43 , 43 , 43 , 7 , 127, 127, 62 , 0 , 63 , 127, 127
db 95 , 43 , 43 , 43 , 7 , 127, 3 , 119, 123, 123, 7 , 127, 119, 43 , 43 , 43 , 67 , 127
db 127, 127, 127, 127, 127, 127, 89 , 54 , 54 , 54 , 77 , 127, 3 , 119, 123, 123, 119, 127
db 95 , 43 , 43 , 43 , 7 , 127, 119, 43 , 43 , 43 , 67 , 127, 71 , 43 , 43 , 43 , 103, 127
db 3 , 119, 123, 123, 7 , 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 1 , 118, 118, 118, 1 , 127
db 127, 62 , 0 , 63 , 127, 127, 95 , 43 , 43 , 43 , 7 , 127, 3 , 123, 3 , 123, 7 , 127
db 95 , 43 , 43 , 43 , 7 , 127, 123, 123, 64 , 59 , 59 , 127, 127, 73 , 73 , 127, 127, 127
db 95 , 63 , 62 , 62 , 64 , 127, 127, 62 , 0 , 63 , 127, 127, 3 , 119, 12 , 123, 7 , 127
db 127, 31 , 31 , 127, 127, 127, 1 , 118, 118, 118, 1 , 127, 0 , 59 , 59 , 59 , 71 , 127
db 127, 59 , 2 , 63 , 127, 127, 3 , 123, 3 , 123, 7 , 127, 95 , 43 , 43 , 43 , 7 , 127
db 3 , 119, 123, 123, 7 , 127, 123, 119, 15 , 119, 123, 127, 67 , 63 , 63 , 95 , 3 , 127
db 127, 127, 127, 127, 127, 127, 0 , 125, 123, 119, 0 , 127, 71 , 59 , 59 , 59 , 71 , 127
db 127, 31 , 31 , 127, 127, 127, 127, 61 , 0 , 63 , 127, 127, 73 , 54 , 54 , 54 , 73 , 127
db 127, 127, 127, 127, 127, 127, 126, 126, 0 , 126, 126, 127, 95 , 43 , 43 , 43 , 7 , 127
db 3 , 123, 3 , 123, 7 , 127, 95 , 43 , 43 , 43 , 7 , 127, 3 , 119, 123, 123, 7 , 127
db 127, 127, 127, 127, 127, 127, 1 , 118, 118, 118, 1 , 127, 5 , 43 , 43 , 43 , 91 , 127
db 3 , 119, 123, 123, 119, 127, 127, 59 , 2 , 63 , 127, 127, 127, 127, 127, 127, 127, 127
db 89 , 54 , 54 , 54 , 77 , 127, 3 , 119, 123, 123, 119, 127 ;agen 57221 Telp. (0271)891818
;E-mail: smkbw_srg@yahoo.com Website: http://smkbinaw = 80 chr
db 95 , 43 , 43 , 43 , 7 , 127, 119, 43 , 43 , 43 , 67 , 127, 71 , 43 , 43 , 43 , 103, 127
db 3 , 119, 123, 123, 7 , 127, 127, 127, 127, 127, 127, 127, 56 , 58 , 58 , 58 , 70 , 127
db 126, 14 , 118, 122, 124, 127, 61 , 30 , 46 , 54 , 57 , 127, 61 , 30 , 46 , 54 , 57 , 127
db 127, 61 , 0 , 63 , 127, 127, 127, 127, 127, 127, 127, 127, 126, 126, 0 , 126, 126, 127
db 71 , 43 , 43 , 43 , 103, 127, 127, 62 , 0 , 63 , 127, 127, 3 , 107, 107, 107, 119, 127
db 127, 31 , 31 , 127, 127, 127, 99 , 93 , 62 , 127, 127, 127, 65 , 62 , 62 , 62 , 65 , 127
db 61 , 30 , 46 , 54 , 57 , 127, 126, 14 , 118, 122, 124, 127, 127, 61 , 0 , 63 , 127, 127
db 127, 127, 62 , 93 , 99 , 127, 73 , 54 , 54 , 54 , 73 , 127, 89 , 54 , 54 , 54 , 65 , 127
db 127, 61 , 0 , 63 , 127, 127, 73 , 54 , 54 , 54 , 73 , 127, 127, 61 , 0 , 63 , 127, 127
db 73 , 54 , 54 , 54 , 73 , 127, 127, 127, 127, 127, 127, 127, 0 , 54 , 54 , 54 , 62 , 127
db 119, 119, 119, 119, 119, 127, 3 , 123, 3 , 123, 7 , 127, 95 , 43 , 43 , 43 , 7 , 127
db 127, 59 , 2 , 63 , 127, 127, 127, 62 , 0 , 63 , 127, 127, 127, 73 , 73 , 127, 127, 127
db 55 , 43 , 43 , 43 , 91 , 127, 3 , 123, 3 , 123, 7 , 127, 0 , 111, 87 , 59 , 127, 127
db 0 , 59 , 59 , 59 , 71 , 127, 67 , 63 , 79 , 63 , 67 , 127, 63 , 63 , 63 , 63 , 63 , 127
db 55 , 43 , 43 , 43 , 91 , 127, 3 , 119, 123, 123, 119, 127, 119, 43 , 43 , 43 , 67 , 127
db 65 , 62 , 34 , 42 , 33 , 127, 123, 119, 15 , 119, 123, 127, 95 , 43 , 43 , 43 , 7 , 127
db 0 , 119, 123, 123, 7 , 127, 71 , 59 , 59 , 59 , 71 , 127, 71 , 59 , 59 , 59 , 71 , 127
db 127, 31 , 31 , 127, 127, 127, 71 , 59 , 59 , 59 , 59 , 127, 71 , 59 , 59 , 59 , 71 , 127
db 3 , 123, 3 , 123, 7 , 127, 127, 127, 127, 127, 127, 127, 64 , 63 , 71 , 63 , 64 , 127
db 71 , 43 , 43 , 43 , 103, 127, 0 , 59 , 59 , 59 , 71 , 127, 55 , 43 , 43 , 43 , 91 , 127
db 127, 59 , 2 , 63 , 127, 127, 123, 123, 64 , 59 , 59 , 127, 71 , 43 , 43 , 43 , 103, 127
db 127, 73 , 73 , 127, 127, 127, 127, 127, 127, 127, 127, 127, 0 , 119, 123, 123, 7 , 127
db 123, 123, 64 , 59 , 59 , 127, 123, 123, 64 , 59 , 59 , 127, 3 , 107, 107, 107, 119, 127
db 127, 73 , 73 , 127, 127, 127, 95 , 111, 119, 123, 125, 127, 95 , 111, 119, 123, 125, 127
db 55 , 43 , 43 , 43 , 91 , 127, 3 , 123, 3 , 123, 7 , 127, 0 , 111, 87 , 59 , 127, 127
db 0 , 59 , 59 , 59 , 71 , 127, 127, 59 , 2 , 63 , 127, 127, 3 , 119, 123, 123, 7 , 127
db 95 , 43 , 43 , 43 , 7 , 127, 67 , 63 , 79 , 63 , 67 , 127
;iyata.sch.id = 12 chr
db 127, 59 , 2 , 63 , 127, 127, 123, 119, 15 , 119, 123, 127, 95 , 43 , 43 , 43 , 7 , 127
db 123, 123, 64 , 59 , 59 , 127, 95 , 43 , 43 , 43 , 7 , 127, 127, 31 , 31 , 127, 127, 127
db 55 , 43 , 43 , 43 , 91 , 127, 71 , 59 , 59 , 59 , 59 , 127, 0 , 119, 123, 123, 7 , 127
db 127, 31 , 31 , 127, 127, 127, 127, 59 , 2 , 63 , 127, 127, 71 , 59 , 59 , 59 , 0 , 127
db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255

end

4. Dikompal dengan ASM51,hingga 0 error
5. Gambar rangkain sesuai intruksi pembimbing
6. Masukkan data notepad yang sudah diketik di atas pada IC AT89C51
7. Gambar hasil program yang kita buat