qscan no 1

-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: 2.6.1

mQCNA0ek+8gAAAEEAKqplATDeLlXG0YuL9B41VA8n+YAKChjw1WAgSpGu/eJVIT1
grxFzeC61vF90MaJF85i3mwED5sDM3BCuJ11iPRapcQ5TbjeupaXjCWCIEvaOFk1
Ld8yahvEoi6be7unCn7Dl6kEKMVpg49EIaRLeKEaGN5/GY8mKr5Bv2KywzvBAAUR
tBtod20gPHZleHRvckBtYWlsLmx5Y29zLmNvbT4=
=b4B/
-----END PGP PUBLIC KEY BLOCK-----

;redcode-nano
;assert CORESIZE==80
;author hwm
;name breaths of sleeping thoughts v001
;strategy qscan

x1 equ (CORESIZE/2)
x2 equ 6
x3 equ -27
seq.i $ x1, $ x1+x2-1
ptr mul.ab # x1+x2+1, > loop2
loop1 mov.i } x3, { loop2
loop2 mov.i < 33, } loop1
djn.i $ loop1, > 19
end