* S . S . E *

Pada penelitian Penerapan LED Matriks 8 Baris X 80 Kolom Sebagai Penampil Teks dan Gambar Berbasis Mikrokontroler AT89S52 ini memerlukan beberapa bahan dan alat. Bahan penelitian terdiri dari komponen-komponen yang akan dirakit, sedangkan alat penelitian terdiri dari perangkat-perangkat yang mendukung dalam pembuatan alat ini. Perangkat-perangkat ini terdiri dari perangkat lunak dan perangkat keras, perangkat lunak digunakan pada perancangan skema rangkaian dan board PCB serta pada pemrograman mikrokontroler AT89S52 sedangkan perangkat keras digunakan pada pengujian-pengujian alat pada setiap blok-blok rangkaian yang tersusun untuk membentuk suatu sistem penampil LED matriks.
FOTONE

Board Utama

Driver Baris

Driver Kolom

Programe

=========================================================================
; Program LED MATRIK 8 BARIS X 80 KOLOM
; Mikrokontroler AT89S52
; Input Karakter / huruf lewat komputer (download)
;=========================================================================
Baris Equ P0
Multiplexer Equ P1
Kolom Equ P2
;=========================================================================
; RAM internal awal
;=========================================================================
XH equ 10H
XL equ 11H
YH equ 12H
YL equ 13H
ZH equ 14H
ZL equ 15H
Z0 equ 16H
Z1 equ 17H
Z2 equ 18H
Z3 equ 19H

Free_1 equ 1Ah
Free_2 equ 1bh
Free_3 equ 1ch
Free_4 equ 1dh
Free_5 equ 1eh
Free_6 equ 1fh

Data_ASCII equ 20H
Data_matrix equ 0A0H
;=========================================================================
; Program utama
;=========================================================================
Org 0000H
Program_utama:
JMP Halaman_utama_1 ; lompat ke halaman 1
;=========================================================================
; Sub proses penampilan tiap halaman
;=========================================================================
Halaman_utama_1: ; Input 225 huruf halaman pertama
mov dptr,#0000H
clr a
mov free_1,#0
mov free_2,#0
sjmp Tulisan_1
Tulisan_1:
mov free_1,#0
CALL Hapus_tampilan
call tampilkan
CALL isi_1
call tampilkan
tampil_lagi_1:
mov r7,#6
tampilan_1:
call tampilkan
call geser_kiri
djnz r7,tampilan_1
inc free_1
mov a,free_1
cjne a,#220,lanjutan_1
JMP Halaman_utama_2 ; lompat ke halaman 2 ini yang diganti sub halaman, di copy paste.
lanjutan_1:
call naikkan_1
sjmp tampil_lagi_1
naikkan_1:
mov DPTR, #Initial_Display_Data_1
jmp scan_huruf
;=========================================================================
Halaman_utama_2: ; Input 225 huruf halaman kedua
mov dptr,#0000H
clr a
mov free_1,#0
mov free_2,#0
sjmp Tulisan_2
Tulisan_2:
mov free_1,#0
CALL Hapus_tampilan
call tampilkan
CALL isi_2
call tampilkan
tampil_lagi_2:
mov r7,#6
tampilan_2:
call tampilkan
call geser_kiri
djnz r7,tampilan_2
inc free_1
mov a,free_1
cjne a,#220,lanjutan_2
JMP Halaman_utama_3 ; lompat ke halaman 3
lanjutan_2:
call naikkan_2
sjmp tampil_lagi_2
naikkan_2:
mov DPTR, #Initial_Display_Data_2
jmp scan_huruf
;=========================================================================
Halaman_utama_3: ; Input 225 huruf halaman ketiga
mov dptr,#0000H
clr a
mov free_1,#0
mov free_2,#0
sjmp Tulisan_3
Tulisan_3:
mov free_1,#0
CALL Hapus_tampilan
call tampilkan
CALL isi_3
call tampilkan
tampil_lagi_3:
mov r7,#6
tampilan_3:
call tampilkan
call geser_kiri
djnz r7,tampilan_3
inc free_1
mov a,free_1
cjne a,#220,lanjutan_3
JMP Halaman_utama_4 ; lompat ke halaman 4
lanjutan_3:
call naikkan_3
sjmp tampil_lagi_3
naikkan_3:
mov DPTR, #Initial_Display_Data_3
jmp scan_huruf
;=========================================================================
Halaman_utama_4: ; Input 225 huruf halaman keempat
mov dptr,#0000H
clr a
mov free_1,#0
mov free_2,#0
sjmp Tulisan_4
Tulisan_4:
mov free_1,#0
CALL Hapus_tampilan
call tampilkan
CALL isi_4
call tampilkan
tampil_lagi_4:
mov r7,#6
tampilan_4:
call tampilkan
call geser_kiri
djnz r7,tampilan_4
inc free_1
mov a,free_1
cjne a,#220,lanjutan_4
JMP Halaman_utama_5 ; lompat ke halaman 5
lanjutan_4:
call naikkan_4
sjmp tampil_lagi_4
naikkan_4:
mov DPTR, #Initial_Display_Data_4
jmp scan_huruf
;=========================================================================
Halaman_utama_5: ; Input 225 huruf halaman kelima
mov dptr,#0000H
clr a
mov free_1,#0
mov free_2,#0
sjmp Tulisan_5
Tulisan_5:
mov free_1,#0
CALL Hapus_tampilan
call tampilkan
CALL isi_5
call tampilkan
tampil_lagi_5:
mov r7,#6
tampilan_5:
call tampilkan
call geser_kiri
djnz r7,tampilan_5
inc free_1
mov a,free_1
cjne a,#220,lanjutan_5
JMP Halaman_GAMBAR ; lompat ke halaman gambar
lanjutan_5:
call naikkan_5
sjmp tampil_lagi_5
naikkan_5:
mov DPTR, #Initial_Display_Data_5
jmp scan_huruf
;=========================================================================
Halaman_gambar: ; Input gambar
mov dptr,#0000H
clr a
mov free_1,#0
mov free_2,#0
sjmp Tulisan_gambar
Tulisan_gambar:
mov free_1,#0
mov free_3,#0
mov free_4,#200
CALL Hapus_tampilan
call tampilkan
CALL isi_gambar
tampil_gambar:
call tampilkan
djnz free_3,tampil_gambar
geser_gambar:
call geser_kiri
call tampilkan
djnz free_4,geser_gambar
JMP PROGRAM_UTAMA ; lompat ke program utama
;============================================================================================================
; Data ASCII ke DPTR maksimal 225 karakter per halaman/page
;============================================================================================================
Initial_Display_Data_1:
db ' abcdefghijklmnopqrstttttttttttttttttttttttttttttttttyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy';100 karakter
db 'wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww';100 karakter
db 'tessssssssss. ',0ffh ;25 karakter

Initial_Display_Data_2:
db ' Setiap halaman mampu menampung 225 karakter huruf dan angka, sehingga keseluruhan mem';100 karakter
db 'ori dapat menampilkan 1125 karakter. Sistem scanning yang digunakan adalah scanning data tiap kolom';100 karakter
db '. ',0ffh ;25 karakter

Initial_Display_Data_3:
db ' Driver kolom digunakan IC Latch Enable seri 74HC573 yang diparalel 10, sehingga dapat';100 karakter
db ' mengendalikan 80 kolom LED display. Driver baris menggunakan transistor jenis BC557 yang berjumlah';100 karakter
db ' 8 buah. ',0ffh ;25 karakter

Initial_Display_Data_4:
db ' Untuk menghemat port mikrokontroler pada saat mengendalikan driver kolom, digunakan I';100 karakter
db 'C Multiplexer seri 74HCT154 yang mampu mengendalikan maksimal 16 channel driver kolom. Pada alat in';100 karakter
db 'i dipakai 10 channel. ',0ffh ;25 karakter

Initial_Display_Data_5:
db ' Alat ini dapat digunakan sebagai alternatif periklanan pada malam hari, warna LED jug';100 karakter
db 'a dapat ditentukan seperti merah, biru, kuning, hijau, dll. LED ini juga dapat menampilkan gambar 8';100 karakter
db ' bit monokrom. Trims. ',0ffh ;25 karakter

