clear macro
	mov ah, 6
	mov al, 0
	mov bl, 0
	mov bh, 07h
	mov cl, 0
	mov ch, 0
	mov dl, 80
	mov dh, 24
	int 10h
	endm

print_user macro strw
	mov ah, 1
	int 21h
	cmp al, strw
	endm

print macro str

	lea dx,str
	mov ah,09h
	int 21h
	endm

JUMPS
.model small
.stack 100h
.data

	;;login user - Aryne
	;;login pw - aryne

	;;PAGE1
	newLine db 13,10,"$"
	login_user	db	"                        Enter Username: $"
	login_pw	db	"                        Enter Password: $"

	access_d	db	"                         Access Denied$"
	access_s	db	"                        Access Granted$"

	c2_cont		db	"                       Press C to Continue!$"
	c2ex		db	"                       Press C to Continue | E to exit!$"

	screen_ent 	db	"Enter Your Name: $"
	screen_hel 	db	"                                   Hello $"
	screen_wel	db	"                        Welcome to Assembly Language$"

	nameinput label byte
	maxname db 10
	current db ?
	namefield db  50 dup(?)

	;;Letter
	s3_1	db	"                                   ******                                       $"
	s3_2	db	"                                  ********                                      $"
	s3_3	db	"                                 ****  ****                                     $"
	s3_4	db	"                                ****    ****                                    $"
	s3_5	db	"                               ****      ****                                   $"
	s3_6	db	"                              ****        ****                                  $"
	s3_7	db	"                             ****          ****                                 $"
	s3_8	db	"                            ****            ****                                $"
	s3_9	db	"                           ****              ****                               $"
	s3_10	db	"                          ****                ****                              $"
	s3_11	db	"                         ****                  ****                             $"
	s3_12	db	"                        ****************************                            $"
	s3_13	db	"                       ******************************                           $"
	s3_14	db	"                      ********************************                          $"
	s3_15	db	"                     ****                          ****                         $"
	s3_16	db	"                    ****                            ****                        $"
	s3_17	db	"                   ****                              ****                       $"
	s3_18	db	"                  ****                                ****                      $"
	s3_19	db	"                 ****                                  ****                     $"
	s3_20	db	"                ****                                    ****                    $"
	s3_21	db	"               ****                                      ****                   $"



.code
	mov AX, @data
	mov DS, AX

		mov ax, 0600h
		mov bh, 07h
		mov cx, 0000h
		mov dx, 184Fh
		int 10h


	mov ah, 02
	mov bh, 01h
	mov dh, 00
	mov dl, 00
	int 10h

	jmp login_page

	login_page:
		clear
		print login_user

		print_user 'A'
		print_user 'r'
		print_user 'y'
		print_user 'n'
		print_user 'e'


		jne ending
		int 21h
		jmp login_password

	login_password:
		print login_pw

		mov ah,7
		int 21h
		cmp al, "a"
		jne access_denied

		mov bx,42
		mov dx,bx
		mov ah,2
		int 21h

		mov ah,7
		int 21h
		cmp al, "r"
		jne access_denied

		mov bx,42
		mov dx,bx
		mov ah,2
		int 21h

		mov ah,7
		int 21h
		cmp al, "y"
		jne access_denied

		mov bx,42
		mov dx,bx
		mov ah,2
		int 21h

		mov ah,7
		int 21h
		cmp al, "n"
		jne access_denied

		mov bx,42
		mov dx,bx
		mov ah,2
		int 21h

		mov ah,7
		int 21h
		cmp al, "e"
		jne access_denied

		mov bx,42
		mov dx,bx
		mov ah,2
		int 21h

		jmp access_granted


	access_granted:
		print newLine
		print access_s
		print newLine
		print c2_cont

		mov ah,1
		int 21h
		mov bl, al
		mov ah, 2
		mov dh, 0Dh
		int 21h

		cmp bl, "C"
		je screen_2

		jmp access_granted

	access_denied:
		print access_d
		jmp ending

	screen_2:
		clear
		print newLine
		mov ax, 0600h
		mov bh, 07h
		mov cx, 0000h
		mov dx, 184Fh
		int 10h

		mov ah, 02
		mov bh, 00
		mov dx, 0000
		int 10h

		print screen_ent

		mov ah, 0Ah
		lea dx, nameinput
		int 21h

		mov bl, current
		mov namefield[bx], "$"

		mov ah, 02h
		mov bh, 00
		mov dh, 01
		mov dl, 00
		int 10h

		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine
		print newLine

		print screen_hel
		print namefield
		print newLine
		print screen_wel

		jmp screen2_prompt

	screen2_prompt:
		print newLine
		print newLine
		print c2ex

		mov ah,1
		int 21h
		mov bl, al
		mov ah, 2
		mov dh, 0Dh
		int 21h

		cmp bl, "C"
		je screen_3

		cmp bl, "E"
		je ending

		jmp screen2_prompt

	screen_3:
		clear
		print newLine

		print s3_1
		print s3_2
		print s3_3
		print s3_4
		print s3_5
		print s3_6
		print s3_7
		print s3_8
		print s3_9
		print s3_10
		print s3_11
		print s3_12
		print s3_13
		print s3_14
		print s3_15
		print s3_16
		print s3_17
		print s3_18
		print s3_19
		jmp ending

	ending:
		mov ah, 4Ch
		int 21h

end