program ini digunakan dengan menggunakan instruksi debug dalam DOS
MENAMPILKAN ANGKA
123456789
program
debug
a100
mov ah,02
mov dl,31
int 21
mov dl,32
int 21
mov dl,33
int 21
mov dl,34
int 21
mov dl,35
int 21
mov dl,36
int 21
mov dl,37
int 21
mov dl,38
int 21
mov dl,39
int 21
int 20
g
MENAMPILKAN:
Aa2aA-Bb4bB-Cc6cC-Dd8dD
program
debug
a100
mov ah,02
mov dl,41
int 21
mov dl,61
int 21
mov dl,32
int 21
mov dl,61
int 21
mov dl,41
int 21
mov dl,2d
int 21
mov dl,42
int 21
mov dl,62
int 21
mov dl,34
int 21
mov dl,62
int 21
mov dl,42
int 21
mov dl,2d
int 21
mov dl,43
int 21
mov dl,63
int 21
mov dl,36
int 21
mov dl,63
int 21
mov dl,43
int 21
mov dl,2d
int 21
mov dl,44
int 21
mov dl,64
int 21
mov dl,38
int 21
mov dl,64
int 21
mov dl,44
int 21
int 20
g
Selengkapnya...
My Love
LAPORAN ASSEMBLER 2
Penggunaan Case Of dalam Delphi
dengan syarat
1-5 adalah operator
6-1 adalah staf
11-15 adalah eksekutif
16-20 adalah senior eksekutif
21-25 adalah asisten manajer
25-30 adalah manaje
Procedure TForm.Button1Click
var
g:integer;
begin
g:=strtoint(edit1.text);
case g of
begin
1..5:edit2.text:='operator';
6..10:edit2.text:='staf';
11..15:edit2.text:='eksekutif';
16..20:edit2.text:='senior eksekutif';
21..25:edit2.text:='asisten manajer';
25..30:edit2.text:='manajer';
else
edit2.text:='masukan salah';
end
end; Selengkapnya...
DELPHI (PROGRAM LINGKARAN DAN LUAS SEGITIGA)
PROGRAM LINGKARAN
procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
k,l:real;
begin
r:=strtoint(edit1.Text);
k:=2*3.14*r;
l:=3.14*r*r;
edit2.Text:=floattostr(k);
edit3.Text:=floattostr(l);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
end.
PROGRAM SEGITIGA
var
a,t:integer;
l:real;
begin
a:=strtoint(edit1.Text);
t:=strtoint(edit2.Text);
l:=0.5*a*t;
edit3.Text:=floattostr(l);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.setfocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.terminate
end;
end.
Selengkapnya...
laporan praktikum assembler
MENAMPILKAN HURUF A (huruf A besar)
MENAMPILKAN HURUF
Aa12bB_Cc34Dd_Ee56Ff
Program
-a100
Mov ah,02
Mov dl,41
Int 21
Mov dl,61
Int 21
Mov dl,31
Int 21
Mov dl,32
Int 21
Mov dl,62
Int 21
Mov dl,42
Int 21
Mov dl,20
Int 21
Mov dl,43
Int 21
Mov dl,63
Int 21
Mov dl,33
Int 21
Mov dl,34
Int 21
Mov dl,44
Int 21
Mov dl,64
Int 21
Mov dl,20
Int 21
Mov dl,45
Int 21
Mov dl,65
Int 21
Mov dl,35
Int 21
Mov dl,36
Int 21
Mov dl,46
Int 21
Mov dl,66
int 21
int 20
g
