123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153 |
- @0
- #ACC IS COLOR
- 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
- 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 0 LAST
- JMP B
- BIG:MOV 21 LAST
-
- @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
- 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
- #ACC IS Y
- 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 0 LAST
- JMP B
- BIG:MOV 34 LAST
|