CSEG AT 0
	JMP start

	CSEG AT 100h
		start:
		ACALL rand8
		ACALL rand8
		program:
		MOV A, #255
		SUBB A, rand8reg
		MOV R3, A
		MOV A, #0
		ADD A, R3
		MOV R4, A
		timer:
		SETB TR0
		JBN TF0, $
		CLR TF0
		DEC R3
		MOV A, R3
		JNZ timer

		ADD A, R4
		XRL A, #0FFh
		MOV P2, A
		tim:
		CLR TF0
		MOV TL0, #0
		MOV Th0, #0
		SETB TR0

		test:
		MOV A, P3
		XRL A, #0FFh

		;ANL A, R4
		MOV R2, A
		MOV A, R4
		ANL A, R2

		JNZ win
		JNB TF0, test
		DEC R4
		MOV A, R4
		JNZ tim
		lose:
		MOV P2, #0
		JMP koniec
		win:
		MOV P2, #010101010b
		koniec:
		JMP koniec

		rand8:
		MOV A, rand8reg
		JNZ rand8b
		CPL A
		MOV rand8reg, A
		rand8b:
		ANL A, #10111000b
		MOV c, p
		;MOV A, rand8reg
		RLC A
		;MOV rand8reg, A
		;ACALL CZEKAJ
		RET
END