@0
INIT:MOV 3 ACC
SWP
L:MOV ANY ACC
JEZ SND
SWP
ADD RIGHT
MOV 1 DOWN
MOV ACC DOWN
MOV DOWN ACC
SAV
JMP L
SND:SWP
MOV ACC DOWN
SAV
JMP L

@1
SND:MOV 0 DOWN
B:MOV ANY ACC
JLZ SND
SUB 1
JEZ COL1
SUB 2
JEZ COL2
MOV ACC RIGHT
JMP SND
COL1:MOV -1 LEFT
MOV -1 LEFT
JMP SND
COL2:MOV 1 LEFT
MOV 1 LEFT

@2
B:MOV LEFT ACC
JLZ DWN
SUB 3
JEZ RGT
JGZ DUP
MOV -1 DOWN#LFT
MOV -1 DOWN
MOV -1 LEFT#SND
JMP B
RGT:MOV 1 DOWN
MOV 1 DOWN
JMP B
DWN:MOV 1 RIGHT
JMP B
DUP:MOV -1 RIGHT

@3
B:MOV LEFT ACC
MOV ACC DOWN
MOV ACC DOWN
#NORMALIZE Y
MOV ANY ACC
JLZ Z
SAV
SUB 21
JGZ BIG
SWP
MOV ACC LAST
JMP B
Z:MOV 21 LAST
JMP B
BIG:MOV 0 LAST

@4
B:MOV ANY ACC
JEZ SND
MOV UP ACC
JLZ BAD
SAV
SUB 4
JGZ BAD
SWP
MOV ACC UP
JMP B
BAD:MOV 4 UP
JMP B
SND:MOV ACC UP
MOV UP RIGHT

@5
MOV UP LEFT
MOV NIL RIGHT
MOV RIGHT DOWN#X
MOV RIGHT DOWN#Y
MOV LEFT DOWN#COL

@6
B:MOV ANY ACC
JEZ SND
SWP
ADD UP
MOV 1 DOWN
MOV ACC DOWN
MOV DOWN ACC
SAV
JMP B
SND:MOV ACC RIGHT
MOV ACC DOWN
SWP
MOV ACC LEFT#X
SAV
MOV RIGHT LEFT#Y

@7
B:MOV ANY ACC
JEZ SND
SWP
ADD UP
MOV ACC UP
MOV UP ACC
SAV
JMP B
SND:SWP
SAV
MOV ACC LEFT#Y

@8
#  _____________
# /             \
#|   TISDRAW     |
# \_____________/
#
#       UP
#       |
# LEFT  8
#  \- 4   6 -RIGHT
#     1 2 3
#    /  |  \
#COL-   |   COL+
#      DOWN
#
#WRITTEN BY ZERED

@9
MOV UP RIGHT
MOV UP RIGHT
MOV UP RIGHT

@10
B:MOV UP ACC
JEZ SND
MOV UP RIGHT
MOV RIGHT UP
JMP B
SND:MOV LEFT DOWN
MOV LEFT DOWN
MOV LEFT DOWN
MOV -1 DOWN

@11
#NORMALIZE X
B:MOV ANY ACC
JLZ Z
SAV
SUB 34
JGZ BIG
SWP
MOV ACC LAST
JMP B
Z:MOV 34 LAST
JMP B
BIG:MOV 0 LAST