tisdraw/tisdraw.txt

@0
#COLOR STORE
MOV 3 ACC
SAV
L:MOV ANY ACC
JEZ SND
SWP
ADD RIGHT
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
JMP B
RGT:MOV 1 DOWN
MOV 1 DOWN
JMP B
DWN:MOV 1 RIGHT
JMP B
DUP:MOV -1 RIGHT

@3
MOV LEFT ACC
MOV ACC DOWN
MOV ACC DOWN

@4
MOV RIGHT 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
SAV
JMP B
SND:MOV ACC RIGHT
SWP
MOV ACC LEFT#X
SAV
MOV RIGHT LEFT#Y

@7
B:MOV ANY ACC
JEZ SND
SWP
ADD UP
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
MOV -1 RIGHT

@10
MOV LEFT DOWN

@11