title sprt
buflen==1000
dski==1
TTYO==13
ufdie==-1
ufsiot==-1
uffget==-1
ufrd6==-1 
uftyi==-1 

.insrt rwk;empty >

go1:	syscal ttyset,[argi,,tyic
		[424242,,424242] ? [424242,,424242]]
	  .lose 1400 
	move a,['DSK   ']
	movem a,dev
	move a,['STYOUT']
	movem a,fn1
	move a,['>     ']
	movem a,fn2
	.suset [.rsnam,,a]
	movem a,dir
	.break 12,[5,,jclbuf]	   ;Get JCL
	movei b,[Rd6 a,[tyi tyic,a]]	;read in the name
	move c,[440700,,jclbuf]
	skipe jclbuf
	  movei b,[rd6 a,[ILDB A,C]]
	skipn jclbuf
	   type /AEnter file name:  /
	fget a,(b)
	syscal OPEN,[cnti,,.uii ? argi,,dski ? DEV
			fn1 ? fn2 ? dir]
	   death /AFile Not Found.A/
	syscal open,[cnti,,.uio+%TJSIO ? ARGI,,ttyo ? ['TTY   ']]
	  .lose 1400
	type /C/
out:	move a,[444400,,buffer]
	movei b,buflen
	syscal SIOT,[argi,,dski ? a ? b]
	  .lose 1400 
	move a,[441000,,buffer]
	movei c,buflen*4 
	movei d,(b)
	imuli d,4
	subi c,(d)		   ;approximate
	syscal siot,[argi,,ttyo ? a ? c]
	  .lose 1400 
	jumpe b,out
	
	.iot ttyo,[%tdmv0]	   ;home up
	.iot ttyo,[0]
	.iot ttyo,[0]
	syscal scpos,[argi,,ttyo ? argi,,0 ? argi,,0 ]
	  .lose 1400
	type /Z--END-OF-FILE--LNZLU/
	.break 16,164000

jclbuf:	block 100 

buffer:	block buflen 
	block 2
	end go