This page (revision-5) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 29-Jul-2010 10:12 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
5 03-Feb-2023 15:21 1 KB Carsten Strotmann to previous
4 26-Feb-2017 15:02 1 KB Carsten Strotmann to previous | to last
3 26-Feb-2017 15:02 1 KB Carsten Strotmann to previous | to last
2 29-Jul-2010 10:50 1 KB Carsten Strotmann to previous | to last
1 29-Jul-2010 10:12 638 bytes Carsten Strotmann to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 3 added 20 lines
! FIG-FORTH (also X-FORTH, ANTIC FORTH and other derivatives of FIG-FORTH ...)
{{{
NEXT
LDY #1
LDA (IP),Y ; Hi-Byte of wordaddress
STA W+1 ; store in W-Reg
DEY
LDA (IP),Y ; Lo-Byte of wordaddress
STA W ; store in W-Reg
CLC
LDA IP ; increment IP by 2
ADC #2
STA IP
BCC L54
INC IP+1
L54
JMP W-1 ; indirect jump to (W)
}}}