;Program input 1 karakter dari keyboard
.model small
.code
org 100h
MULAI: JMP START
Tanya db 'Jawablah pertanyaan di bawah ini ! ',13,10
db 'pakah anda seorang laki-laki? (Y/T)',13,10
db 'Jawaban anda : $'
Jawab1 db 13,10,'Anda adalah seorang laki-laki',13,10,'$'
Jawab2 db 13,10,'Anda adalah seorang wanita',13,10,'$'
Jawab3 db 13,10,'Maaf keyword yang anda masukkan salah',13,10,'$'
START: MOV AH, 09H
LEA DX, Tanya
INT 21h
ULANG:
MOV AH, 01H ;input dari keyboard 1 huruf
INT 21h
CMP AL, 'Y'
JE LAKI
CMP AL, 'y'
JE LAKI
CMP AL, 'T'
JE WANITA
CMP AL, 't'
JE WANITA
JNE SALAH
JMP ULANG
WANITA:
MOV AH,09H
LEA DX,Jawab2
INT 21H
JMP SELESAI
LAKI:
MOV AH,09H
LEA DX,Jawab1
INT 21H
SALAH:
MOV AH,09H
LEA DX,Jawab3
INT 21H
JMP SELESAI
SELESAI:
INT 20h
END MULAI
.model small
.code
org 100h
MULAI: JMP START
Tanya db 'Jawablah pertanyaan di bawah ini ! ',13,10
db 'pakah anda seorang laki-laki? (Y/T)',13,10
db 'Jawaban anda : $'
Jawab1 db 13,10,'Anda adalah seorang laki-laki',13,10,'$'
Jawab2 db 13,10,'Anda adalah seorang wanita',13,10,'$'
Jawab3 db 13,10,'Maaf keyword yang anda masukkan salah',13,10,'$'
START: MOV AH, 09H
LEA DX, Tanya
INT 21h
ULANG:
MOV AH, 01H ;input dari keyboard 1 huruf
INT 21h
CMP AL, 'Y'
JE LAKI
CMP AL, 'y'
JE LAKI
CMP AL, 'T'
JE WANITA
CMP AL, 't'
JE WANITA
JNE SALAH
JMP ULANG
WANITA:
MOV AH,09H
LEA DX,Jawab2
INT 21H
JMP SELESAI
LAKI:
MOV AH,09H
LEA DX,Jawab1
INT 21H
SALAH:
MOV AH,09H
LEA DX,Jawab3
INT 21H
JMP SELESAI
SELESAI:
INT 20h
END MULAI
Comments
Post a Comment