Git - code.swisschili.sh
code.swisschili.sh / dos-forth / b921e82193f2adf3a156678d067ad4eaf9bb5963 / . / CORE.F
blob: 10ab1f6195944c53d20388397b532d90d2ef5165 [file] [log] [blame]
swissChili7c626b92022-01-01 23:35:39 -0800[diff] [blame]1\ Core words for DOS FORTH
2
swissChilie4d2e282022-01-04 22:22:27 -0800[diff] [blame]3: NIP SWAP DROP ;
swissChili94f1e762022-01-29 21:55:45 -0800[diff] [blame]4: / /MOD NIP ;
5: MOD /MOD DROP ;
6
swissChilib921e822022-04-20 19:47:33 -0700[diff] [blame^]7: LITERAL IMMEDIATE ' LIT , , ;
8: [COMPILE] IMMEDIATE WORD FIND >CFA , ;
9: RECURSE IMMEDIATE LATEST , >CFA , ;
swissChili94f1e762022-01-29 21:55:45 -0800[diff] [blame]10
11\ Control structures
12
13\ cond IF <*b0> true ELSE false THEN rest
swissChilib921e822022-04-20 19:47:33 -0700[diff] [blame^]14: IF ( -- *then ) IMMEDIATE ' 0BRANCH , HERE @ 0 , ;
swissChili94f1e762022-01-29 21:55:45 -0800[diff] [blame]15
swissChilib921e822022-04-20 19:47:33 -0700[diff] [blame^]16: THEN ( *then -- *then ) IMMEDIATE
swissChili94f1e762022-01-29 21:55:45 -0800[diff] [blame]17 DUP HERE @ SWAP ( *then *then *here )
18 SWAP - ( *then *here-*then )
19 SWAP ! ;
20
swissChilib921e822022-04-20 19:47:33 -0700[diff] [blame^]21: ELSE ( *then -- *here ) IMMEDIATE
swissChili94f1e762022-01-29 21:55:45 -0800[diff] [blame]22 ' BRANCH ,
23 HERE @ ( *then *ph )
24 0 ,
25 SWAP ( *ph *then )
26 DUP ( *ph *then *then )
27 HERE @ ( *ph *then *then *here )
28 SWAP - ( *ph *then diff )
29 SWAP ! ( *ph ) ;
swissChili7c626b92022-01-01 23:35:39 -0800[diff] [blame]30
swissChilib921e822022-04-20 19:47:33 -0700[diff] [blame^]31IMG-DUMPED
32
swissChilie4d2e282022-01-04 22:22:27 -0800[diff] [blame]33DUMP-IMAGE FORTH.COM
swissChilib921e822022-04-20 19:47:33 -0700[diff] [blame^]34
swissChilie4d2e282022-01-04 22:22:27 -0800[diff] [blame]35BYE