Program Assembler Perbandingan Input Keyboard

Ulangan Bahasa Assembler Program Studi Teknik InformatikaSTMIK Budidarma
Program Assembler Perbandingan Input Keyboard
Deklarasi Masalah

1. Pada saat program dijalankan menghapus layar
2. Tampilkan teks REGISTRASI : (--> isikan teks sebagai ID anda dan Enter)
3. Menghapus layar
4. Tampilkan teks LOGIN : (isikan teks untuk login anda Enter)
5. Jika teks REGISTRASI = teks LOGIN --> maka SUKSES
    dan JIka teks REGISTRASI <> teks LOGIN --> maka GAGAL

Dari 9 Kelas Matakuliah Bahasa Assembler hanya 5 orang yang dapat menyelesaikannya walaupun terdapat pemakaian intruksi yang tidak diperlukan dalam proses :
Mahasiswa yang berhasil menyelesaikan program sederhana tersebut :
1. Nama : Aulia Ramadhan
    NPM : 0911333
    Kelas : TI-P0903
    _____________
    .model small
    .code
    org 100h
    tdata: jmp proses
    t1 db 'register:$'
    t2 db 13,10,'login:$'
    t3 db 'sukses      $'
    t4 db 'tidak cocok$'
    buffer1 db 23,?,23 dup(?)
    buffer2 db 23,?,23 dup(?)
    proses:
           mov ah,09
           lea dx,t1
           int 21h
           mov ah,0ah
           lea dx,buffer1
           int 21h   
           mov ah,09
           lea dx,t2
           int 21h
           mov ah,0ah
           lea dx,buffer2
           int 21h
           lea si,buffer1
           lea di,buffer2
           cld
           mov cx,23
           rep cmpsb
           jne gagal
           mov ah,09
           lea dx,t3
           int 21h
           jmp exit
  gagal :
          mov ah,09
          lea dx,t4
          int 21h
  exit   :
           int 20h
  end tdata

2. Nama : Gilang Juanda
    NPM : 0911481
    Kelas : TI-S0908

Cetak Macro Kalimat

mov AH,09h
mov DX,offset Kalimat
int 21h
ENDM

.Model Small
.Code
Org 100h

TData: JMP Proses
Garis1 DB 13,10,'======================================= $'
Garis2 DB 13,10,'--------------------------------------- $'
Judul DB 13,10,' -= TUGAS BAHASA ASSEMBLY =- $'
Kalimat1 DB 13,10,'Registrasi: $'
Kalimat2 DB 13,10,'Login : $'
Buffer1 DB 23,?,23 DUP(?)
Buffer2 DB 23,?,23 DUP(?)
Pesan1 DB 13,10,'BERHASIL..! Registrasi & Login cocok $'
Pesan2 DB 13,10,'GAGAL..! Registrasi & Login tidak cocok $'
Nama DB 13,10,' Nama: Gilang Juanda $'
NPM DB 13,10,' NPM : 0911481 $'
Tanya1 DB 13,10,'Coba lagi? (Y/T) $'

Proses:
Cetak Garis1
Cetak Judul
Cetak Garis1

MOV AH,09h
LEA DX,Kalimat1
INT 21h

MOV AH,0Ah
LEA DX,Buffer1
INT 21h

MOV AH,09h
LEA DX,Kalimat2
INT 21h

MOV AH,0Ah
LEA DX,Buffer2
INT 21h

LEA SI,Buffer1
LEA DI,Buffer2
CLD
MOV CX,23

REP CMPSB
JE Sama

REP CMPSB
JNE Tidak_Sama

Sama:
Cetak Pesan1
JMP Nama_saya

Tidak_Sama:
Cetak Pesan2
JMP Nama_saya

Coba_Lagi:
Cetak Tanya1
MOV AH,0
INT 16h
PUSH AX
CMP AL,'Y'
JE Proses
CMP AL,'y'
JE Proses
CMP AL,'T'
JE Exit
CMP AL,'t'
JE Exit

Nama_saya:
Cetak Garis2
Cetak Nama
Cetak NPM
Cetak Garis

JMP Coba_Lagi

Exit:
INT 20h
End TData

3.   Nama : Erwin Syahputra Lubis (0911333) dan Sylvia Hartati Saragih
      Kelas :TI-S0908 

.MODEL SMALL
.CODE
ORG 100h
TData : JMP Proses
Kal0 DB 13,10,'Registrasi: $'
Kal1 DB 13,10,'Login: $'
Buffer DB 23,?,23 DUP(?)
Buffer1 DB 23,?,23 DUP(?)

Kal2 DB 13,10,'registrasi berhasil$'
Kal3 DB 13,10,'registrasi tidak berhasil$'

Proses:
mov AH,09
lea DX,Kal0
int 21h
mov AH,0Ah
lea DX,Buffer
int 21h


mov AH,09
lea DX,Kal1
int 21
mov AH,0Ah
lea DX,Buffer1
int 21h
lea SI,Buffer
lea DI,Buffer1
cld
mov CX,23
rep cmpsb
je Ya
rep cmpsb

mov AH,09
lea DX,Kal3
int 21h
int 20h

mov AH,09
lea DX,Kal2
int 21h
int 20h
End TData

4.  Jaka Pramana (belum dikirim)

Sebenarnya pada kode program2 di atas
tidak perlu menggunakan pengulangan Register CX, dan CLD