Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cetak_string MACRO string
- MOV AH,09
- LEA DX,string
- int 21h
- ENDM
- cetak_input MACRO input
- MOV AH,09
- LEA DX,input
- int 21h
- ENDM
- terima_input MACRO input
- MOV AH,09
- LEA DX,input
- int 21h
- ENDM
- .MODEL SMALL
- .CODE
- ORG 100h
- mulai :
- JMP proses
- Kal0 DB 'Isi Data Mahasiswa : $'
- Kal1 DB 'Nim Anda : $'
- Kal2 DB 'Nama Anda : $'
- Kal3 DB 'Cetak Data [y/t] : $'
- Kal4 DB 'Keluar[y/t] : $'
- nim DB 15,?,15 DUP(?)
- nama DB 30,?,30 DUP(?)
- proses :
- cetak_string Kal0
- call ganti_brs
- cetak_string Kal1
- terima_input nim
- call ganti_brs
- cetak_string Kal2
- terima_input nama
- call ganti_brs
- call ganti_brs
- cetak_string Kal3
- call terima_kar
- cmp al,79h
- je cetak
- tanya :
- call ganti_brs
- cetak_string Kal4
- call terima_kar
- cmp al,79h
- je selesai
- call ganti_brs
- jne proses
- selesai :
- int 20h
- cetak :
- call ganti_brs
- cetak_input nim
- call ganti_brs
- cetak_input nama
- call ganti_brs
- jmp tanya
- ganti_brs PROC NEAR
- MOV AH,02h
- MOV DL,0Ah
- INT 21h
- MOV DL,0Dh
- int 21h
- RET
- ganti_brs ENDP
- terima_kar PROC NEAR
- MOV DL,[BX]
- MOV AH,02h
- int 21h
- terima_kar ENDP
- end mulai
Advertisement
Add Comment
Please, Sign In to add comment
