org $00

start		LDAA $fd				*Load input
			ANDA #%10000000		*Leftmost bit is cycle-start
			BEQ start				*If not enabled check again

antihammer	LDAA $FD				*Anti-hammer sequence, wait for
			ANDA #%10000000		*button to be reset to zero 
			BNE antihammer		*before cycle start

			LDAA #%00001100		*Load value for motor on and feed motor down
			STAA $FD				*Apply value to output

wait_down	LDAA $FE				*Load sensor values
			ANDA #%00000100		*Grab value for drill at downmost position
			BEQ wait_down			*Wait untill it's there

			LDAA #%00000000		*Init value to be sent to motor		
			STAA $FD				*Send value to motor to move up

wait_up	LDAA $FE				*Read sensor values
			ANDA #%00000010		*Grab value for carrige at topmost postion
			BEQ wait_up			*Wait untill it's there

			LDAA #%00000011		*Generate signal for stopping motor and rotating disc
			STAA $FD				*Apply sequence to bus
			JMP start				*Jump back to start

			ORG $FF
			FCB $00