Rocksolid Light

Welcome to novaBBS (click a section below)

mail  files  register  newsreader  groups  login

Message-ID:  

Obviously I was either onto something, or on something. -- Larry Wall on the creation of Perl

computers / comp.os.vms / Re: f$env("depth") from where?

SubjectAuthor
* f$env("depth") from where?Arne Vajhøj
+* Re: f$env("depth") from where?Craig A. Berry
|`* Re: f$env("depth") from where?Arne Vajhøj
| `- Re: f$env("depth") from where?VAXman-
`* Re: f$env("depth") from where?Stephen Hoffman
 `- Re: f$env("depth") from where?Arne Vajhøj

1
f$env("depth") from where?

<tontfp$bu2$1@gioia.aioe.org>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=26100&group=comp.os.vms#26100

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!aioe.org!LeVffQP25j5GAigzc2gaQA.user.46.165.242.75.POSTED!not-for-mail
From: arn...@vajhoej.dk (Arne Vajhøj)
Newsgroups: comp.os.vms
Subject: f$env("depth") from where?
Date: Fri, 30 Dec 2022 18:50:13 -0500
Organization: Aioe.org NNTP Server
Message-ID: <tontfp$bu2$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Info: gioia.aioe.org; logging-data="12226"; posting-host="LeVffQP25j5GAigzc2gaQA.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:102.0) Gecko/20100101
Thunderbird/102.6.1
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: en-US
 by: Arne Vajhøj - Fri, 30 Dec 2022 23:50 UTC

Where does f$env("depth") get the value from?

Or how does one get that value from a program?

Arne

Re: f$env("depth") from where?

<too4ml$qd7d$1@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=26101&group=comp.os.vms#26101

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: craigbe...@nospam.mac.com (Craig A. Berry)
Newsgroups: comp.os.vms
Subject: Re: f$env("depth") from where?
Date: Fri, 30 Dec 2022 19:53:25 -0600
Organization: A noiseless patient Spider
Lines: 10
Message-ID: <too4ml$qd7d$1@dont-email.me>
References: <tontfp$bu2$1@gioia.aioe.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 31 Dec 2022 01:53:25 -0000 (UTC)
Injection-Info: reader01.eternal-september.org; posting-host="c810c3f9d198cb77a07b86e68eb7bacd";
logging-data="865517"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19DVtm/SThuGErxJcX5lPzUNXbeZcGBfN8="
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:102.0)
Gecko/20100101 Thunderbird/102.6.1
Cancel-Lock: sha1:LanITwzu7KD0yfUxn0pNOM0LlmQ=
In-Reply-To: <tontfp$bu2$1@gioia.aioe.org>
Content-Language: en-US
 by: Craig A. Berry - Sat, 31 Dec 2022 01:53 UTC

On 12/30/22 5:50 PM, Arne Vajhøj wrote:
> Where does f$env("depth") get the value from?
>
> Or how does one get that value from a program?

As far as I know there is only one program where that value has any
meaning and that program's name is DCL. I wouldn't expect other
programs to have the ability to peek into the context of the procedure
from which they were invoked, if any.

Re: f$env("depth") from where?

<too60g$vit$1@gioia.aioe.org>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=26102&group=comp.os.vms#26102

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!aioe.org!LeVffQP25j5GAigzc2gaQA.user.46.165.242.75.POSTED!not-for-mail
From: arn...@vajhoej.dk (Arne Vajhøj)
Newsgroups: comp.os.vms
Subject: Re: f$env("depth") from where?
Date: Fri, 30 Dec 2022 21:15:40 -0500
Organization: Aioe.org NNTP Server
Message-ID: <too60g$vit$1@gioia.aioe.org>
References: <tontfp$bu2$1@gioia.aioe.org> <too4ml$qd7d$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: gioia.aioe.org; logging-data="32349"; posting-host="LeVffQP25j5GAigzc2gaQA.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:102.0) Gecko/20100101
Thunderbird/102.6.1
Content-Language: en-US
X-Notice: Filtered by postfilter v. 0.9.2
 by: Arne Vajhøj - Sat, 31 Dec 2022 02:15 UTC

