itu adalah perogram pemanggilan karakter yang diikuti oleh tanda bunyi beep pada setiap karakter yang telah tercetak. source kodenya sebagai berikut:
; nama EDDY YUDIANTO
; MODIFIKASI ...
; contoh program mencetak string dengan
; yang mengandung'$' disertai BELL
#MAKE_COM# ; membuat berkas COM
ORG 100h
JMP START
; Data:
msg DB '==EDDY YUDIANTO==',0
; simpan alamat label msg ke register DX:
START:
MOV AH, 2 ; fungsi mencetak karakter'
MOV BX, 0 ; tanda indeks data
ulang:
MOV DL, msg[BX] ; baca karakter simpan di DL
CMP DL, 0 ; apakah kode ASCII 0?
JZ selesai ; YA, selesai!
INT 21h ; TIDAK, cetak karakter!
CALL bunyi_bel ; panggil prosedur bunyi_bel
INC BX ; naikkan indeksnya
JMP ulang ; ulangi lagi
selesai:
RET ; kembali ke sistem operasi
bunyi_bel PROC
MOV DL, 7
MOV AH, 2
INT 21h
RET
bunyi_bel ENDP
END
; MODIFIKASI ...
; contoh program mencetak string dengan
; yang mengandung'$' disertai BELL
#MAKE_COM# ; membuat berkas COM
ORG 100h
JMP START
; Data:
msg DB '==EDDY YUDIANTO==',0
; simpan alamat label msg ke register DX:
START:
MOV AH, 2 ; fungsi mencetak karakter'
MOV BX, 0 ; tanda indeks data
ulang:
MOV DL, msg[BX] ; baca karakter simpan di DL
CMP DL, 0 ; apakah kode ASCII 0?
JZ selesai ; YA, selesai!
INT 21h ; TIDAK, cetak karakter!
CALL bunyi_bel ; panggil prosedur bunyi_bel
INC BX ; naikkan indeksnya
JMP ulang ; ulangi lagi
selesai:
RET ; kembali ke sistem operasi
bunyi_bel PROC
MOV DL, 7
MOV AH, 2
INT 21h
RET
bunyi_bel ENDP
END
0 komentar:
Posting Komentar