section id="ff1802.unest" xreflabel=";S", xref.ff1802.unest, link.ff1802.SEMIS

Tato funkce ukončuje interpretaci slova v interpretu vyšších slov nest. Jedná se o implementaci funkce exit v modelu nepřímo zřetězeného kódu. Modelový kód je:

exit:  (rsp+)→ip       # pop ip from rs
        next

V implementaci FIG-FORTH 1802 je toto slovo označeno SEMIS (;S)

Nejdříve tedy hlavička slova

000823 0374 823BD3                   .DB H'82,H'3B,H'D3; ;S (UNEST)
000824 0377 035F                     .DW RP1-6       ; link to prev. word RP1
000825 0379 037B             SEMIS:  .DW *+2; CFA→PF containing machine code

Kód slova je pak jednoduchý.

                                     ; (rsp+)→ip   # pop ip from rs
000826 037B 12                       INC R2          ; RSP+=1
000827 037C 42                       LDA R2          ; (RSP+)
000828 037D AA                       PLO RA          ; →IP.lo
000829 037E 02                       LDN R2          ; (RSP)
000830 037F BA                       PHI RA          ; →IP.hi
000831 0380 DC                       SEP RC          ; next