On 12/30/2022 8:53 PM, Craig A. Berry wrote:
> On 12/30/22 5:50 PM, Arne Vajhøj wrote:
>> Where does f$env("depth") get the value from?
>>
>> Or how does one get that value from a program?
>
> As far as I know there is only one program where that value has any
> meaning and that program's name is DCL.  I wouldn't expect other
> programs to have the ability to peek into the context of the procedure
> from which they were invoked, if any.

There are a couple of different questions.

Are there any use for getting that info from a program?

In most cases it does not make any sense, but I actually have a
case where it would make sense. Weird code requiring weird
information. Evils tongues may add: due to weird programmer. :-)

Does the program (user mode) have access to that
part of memory?

I don't know. If the answer is no, then no luck.

If there is access to that memory then how does
one find it?

Which is basically what I am asking.

As an example of something slightly similar, the
code below gets verify status:

.entry sys2_verify,^m<>
movl #CTL$AG_CLIDATA,r0
movl W^PPD$L_PRC(r0),r0
moval W^PRC_W_FLAGS(r0),r0
movzwl (r0),r0
bbs #PRC_V_VERIFY,r0,100$
movl #FALSE,@B^4(ap)
ret
100$: movl #TRUE,@B^4(ap)
ret

Arne

Re: f$env("depth") from where?

<too98j$to1o$1@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=26103&group=comp.os.vms#26103

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: seaoh...@hoffmanlabs.invalid (Stephen Hoffman)
Newsgroups: comp.os.vms
Subject: Re: f$env("depth") from where?
Date: Fri, 30 Dec 2022 22:11:15 -0500
Organization: HoffmanLabs LLC
Lines: 13
Message-ID: <too98j$to1o$1@dont-email.me>
References: <tontfp$bu2$1@gioia.aioe.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: reader01.eternal-september.org; posting-host="14b9eacb6cf69d45387e1f071658d827";
logging-data="974904"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+o6/eu57NW6JB1hXxaCunWUEBuXpKSxYE="
User-Agent: Unison/2.2
Cancel-Lock: sha1:RCNU+HS6UY72pEAPnHc5WELWNMg=
 by: Stephen Hoffman - Sat, 31 Dec 2022 03:11 UTC

On 2022-12-30 23:50:13 +0000, Arne Vajhj said:

> Where does f$env("depth") get the value from?
>
> Or how does one get that value from a program?

https://groups.google.com/g/comp.os.vms/c/hwPJZbKQ_4o/m/tkMTdEPfmlcJ

--
Pure Personal Opinion | HoffmanLabs LLC

Re: f$env("depth") from where?

<toq10j$jnu$1@gioia.aioe.org>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=26107&group=comp.os.vms#26107

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!aioe.org!LeVffQP25j5GAigzc2gaQA.user.46.165.242.75.POSTED!not-for-mail
From: arn...@vajhoej.dk (Arne Vajhøj)
Newsgroups: comp.os.vms
Subject: Re: f$env("depth") from where?
Date: Sat, 31 Dec 2022 14:02:37 -0500
Organization: Aioe.org NNTP Server
Message-ID: <toq10j$jnu$1@gioia.aioe.org>
References: <tontfp$bu2$1@gioia.aioe.org> <too98j$to1o$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Info: gioia.aioe.org; logging-data="20222"; posting-host="LeVffQP25j5GAigzc2gaQA.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:102.0) Gecko/20100101
Thunderbird/102.6.1
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: en-US
 by: Arne Vajhøj - Sat, 31 Dec 2022 19:02 UTC

On 12/30/2022 10:11 PM, Stephen Hoffman wrote:
> On 2022-12-30 23:50:13 +0000, Arne Vajhj said:
>> Where does f$env("depth") get the value from?
>>
>> Or how does one get that value from a program?
>
>
> https://groups.google.com/g/comp.os.vms/c/hwPJZbKQ_4o/m/tkMTdEPfmlcJ