;=============================================================================
; SCANNING GESER DATA KE KIRI
;=============================================================================
scan_huruf:
clr a
mov a,free_1
Scan_huruf1: CJNE A,#1,Scan_huruf2
mov free_2,#1
H1: inc dptr
djnz free_2,H1
jmp sambung
Scan_huruf2: CJNE A,#2,Scan_huruf3
mov free_2,#2
H2: inc dptr
djnz free_2,H2
jmp sambung
Scan_huruf3: CJNE A,#3,Scan_huruf4
mov free_2,#3
H3: inc dptr
djnz free_2,H3
jmp sambung
Scan_huruf4: CJNE A,#4,Scan_huruf5
mov free_2,#4
H4: inc dptr
djnz free_2,H4
jmp sambung
Scan_huruf5: CJNE A,#5,Scan_huruf6
mov free_2,#5
H5: inc dptr
djnz free_2,H5
jmp sambung
Scan_huruf6: CJNE A,#6,Scan_huruf7
mov free_2,#6
H6: inc dptr
djnz free_2,H6
jmp sambung
Scan_huruf7: CJNE A,#7,Scan_huruf8
mov free_2,#7
H7: inc dptr
djnz free_2,H7
jmp sambung
Scan_huruf8: CJNE A,#8,Scan_huruf9
mov free_2,#8
H8: inc dptr
djnz free_2,H8
jmp sambung
Scan_huruf9: CJNE A,#9,Scan_huruf10
mov free_2,#9
H9: inc dptr
djnz free_2,H9
jmp sambung
Scan_huruf10: CJNE A,#10,Scan_huruf11
mov free_2,#10
H10:inc dptr
djnz free_2,H10
jmp sambung
;=============================================================================
Scan_huruf11: CJNE A,#11,Scan_huruf12
mov free_2,#11
H11: inc dptr
djnz free_2,H11
jmp sambung
Scan_huruf12: CJNE A,#12,Scan_huruf13
mov free_2,#12
H12: inc dptr
djnz free_2,H12
jmp sambung
Scan_huruf13: CJNE A,#13,Scan_huruf14
mov free_2,#13
H13: inc dptr
djnz free_2,H13
jmp sambung
Scan_huruf14: CJNE A,#14,Scan_huruf15
mov free_2,#14
H14: inc dptr
djnz free_2,H14
jmp sambung
Scan_huruf15: CJNE A,#15,Scan_huruf16
mov free_2,#15
H15: inc dptr
djnz free_2,H15
jmp sambung
Scan_huruf16: CJNE A,#16,Scan_huruf17
mov free_2,#16
H16: inc dptr
djnz free_2,H16
jmp sambung
Scan_huruf17: CJNE A,#17,Scan_huruf18
mov free_2,#17
H17: inc dptr
djnz free_2,H17
jmp sambung
Scan_huruf18: CJNE A,#18,Scan_huruf19
mov free_2,#18
H18: inc dptr
djnz free_2,H18
jmp sambung
Scan_huruf19: CJNE A,#19,Scan_huruf20
mov free_2,#19
H19: inc dptr
djnz free_2,H19
jmp sambung
Scan_huruf20: CJNE A,#20,Scan_huruf21
mov free_2,#20
H20: inc dptr
djnz free_2,H20
jmp sambung
;=============================================================================
Scan_huruf21: CJNE A,#21,Scan_huruf22
mov free_2,#21
H21: inc dptr
djnz free_2,H21
jmp sambung
Scan_huruf22: CJNE A,#22,Scan_huruf23
mov free_2,#22
H22: inc dptr
djnz free_2,H22
jmp sambung
Scan_huruf23: CJNE A,#23,Scan_huruf24
mov free_2,#23
H23: inc dptr
djnz free_2,H23
jmp sambung
Scan_huruf24: CJNE A,#24,Scan_huruf25
mov free_2,#24
H24: inc dptr
djnz free_2,H24
jmp sambung
Scan_huruf25: CJNE A,#25,Scan_huruf26
mov free_2,#25
H25: inc dptr
djnz free_2,H25
jmp sambung
Scan_huruf26: CJNE A,#26,Scan_huruf27
mov free_2,#26
H26: inc dptr
djnz free_2,H26
jmp sambung
Scan_huruf27: CJNE A,#27,Scan_huruf28
mov free_2,#27
H27: inc dptr
djnz free_2,H27
jmp sambung
Scan_huruf28: CJNE A,#28,Scan_huruf29
mov free_2,#28
H28: inc dptr
djnz free_2,H28
jmp sambung
Scan_huruf29: CJNE A,#29,Scan_huruf30
mov free_2,#29
H29: inc dptr
djnz free_2,H29
jmp sambung
Scan_huruf30: CJNE A,#30,scan_huruf31
mov free_2,#30
H30:inc dptr
djnz free_2,H30
jmp sambung
;=============================================================================
Scan_huruf31: CJNE A,#31,Scan_huruf32
mov free_2,#31
H31: inc dptr
djnz free_2,H31
jmp sambung
Scan_huruf32: CJNE A,#32,Scan_huruf33
mov free_2,#32
H32: inc dptr
djnz free_2,H32
jmp sambung
Scan_huruf33: CJNE A,#33,Scan_huruf34
mov free_2,#33
H33: inc dptr
djnz free_2,H33
jmp sambung
Scan_huruf34: CJNE A,#34,Scan_huruf35
mov free_2,#34
H34: inc dptr
djnz free_2,H34
jmp sambung
Scan_huruf35: CJNE A,#35,Scan_huruf36
mov free_2,#35
H35: inc dptr
djnz free_2,H35
jmp sambung
Scan_huruf36: CJNE A,#36,Scan_huruf37
mov free_2,#36
H36: inc dptr
djnz free_2,H36
jmp sambung
Scan_huruf37: CJNE A,#37,Scan_huruf38
mov free_2,#37
H37: inc dptr
djnz free_2,H37
jmp sambung
Scan_huruf38: CJNE A,#38,Scan_huruf39
mov free_2,#38
H38: inc dptr
djnz free_2,H38
jmp sambung
Scan_huruf39: CJNE A,#39,Scan_huruf40
mov free_2,#39
H39: inc dptr
djnz free_2,H39
jmp sambung
Scan_huruf40: CJNE A,#40,Scan_huruf41
mov free_2,#40
H40:inc dptr
djnz free_2,H40
jmp sambung
;=============================================================================
Scan_huruf41: CJNE A,#41,Scan_huruf42
mov free_2,#41
H41: inc dptr
djnz free_2,H41
jmp sambung
Scan_huruf42: CJNE A,#42,Scan_huruf43
mov free_2,#42
H42: inc dptr
djnz free_2,H42
jmp sambung
Scan_huruf43: CJNE A,#43,Scan_huruf44
mov free_2,#43
H43: inc dptr
djnz free_2,H43
jmp sambung
Scan_huruf44: CJNE A,#44,Scan_huruf45
mov free_2,#44
H44: inc dptr
djnz free_2,H44
jmp sambung
Scan_huruf45: CJNE A,#45,Scan_huruf46
mov free_2,#45
H45: inc dptr
djnz free_2,H45
jmp sambung
Scan_huruf46: CJNE A,#46,Scan_huruf47
mov free_2,#46
H46: inc dptr
djnz free_2,H46
jmp sambung
Scan_huruf47: CJNE A,#47,Scan_huruf48
mov free_2,#47
H47: inc dptr
djnz free_2,H47
jmp sambung
Scan_huruf48: CJNE A,#48,Scan_huruf49
mov free_2,#48
H48: inc dptr
djnz free_2,H48
jmp sambung
Scan_huruf49: CJNE A,#49,Scan_huruf50
mov free_2,#49
H49: inc dptr
djnz free_2,H49
jmp sambung
Scan_huruf50: CJNE A,#50,Scan_huruf51
mov free_2,#50
H50:inc dptr
djnz free_2,H50
jmp sambung
;=============================================================================
Scan_huruf51: CJNE A,#51,Scan_huruf52
mov free_2,#51
H51: inc dptr
djnz free_2,H51
jmp sambung
Scan_huruf52: CJNE A,#52,Scan_huruf53
mov free_2,#52
H52: inc dptr
djnz free_2,H52
jmp sambung
Scan_huruf53: CJNE A,#53,Scan_huruf54
mov free_2,#53
H53: inc dptr
djnz free_2,H53
jmp sambung
Scan_huruf54: CJNE A,#54,Scan_huruf55
mov free_2,#54
H54: inc dptr
djnz free_2,H54
jmp sambung
Scan_huruf55: CJNE A,#55,Scan_huruf56
mov free_2,#55
H55: inc dptr
djnz free_2,H55
jmp sambung
Scan_huruf56: CJNE A,#56,Scan_huruf57
mov free_2,#56
H56: inc dptr
djnz free_2,H56
jmp sambung
Scan_huruf57: CJNE A,#57,Scan_huruf58
mov free_2,#57
H57: inc dptr
djnz free_2,H57
jmp sambung
Scan_huruf58: CJNE A,#58,Scan_huruf59
mov free_2,#58
H58: inc dptr
djnz free_2,H58
jmp sambung
Scan_huruf59: CJNE A,#59,Scan_huruf60
mov free_2,#59
H59: inc dptr
djnz free_2,H59
jmp sambung
Scan_huruf60: CJNE A,#60,Scan_huruf61
mov free_2,#60
H60:inc dptr
djnz free_2,H60
jmp sambung
;=============================================================================
Scan_huruf61: CJNE A,#61,Scan_huruf62
mov free_2,#61
H61: inc dptr
djnz free_2,H61
jmp sambung
Scan_huruf62: CJNE A,#62,Scan_huruf63
mov free_2,#62
H62: inc dptr
djnz free_2,H62
jmp sambung
Scan_huruf63: CJNE A,#63,Scan_huruf64
mov free_2,#63
H63: inc dptr
djnz free_2,H63
jmp sambung
Scan_huruf64: CJNE A,#64,Scan_huruf65
mov free_2,#64
H64: inc dptr
djnz free_2,H64
jmp sambung
Scan_huruf65: CJNE A,#65,Scan_huruf66
mov free_2,#65
H65: inc dptr
djnz free_2,H65
jmp sambung
Scan_huruf66: CJNE A,#66,Scan_huruf67
mov free_2,#66
H66: inc dptr
djnz free_2,H66
jmp sambung
Scan_huruf67: CJNE A,#67,Scan_huruf68
mov free_2,#67
H67: inc dptr
djnz free_2,H67
jmp sambung
Scan_huruf68: CJNE A,#68,Scan_huruf69
mov free_2,#68
H68: inc dptr
djnz free_2,H68
jmp sambung
Scan_huruf69: CJNE A,#69,Scan_huruf70
mov free_2,#69
H69: inc dptr
djnz free_2,H69
jmp sambung
Scan_huruf70: CJNE A,#70,Scan_huruf71
mov free_2,#70
H70:inc dptr
djnz free_2,H70
jmp sambung
;=============================================================================
Scan_huruf71: CJNE A,#71,Scan_huruf72
mov free_2,#71
H71: inc dptr
djnz free_2,H71
jmp sambung
Scan_huruf72: CJNE A,#72,Scan_huruf73
mov free_2,#72
H72: inc dptr
djnz free_2,H72
jmp sambung
Scan_huruf73: CJNE A,#73,Scan_huruf74
mov free_2,#73
H73: inc dptr
djnz free_2,H73
jmp sambung
Scan_huruf74: CJNE A,#74,Scan_huruf75
mov free_2,#74
H74: inc dptr
djnz free_2,H74
jmp sambung
Scan_huruf75: CJNE A,#75,Scan_huruf76
mov free_2,#75
H75: inc dptr
djnz free_2,H75
jmp sambung
Scan_huruf76: CJNE A,#76,Scan_huruf77
mov free_2,#76
H76: inc dptr
djnz free_2,H76
jmp sambung
Scan_huruf77: CJNE A,#77,Scan_huruf78
mov free_2,#77
H77: inc dptr
djnz free_2,H77
jmp sambung
Scan_huruf78: CJNE A,#78,Scan_huruf79
mov free_2,#78
H78: inc dptr
djnz free_2,H78
jmp sambung
Scan_huruf79: CJNE A,#79,Scan_huruf80
mov free_2,#79
H79: inc dptr
djnz free_2,H79
jmp sambung
Scan_huruf80: CJNE A,#80,Scan_huruf81
mov free_2,#80
H80:inc dptr
djnz free_2,H80
jmp sambung
;=============================================================================
Scan_huruf81: CJNE A,#81,Scan_huruf82
mov free_2,#81
H81: inc dptr
djnz free_2,H81
jmp sambung
Scan_huruf82: CJNE A,#82,Scan_huruf83
mov free_2,#82
H82: inc dptr
djnz free_2,H82
jmp sambung
Scan_huruf83: CJNE A,#83,Scan_huruf84
mov free_2,#83
H83: inc dptr
djnz free_2,H83
jmp sambung
Scan_huruf84: CJNE A,#84,Scan_huruf85
mov free_2,#84
H84: inc dptr
djnz free_2,H84
jmp sambung
Scan_huruf85: CJNE A,#85,Scan_huruf86
mov free_2,#85
H85: inc dptr
djnz free_2,H85
jmp sambung
Scan_huruf86: CJNE A,#86,Scan_huruf87
mov free_2,#86
H86: inc dptr
djnz free_2,H86
jmp sambung
Scan_huruf87: CJNE A,#87,Scan_huruf88
mov free_2,#87
H87: inc dptr
djnz free_2,H87
jmp sambung
Scan_huruf88: CJNE A,#88,Scan_huruf89
mov free_2,#88
H88: inc dptr
djnz free_2,H88
jmp sambung
Scan_huruf89: CJNE A,#89,Scan_huruf90
mov free_2,#89
H89: inc dptr
djnz free_2,H89
jmp sambung
Scan_huruf90: CJNE A,#90,Scan_huruf91
mov free_2,#90
H90:inc dptr
djnz free_2,H90
jmp sambung
;=============================================================================
Scan_huruf91: CJNE A,#91,Scan_huruf92
mov free_2,#91
H91: inc dptr
djnz free_2,H91
jmp sambung
Scan_huruf92: CJNE A,#92,Scan_huruf93
mov free_2,#92
H92: inc dptr
djnz free_2,H92
jmp sambung
Scan_huruf93: CJNE A,#93,Scan_huruf94
mov free_2,#93
H93: inc dptr
djnz free_2,H93
jmp sambung
Scan_huruf94: CJNE A,#94,Scan_huruf95
mov free_2,#94
H94: inc dptr
djnz free_2,H94
jmp sambung
Scan_huruf95: CJNE A,#95,Scan_huruf96
mov free_2,#95
H95: inc dptr
djnz free_2,H95
jmp sambung
Scan_huruf96: CJNE A,#96,Scan_huruf97
mov free_2,#96
H96: inc dptr
djnz free_2,H96
jmp sambung
Scan_huruf97: CJNE A,#97,Scan_huruf98
mov free_2,#97
H97: inc dptr
djnz free_2,H97
jmp sambung
Scan_huruf98: CJNE A,#98,Scan_huruf99
mov free_2,#98
H98: inc dptr
djnz free_2,H98
jmp sambung
Scan_huruf99: CJNE A,#99,Scan_huruf100
mov free_2,#99
H99: inc dptr
djnz free_2,H99
jmp sambung
Scan_huruf100: CJNE A,#100,scan_huruf101
mov free_2,#100
H100:inc dptr
djnz free_2,H100
jmp sambung
;=============================================================================
Scan_huruf101: CJNE A,#101,Scan_huruf102
mov free_2,#101
H101: inc dptr
djnz free_2,H101
jmp sambung
Scan_huruf102: CJNE A,#102,Scan_huruf103
mov free_2,#102
H102: inc dptr
djnz free_2,H102
jmp sambung
Scan_huruf103: CJNE A,#103,Scan_huruf104
mov free_2,#103
H103: inc dptr
djnz free_2,H103
jmp sambung
Scan_huruf104: CJNE A,#104,Scan_huruf105
mov free_2,#104
H104: inc dptr
djnz free_2,H104
jmp sambung
Scan_huruf105: CJNE A,#105,Scan_huruf106
mov free_2,#105
H105: inc dptr
djnz free_2,H105
jmp sambung
Scan_huruf106: CJNE A,#106,Scan_huruf107
mov free_2,#106
H106: inc dptr
djnz free_2,H106
jmp sambung
Scan_huruf107: CJNE A,#107,Scan_huruf108
mov free_2,#107
H107: inc dptr
djnz free_2,H107
jmp sambung
Scan_huruf108: CJNE A,#108,Scan_huruf109
mov free_2,#108
H108: inc dptr
djnz free_2,H108
jmp sambung
Scan_huruf109: CJNE A,#109,Scan_huruf110
mov free_2,#109
H109: inc dptr
djnz free_2,H109
jmp sambung
Scan_huruf110: CJNE A,#110,Scan_huruf111
mov free_2,#110
H110:inc dptr
djnz free_2,H110
jmp sambung
;=============================================================================
Scan_huruf111: CJNE A,#111,Scan_huruf112
mov free_2,#111
H111: inc dptr
djnz free_2,H111
jmp sambung
Scan_huruf112: CJNE A,#112,Scan_huruf113
mov free_2,#112
H112: inc dptr
djnz free_2,H112
jmp sambung
Scan_huruf113: CJNE A,#113,Scan_huruf114
mov free_2,#113
H113: inc dptr
djnz free_2,H113
jmp sambung
Scan_huruf114: CJNE A,#114,Scan_huruf115
mov free_2,#114
H114: inc dptr
djnz free_2,H114
jmp sambung
Scan_huruf115: CJNE A,#115,Scan_huruf116
mov free_2,#115
H115: inc dptr
djnz free_2,H115
jmp sambung
Scan_huruf116: CJNE A,#116,Scan_huruf117
mov free_2,#116
H116: inc dptr
djnz free_2,H116
jmp sambung
Scan_huruf117: CJNE A,#117,Scan_huruf118
mov free_2,#117
H117: inc dptr
djnz free_2,H117
jmp sambung
Scan_huruf118: CJNE A,#118,Scan_huruf119
mov free_2,#118
H118: inc dptr
djnz free_2,H118
jmp sambung
Scan_huruf119: CJNE A,#119,Scan_huruf120
mov free_2,#119
H119: inc dptr
djnz free_2,H119
jmp sambung
Scan_huruf120: CJNE A,#120,Scan_huruf121
mov free_2,#120
H120: inc dptr
djnz free_2,H120
jmp sambung
;=============================================================================
Scan_huruf121: CJNE A,#121,Scan_huruf122
mov free_2,#121
H121: inc dptr
djnz free_2,H121
jmp sambung
Scan_huruf122: CJNE A,#122,Scan_huruf123
mov free_2,#122
H122: inc dptr
djnz free_2,H122
jmp sambung
Scan_huruf123: CJNE A,#123,Scan_huruf124
mov free_2,#123
H123: inc dptr
djnz free_2,H123
jmp sambung
Scan_huruf124: CJNE A,#124,Scan_huruf125
mov free_2,#124
H124: inc dptr
djnz free_2,H124
jmp sambung
Scan_huruf125: CJNE A,#125,Scan_huruf126
mov free_2,#125
H125: inc dptr
djnz free_2,H125
jmp sambung
Scan_huruf126: CJNE A,#126,Scan_huruf127
mov free_2,#126
H126: inc dptr
djnz free_2,H126
jmp sambung
Scan_huruf127: CJNE A,#127,Scan_huruf128
mov free_2,#127
H127: inc dptr
djnz free_2,H127
jmp sambung
Scan_huruf128: CJNE A,#128,Scan_huruf129
mov free_2,#128
H128: inc dptr
djnz free_2,H128
jmp sambung
Scan_huruf129: CJNE A,#129,Scan_huruf130
mov free_2,#129
H129: inc dptr
djnz free_2,H129
jmp sambung
Scan_huruf130: CJNE A,#130,scan_huruf131
mov free_2,#130
H130:inc dptr
djnz free_2,H130
jmp sambung

