16683
(Clean$)
Shrink strobj in top of TEMPOB
TEMPOB
R1=addr of length field
A.A=new end address
Uses A.W B.A C.W D.A D0 D1
16677
(Clean$R0)
R1=R0+5 <see>Clean$
16671
Shrink$
Shrinks a strobj
R0.A=->$ D0=end of $
Uses A.W B.A C.W D.10 D0 D1