diff --git a/src/klh/dazdrt.110 b/src/klh/dazdrt.111
similarity index 99%
rename from src/klh/dazdrt.110
rename to src/klh/dazdrt.111
index d2e819f3..db8e50bc 100644
--- a/src/klh/dazdrt.110
+++ b/src/klh/dazdrt.111
@@ -122,9 +122,9 @@ imxchn==7	;IMX data channel (pots)
 imx==574
 ..d574==574
 
-aprpic==bit1.3	;channels as represented in PI condition word
-dsppic==bit1.2
-dispic==bit1.1
+aprpic==1_<7-aprchn>	;channels as represented in PI condition word
+dsppic==1_<7-dspchn>
+dispic==1_<7-dischn>
 
 IFE $ITS,[
 loc aprchn*2+40
@@ -410,10 +410,10 @@ vbfend:	pushj p,disran	;display random stuffs
 	MOVE B,VDSW
 	move t,vdlipt	;get addr to end of vlist currently being written
 	movei a,3000	;get stop command
-	movem a,(t)	;terminate vlist
+	setzm (t)	;terminate vlist
 	HRRZ T,T
 	HRRZ A,VDCUR
-	SUB T,A
+	SUBI T,-1(A)
 	CAIGE T,
 	 SETZ T,
 	MOVN T,T