VolksForth/sources/cpm/double.fth

52 lines
3.1 KiB
Forth
Raw Normal View History

\ *** Block No. 0 Hexblock 0
\\ Double words 11Nov86
Dieses File enthaelt Worte fuer 32-Bit Objekte.
Im Kern bereits enthalten sind:
2@ 2! 2dup 2drop 2swap dnegate d+
Hier werden definiert:
2Variable 2Constant 2over d*
\ *** Block No. 1 Hexblock 1
\ 2over 2@ 2! 2Variable 2Constant UH 30Oct86
: 2Variable Variable 2 allot ;
: 2Constant Create , , does> 2@ ;
Code 2over ( 32b1 32b2 -- 32b1 32b2 32b1 ) 7 H lxi
SP dad M D mov H dcx M E mov D push
H dcx M D mov H dcx M E mov D push Next end-code
--> \\
Code 2@ ( addr -- 32b ) H pop H push
H inx H inx M E mov H inx M D mov H pop D push
M E mov H inx M D mov D push Next end-code
Code 2! ( 32b addr -- ) H pop
D pop E M mov H inx D M mov H inx
D pop E M mov H inx D M mov Next end-code
\ *** Block No. 2 Hexblock 2
\ d* d- 29Jun86
: d* ( d1 d2 -- d1*d2 )
rot 2over rot um* 2swap um* d+ 2swap um* d+ ;
: d- ( d1 d2 -- d1-d2 ) dnegate d+ ;