Implementations of NEXT in Forth Systems for the 6502 CPU#

64FORTH (Tom Zimmer)#

NEXT  LDY   #1 
             LDA  (IP),Y 
             STA   W+1 
             DEY 
             LDA  (IP),Y 
             STA  W 
             LDA  (W),Y 
             STA  TMP 
             INY 
             LDA  (W),Y 
             STA   TMP+1 
             DEY 
            CLC 
            LDA   IP 
            ADC  #2 
            STA   IP 
            BCC  L816E 
            INC   IP+1 
L816E  JMP  (TMP)
See http://groups.google.de/group/comp.lang.forth/browse_thread/thread/19f7f2102e020583/8d1b52cf069d1258