; TURART
;
; Used by the routine at #R$86EF.
; @label=TURART
c$86F9 LD HL,($AC14) ; {copy D_ADD into TEMADD
 $86FC LD ($C78B),HL ; }
 $86FF CALL $C7BC    ; call EN_AN
 $8702 LD HL,($C78B) ; {copy TEMADD into D_ADD
 $8705 LD ($AC14),HL ; }
 $8708 LD HL,$D3F2   ; {copy address of INBUF into BUFPNT
 $870B LD ($CD86),HL ; }
 $870E LD A,($C7BB)  ; read SRTCNT into A
 $8711 INC A         ; increment A
 $8712 CALL $C64C    ; call SQRT
 $8715 LD A,$00      ; {set STRENG to zero
 $8717 LD ($A172),A  ; }