@0
## DECENDING BARS
#    BY MOLIVE

#  24/02/18

@1


@2


@3


@4


@5


@6


@7


@8
ADD 1
SWP
LOOP:MOV RIGHT ACC
JEZ END
SWP
MOV ACC RIGHT
SWP
JMP LOOP
END: SWP
SUB 4
JNZ E
SUB 4
E: ADD 4

@9
MOV 8 ACC
SAV
LOOP:
MOV 1 LEFT
MOV LEFT RIGHT
SUB 1
JEZ EXIT
JMP LOOP
EXIT:
MOV 0 LEFT
SWP
SAV
JMP LOOP

@10
START: MOV -1 DOWN
MOV 0 DOWN
SWP
MOV ACC DOWN
SUB 22
JNZ E
MOV 0 ACC
JMP S
E: ADD 23
S: SWP
MOV 36 ACC
LOOP:MOV LEFT DOWN
SUB 1
JEZ START
JMP LOOP

@11
