Remove unused DRAWL.

src/klh/dazdrt.112

@@ -1551,59 +1551,6 @@ getvec:	push p,a
 	pop p,a
 	popj p,
 
-drawl:	push p,a
-	push p,b
-	push p,c
-	push p,d
-	push p,e
-	push p,c
-	pushj p,getpt	;get display wd for pt specified
-	andcmi c,bit2.7+bit2.6+bit2.5	;flush mode bits
-	iori c,bit2.7	;go into vector mode after this hwd
-	movem c,(t)
-	aoj t,		;starting point is now set
-	pop p,c 
-	fsbr c,a	;find relative coords
-	fsbr d,b
-	move b,c	;don't mung c yet
-	PFDVR b,d	;find slope
-	movn a,b
-	caml a,[2048.0]	;no sense in more precision for vertical
-	jrst [skipge b
-		skipa b,[-2048.0]
-		move b,[2048.0]
-		jrst .+1]
-	frifix b	;y rise per
-	move a,[1,,0]	;single x step
-	skipge d
-	movn a,a	;in whatever direction
-	push p,a
-	push p,b
-	movm a,a
-	movm b,b
-	camge a,b	;if x changest fastest, do normal stuff
-%dxch==bit2.9
-	troa f,%dxch	;if y changes fastest, set flag
-	trz f,%dxch
-	pop p,b
-	pop p,a
-	trne f,%dxch
-	jrst [  exch a,b ? exch c,d ? jrst .+1]
-	movm e,a
-	move d,[177,,0]
-	idivi d,e	;find pct of total vecto length
-	imul b,d	;adjust smaller step accordingly
-	skipl a
-	skipa a,[177,,0]
-	movn a,[177,,0]
-	frifix c	;find limit of controlling coord
-	movm d,c	;magn.
-	idiv d,[177,,0]	;find # loops in it
-
-drwln5:
-
-
-
 drwlin:	push p,a
 	push p,b
 	push p,c