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