diff --git a/src/vmsrc/a1cmd.pla b/src/vmsrc/a1cmd.pla index fc1c14c..71cd7cc 100755 --- a/src/vmsrc/a1cmd.pla +++ b/src/vmsrc/a1cmd.pla @@ -823,7 +823,7 @@ def loadmod(mod)#1 memcpy(@header, heap, 128) modsize = header:0 moddep = @header.1 - defofst = modsize + defofst = modsize + MODADDR init = 0 if rdlen > 4 and heap=>2 == $DA7F // DAVE+1 = magic number :-) // @@ -854,8 +854,6 @@ def loadmod(mod)#1 // Re-read file // readfile(@filename, heap) - else - return -69 fin // // Alloc heap space for relocated module (data + bytecode). diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla index 342479e..1b91a70 100755 --- a/src/vmsrc/cmd.pla +++ b/src/vmsrc/cmd.pla @@ -954,7 +954,7 @@ def loadmod(mod)#1 rdlen = read(refnum, @header, 128) modsize = header:0 moddep = @header.1 - defofst = modsize + defofst = modsize + MODADDR init = 0 if rdlen > 4 and header:2 == $DA7F // DAVE+1 = magic number :-) // @@ -991,8 +991,6 @@ def loadmod(mod)#1 refnum = open(@filename, iobuffer) rdlen = read(refnum, @header, 128) fin - else - return -69 fin // // Alloc heap space for relocated module (data + bytecode). diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla index c8fb80d..26dab13 100755 --- a/src/vmsrc/soscmd.pla +++ b/src/vmsrc/soscmd.pla @@ -983,9 +983,9 @@ def loadmod(mod)#1 if refnum > 0 rdlen = read(refnum, @header, 128) modsize = header:0 - //moddep = @header.1 - //defofst = modsize - //init = 0 + moddep = @header.1 + defofst = modsize + MODADDR + init = 0 if rdlen > 4 and header:2 == $DA7F // DAVE+1 = magic number :-) // // This is an EXTended RELocatable (data+bytecode) module. @@ -1023,8 +1023,6 @@ def loadmod(mod)#1 refnum = open(@filename) rdlen = read(refnum, @header, 128) fin - else - return -69 fin // // Alloc heap space for relocated module (data + bytecode).