.ident /20APR1/
; 20-APR-81 15:52:36
.iif ndf $temp$ $temp$=0
$top$=.
$auto$=$temp$
.enabl lc
; Mp version as of: 28-jan-81
	.title  seg
                       
                       
                       
s=10.
in=12.
from=14.
too=16.
SEG::
	jsr r0,$$csav
	add #$auto$,sp
	$auto.=$auto$
	$auto$=$temp$
	mov in(r5),r0
seg1=.
	tstb (r0)+
	bne seg1
	sub in(r5),r0
	dec r0
	cmp too(r5),r0
	BLE seg2
	mov r0,too(r5)
seg2=.			; 
seg4=.
	tst from(r5)
	BGT seg5
	mov #1,from(r5)
seg5=.			; 
seg7=.
	tst r0
	BGT seg14
	BR seg12
seg14=.
	cmp r0,from(r5)
	BGE seg11
seg12=.
	BR seg9
seg11=.
	cmp too(r5),from(r5)
	BGE seg8
seg9=.
5$:                                                                  
	clrb @s(r5)
	clr r0
	jmp $$cret
seg8=.			; 
seg10=.
                                                          
	cmp too(r5),r0
	BLE seg17
	mov r0,too(r5)
seg17=.			; 
seg19=.
	mov in(r5),r0
	ADD from(r5),r0
	DEC r0
	mov s(r5),r1
	mov too(r5),r2
	SUB from(r5),r2
	INC r2
	mov r2,r3
	BLE seg20
10$:                                                          
	movb (r0)+,(r1)+
	sob r2,10$
	JMP seg23
seg20=.			; 
	jmp 5$
seg23=.			; 
seg22=.
	clrb (r1)
	mov r3,r0
	jmp $$cret
$temp$=-4.
.END