Procedura NEXT
vykoná slovo v definici na jehož adresu ukazuje registr IP
. IP
je před skokem opraveno (posunuto na další adresu).
NEXT: W=(IP) IP=IP+2 JUMP W
; W=(IP) 0620 A0 00 NEXT: LDY #0 0622 B1 FE LDA (IP),Y ; Fetch code address pointed by IP 0624 85 FB STA W 0626 C8 INY 0627 B1 FE LDA (IP),Y 0629 85 FC STA W+1 ;optional JSR TRACE ; Advance IP. IP=IP+2 062B 18 CLC 062C A5 FE LDA IP 062E 69 02 ADC #2 0630 85 FE STA IP 0632 90 02 BCC 1+ ; skip inc if ... 0634 E6 FF INC IP+1 1: ; JUMP W 0636 6C FB 00 JMP (W)