johnblood/tldm-2503
1
0
Fork 0
Code Pull Requests Actions Packages Releases Wiki Activity

added CMS folder

Browse Source
This commit is contained in:
John Paul Wohlscheid
2025-03-31 19:00:48 -04:00
parent c04bc757d9
commit 33048897a7
17778 changed files with 586914 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
CMS/BP.CLOCK/LIST.SIZE Normal file
View File

@@ -0,0 +1,10 @@
SUBROUTINE LIST.SIZE
****************************************
* This subroutine returns the number of
* frames used by a list. It is called
* from dictionary item LIST.SIZE in the
* master dictionary (MD).
****************************************
$INCLUDE ACCESS.COMMON
CURRENT$=INT(CURRENT$/2000)+1
RETURN CURRENT$