org 100h

MAIN:
	IN A, (01h) 		;LOAD INPUT FROM CARD

	LD B, 10		;LOAD CORRECT ACCESS CODE
	XOR B			;COMPARE INPUT TO CORRECT CODE
	JR NZ, MAIN		;IF NOT ZERO, LOOP

	LD D, 255		;IF ELSE, SET TIMER

GRANTED:
	SET 7, A		;SET BIT TO OPEN LOCK
	OUT (01h), A		;OUTPUT BIT

	DEC D			;DECREMENT COUNTER
	JR NZ, GRANTED		;CHECK COUNT, LOOP IF NOT ZERO

	JR MAIN			;IF ELSE, LOOP TO MAIN