Scan_huruf131: CJNE A,#31,Scan_huruf132
mov free_2,#131
H131: inc dptr
djnz free_2,H131
jmp sambung
Scan_huruf132: CJNE A,#132,Scan_huruf133
mov free_2,#132
H132: inc dptr
djnz free_2,H132
jmp sambung
Scan_huruf133: CJNE A,#133,Scan_huruf134
mov free_2,#133
H133: inc dptr
djnz free_2,H133
jmp sambung
Scan_huruf134: CJNE A,#134,Scan_huruf135
mov free_2,#134
H134: inc dptr
djnz free_2,H134
jmp sambung
Scan_huruf135: CJNE A,#135,Scan_huruf136
mov free_2,#135
H135: inc dptr
djnz free_2,H135
jmp sambung
Scan_huruf136: CJNE A,#136,Scan_huruf137
mov free_2,#136
H136: inc dptr
djnz free_2,H136
jmp sambung
Scan_huruf137: CJNE A,#137,Scan_huruf138
mov free_2,#137
H137: inc dptr
djnz free_2,H137
jmp sambung
Scan_huruf138: CJNE A,#138,Scan_huruf139
mov free_2,#138
H138: inc dptr
djnz free_2,H138
jmp sambung
Scan_huruf139: CJNE A,#139,Scan_huruf140
mov free_2,#139
H139: inc dptr
djnz free_2,H139
jmp sambung
Scan_huruf140: CJNE A,#140,Scan_huruf141
mov free_2,#140
H140:inc dptr
djnz free_2,H140
jmp sambung
;=============================================================================
Scan_huruf141: CJNE A,#141,Scan_huruf142
mov free_2,#141
H141: inc dptr
djnz free_2,H141
jmp sambung
Scan_huruf142: CJNE A,#142,Scan_huruf143
mov free_2,#142
H142: inc dptr
djnz free_2,H142
jmp sambung
Scan_huruf143: CJNE A,#143,Scan_huruf144
mov free_2,#143
H143: inc dptr
djnz free_2,H143
jmp sambung
Scan_huruf144: CJNE A,#144,Scan_huruf145
mov free_2,#144
H144: inc dptr
djnz free_2,H144
jmp sambung
Scan_huruf145: CJNE A,#145,Scan_huruf146
mov free_2,#145
H145: inc dptr
djnz free_2,H145
jmp sambung
Scan_huruf146: CJNE A,#146,Scan_huruf147
mov free_2,#146
H146: inc dptr
djnz free_2,H146
jmp sambung
Scan_huruf147: CJNE A,#147,Scan_huruf148
mov free_2,#147
H147: inc dptr
djnz free_2,H147
jmp sambung
Scan_huruf148: CJNE A,#148,Scan_huruf149
mov free_2,#148
H148: inc dptr
djnz free_2,H148
jmp sambung
Scan_huruf149: CJNE A,#149,Scan_huruf150
mov free_2,#149
H149: inc dptr
djnz free_2,H149
jmp sambung
Scan_huruf150: CJNE A,#150,Scan_huruf151
mov free_2,#150
H150:inc dptr
djnz free_2,H150
jmp sambung
;=============================================================================
Scan_huruf151: CJNE A,#151,Scan_huruf152
mov free_2,#151
H151: inc dptr
djnz free_2,H151
jmp sambung
Scan_huruf152: CJNE A,#152,Scan_huruf153
mov free_2,#152
H152: inc dptr
djnz free_2,H152
jmp sambung
Scan_huruf153: CJNE A,#153,Scan_huruf154
mov free_2,#153
H153: inc dptr
djnz free_2,H153
jmp sambung
Scan_huruf154: CJNE A,#154,Scan_huruf155
mov free_2,#154
H154: inc dptr
djnz free_2,H154
jmp sambung
Scan_huruf155: CJNE A,#155,Scan_huruf156
mov free_2,#155
H155: inc dptr
djnz free_2,H155
jmp sambung
Scan_huruf156: CJNE A,#156,Scan_huruf157
mov free_2,#156
H156: inc dptr
djnz free_2,H156
jmp sambung
Scan_huruf157: CJNE A,#157,Scan_huruf158
mov free_2,#157
H157: inc dptr
djnz free_2,H157
jmp sambung
Scan_huruf158: CJNE A,#158,Scan_huruf159
mov free_2,#158
H158: inc dptr
djnz free_2,H158
jmp sambung
Scan_huruf159: CJNE A,#159,Scan_huruf160
mov free_2,#159
H159: inc dptr
djnz free_2,H159
jmp sambung
Scan_huruf160: CJNE A,#160,Scan_huruf161
mov free_2,#160
H160:inc dptr
djnz free_2,H160
jmp sambung
;=============================================================================
Scan_huruf161: CJNE A,#161,Scan_huruf162
mov free_2,#161
H161: inc dptr
djnz free_2,H161
jmp sambung
Scan_huruf162: CJNE A,#162,Scan_huruf163
mov free_2,#162
H162: inc dptr
djnz free_2,H162
jmp sambung
Scan_huruf163: CJNE A,#163,Scan_huruf164
mov free_2,#163
H163: inc dptr
djnz free_2,H163
jmp sambung
Scan_huruf164: CJNE A,#164,Scan_huruf165
mov free_2,#164
H164: inc dptr
djnz free_2,H164
jmp sambung
Scan_huruf165: CJNE A,#165,Scan_huruf166
mov free_2,#165
H165: inc dptr
djnz free_2,H165
jmp sambung
Scan_huruf166: CJNE A,#166,Scan_huruf167
mov free_2,#166
H166: inc dptr
djnz free_2,H166
jmp sambung
Scan_huruf167: CJNE A,#167,Scan_huruf168
mov free_2,#167
H167: inc dptr
djnz free_2,H167
jmp sambung
Scan_huruf168: CJNE A,#168,Scan_huruf169
mov free_2,#168
H168: inc dptr
djnz free_2,H168
jmp sambung
Scan_huruf169: CJNE A,#169,Scan_huruf170
mov free_2,#169
H169: inc dptr
djnz free_2,H169
jmp sambung
Scan_huruf170: CJNE A,#170,Scan_huruf171
mov free_2,#170
H170:inc dptr
djnz free_2,H170
jmp sambung
;=============================================================================
Scan_huruf171: CJNE A,#171,Scan_huruf172
mov free_2,#171
H171: inc dptr
djnz free_2,H171
jmp sambung
Scan_huruf172: CJNE A,#172,Scan_huruf173
mov free_2,#172
H172: inc dptr
djnz free_2,H172
jmp sambung
Scan_huruf173: CJNE A,#173,Scan_huruf174
mov free_2,#173
H173: inc dptr
djnz free_2,H173
jmp sambung
Scan_huruf174: CJNE A,#174,Scan_huruf175
mov free_2,#174
H174: inc dptr
djnz free_2,H174
jmp sambung
Scan_huruf175: CJNE A,#175,Scan_huruf176
mov free_2,#175
H175: inc dptr
djnz free_2,H175
jmp sambung
Scan_huruf176: CJNE A,#176,Scan_huruf177
mov free_2,#176
H176: inc dptr
djnz free_2,H176
jmp sambung
Scan_huruf177: CJNE A,#177,Scan_huruf178
mov free_2,#177
H177: inc dptr
djnz free_2,H177
jmp sambung
Scan_huruf178: CJNE A,#178,Scan_huruf179
mov free_2,#178
H178: inc dptr
djnz free_2,H178
jmp sambung
Scan_huruf179: CJNE A,#179,Scan_huruf180
mov free_2,#179
H179: inc dptr
djnz free_2,H179
jmp sambung
Scan_huruf180: CJNE A,#180,Scan_huruf181
mov free_2,#180
H180:inc dptr
djnz free_2,H180
jmp sambung
;=============================================================================
Scan_huruf181: CJNE A,#181,Scan_huruf182
mov free_2,#181
H181: inc dptr
djnz free_2,H181
jmp sambung
Scan_huruf182: CJNE A,#182,Scan_huruf183
mov free_2,#182
H182: inc dptr
djnz free_2,H182
jmp sambung
Scan_huruf183: CJNE A,#183,Scan_huruf184
mov free_2,#183
H183: inc dptr
djnz free_2,H183
jmp sambung
Scan_huruf184: CJNE A,#184,Scan_huruf185
mov free_2,#184
H184: inc dptr
djnz free_2,H184
jmp sambung
Scan_huruf185: CJNE A,#185,Scan_huruf186
mov free_2,#185
H185: inc dptr
djnz free_2,H185
jmp sambung
Scan_huruf186: CJNE A,#186,Scan_huruf187
mov free_2,#186
H186: inc dptr
djnz free_2,H186
jmp sambung
Scan_huruf187: CJNE A,#187,Scan_huruf188
mov free_2,#187
H187: inc dptr
djnz free_2,H187
jmp sambung
Scan_huruf188: CJNE A,#188,Scan_huruf189
mov free_2,#188
H188: inc dptr
djnz free_2,H188
jmp sambung
Scan_huruf189: CJNE A,#189,Scan_huruf190
mov free_2,#189
H189: inc dptr
djnz free_2,H189
jmp sambung
Scan_huruf190: CJNE A,#190,Scan_huruf191
mov free_2,#190
H190:inc dptr
djnz free_2,H190
jmp sambung
;=============================================================================
Scan_huruf191: CJNE A,#191,Scan_huruf192
mov free_2,#191
H191: inc dptr
djnz free_2,H191
jmp sambung
Scan_huruf192: CJNE A,#192,Scan_huruf193
mov free_2,#192
H192: inc dptr
djnz free_2,H192
jmp sambung
Scan_huruf193: CJNE A,#193,Scan_huruf194
mov free_2,#193
H193: inc dptr
djnz free_2,H193
jmp sambung
Scan_huruf194: CJNE A,#194,Scan_huruf195
mov free_2,#194
H194: inc dptr
djnz free_2,H194
jmp sambung
Scan_huruf195: CJNE A,#195,Scan_huruf196
mov free_2,#195
H195: inc dptr
djnz free_2,H195
jmp sambung
Scan_huruf196: CJNE A,#196,Scan_huruf197
mov free_2,#196
H196: inc dptr
djnz free_2,H196
jmp sambung
Scan_huruf197: CJNE A,#197,Scan_huruf198
mov free_2,#197
H197: inc dptr
djnz free_2,H197
jmp sambung
Scan_huruf198: CJNE A,#198,Scan_huruf199
mov free_2,#198
H198: inc dptr
djnz free_2,H198
jmp sambung
Scan_huruf199: CJNE A,#199,Scan_huruf200
mov free_2,#199
H199: inc dptr
djnz free_2,H199
jmp sambung
Scan_huruf200: CJNE A,#200,Scan_huruf201
mov free_2,#200
H200:inc dptr
djnz free_2,H200
jmp sambung
;=============================================================================
Scan_huruf201: CJNE A,#201,Scan_huruf202
mov free_2,#201
H201: inc dptr
djnz free_2,H201
jmp sambung
Scan_huruf202: CJNE A,#202,Scan_huruf203
mov free_2,#202
H202: inc dptr
djnz free_2,H202
jmp sambung
Scan_huruf203: CJNE A,#203,Scan_huruf204
mov free_2,#203
H203: inc dptr
djnz free_2,H203
jmp sambung
Scan_huruf204: CJNE A,#204,Scan_huruf205
mov free_2,#204
H204: inc dptr
djnz free_2,H204
jmp sambung
Scan_huruf205: CJNE A,#205,Scan_huruf206
mov free_2,#205
H205: inc dptr
djnz free_2,H205
jmp sambung
Scan_huruf206: CJNE A,#206,Scan_huruf207
mov free_2,#206
H206: inc dptr
djnz free_2,H206
jmp sambung
Scan_huruf207: CJNE A,#207,Scan_huruf208
mov free_2,#207
H207: inc dptr
djnz free_2,H207
jmp sambung
Scan_huruf208: CJNE A,#208,Scan_huruf209
mov free_2,#208
H208: inc dptr
djnz free_2,H208
jmp sambung
Scan_huruf209: CJNE A,#209,Scan_huruf210
mov free_2,#209
H209: inc dptr
djnz free_2,H209
jmp sambung
Scan_huruf210: CJNE A,#210,Scan_huruf211
mov free_2,#210
H210:inc dptr
djnz free_2,H210
jmp sambung
;=============================================================================
Scan_huruf211: CJNE A,#211,Scan_huruf212
mov free_2,#211
H211: inc dptr
djnz free_2,H211
jmp sambung
Scan_huruf212: CJNE A,#212,Scan_huruf213
mov free_2,#212
H212: inc dptr
djnz free_2,H212
jmp sambung
Scan_huruf213: CJNE A,#213,Scan_huruf214
mov free_2,#213
H213: inc dptr
djnz free_2,H213
jmp sambung
Scan_huruf214: CJNE A,#214,Scan_huruf215
mov free_2,#214
H214: inc dptr
djnz free_2,H214
jmp sambung
Scan_huruf215: CJNE A,#215,Scan_huruf216
mov free_2,#215
H215: inc dptr
djnz free_2,H215
jmp sambung
Scan_huruf216: CJNE A,#216,Scan_huruf217
mov free_2,#216
H216: inc dptr
djnz free_2,H216
jmp sambung
Scan_huruf217: CJNE A,#217,Scan_huruf218
mov free_2,#217
H217: inc dptr
djnz free_2,H217
jmp sambung
Scan_huruf218: CJNE A,#218,Scan_huruf219
mov free_2,#218
H218: inc dptr
djnz free_2,H218
jmp sambung
Scan_huruf219: CJNE A,#219,Scan_huruf220
mov free_2,#219
H219: inc dptr
djnz free_2,H219
jmp sambung
Scan_huruf220: CJNE A,#220,Scan_huruf221
mov free_2,#220
H220: inc dptr
djnz free_2,H220
jmp sambung
;=============================================================================
Scan_huruf221: CJNE A,#221,Scan_huruf222
mov free_2,#221
H221: inc dptr
djnz free_2,H221
jmp sambung
Scan_huruf222: CJNE A,#222,Scan_huruf223
mov free_2,#222
H222: inc dptr
djnz free_2,H222
jmp sambung
Scan_huruf223: CJNE A,#223,Scan_huruf224
mov free_2,#223
H223: inc dptr
djnz free_2,H223
jmp sambung
Scan_huruf224: CJNE A,#224,Scan_huruf225
mov free_2,#224
H224: inc dptr
djnz free_2,H224
jmp sambung
Scan_huruf225: CJNE A,#225,Scan_huruf226
mov free_2,#225
H225: inc dptr
djnz free_2,H225
jmp sambung
Scan_huruf226: CJNE A,#226,Scan_huruf227
mov free_2,#226
H226: inc dptr
djnz free_2,H226
jmp sambung
Scan_huruf227: CJNE A,#227,Scan_huruf228
mov free_2,#227
H227: inc dptr
djnz free_2,H227
jmp sambung
Scan_huruf228: CJNE A,#228,Scan_huruf229
mov free_2,#228
H228: inc dptr
djnz free_2,H228
jmp sambung
Scan_huruf229: CJNE A,#229,Scan_huruf230
mov free_2,#229
H229: inc dptr
djnz free_2,H229
jmp sambung
Scan_huruf230: CJNE A,#230,scan_huruf231
mov free_2,#230
H230:inc dptr
djnz free_2,H230
jmp sambung
;=============================================================================
Scan_huruf231: CJNE A,#231,Scan_huruf232
mov free_2,#231
H231: inc dptr
djnz free_2,H231
jmp sambung
Scan_huruf232: CJNE A,#232,Scan_huruf233
mov free_2,#232
H232: inc dptr
djnz free_2,H232
jmp sambung
Scan_huruf233: CJNE A,#233,Scan_huruf234
mov free_2,#233
H233: inc dptr
djnz free_2,H233
jmp sambung
Scan_huruf234: CJNE A,#234,Scan_huruf235
mov free_2,#234
H234: inc dptr
djnz free_2,H234
jmp sambung
Scan_huruf235: CJNE A,#235,Scan_huruf236
mov free_2,#235
H235: inc dptr
djnz free_2,H235
jmp sambung
Scan_huruf236: CJNE A,#236,Scan_huruf237
mov free_2,#236
H236: inc dptr
djnz free_2,H236
jmp sambung
Scan_huruf237: CJNE A,#237,Scan_huruf238
mov free_2,#237
H237: inc dptr
djnz free_2,H237
jmp sambung
Scan_huruf238: CJNE A,#238,Scan_huruf239
mov free_2,#238
H238: inc dptr
djnz free_2,H238
jmp sambung
Scan_huruf239: CJNE A,#239,Scan_huruf240
mov free_2,#239
H239: inc dptr
djnz free_2,H239
jmp sambung
Scan_huruf240: CJNE A,#240,Scan_huruf241
mov free_2,#240
H240:inc dptr
djnz free_2,H240
jmp sambung
;=============================================================================
Scan_huruf241: CJNE A,#241,Scan_huruf242
mov free_2,#241
H241: inc dptr
djnz free_2,H241
jmp sambung
Scan_huruf242: CJNE A,#242,Scan_huruf243
mov free_2,#242
H242: inc dptr
djnz free_2,H242
jmp sambung
Scan_huruf243: CJNE A,#243,Scan_huruf244
mov free_2,#243
H243: inc dptr
djnz free_2,H243
jmp sambung
Scan_huruf244: CJNE A,#244,Scan_huruf245
mov free_2,#244
H244: inc dptr
djnz free_2,H244
jmp sambung
Scan_huruf245: CJNE A,#245,Scan_huruf246
mov free_2,#245
H245: inc dptr
djnz free_2,H245
jmp sambung
Scan_huruf246: CJNE A,#246,Scan_huruf247
mov free_2,#246
H246: inc dptr
djnz free_2,H246
jmp sambung
Scan_huruf247: CJNE A,#247,Scan_huruf248
mov free_2,#247
H247: inc dptr
djnz free_2,H247
jmp sambung
Scan_huruf248: CJNE A,#248,Scan_huruf249
mov free_2,#248
H248: inc dptr
djnz free_2,H248
jmp sambung
Scan_huruf249: CJNE A,#249,Scan_huruf250
mov free_2,#249
H249: inc dptr
djnz free_2,H249
jmp sambung
Scan_huruf250: CJNE A,#250,Scan_huruf251
mov free_2,#250
H250:inc dptr
djnz free_2,H250
jmp sambung
;=============================================================================
Scan_huruf251: CJNE A,#251,Scan_huruf252
mov free_2,#251
H251: inc dptr
djnz free_2,H251
jmp sambung
Scan_huruf252: CJNE A,#252,Scan_huruf253
mov free_2,#252
H252: inc dptr
djnz free_2,H252
jmp sambung
Scan_huruf253: CJNE A,#253,Scan_huruf254
mov free_2,#253
H253: inc dptr
djnz free_2,H253
jmp sambung
Scan_huruf254: CJNE A,#254,rampung
mov free_2,#254
H254: inc dptr
djnz free_2,H254
jmp sambung
;=============================================================================
rampung: ret

