pouët.net

Arytmie by Řrřola [web]

; A RYT MI E
; a 32-byte intro by Rrrola <rrrola@gmail.com>
; greets to everyone with headphones

  org 100h     ; assume ax=bx=0 di=-2

  mov al,0x13  ; 320x200 mode
  int 0x10
  push 0xa000
  pop es
  mov dx,0x378 ; Covox port (LPT1)

M mov al,34
  test di,bx   ; seed with color 34?
  jz P
  mov al,[es:bx+di]
  out dx,al    ; no: do feedback and play sample
  dec ax
P stosb
  sub bx,9     ; subtract 8 from feedback address bx+di
  jnz M        ; frame = 65536 pixels

  inc di       ; scroll left
  hlt          ; limit to 18.2 fps (hold a key to fast forward)
  jmp M