		BAŞ	$1000

TABLO		VER	$00, $01, $03, $07, $0F, $1F, $3F, $7F, $FF

		BAŞ	$1020

BAŞLA		YAZ	$00, <YÖNLEN.A>	İskele-A giris
		YAZ	$FF, <YÖNLEN.B>	İskele-B cikis
		YÜK	SK, TABLO		Arrayin ilk adresini tutar
DEVAM		YÜK	A, <İSKELE.A>	A'ya girisi yukler
		VE	A, $08		Sag mi sol mu 00010000 ile MASK'layarak karar verir
		DEE	YON_SAĞ
		DED	YON_SOL


YON_SAĞ	YÜK	A, <İSKELE.A>	A'ya tekrar girisi alir
		VE	A, $07		Ilk 3'u alir
		YÜK	CD, 0
		AKT	D, A
		YÜK	A, <SK+CD+1>	Gelen girise gore array'dekini cikisa bastirmak icin yukler
		SAĞ	A
		YAZ	A, <İSKELE.B>	Cikisa bastirir
		DAL	DEVAM			Degisiklikler icin basa geri doner

YON_SOL	YÜK	A, <İSKELE.A>	A'yi tekrar girise alir
		VE	A, $07		Ilk 3'u alir
		YÜK	CD, 0
		AKT	D, A
		YÜK	A, <SK+CD+1>	Gelen girise gore array'dekini cikisa bastirmak icin yukler
		SOL	A
		YAZ	A, <İSKELE.B>	Cikisa bastirir
		DAL	DEVAM			Degisiklikler icin basa geri doner
