Ball catch TIS-100 game

@0
ADD ANY #SHUFFLE 1
MOV ACC DOWN
ADD ANY
ADD 7
MOV ACC DOWN
SUB ANY
MOV ACC DOWN
ADD ANY
SUB 12
MOV ACC DOWN
SUB ANY
MOV ACC DOWN
SUB ANY
ADD 5
MOV ACC DOWN

@1
## BALL CATCH
# INIT PADDLE RNDR
MOV 6 DOWN
MOV 0 DOWN
# INPUT GAME LOOP
START: MOV UP ACC
SUB 4
JLZ START
SUB 2
JGZ START
ADD 1
MOV 6 DOWN #SET
MOV ACC DOWN
MOV ACC LEFT
JMP START

@2
#BALL COORD
MOV 17 ACC
START: JRO ANY
MOV ACC LAST #GET
SWP
ADD 1
MOV ACC LAST
SWP
JMP START
MOV LAST ACC #SET
SWP
MOV 0 ACC
SWP
JMP START

@3
#SHUFFLE 2
MOV 11 UP
START:MOV UP ACC
MOV 9 RIGHT
MOV ACC RIGHT
MOV UP ACC
MOV 9 RIGHT
ADD 4
MOV ACC RIGHT
MOV UP ACC
MOV 9 RIGHT
SUB 4
MOV ACC RIGHT
JMP START

@4
MOV 17 ACC
START: JRO ANY
MOV ACC LAST #GET
SWP
MOV ACC LAST
SWP
JMP START
ADD LAST #ADDX
MOV ACC DOWN
JMP START
SWP #BALLSPAWNSETX
MOV LAST ACC
SWP
JMP START

@5
S: MOV RIGHT NIL
MOV 1 UP
MOV UP ACC
MOV ACC RIGHT
SWP
MOV UP ACC
MOV ACC RIGHT
SUB 20
MOV ACC RIGHT
JNZ S
SWP
MOV 1 LEFT
SUB LEFT
MOV ACC RIGHT
MOV LEFT RIGHT

@6
# COLLISION DETECT
S:MOV DOWN LEFT
MOV LEFT DOWN
MOV LEFT DOWN
MOV LEFT ACC
JNZ S
MOV LEFT ACC
JEZ HIT
SUB 1
JEZ HIT
MOV LEFT NIL
JMP S
# RESET BALL
HIT: MOV 7 UP
MOV LEFT UP

@7
MOV UP ACC
SUB 1
MOV ACC RIGHT
MOV 20 RIGHT
ADD 1
MOV ACC RIGHT
MOV 20 RIGHT
MOV 2 RIGHT
ADD 2
MOV ACC RIGHT
MOV 20 RIGHT
SUB 1
MOV ACC RIGHT
MOV 20 RIGHT
MOV 2 RIGHT

@8
# MERGE RENDER
MOV ANY DOWN
MOV LAST DOWN
MOV 0 DOWN
MOV -1 DOWN
MOV LAST DOWN
MOV LAST DOWN
MOV LAST DOWN
MOV -1 DOWN

@9
MOV 200 ACC #SPEED
A:SUB 1
JNZ A
MOV NIL UP
# RENDER BALL
MOV UP ACC
MOV ACC LEFT
SWP
MOV ACC LEFT
SWP
MOV ACC LEFT
MOV UP ACC
MOV ACC LEFT
MOV 3 LEFT
SAV