vclr:
  ld  hl,vram+vsize
  ld  de,0
  ld  b,(vsize/16)-1
  di
  ex  sp,hl
loop:
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  push de
  djnz loop
  ex  sp,hl
  ret