AoC Day 1.2

1.2.txt

@0


@1
TOP:MOV UP, ACC
SUB 40
JLZ DONE
MOV ACC, DOWN
JMP TOP
DONE:
JRO 0

@2
##AOC DAY 1.2
MOV 0, ACC
ADD DOWN
JRO DOWN
MOV ACC, DOWN

@3


@4


@5
MOV UP, RIGHT

@6
 MOV 0, ACC
 SAV
LOOP:MOV LEFT, ACC
 JEZ OPEN
 MOV -1, RIGHT
 JMP _
OPEN:MOV 1, RIGHT
_:SWP
 ADD, RIGHT
 SAV
 JLZ B
 MOV RIGHT, NIL
 JMP LOOP
B:MOV RIGHT, DOWN

@7
MOV LEFT, ACC
SWP
ADD 1
SWP
MOV ACC, LEFT
SWP
MOV ACC, LEFT
SWP

@8


@9


@10
MOV UP, DOWN

@11