moveall
	ld a,111
	add a,0
	ld ($-1),a
	ld hl,curxphase
	jr nc,$+3
	inc (hl)
curxphase=$+1
	ld hl,tsindiv2
	ld a,(hl)
	sra a
        sra a
	ld (curx),a

	;ld a,37
	;add a,0
	;ld ($-1),a
	ld hl,curyphase
	;jr nc,$+3
	 inc (hl)
curyphase=$+1
	ld hl,tsindiv2
	ld a,(hl)
	;add a,a
	;add a,a
	;sra a
	sra a
        sra a
        add a,#c0+#10
	ld (cury),a

	ld a,77
	add a,0
	ld ($-1),a
	ld hl,curzphase
	jr nc,$+3
	inc (hl)
curzphase=$+1
	ld hl,tsindiv2
	ld a,(hl)
	sra a
        sra a
        sra a
	ld (curz),a

	ld a,55;97
	add a,0
	ld ($-1),a
        ld a,0;30
        adc a,0
        ld ($-3),a
        ld (tangage),a

        ld hl,tsindiv2
        inc l
        ld ($-3),hl
        ld a,(hl)
        add a,a
        add a,64;128
	add a,0
	ld ($-1),a
        ld a,0;50 ;azimuth
        adc a,1
        ld ($-3),a
        ld (azimuth),a

	ret

