Program Password

Contoh program password :
Keterangan :
Password = S3SU4TU (menggunakan huruf kapital)
Jika salah menulis password, kesempatan mengulang sekali lagi dan dimulai dari awal
ASCII CODES :

Cetak_Kar MACRO Kar
MOV AH,02
MOV DL,Kar
INT 21h
ENDM

.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 13,10,'Error akses! coba lagi',13,10,'$'
ms3 DB 13,10,'Sukses..! Anda berhasil...',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,53h = 53h ASCII Code untuk S
Cetak_Kar '*'
JNE Gagal
JMP Kode1

Kode1:
MOV AH,08h
INT 21h
CMP AL,33h = 33h ASCII Code untuk 3
Cetak_Kar '*'
JNE Gagal
JMP Kode2

Kode2:
MOV AH,08h
INT 21h
CMP AL,53h = 53h ASCII Code untuk S
Cetak_Kar '*'
JNE Gagal
JMP Kode3

Kode3:
MOV AH,08h
INT 21h
CMP AL,55h = 55h ASCII Code untuk U
Cetak_Kar '*'
JNE Gagal
JMP Kode4

Kode4:
MOV AH,08h
INT 21h
CMP AL,34h = 34h ASCII Code untuk 4
Cetak_Kar '*'
JNE Gagal
JMP Kode5

Kode5:
MOV AH,08h
INT 21h
CMP AL,54h = 54h ASCII Code untuk T
Cetak_Kar '*'
JNE Gagal
JMP Kode6

Kode6:
MOV AH,08h
INT 21h
MOV AL,55h = 55h ASCII Code untuk U
Cetak_Kar '*'
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