lanjutan_scan:
jmp scan_huruf

;=========================================================================
sambung:
call Save_ASCII_Data_To_RAM
call ASCII_To_DM_Data_Converter
ret
;=========================================================================

;=========================================================================
; Isi register data pointer dengan data define byte
;=========================================================================
ISI_1:
mov DPTR, #Initial_Display_Data_1
call Save_ASCII_Data_To_RAM
call ASCII_To_DM_Data_Converter
ret
ISI_2:
mov DPTR, #Initial_Display_Data_2
call Save_ASCII_Data_To_RAM
call ASCII_To_DM_Data_Converter
ret
ISI_3:
mov DPTR, #Initial_Display_Data_3
call Save_ASCII_Data_To_RAM
call ASCII_To_DM_Data_Converter
ret
ISI_4:
mov DPTR, #Initial_Display_Data_4
call Save_ASCII_Data_To_RAM
call ASCII_To_DM_Data_Converter
ret
ISI_5:
mov DPTR, #Initial_Display_Data_5
call Save_ASCII_Data_To_RAM
call ASCII_To_DM_Data_Converter
ret
ISI_gambar:
mov DPTR, #Initial_Display_Data_gambar
call Save_gambar_Data_To_RAM
ret

;=========================================================================
; SCANNING TAMPILAN Multiplexer 74hct154
;=========================================================================
lagi_tampilKAN:
djnz r5,start_tampil
ret
Tampilkan:
mov r5,#1 ; delay untuk memperlambat pergeseran semakin tinggi nilai
; semakin lambat pergeseran huruf
; nilai paling cepat adalah = 1
start_tampil:
Mov Kolom,#0fFh
Mov R0,#Data_matrix
MOV Multiplexer,#00000000B ; multiplexer = channel-0
Mov Kolom,#0feh
Mov B,#8
Tampil_1:
Mov A,@r0
Mov Baris,A
Inc R0
Mov A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_1
Mov Kolom,#0ffH
Mov Multiplexer,#00000001B ; multiplexer = channel-1
Mov Kolom,#0feH
Mov B,#8
Tampil_2:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_2
MOV Kolom,#0ffH
MOV Multiplexer,#00000010B ; multiplexer = channel-2
MOV Kolom,#0feH
MOV B,#8
Tampil_3:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_3
MOV Kolom,#0ffH
MOV Multiplexer,#00000011B ; multiplexer = channel-3
MOV Kolom,#0feH
MOV B,#8
Tampil_4:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_4
MOV Kolom,#0ffH
MOV Multiplexer,#00000100B ; multiplexer = channel-4
MOV Kolom,#0feH
MOV B,#8
Tampil_5:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A; rotate left
Mov Kolom,A
DJNZ B,Tampil_5
MOV Kolom,#0ffH
MOV Multiplexer,#00000101B ; multiplexer = channel-5
MOV Kolom,#0feH
MOV B,#8
Tampil_6:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_6
MOV Kolom,#0ffH
MOV Multiplexer,#00000110B ; multiplexer = channel-6
MOV Kolom,#0feH
MOV B,#8
Tampil_7:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_7
MOV Kolom,#0ffH
MOV Multiplexer,#00000111B ; multiplexer = channel-7
MOV Kolom,#0feH
MOV B,#8
Tampil_8:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_8
MOV Kolom,#0ffH
MOV Multiplexer,#00001000B ; multiplexer = channel-8
MOV Kolom,#0feH
MOV B,#8
Tampil_9:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_9
MOV Kolom,#0ffH
MOV Multiplexer,#00001001B ; multiplexer = channel-9
MOV Kolom,#0feH
MOV B,#8
Tampil_10:
MOV A,@r0
MOV Baris,A
Inc R0
MOV A,Kolom
CALL DELAY
RL A
Mov Kolom,A
DJNZ B,Tampil_10
MOV Kolom,#0ffH
jmp lagi_tampilKAN
Ret
;=========================================================================
; Menyimpan data ASCII ke ram internal
;=========================================================================
Save_ASCII_Data_To_RAM:
mov R1, #Data_ASCII

