10 lines
295 B
Text
10 lines
295 B
Text
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
|