pouët.net

Zraková kura by Řrřola [web]

; Zrakova kura: a 32byte coding exercise by Rrrola
; original version: Visual Cortex by visy/Trilobit

  mov  al,13h
  int  10h
  mov  dx,3D4h  ; 256x200 video mode by y0bi/wAMMA
  mov  ah,20h
  out  dx,ax

  les  ax,[bx]

M mov  ax,cx    ; xor pattern
  xor  al,ah
  stosb
  loop M        ; ax=0

  mov  dl,0C9h
P out  dx,al    ; palette: blue-green-purple gradient
  adc  al,40h/3+80h
  jnz  P        ; 255 times

  in   al,60h   ; esc check
  dec  ax
  jnz  M        ; loopnz for scrolling effect

  ret