Save_ASCII_Data_To_RAM_Loop:
clr A
movc A, @A+DPTR
cjne a,#0ffh,save
Save_ASCII_Data_To_RAM_Exit:
ret
save:mov @R1, A
inc DPTR
inc R1
sjmp Save_ASCII_Data_To_RAM_Loop
;=========================================================================
; Menyimpan data GAMBAR ke ram internal
;=========================================================================
Save_gambar_Data_To_RAM:
mov R1, #Data_matrix
mov free_5,#160
Save_ASCII_Data_To_RAM_Loop2:
clr A
movc A, @A+DPTR
djnz free_5,save2
Save_ASCII_Data_To_RAM_Exit2:
ret
save2:mov @R1, A
inc DPTR
inc R1
sjmp Save_ASCII_Data_To_RAM_Loop2
;=========================================================================
; Menghapus isi ram internal
;=========================================================================
hapus_tampilan:
mov A, #0ffH
mov R0, #00H
mov R1, #0
Blank_Display_Loop1:
mov @R0, A
inc R0
djnz R1, Blank_Display_Loop1
ret
;=========================================================================
; KONVERSI ASCII KE DATA DOT MATRIK
;=========================================================================
ASCII_To_DM_Data_Converter:
mov R2, #15 ; 15 DigiT ASCII
mov R0, #0a0H ; ALAMAT AWAL RAM 0a0H
mov R1, #Data_ASCII

