1 FETCH 2+ , 2
entry-constant
2.1?
SET
(
ptr-ref
)
2.2?
TITLE
(
char-expr
)
3 ;