1Cek_huruf MACRO HURUF        ;Macro untuk mengecheck password
2    CMP PASS[DI],HURUF       ;Compare Inputan dengan Huruf password
3    JNE Salah
4    INC DI
5    ENDM
6           
7Clrscr MACRO                 ;Macro untuk ClearScreen
8    MOV AL,03H
9    MOV AH,00H
10    INT 10H
11    ENDM
12           
13.MODEL SMALL
14.DATA
15    
16    PASS  DB 0
17    tpat   DB 'Masukkan Password $'
18	FAL   DB 'Password tidak benar, silahkan masukkan kembali password $'
19	RIG   DB 'Password Benar, Masuk ke Program Utama $'
20	STP   DB '(Tekan "Esc" untuk Keluar): $' 
21	CON   DB 'Yakin untuk keluar?(Y/N)? $'
22	CRE   DB '>>Anggota Kelompok 16: Lauren, Arviza, Heraldus Panji Arikson, Arnaldo H Saragi, Rizqy Pratama R, T Ar Rizqi, Luthfi A<<$'
23	ALE   DB 'Tekan tombol apapun untuk menghentikan program'
24	
25.CODE
26.STARTUP
27		
28  Home: 
29        Clrscr 
30        
31		MOV AH,09H
32		MOV DX,OFFSET tpat    ;Kalimat permintaan pemasukkan password    
33		INT 21H
34		MOV DX,OFFSET STP    ;Kalimat pemberitahuan Esc untuk keluar program
35		INT 21H     		
36		
37  Input:
38    	MOV AH,07H
39        INT 21H
40        
41        CMP AL,0DH           ;Tombol Enter untuk memulai proses
42        JE  Proses
43        CMP AL,1BH           ;Tombol Esc untuk menghentikan program
44        JE  Stop
45        
46        CMP AL,21H           ;Batasan input hanya untuk symbol, angka dan huruf saja
47        JBE Input
48        
49        MOV PASS[DI],AL      ;Memindahkan segala inputan ke String PASS     
50        INC DI
51        
52        MOV AH,02H           ;Menambahkan tanda * untuk tiap inputan
53        MOV DL,'*'
54        INT 21H
55        
56        JNE Input       		         	
57
58  Proses:                    ;Proses pengecekan inputan password      
59        CMP DI,7             ;Pengecekan jumlah inputan password
60        JNE Salah

61		
62		MOV DI,0
63        Cek_huruf 'e'         
64        Cek_huruf 'l'
65        Cek_huruf 'e'
66        Cek_huruf 'k'
67        Cek_huruf 't'
68        Cek_huruf 'r'
69        Cek_huruf 'o'
70        
71  Benar:
72        Clrscr    
73	    MOV AH,09H
74		MOV DX,OFFSET RIG    ;Kalimat pemberitahuan bahwa password benar
75		INT 21H 
76		
77		JMP Credit           ;Lompat ke credit
78			                     
79  Salah:
80        Clrscr  
81        
82		MOV DI,0
83                
84        MOV AH,09H
85		MOV DX,OFFSET FAL    ;Kalimat pemberitahuan bahwa password salah
86		INT 21H	
87		MOV DX,OFFSET STP
88		INT 21H 
89		
90		JMP Input
91		                     	   
92  Stop: 
93        Clrscr  
94        
95        MOV DI,0
96          
97        MOV AH,09H   
98        MOV DX,OFFSET CON    ;Konfirmasi keluar program
99        INT 21H  
100                  
101    Ba: MOV AH,07H
102        INT 21H  
103        
104        CMP AL,'N'           ;Compare dengan "N"
105        JE  Home
106        CMP AL,'n'           ;Compare dengan "n"
107        JE  Home
108                      
109        CMP AL,'Y'           ;Compare dengan "Y"
110        JE  Credit  
111        CMP AL,'y'           ;Compare dengan "y"
112        JNE Ba                  
113        
114  Credit:
115        MOV AH,09H  
116        MOV DX,OFFSET CRE    ;Kalimat berisikan nama-nama anggota kelompok
117        INT 21H
118		
119		MOV AH,09H  
120        MOV DX,OFFSET ALE    ;Menahan Program sementara
121        INT 21H
122END
123.EXIT
124
125