.ident /20APR1/
; 20-APR-81 15:52:30
                       
.iif ndf $temp$ $temp$=0
$top$=.
$auto$=$temp$
.enabl lc
; Mp version as of: 28-jan-81
	.title  pos
	$auto$=$auto$-<2>
lin=	$auto$
	$auto$=$auto$-<2>
lof=	$auto$
	$auto$=$auto$-<2>
ncmp=	$auto$
	$auto$=$auto$-<2>
i=	$auto$
in=10.
of=12.
st=14.
pos::
	jsr r0,$$csav
	add #$auto$,sp
	$auto.=$auto$
	$auto$=$temp$
	mov in(r5),r0
pos1=.
	tstb (r0)+
	bne pos1
	sub in(r5),r0
	dec r0
	mov r0,lin(r5)
	mov of(r5),r0
pos2=.
	tstb (r0)+
	bne pos2
	sub of(r5),r0
	dec r0
	mov r0,lof(r5)
	tst lof(r5)
	BGT pos9
	BR pos7
pos9=.
	cmp lof(r5),lin(r5)
	BLE pos6
pos7=.
	BR pos4
pos6=.
	cmp lin(r5),st(r5)
	BGE pos3
pos4=.
	clr r0
	jmp $$cret
pos3=.			; 
pos5=.
                       
	mov lin(r5),ncmp(r5)
	SUB lof(r5),ncmp(r5)
	INC ncmp(r5)
	mov #1,i(r5)
pos12=.
	cmp i(r5),ncmp(r5)
	BLE pos14
	JMP  pos13
pos14=.
	cmp i(r5),st(r5)
	BLT pos15
	mov lof(r5),-(SP)
	mov of(r5),-(SP)
	mov in(r5),-(SP)
      jsr pc,eq
	add #006,sp
	tst r0
	BEQ pos18
	mov i(r5),r0
	jmp $$cret
pos18=.			; 
pos20=.
pos15=.			; 
pos17=.
	inc in(r5)
	INC i(r5)
	JMP pos12		;back to top
pos13=.
	clr r0
	jmp $$cret
                       
$temp$=-4.
.END