ASCII_To_DM_Data_Converter_Loop:
mov A, @R1
subb A, #20H
mov XL, A
mov YL, #06 ; 6 BYTE
call MUL_8
mov XL, Z0
mov XH, Z1
inc R1
call Get_DM_Data
djnz R2, ASCII_To_DM_Data_Converter_Loop
ret
;=========================================================================
; AMBIL DATA DOT MATRIK
;=========================================================================
Get_DM_Data:
mov DPTR, #Char_Data
call DM_Data_Adjust
mov B, #6 ;SIMPAN 6 BYTE DATA

Get_DM_Data_Loop:
clr A
movc A, @A+DPTR
mov @R0, A
inc DPTR
inc R0
djnz B, Get_DM_Data_Loop
ret
DM_Data_Adjust:
mov YL, DPL
mov YH, DPH
mov A, XL
add A, YL
mov ZL, A
mov A, XH
addc A, YH
mov ZH, A
mov DPL, ZL
mov DPH, ZH
ret
MUL_8:
mov A, XL
mov B, YL
mul AB
mov Z1, B
mov Z0, A
ret
;=========================================================================
; WAKTU TUNDA
;=========================================================================
Delay:
mov R1, #30
call Delay_1
ret
Delay_1:
mov R3, #1
Delay_2:
mov R2, #1
djnz R2, $
djnz R3, Delay_2
djnz R1, Delay_1
ret
;=========================================================================
; GESER NILAI RAM KE KIRI
;=========================================================================
Geser_kiri:
mov a,#0ffh
mov r0,#0a0h
mov @r0,a
mov r0,#0a0h
mov r1,#09fh
call geser_ram
mov r0,#0a1h
mov r1,#0a0h
call geser_ram
mov r0,#0a2h
mov r1,#0a1h
call geser_ram
mov r0,#0a3h
mov r1,#0a2h
call geser_ram
mov r0,#0a4h
mov r1,#0a3h
call geser_ram
mov r0,#0a5h
mov r1,#0a4h
call geser_ram
mov r0,#0a6h
mov r1,#0a5h
call geser_ram
mov r0,#0a7h
mov r1,#0a6h
call geser_ram
mov r0,#0a8h
mov r1,#0a7h
call geser_ram
mov r0,#0a9h
mov r1,#0a8h
call geser_ram
mov r0,#0aah
mov r1,#0a9h
call geser_ram
mov r0,#0abh
mov r1,#0aah
call geser_ram
mov r0,#0ach
mov r1,#0abh
call geser_ram
mov r0,#0adh
mov r1,#0ach
call geser_ram
mov r0,#0aeh
mov r1,#0adh
call geser_ram
mov r0,#0afh
mov r1,#0aeh
call geser_ram
;=========================================================================
mov r0,#0b0h
mov r1,#0afh
call geser_ram
mov r0,#0b1h
mov r1,#0b0h
call geser_ram
mov r0,#0b2h
mov r1,#0b1h
call geser_ram
mov r0,#0b3h
mov r1,#0b2h
call geser_ram
mov r0,#0b4h
mov r1,#0b3h
call geser_ram
mov r0,#0b5h
mov r1,#0b4h
call geser_ram
mov r0,#0b6h
mov r1,#0b5h
call geser_ram
mov r0,#0b7h
mov r1,#0b6h
call geser_ram
mov r0,#0b8h
mov r1,#0b7h
call geser_ram
mov r0,#0b9h
mov r1,#0b8h
call geser_ram
mov r0,#0bah
mov r1,#0b9h
call geser_ram
mov r0,#0bbh
mov r1,#0bah
call geser_ram
mov r0,#0bch
mov r1,#0bbh
call geser_ram
mov r0,#0bdh
mov r1,#0bch
call geser_ram
mov r0,#0beh
mov r1,#0bdh
call geser_ram
mov r0,#0bfh
mov r1,#0beh
call geser_ram
;=========================================================================
mov r0,#0c0h
mov r1,#0bfh
call geser_ram
mov r0,#0c1h
mov r1,#0c0h
call geser_ram
mov r0,#0c2h
mov r1,#0c1h
call geser_ram
mov r0,#0c3h
mov r1,#0c2h
call geser_ram
mov r0,#0c4h
mov r1,#0c3h
call geser_ram
mov r0,#0c5h
mov r1,#0c4h
call geser_ram
mov r0,#0c6h
mov r1,#0c5h
call geser_ram
mov r0,#0c7h
mov r1,#0c6h
call geser_ram
mov r0,#0c8h
mov r1,#0c7h
call geser_ram
mov r0,#0c9h
mov r1,#0c8h
call geser_ram
mov r0,#0cah
mov r1,#0c9h
call geser_ram
mov r0,#0cbh
mov r1,#0cah
call geser_ram
mov r0,#0cch
mov r1,#0cbh
call geser_ram
mov r0,#0cdh
mov r1,#0cch
call geser_ram
mov r0,#0ceh
mov r1,#0cdh
call geser_ram
mov r0,#0cfh
mov r1,#0ceh
call geser_ram
;=========================================================================
mov r0,#0d0h
mov r1,#0cfh
call geser_ram
mov r0,#0d1h
mov r1,#0d0h
call geser_ram
mov r0,#0d2h
mov r1,#0d1h
call geser_ram
mov r0,#0d3h
mov r1,#0d2h
call geser_ram
mov r0,#0d4h
mov r1,#0d3h
call geser_ram
mov r0,#0d5h
mov r1,#0d4h
call geser_ram
mov r0,#0d6h
mov r1,#0d5h
call geser_ram
mov r0,#0d7h
mov r1,#0d6h
call geser_ram
mov r0,#0d8h
mov r1,#0d7h
call geser_ram
mov r0,#0d9h
mov r1,#0d8h
call geser_ram
mov r0,#0dah
mov r1,#0d9h
call geser_ram
mov r0,#0dbh
mov r1,#0dah
call geser_ram
mov r0,#0dch
mov r1,#0dbh
call geser_ram
mov r0,#0ddh
mov r1,#0dch
call geser_ram
mov r0,#0deh
mov r1,#0ddh
call geser_ram
mov r0,#0dfh
mov r1,#0deh
call geser_ram
;=========================================================================
mov r0,#0e0h
mov r1,#0dfh
call geser_ram
mov r0,#0e1h
mov r1,#0e0h
call geser_ram
mov r0,#0e2h
mov r1,#0e1h
call geser_ram
mov r0,#0e3h
mov r1,#0e2h
call geser_ram
mov r0,#0e4h
mov r1,#0e3h
call geser_ram
mov r0,#0e5h
mov r1,#0e4h
call geser_ram
mov r0,#0e6h
mov r1,#0e5h
call geser_ram
mov r0,#0e7h
mov r1,#0e6h
call geser_ram
mov r0,#0e8h
mov r1,#0e7h
call geser_ram
mov r0,#0e9h
mov r1,#0e8h
call geser_ram
mov r0,#0eah
mov r1,#0e9h
call geser_ram
mov r0,#0ebh
mov r1,#0eah
call geser_ram
mov r0,#0ech
mov r1,#0ebh
call geser_ram
mov r0,#0edh
mov r1,#0ech
call geser_ram
mov r0,#0eeh
mov r1,#0edh
call geser_ram
mov r0,#0efh
mov r1,#0eeh
call geser_ram
;=========================================================================
mov r0,#0f0h
mov r1,#0efh
call geser_ram
mov r0,#0f1h
mov r1,#0f0h
call geser_ram
mov r0,#0f2h
mov r1,#0f1h
call geser_ram
mov r0,#0f3h
mov r1,#0f2h
call geser_ram
mov r0,#0f4h
mov r1,#0f3h
call geser_ram
mov r0,#0f5h
mov r1,#0f4h
call geser_ram
mov r0,#0f6h
mov r1,#0f5h
call geser_ram
mov r0,#0f7h
mov r1,#0f6h
call geser_ram
mov r0,#0f8h
mov r1,#0f7h
call geser_ram
mov r0,#0f9h
mov r1,#0f8h
call geser_ram
mov r0,#0fah
mov r1,#0f9h
call geser_ram
mov r0,#0fbh
mov r1,#0fah
call geser_ram
mov r0,#0fch
mov r1,#0fbh
call geser_ram
mov r0,#0fdh
mov r1,#0fch
call geser_ram
mov r0,#0feh
mov r1,#0fdh
call geser_ram
mov r0,#0ffh
mov r1,#0feh
call geser_ram
ret
;=========================================================================
Geser_ram:
mov a,@r0
mov @r1,a
ret

