( compiled word ) L1 FSET ( execute B301 ) ( 1. Push current IP to RS 2. Set new IP to the second atom of the list 3. Execute the first atom of the list. ) IY PUSH, HL POP, ( <-- IP ) lblpushRS @ ( pushRS ) CALL, EXDEHL, ( HL points to PFA ) ( While we inc, dereference into DE for execute call later. ) LDDE(HL), HL INCd, HL PUSH, IY POP, ( --> IP ) JR, lblexec BWR ( execute-B301 )