From f5c6106b2917e6c420769d014fe19318939c2215 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 16 May 2018 22:57:48 +0200
Subject: [PATCH] Edits suggested by handwritten notes in the printed listing.

---
 src/klh/{dazdrt.110 => dazdrt.111} | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)
 rename src/klh/{dazdrt.110 => dazdrt.111} (99%)

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