mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 20:34:07 +00:00
52 lines
3.3 KiB
Plaintext
52 lines
3.3 KiB
Plaintext
|
Screen 0 not modified
|
||
|
|
0 \\ Double words 11Nov86
|
||
|
|
1
|
||
|
|
2 Dieses File enthaelt Worte fuer 32-Bit Objekte.
|
||
|
|
3
|
||
|
|
4 Im Kern bereits enthalten sind:
|
||
|
|
5
|
||
|
|
6 2@ 2! 2dup 2drop 2swap dnegate d+
|
||
|
|
7
|
||
|
|
8 Hier werden definiert:
|
||
|
|
9
|
||
|
|
10 2Variable 2Constant 2over d*
|
||
|
|
11
|
||
|
|
12
|
||
|
|
13
|
||
|
|
14
|
||
|
|
15
|
||
|
|
Screen 1 not modified
|
||
|
|
0 \ 2over 2@ 2! 2Variable 2Constant UH 30Oct86
|
||
|
|
1
|
||
|
|
2 : 2Variable Variable 2 allot ;
|
||
|
|
3 : 2Constant Create , , does> 2@ ;
|
||
|
|
4
|
||
|
|
5 Code 2over ( 32b1 32b2 -- 32b1 32b2 32b1 ) 7 H lxi
|
||
|
|
6 SP dad M D mov H dcx M E mov D push
|
||
|
|
7 H dcx M D mov H dcx M E mov D push Next end-code
|
||
|
|
8 --> \\
|
||
|
|
9 Code 2@ ( addr -- 32b ) H pop H push
|
||
|
|
10 H inx H inx M E mov H inx M D mov H pop D push
|
||
|
|
11 M E mov H inx M D mov D push Next end-code
|
||
|
|
12
|
||
|
|
13 Code 2! ( 32b addr -- ) H pop
|
||
|
|
14 D pop E M mov H inx D M mov H inx
|
||
|
|
15 D pop E M mov H inx D M mov Next end-code
|
||
|
|
Screen 2 not modified
|
||
|
|
0 \ d* d- 29Jun86
|
||
|
|
1
|
||
|
|
2 : d* ( d1 d2 -- d1*d2 )
|
||
|
|
3 rot 2over rot um* 2swap um* d+ 2swap um* d+ ;
|
||
|
|
4
|
||
|
|
5 : d- ( d1 d2 -- d1-d2 ) dnegate d+ ;
|
||
|
|
6
|
||
|
|
7
|
||
|
|
8
|
||
|
|
9
|
||
|
|
10
|
||
|
|
11
|
||
|
|
12
|
||
|
|
13
|
||
|
|
14
|
||
|
|
15
|