Решил помочь с бордюрными эффектами, держи (и копирайты сохрани):

snova xor a
out (#fe),a
halt
ld a,2
out (#fe),a
halt
ld a,6
out (#fe),a
halt
ld a,4
out (#fe),a
halt
jr snova