Contoh 2 Assembly Language

******************************************************

gandhi segment
assume cs:gandhi
ORG 100h
TData : JMP   Proses
T_Enter  EQU  0Dh
Kal0     DB   ‘Ketikkan satu Kalimat  : $’
Kal1     DB   13,10,’Kalimat pada buffer    : $’
Buffer   DB   23,?,23 DUP(?)
Proses :  MOV  AH,09
LEA  DX,Kal0
INT  21h            ; Cetak kalimat Kal0
MOV  AH,0Ah         ; Servis Input kalimat
LEA  DX,Buffer      ; DX menunjuk pada offset Buffer
INT  21h            ; Input kalimat !
MOV  AH,09
LEA  DX,Kal1
INT  21h            ; Cetak kalimat Kal1
LEA  BX,Buffer+2    ; BX menunjuk byte ke 3 Buffer
Ulang:
CMP  BYTE PTR [BX],T_Enter ; Apakah karakter Enter?
JE   EXIT                  ; Ya! Lompat ke Exit
MOV  DL,[BX]               ; Masukkan karakter pada DL
MOV  AH,02                 ; Servis cetak karakter
INT  21h                   ; Cetak karakter
INC  BX                    ; BX := BX+1
JMP  Ulang                 ; Lompat ke Ulang
EXIT:  INT  20h                   ; Kembali ke DOS !
gandhi ends
END     TData

****************************************************** 
Sumber : http://gandhiprima.wordpress.com/