?cr:    push ecx
        mov cx,[xy+2]   ;x
	  cmp cx,[hp]
        pop ecx
        js cr.2
cr:     push ecx
        xor ecx,ecx     ;x=0
	mov cx,[xy]
	add cx,ih	;y=y+ih
	mov [xy],ecx
      add ecx,8
.scroll cmp cx,[vp]
        js .1
        pusha
        embed 'scroll'
        popa
.1      pop ecx
.2      ret
