Tugas Assembler Praktikum Password

Nama   : SLAMET WIDODO
NPM    : 12429152
Kelas   : TI - B / V
-------------------------------------------------------------------------------------------------------------------------------
Tugas Praktikum Password

Password : 12429152_SLAMET_WIDODO
Output     : 12429152 SLAMET WIDODO

Koding :
.MODEL SMALL
.CODE
ORG 100h
mulai:
jmp proses
ms db 'Contoh membuat Dan validasi password',13,10,'$'
ms1 db 'Masukkan kode akses (huruf kapital) : ','$'
ms2 db 'Eror akses! coba lagi',13,10,'$'
ms3 db '12429152 SLAMET WIDODO',13,10,'$'
ms4 db 'Sudah melebihi akses, proses cancel!','$'
proses:
mov ah,09h
mov dx,offset ms
int 21h
mov bh,02h
proses1:
mov ah,09h
mov dx, offset ms1
int 21h
mov ah,08h
int 21h
cmp al,31h
jne gagal
jmp kode1
kode1:
mov ah,08h
int 21h
cmp al,32h
jne gagal
jmp kode2
kode2:
mov ah,08h
int 21h
cmp al,34h
jne gagal
jmp kode3
kode3:
mov ah,08h
int 21h
cmp al,32h
jne gagal
jmp kode4
kode4:
mov ah,08h
int 21h
cmp al,39h
jne gagal
jmp kode5
kode5:
mov ah,08h
int 21h
cmp al,31h
jne gagal
jmp kode6
kode6:
mov ah,08h
int 21h
cmp al,35h
jne gagal
jmp kode7
kode7:
mov ah,08h
int 21h
cmp al,32h
jne gagal
jmp kode8
kode8:
mov ah,08h
int 21h
cmp al,5Fh
jne gagal
jmp kode9
kode9:
mov ah,08h
int 21h
cmp al,53h
jne gagal
jmp kode10
kode10:
mov ah,08h
int 21h
cmp al,4Ch
jne gagal
jmp kode11
kode11:
mov ah,08h
int 21h
cmp al,41h
jne gagal
jmp kode12
kode12:
mov ah,08h
int 21h
cmp al,4Dh
jne gagal
jmp kode13
kode13:
mov ah,08h
int 21h
cmp al,45h
jne gagal
jmp kode14
kode14:
mov ah,08h
int 21h
cmp al,54h
jne gagal
jmp kode15
kode15:
mov ah,08h
int 21h
cmp al,5Fh
jne gagal
jmp kode16
kode16:
mov ah,08h
int 21h
cmp al,57h
jne gagal
jmp kode17
kode17:
mov ah,08h
int 21h
cmp al,49h
jne gagal
jmp kode18
kode18:
mov ah,08h
int 21h
cmp al,44h
jne gagal
jmp kode19
kode19:
mov ah,08h
int 21h
cmp al,4Fh
jne gagal
jmp kode20
kode20:
mov ah,08h
int 21h
cmp al,44h
jne gagal
jmp kode21
kode21:
mov ah,08h
int 21h
mov al,4Fh
jne gagal
jmp sukses
gagal:
mov ah,09h
mov dx,offset ms2
int 21h
mov ah,02h
mov dl,0dh
int 21h
dec bh
cmp bh,00
je boot
loop proses1
sukses:
mov ah,09h
mov dx,offset ms3
int 21h
mov ah,02h
mov dl,0Ah
int 21h
mov dl,0dh
int 21h
int 20h
boot:
mov ah,09h
mov dx, offset ms4
int 21h
mov ah,08h
int 20h
end mulai

Hasil Running:

Tugas Assembler Menampilkan Bilangan Genap 2 sampai 300

Nama    : SLAMET WIDODO
NPM     : 12429152
Kelas    : TI - B
-------------------------------------------------------------------------------------------------------------------------------
Menampilkan Bilangan Genap dari 2 sampai 300

Koding:
Cetak_Klm MACRO Klm
MOV AH,09
LEA DX,Klm
INT 21h
ENDM
CDesimal MACRO Angka
LOCAL Ulang,Cetak
MOV AX,Angka
MOV BX,10
XOR CX,CX
Ulang:
XOR DX,DX
DIV BX
PUSH DX
INC CX
CMP AX,0
JNE Ulang
Cetak:
POP DX
ADD DL,'0'
MOV AH,02
INT 21h
LOOP Cetak
ENDM

;/========================================\;
;  Fungsi : Mencari dan menampilkan angka    ;
;  genap dari 2 sampai 300 ;
;\========================================/;

.MODEL SMALL
.CODE
ORG 100h

TData: JMP Awal
Batas DW 302                                                                
Genap DW 0
I DW 2                                                                            
J DW 2
Spasi DB ' $'
Header DB 9,9,9,'Bilangan Genap 2 sampai 300 :  ',13,10
DB  9,9,9,'----------------------------',13,10,10,'$'
Awal:
Cetak_Klm Header
Proses:
MOV AX,Batas
CMP AX,I
JE Exit

ForI:
MOV J,2
MOV Genap,0
ForGenap:
MOV AX,Genap
CMP AX,0
JNE TambahI
MOV AX,I
MOV AX,J
JNE Tidak
CDesimal I
Cetak_Klm Spasi
MOV Genap,1
JMP TambahJ

Tidak:
MOV DX,0
MOV AX,I
MOV BX,J
DIV BX
CMP DX,0
JNE TambahJ
MOV Genap,1

TambahJ:
INC J
JMP ForGenap

TambahI:
ADD I,2
JMP Proses
Exit:
INT 20h
END TData

Hasil Running :

TUGAS ASSEMBLER 19 - 21

NAMA           : SLAMET WIDODO

NPM               : 12429152

KELAS          : TI-B / V

  

5.Praktikum XIX

Koding :

 

 

 

Hasil Running :

6.Praktikum XX

Koding :

Hasil Running :

 

7.Praktikum XXI

Koding :

 

Hasil Running :