@0 ## SEQUENCE CTR @1 MOV UP ACC MOV ACC RIGHT MOV ACC RIGHT @2 IN: MOV UP ACC SAV SUB LEFT JGZ A>B B>A: SWP MOV LEFT DOWN MOV ACC DOWN JMP IN A>B: SWP MOV ACC DOWN MOV LEFT DOWN @3 @4 @5 IN: MOV UP ACC SAV MOV UP ACC JEZ END LOOP: SWP MOV ACC DOWN SWP SUB 1 JGZ LOOP END: MOV 0 DOWN @6 MOV RIGHT RIGHT @7 LOOP:MOV ACC LEFT MOV UP ACC JEZ END ADD LEFT JMP LOOP END: MOV LEFT DOWN MOV 0 ACC @8