;==============================================================================================================
; Data Gambar
;==============================================================================================================
Initial_Display_Data_Gambar:
db 0f1H, 0e0h, 0c0H, 80H, 01H, 80H, 0c0H, 0e0H, 0f1H, 0ffH
db 0c3H, 0bdh, 0efH, 5aH, 5eH, 5aH, 0efH, 0bdH, 0c3H, 0ffH
db 0f1H, 0e0h, 0c0H, 80H, 01H, 80H, 0c0H, 0e0H, 0f1H, 0ffH
db 0c3H, 0bdh, 0efH, 5aH, 5eH, 5aH, 0efH, 0bdH, 0c3H, 0ffH
db 0f1H, 0e0h, 0c0H, 80H, 01H, 80H, 0c0H, 0e0H, 0f1H, 0ffH
db 0c3H, 0bdh, 0efH, 5aH, 5eH, 5aH, 0efH, 0bdH, 0c3H, 0ffH
db 0f1H, 0e0h, 0c0H, 80H, 01H, 80H, 0c0H, 0e0H, 0f1H, 0ffH
db 0c3H, 0bdh, 0efH, 5aH, 5eH, 5aH, 0efH, 0bdH, 0c3H, 0ffH

db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH

;=========================================================================
; Data Huruf konversi matrik
;=========================================================================
Char_Data:
db 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH ;SPASI
db 0FFH, 0FFH, 0B0H, 0FFH, 0FFH, 0FFH ;!
db 0FFH, 0F8H, 0FFH, 0F8H, 0FFH, 0FFH ;"
db 0EBH, 080H, 0EBH, 080H, 0EBH, 0FFH ;#
db 0DBH, 0D5H, 080H, 0D5H, 0EDH, 0FFH ;$
db 0DCH, 0ECH, 0F7H, 09BH, 09DH, 0FFH ; tanda persen
db 0C9H, 0B6H, 0AAH, 0DDH, 0AFH, 0FFH ;&
db 0FFH, 0FAH, 0FCH, 0FFH, 0FFH, 0FFH ;'
db 0FFH, 0E3H, 0DDH, 0BEH, 0FFH, 0FFH ;(
db 0FFH, 0BEH, 0DDH, 0E3H, 0FFH, 0FFH ;)
db 0EBH, 0F7H, 0C1H, 0F7H, 0EBH, 0FFH ;*
db 0F7H, 0F7H, 0C1H, 0F7H, 0F7H, 0FFH ;+
db 0FFH, 0AFH, 0CFH, 0FFH, 0FFH, 0FFH ;,
db 0F7H, 0F7H, 0F7H, 0F7H, 0F7H, 0FFH ;-
db 0FFH, 09FH, 09FH, 0FFH, 0FFH, 0FFH ;.
db 0DFH, 0EFH, 0F7H, 0FBH, 0FDH, 0FFH ;/

