Same here; I didn't know about this,
but when working on the (ASSEMBLER) runtime of the Stanford Pascal
compiler,
I discovered such a coding (at 3 places):
LA AG,FILDCB(AE)
CLOSE ((AG))
TM DCBBUFCB+3,1
BO PAFOPN3A SKIP IF NO BUFFER POOL
FREEPOOL (AG)
PAFOPN3A DS 0H
AG and AE are register numbers;
AE is addressing the Pascal File block (FCB), which contains the DCB at
position 48, FILDCB = 48. There is a using instruction
USING IHADCB-FILDCB,AE
so the DCB fields can be accessed using the names from the DCBD macro.
This motivated me to look into the books, to see, what that FREEPOOL
does :-))
The Stanford Pascal runtime dates from 1979 ca.,
I did some improvements to it in the years from 2016 on.
If you are interested, look here:
http://bernd-oppolzer.de/job9.htm
or here:
https://www.facebook.com/StanfordPascal/
You can find the whole runtime there (PASMONN.ASS).
Kind regards
Bernd
Am 12.07.2019 um 16:57 schrieb Charles Mills:
I only knew about it/remembered it because I got burned like you many years
ago.
Charles
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Phil Smith III
Sent: Friday, July 12, 2019 7:15 AM
To: [email protected]
Subject: Re: Probably dumb assembler question
And.simply adding:
FREEPOOL ((4)) Release the buffers
Fixed it-thanks again. As I said before, I would NOT have tripped over this
any time soon from reading the doc!
.phsiii
