Posted by : Unknown Sabtu, 22 Februari 2014

ini program buatan ane sendiri gan memang si sederhana.,tapi moga aja bermanfaat.,judul program ini adalah menampilkan jadwal kuliah ane bro.,
jadi critanya program ane buat sebagai tugas UAS sob.,menggunakan Emu 8086.,

oke langsung saja.,ini scriptnya sob.,
Org 100h
MOV AH,02H          ;nilai servis untuk mencetak karakter
MOV DL,'J'          ;Karakter ASCII yang akan dicetak
INT 21H             ;mencetak karakter
MOV DL,'A'
INT 21H
MOV DL,'D'
INT 21H
MOV DL,'W'
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'L'
INT 21H
MOV DL,' '
INT 21H

MOV DL,'K'
INT 21H
MOV DL,'U'
INT 21H
MOV DL,'L'
INT 21H
MOV DL,'I'
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'H'
INT 21H
MOV DL,' '
INT 21H

MOV DL,'T'
INT 21H
MOV DL,'.'
INT 21H
MOV DL,'E'
INT 21H
MOV DL,'L'
INT 21H
MOV DL,'E'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'T'
INT 21H
MOV DL,'R'
INT 21H
MOV DL,'O'
INT 21H

MOV DL,' '
INT 21H
MOV DL,'2'
INT 21H
MOV DL,'0'
INT 21H
MOV DL,'1'
INT 21H
MOV DL,'2'
INT 21H
MOV DL,0DH
INT 21H
MOV DL,0AH
INT 21H
MOV DL,0DH
INT 21H

;KETERANGAN KELOMPOK 1
MOV DL,'T'
INT 21H
MOV DL,'E'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'N'
INT 21H
MOV DL,' '
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'N'
INT 21H
MOV DL,'G'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'('
INT 21H
MOV DL,'1'
INT 21H
MOV DL,')'
INT 21H
MOV DL,'='
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'E'
INT 21H
MOV DL,'L'
INT 21H
MOV DL,'O'
INT 21H
MOV DL,'M'
INT 21H
MOV DL,'P'
INT 21H
MOV DL,'O'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,' '
INT 21H
MOV DL,'1'
INT 21H
MOV DL,0DH
INT 21H
MOV DL,0AH
INT 21H
;KETERANGAN KELOMPOK 2
MOV DL,'T'
INT 21H
MOV DL,'E'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'N'
INT 21H
MOV DL,' '
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'N'
INT 21H
MOV DL,'G'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'A'
INT 21H
MOV DL,'('
INT 21H
MOV DL,'2'
INT 21H
MOV DL,')'
INT 21H
MOV DL,'='
INT 21H
MOV DL,'K'
INT 21H
MOV DL,'E'
INT 21H
MOV DL,'L'
INT 21H
MOV DL,'O'
INT 21H
MOV DL,'M'
INT 21H
MOV DL,'P'
INT 21H
MOV DL,'O'
INT 21H
MOV DL,'K'
INT 21H
MOV DL,' '
INT 21H
MOV DL,'2'
INT 21H
MOV DL,0DH      ;karakter enter
INT 21H         ;cetak karakter
MOV DL,0AH      ;karakter enter
INT 21H         ;cetak karakter
MOV DL,0DH
INT 21H
MOV DL,0AH
INT 21H


jmp mulai
                                                                      
msg1: db 0dh,0ah," #HARI              MATA KULIAH                      WAKTU          RUANG",0dh,0ah,0dh,0ah,"  *SENIN   :| Rangkaian Listrik&Teknik Digital     | 07.00-12.00 |  B.2.4  |",0dh,0ah,"  *SELASA :| Praktikum Teknik Elektro             | 08.40-10.20 |  B.2.4  |",0dh,0ah,"  *SELASA :| Medan Elektromagnet                  | 12.30-15.00 |  B.2.2  |",0dh,0ah,"  *RABU   :| Sumber Energi Baru Terbarukan        | 07.00-08.40 |  B.2.4  |",0dh,0ah,"  *RABU   :| Matematika Diskrit                   | 09.30-12.00 |  B.2.2  |",0dh,0ah,"  *JUMAT  :| Rangkaian Elektrik                   | 07.00-08.40 |  B.4.1  |",0dh,0ah,"  *JUMAT  :| BAHASA ASSEMBLY                      | 07.00-08.40 |  D.2.J  |",0dh,0ah,'$'
msg2: db 0dh,0ah," #HARI              MATA KULIAH                      WAKTU          RUANG",0dh,0ah,0dh,0ah,"  *SENIN   :| Rangkaian Listrik&Teknik Digital     | 07.00-12.00 |  B.2.4  |",0dh,0ah,"  *SELASA :| Praktikum Teknik Elektro             | 13.00-15.00 |  B.2.4  |",0dh,0ah,"  *SELASA :| Medan Elektromagnet                  | 09.30-12.00 |  B.2.2  |",0dh,0ah,"  *RABU   :| Sumber Energi Baru Terbarukan        | 07.00-08.40 |  B.2.4  |",0dh,0ah,"  *RABU   :| Matematika Diskrit                   | 12.30-03.00 |  B.2.2  |",0dh,0ah,"  *JUMAT  :| Rangkaian Elektrik                   | 12.30-03.00 |  B.4.1  |",0dh,0ah,"  *JUMAT  :| BAHASA ASSEMBLY                      | 07.00-08.40 |  D.2.J  |",0dh,0ah,'$'

                                             
mulai:

mov ah, 01      ;nilai servis di ah dg 01  
int 21h         ;cetak karakter

cmp al, '1'     ; bandingkan al dengan 01
je kel_1        ; lompat ke kelompok_1   jika sama
    
cmp al, '2'     ;bandingkan al dengan 2
je kel_2        ; lompat ke kelompok_2   jika sama


jmp exit        ;lompat ke exit
exit:           ;exit program
ret

kel_1:
    mov dx, msg1    ;ambil offset msg1
    mov ah, 9       ;servis untuk cetak kalimat
    int 21h         ;cetak kalimat
    jmp mulai       ;lompat ke mulai
kel_2:
    mov dx, msg2    ;ambil offset msg1
    mov ah, 9       ;servis untuk cetak kalimat
    int 21h         ;cetak kalimat
    jmp mulai       ;lompat ke mulai


ini gambar nya sob.,

nah, kalo ada kekurangan mohon dimaklumi ya sob.,tinggalkan comen yakk.,mari berdiskusi., thank :D

{ 1 komentar... read them below or add one }

Silahkan Agan2 skalian yang ingin share ilmunya dg isikan komentarnya :)

- Copyright © Programmers - Skyblue - Powered by Blogger - Designed by Johanes Djogan -