@0 ## FASTER SPEED @1 #SPLIT INPUT MOV UP ACC MOV ACC RIGHT MOV ACC DOWN @2 #SUPPLY PREV VALUE MOV LEFT ACC SWP MOV ACC DOWN @3 @4 @5 #SUBTRACT PREV MOV UP ACC SUB RIGHT MOV ACC DOWN @6 MOV UP LEFT @7 @8 #ABSOLUTE VALUE MOV UP ACC JGZ POS NEG POS: MOV ACC RIGHT @9 MOV LEFT ACC SUB 10 JLZ A MOV 1 DOWN JMP B A: MOV 0 DOWN B: @10