So I was not the first wanting to get this.

:-)

Thanks.

Code snippet:

.title depth
PRC$W_PROCLEVEL=56
.psect $CODE quad,pic,con,lcl,shr,exe,nowrt
.entry depth,^m<>
movl #CTL$AG_CLIDATA,r1
movl W^PPD$L_PRC(r1),r1
cvtwl W^PRC$W_PROCLEVEL(r1),r0
ret
.end

program testdepth
integer*4 depth
write(*,*) depth()
end

$ macro depth
$ for testdepth
$ link testdepth + depth + sys$input/opt
sys$loadable_images:dcldef.stb/selective_search
sys$loadable_images:sys$base_image.exe/shareable
$ $ exit

Arne

Re: f$env("depth") from where?

<00B802E4.A1B3939F@SendSpamHere.ORG>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=26147&group=comp.os.vms#26147

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!aioe.org!pr9o9uw/KLhPSFYv2ok3sg.user.46.165.242.75.POSTED!not-for-mail
From: VAXm...@SendSpamHere.ORG
Newsgroups: comp.os.vms
Subject: Re: f$env("depth") from where?
Date: Tue, 03 Jan 2023 15:14:30 GMT
Organization: c.2022 Brian Schenkenberger. Prior employers of copyright holder and their agents must first obtain written permission to copy this posting.
Message-ID: <00B802E4.A1B3939F@SendSpamHere.ORG>
References: <tontfp$bu2$1@gioia.aioe.org> <too4ml$qd7d$1@dont-email.me> <too60g$vit$1@gioia.aioe.org>
Reply-To: VAXman- @SendSpamHere.ORG
Injection-Info: gioia.aioe.org; logging-data="7575"; posting-host="pr9o9uw/KLhPSFYv2ok3sg.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
X-Notice: Filtered by postfilter v. 0.9.2
 by: VAXm...@SendSpamHere.ORG - Tue, 3 Jan 2023 15:14 UTC

In article <too60g$vit$1@gioia.aioe.org>, =?UTF-8?Q?Arne_Vajh=c3=b8j?= <arne@vajhoej.dk> writes:
>On 12/30/2022 8:53 PM, Craig A. Berry wrote:
>> On 12/30/22 5:50 PM, Arne Vajhøj wrote:
>>> Where does f$env("depth") get the value from?
>>>
>>> Or how does one get that value from a program?
>>
>> As far as I know there is only one program where that value has any
>> meaning and that program's name is DCL.  I wouldn't expect other
>> programs to have the ability to peek into the context of the procedure
>> from which they were invoked, if any.
>
>There are a couple of different questions.
>
>Are there any use for getting that info from a program?
>
>In most cases it does not make any sense, but I actually have a
>case where it would make sense. Weird code requiring weird
>information. Evils tongues may add: due to weird programmer. :-)
>
>Does the program (user mode) have access to that
>part of memory?
>
>I don't know. If the answer is no, then no luck.
>
>If there is access to that memory then how does
>one find it?
>
>Which is basically what I am asking.
>
>As an example of something slightly similar, the
>code below gets verify status:
>
> .entry sys2_verify,^m<>
> movl #CTL$AG_CLIDATA,r0
> movl W^PPD$L_PRC(r0),r0
> moval W^PRC_W_FLAGS(r0),r0
> movzwl (r0),r0
> bbs #PRC_V_VERIFY,r0,100$
> movl #FALSE,@B^4(ap)
> ret
>100$: movl #TRUE,@B^4(ap)
> ret
>
>Arne
>
>

Here's a hint:

SDA> EXAMINE @(CTL$AG_CLIDATA+PPD$L_PRC)+PRC_W_PROCLEVEL

--
VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)ORG

I speak to machines with the voice of humanity.

1
server_pubkey.txt

rocksolid light 0.9.8
clearnet tor