9.2.3. Vnitřní interpret NEST

Vnitřní interpret provádí interpretaci definice slova. V principu dělá to, že postupně volá kód na adresách uvedených v definici. Přesněji zapsáno provádí:

NEST:   -(RSP) = IP
        POP IP
        JUMP NEXT

Protože RSP je S bude to vypadat takto

NEST:   W = (RSP)+      ; POP W
        -(RSP) = IP
        IP = W
        JUMP NEXT

                ; Vyzednutí adresy uložené instrukcí JSR NEST ze zásobníku.
                NEST:
0600 68                 PLA
0601 85 FB              STA W
0603 68                 PLA
0604 85 FC              STA W+1

                        ; Uložení aktuální hodnoty IP na zásobník RSP
0606 A5 FE              LDA IP
0608 48                 PHA
0609 A5 FF              LDA IP+1
060B 48                 PHA

                        ; Adresa vyzvednutá ze zásobníku a uložená v W
                        ; je o 1 menší než potřebujeme.  Je to vlastnost
                        ; procesoru 6502

060C 18                 CLC
060D A5 FB              LDA W
060F 69 01              ADC #1
0611 85 FE              STA IP
0613 A5 FC              LDA W+1
0615 69 00              ADC #0
0617 85 FF              STA IP+1
            
                        ; JUMP NEXT      ; Vykonání
0619 4C 17 06           JMP NEXT

Varianta pro JMP místo JSR

NEST:
            ; -(RSP)=IP
            ; Uložení ukazatele instrukcí na zásobník návratových adres
            ; Uložení obsahu IP do zásobníku S (=RSP)
            LDA IPL
            PHA
            LDA IPH
            PHA

            ; IP=W+3
            ; Vyzvednutí první adresy v definici slova
            ; V registru W je adresa CF tohoto slova a první adresa je o tři
            ;  byty dále
            CLC
            LDA WL
            ADC #3
            STA IPL
            LDA WH
            ADC #0
            STA IPH
            
            ; JUMP NEXT      ; Vykonání
            JMP NEXT