\ 
\ Last change: KS 27.05.2009 14:44:09
\ 

Target definitions

Class Indirect  Indirect definitions

Cell [] Zell        Self seal

Target definitions

Cell New Zelle

Buffer New Puffer

Indirect New Ind

: inhalt    ( -- )             Ind Zell @ . ;

: assign    ( Cell.addr -- )   Cell IS Ind Zell ;

\ Später dann im Debugger:  Zelle addr assign  inhalt

Class Double  Double definitions
Indirect :: Indir   Self seal

Target definitions

Double New Doppel

: deep-assign ( cell.addr -- ) Cell IS Doppel Indir Zell ;

hex

5     1 Cell Array 1dim : i1dim ( addr -- )  ['] 1dim !  array-init' 1dim ;

5 4   2 cell Array 2dim : i2dim ( addr -- )  ['] 2dim !  array-init' 2dim ;

6 5 4 3 cell Array 3dim : i3dim ( addr -- )  ['] 3dim !  array-init' 3dim ;

Class Point  Point definitions
Cell :: X
Cell :: Y       Point seal

Target definitions

5 1 Point Array Punkte  : pinit  ( addr -- )  ['] Punkte !  array-init' Punkte ;