; Graphics-mode version of CR

;  I *think* this could be made to work with text-mode too...

code '?cr', ?cr
	mov cx,[xy+2]
	cmp cx,320
	js $cr.1
code 'cr', cr
      push ecx			; cr
	xor ecx,ecx			;  Set X=0
	mov cx,[xy]			;  get x,y coordinate
	add cx,8                      	;  y=y+8
	mov [xy],ecx			;  update x,y coordinate
	pop ecx
.1	next
