PROGRAM TULISAN BERJALAN DENGAN DOWNLOADER AT89S51

;__________________________________________________
;PROGRAM TULISAN BERJALAN MADE BY HAN'S TECHNOLOGY_
;__________________________________________________

ORG 00H
NOP
LJMP MULAI
;
WRITE_INST:
MOV P1,#0H
MOV P0,R1
SETB P1.1
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,#TAMPIL
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 LDELAY
DJNZ R4,BARISA
RET
;
MULAI: MOV R1,#03FH
ACALL WRITE_INST
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
;
TAMPIL: DB 'SELAMAT DATANG'
DB 'DI HANS TECHNOLOGY CORPORATIONS'
DB 'SELAMAT BELAJAR'
DB 'DAN'
DB 'SEMOGA BERHASIL'
DB '-----GOOD LUCK-----'
;
END


NOTE: TAMPIL MERUPAKAN TULISAN YANG AKAN MUNCUL DI LAYAR LED, SEHING TULISAN YANG DI BERI TANDA (' ') DAPAT DI GANTI SESUAI SELERA.
CONTOH :
'SELAMAT DATANG'
DAPAT DI GANTI
'SELAMAT JALAN'
TERSERAH ANDA MAU DI GANTI APA.....