version 1.1, 1996/12/23 15:07:44
|
version 1.2, 1997/02/01 14:59:28
|
Line 37 s" address-unit-bits" environment? drop
|
Line 37 s" address-unit-bits" environment? drop
|
\ compares image1 and image2 (of size cells) and sets reloc-bits. |
\ compares image1 and image2 (of size cells) and sets reloc-bits. |
\ offset is the difference for relocated addresses |
\ offset is the difference for relocated addresses |
image1 @ image2 @ over - { base offset } |
image1 @ image2 @ over - { base offset } |
|
offset 0= abort" images have the same base" |
." offset=" offset . cr |
." offset=" offset . cr |
size 0 |
size 0 |
u+do |
u+do |