VolksForth/8080/CPM/src/double.fth

\ *** 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+ ;