;'alien tech particle fractalism' by Kuemmel 02/2021
org 100h
mov al,0x13
int 0x10	 
push 0xa000-80
pop es
screen_loop:
   mov ax,0xcccd
   mul di
   xor dx,bp
   xchg ax,dx
   mov cl,6
   iter_loop:
      imul ah
   loop iter_loop
   or al,16
   stosb
   test di,di
jnz screen_loop
inc bp
jmp screen_loop
