
code 'cr', 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
        cmp word [sidebar], 0
        jz .2
        pusha
        embed 'sidebar'
        popa
.2      ret
var 'sidebar:size', sidebar, 32
?cr:    push ecx
        mov cx,[xy+2]   ;x
        add cx,[sidebar]
	  cmp cx,[hp]
        pop ecx
        js cr.2
        jmp cr
