desc: .ascid "not empty" ;descriptor (len+addr) and text
.entry empty, ^m<>
tstw desc ;check length field
beql is_empty
;... not empty
clrw desc ;set length to zero -> empty
is_empty:
;... empty
ret
.end empty