version 1.24, 2012/07/23 14:15:51
|
version 1.25, 2012/07/23 14:46:31
|
Line 62 s" address-unit-bits" environment? drop
|
Line 62 s" address-unit-bits" environment? drop
|
doffset 0= abort" images have the same dictionary base address" |
doffset 0= abort" images have the same dictionary base address" |
." data offset=" doffset . cr |
." data offset=" doffset . cr |
." code" image1 image2 cell 26 cells image-data { cbase coffset } |
." code" image1 image2 cell 26 cells image-data { cbase coffset } |
." xt" image1 image2 12 cells 22 cells image-data { xbase xoffset } |
." xt" image1 image2 13 cells 22 cells image-data { xbase xoffset } |
size 0 |
size 0 |
u+do |
u+do |
image1 i th @ image2 i th @ { cell1 cell2 } |
image1 i th @ image2 i th @ { cell1 cell2 } |