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