DOSSEG
.MODEL SMALL
.STACK 100h
.DATA
HelloMessage DB 'Selamat datang di kuis Ya atau Tidak',13,10,'$'
Satu DB 'Pertanyaan pertama, apakah benar assembly adalah bahasa mesin (y/t)',13,10,'$'
Dua DB 'Pertanyaan kedua, apakah benar assembly setelah dicompile berformat .asm (y/t)',13,10,'$'
Tiga DB 'Pertanyaan ketiga, apakah interupt layanan 01 terdapat echo (y/t)',13,10,'$'
Empat DB 'Pertanyaan keempat, apakah benar mov berfungsi untuk memindah data (y/t)',13,10,'$'
Lima DB 'Pertanyaan lima, apakah benar anda anak infokom (y/t)',13,10,'$'
Hore DB 'Selamat kamu dapat uang 1juta, dibayar dalam mimpi',13,10,'$'
Gagal DB 'Kamu salah, Sayang sekali kamu pulang dengan tangan kosong',13,10,'$'
Ulang DB 'Ingin mengulang kembali (y/t)',13,10,'$'
.CODE
mov ax,@data
mov ds,ax ;set DS to point to the data segment
mov ah,9 ;DOS print string function
mov dx,OFFSET HelloMessage ;point to
int 21h ;display
jmp aa
aa: mov ax,@data
mov ds,ax ;set DS to point to the data segment
mov ah,9 ;DOS print string function
mov dx,OFFSET Satu ;point to
int 21h ;display
mov ah,07
int 21h
mov bl,al
cmp al,'t'
je a
jmp e
a: mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Dua
int 21h
mov ah,07
int 21h
mov bl,al
cmp al,'t'
je b
jmp e
b: mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Tiga
int 21h
mov ah,07
int 21h
mov bl,al
cmp al,'y'
je c
jmp e
c : mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Empat
int 21h
mov ah,07
int 21h
mov bl,al
cmp al,'t'
je d
jmp e
d : mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Lima
int 21h
mov ah,07
int 21h
mov bl,al
cmp al,'y'
je he
jmp e
he : mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Hore
int 21h
mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Ulang
int 21h
mov ah,07
int 21h
mov bl,al
cmp al,'t'
je dada
jmp aa
e : mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Gagal
int 21h
mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET Ulang
int 21h
mov ah,07
int 21h
mov bl,al
cmp al,'t'
je dada
jmp aa
dada : mov ah,4ch ;DOS terminate program function
int 21h ;terminate the program
END
Posting Komentar