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

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