( Native words )
CODE EXECUTE
    DE POP,
    chkPS,
    JR, lblexec BWR      ( execute-B301 )
CODE (s) ( string literal )
PC ORG @ 0x2d + ! ( stable ABI JP )
( Like (n) but instead of being followed by a 2 bytes
  number, it's followed by a string. When called, puts the
  string's address on PS )
    IY PUSH, HL POP, ( <-- IP )
    E (HL) LDrr, D 0 LDri,
    DE INCd,
    DE ADDIYd,
    HL PUSH,
;CODE