UTNAM - set DECtape name.

src/lars/utnam.20

@@ -0,0 +1,29 @@
+	title utnam - set microtape name
+
+a=1
+b=2
+c=3
+d=4
+
+go:	movei a,0
+	.break 12,[..rjcl,,jcl]		;get jcl
+	move b,[440700,,jcl]
+	move c,[440600,,a]
+repeat 3,[				;convert three characters
+	ildb d,b			;from ascii to sixbit
+	cail d,140
+	 subi d,40
+	subi d,40
+	idpb d,c
+]
+	.break 12,[..rpfi,,def]		;get ddt :print defaults
+	hlr a,def			;get device
+	trz a,777770			;mask to unit number
+	.utnam a,
+	 .lose %lssys
+	.logout 1,
+
+def:	block 4
+jcl:	block 100
+
+end go