db 0C1H, 0AEH, 0B6H, 0BAH, 0C1H, 0FFH ;0
db 0FFH, 0BDH, 080H, 0BFH, 0FFH, 0FFH ;1
db 0BDH, 09EH, 0AEH, 0B6H, 0B9H, 0FFH ;2
db 0DEH, 0BEH, 0BAH, 0B4H, 0CEH, 0FFH ;3
db 0E7H, 0EBH, 0EDH, 080H, 0EFH, 0FFH ;4
db 0D8H, 0BAH, 0BAH, 0BAH, 0C6H, 0FFH ;5
db 0C3H, 0B5H, 0B6H, 0B6H, 0CFH, 0FFH ;6
db 0FEH, 08EH, 0F6H, 0FAH, 0FCH, 0FFH ;7
db 0C9H, 0B6H, 0B6H, 0B6H, 0C9H, 0FFH ;8
db 0F9H, 0B6H, 0B6H, 0D6H, 0E1H, 0FFH ;9
db 0FFH, 0C9H, 0C9H, 0FFH, 0FFH, 0FFH ;:
db 0FFH, 0A9H, 0C9H, 0FFH, 0FFH, 0FFH ;;
db 0F7H, 0EBH, 0DDH, 0BEH, 0FFH, 0FFH ;<
db 0EBH, 0EBH, 0EBH, 0EBH, 0EBH, 0FFH ;=
db 0FFH, 0BEH, 0DDH, 0EBH, 0F7H, 0FFH ;>
db 0FDH, 0FEH, 0AEH, 0F6H, 0F9H, 0FFH ;?
db 0CDH, 0B6H, 086H, 0B6H, 0C1H, 0FFH ;@

db 081H, 0EEH, 0EEH, 0EEH, 081H, 0FFH ;A
db 080H, 0B6H, 0B6H, 0B6H, 0C9H, 0FFH ;B
db 0C1H, 0BEH, 0BEH, 0BEH, 0DDH, 0FFH ;C
db 080H, 0BEH, 0BEH, 0BEH, 0C1H, 0FFH ;D
db 080H, 0B6H, 0B6H, 0B6H, 0BEH, 0FFH ;E
db 080H, 0F6H, 0F6H, 0F6H, 0FEH, 0FFH ;F
db 0C1H, 0BEH, 0B6H, 0B6H, 0C5H, 0FFH ;G
db 080H, 0F7H, 0F7H, 0F7H, 080H, 0FFH ;H
db 0FFH, 0BEH, 080H, 0BEH, 0FFH, 0FFH ;I
db 0DFH, 0BFH, 0BEH, 0C0H, 0FEH, 0FFH ;J
db 080H, 0F7H, 0EBH, 0DDH, 0BEH, 0FFH ;K
db 080H, 0BFH, 0BFH, 0BFH, 0BFH, 0FFH ;L
db 080H, 0FDH, 0F3H, 0FDH, 080H, 0FFH ;M
db 080H, 0FBH, 0F7H, 0EFH, 080H, 0FFH ;N
db 0C1H, 0BEH, 0BEH, 0BEH, 0C1H, 0FFH ;O
db 080H, 0F6H, 0F6H, 0F6H, 0F9H, 0FFH ;P
db 0C1H, 0BEH, 0AEH, 0DEH, 0A1H, 0FFH ;Q
db 080H, 0F6H, 0E6H, 0D6H, 0B9H, 0FFH ;R
db 0B9H, 0B6H, 0B6H, 0B6H, 0CEH, 0FFH ;S
db 0FEH, 0FEH, 080H, 0FEH, 0FEH, 0FFH ;T
db 0C0H, 0BFH, 0BFH, 0BFH, 0C0H, 0FFH ;U
db 0E0H, 0DFH, 0BFH, 0DFH, 0E0H, 0FFH ;V
db 0C0H, 0BFH, 0C7H, 0BFH, 0C0H, 0FFH ;W
db 09CH, 0EBH, 0F7H, 0EBH, 09CH, 0FFH ;X
db 0F8H, 0F7H, 08FH, 0F7H, 0F8H, 0FFH ;Y
db 09EH, 0AEH, 0B6H, 0BAH, 0BCH, 0FFH ;Z

db 0FFH, 080H, 0BEH, 0BEH, 0FFH, 0FFH ;[
db 0EAH, 0E9H, 083H, 0E9H, 0EAH, 0FFH ;Y
db 0FFH, 0BEH, 0BEH, 080H, 0FFH, 0FFH ;]
db 0FBH, 0FDH, 0FEH, 0FDH, 0FBH, 0FFH ;^
db 0BFH, 0BFH, 0BFH, 0BFH, 0BFH, 0FFH ;_
db 0FFH, 0FEH, 0FDH, 0FBH, 0FFH, 0FFH ;`

db 0DFH, 0ABH, 0ABH, 0ABH, 087H, 0FFH ;a
db 080H, 0B7H, 0BBH, 0BBH, 0C7H, 0FFH ;b
db 0C7H, 0BBH, 0BBH, 0BBH, 0DFH, 0FFH ;c
db 0C7H, 0BBH, 0BBH, 0B7H, 080H, 0FFH ;d
db 0C7H, 0ABH, 0ABH, 0ABH, 0E7H, 0FFH ;e
db 0F7H, 081H, 0F6H, 0FEH, 0FDH, 0FFH ;f
db 0F3H, 0ADH, 0ADH, 0ADH, 0C1H, 0FFH ;g
db 080H, 0F7H, 0FBH, 0FBH, 087H, 0FFH ;h
db 0FFH, 0BBH, 082H, 0BFH, 0FFH, 0FFH ;i
db 0DFH, 0BFH, 0BBH, 0C2H, 0FFH, 0FFH ;j
db 080H, 0EFH, 0D7H, 0BBH, 0FFH, 0FFH ;k
db 0FFH, 0BEH, 080H, 0BFH, 0FFH, 0FFH ;l
db 083H, 0FBH, 0E7H, 0FBH, 087H, 0FFH ;m
db 083H, 0F7H, 0FBH, 0FBH, 087H, 0FFH ;n
db 0C7H, 0BBH, 0BBH, 0BBH, 0C7H, 0FFH ;o
db 083H, 0EBH, 0EBH, 0EBH, 0F7H, 0FFH ;p
db 0F7H, 0EBH, 0EBH, 0E7H, 083H, 0FFH ;q
db 083H, 0F7H, 0FBH, 0FBH, 0F7H, 0FFH ;r
db 0B7H, 0ABH, 0ABH, 0ABH, 0DFH, 0FFH ;s
db 0FBH, 0C0H, 0BBH, 0BFH, 0DFH, 0FFH ;t
db 0C3H, 0BFH, 0BFH, 0DFH, 083H, 0FFH ;u
db 0E3H, 0DFH, 0BFH, 0DFH, 0E3H, 0FFH ;v
db 0C3H, 0BFH, 0CFH, 0BFH, 0C3H, 0FFH ;w
db 0BBH, 0D7H, 0EFH, 0D7H, 0BBH, 0FFH ;x
db 0F3H, 0AFH, 0AFH, 0AFH, 0C3H, 0FFH ;y
db 0BBH, 09BH, 0ABH, 0B3H, 0BBH, 0FFH ;z
end