PROGMAP This program dumps information about segments and procedures found in a CM Program file (files with filecode PROG). The original version was written at Exxon, and donated to the Interex Contributed Software Library. That version (A.01.04) was modified by Stan Sieler to be version A.01.05. Sample run, using PROGMAP to analyze a copy of itself: :copy progmap.pub, foo :run progmap.pub PROGMAP, Version A.01.05, COPYRIGHT (c) Exxon Company USA, 1989 Enter program name or EXIT - foo Do you want Segments names only? (y/N) Do you want external parameter information? (y/N) *** FOO.SOURCE.SIELER *** *** WED, JAN 15, 1997, 2:51 PM *** Entry pt. Prog. name # Seg. Global Init.Stack Init.DL Maxdata STT Loc. ---------- ------ ------ ---------- ------- ------- --- ------- PROGMAP %001 162 10000 0 30000 9 %002232 SEGMENT %000: PROGMAP Length: 2832 # STT entries: 32 Procedure STT# Start Entry Length ---------------- ---- ------- ------- --------------- LCS 1 %000000 %000000 %000076 ( 62) LCS8 2 %000016 TOP 3 %000076 %000126 %000271 ( 185) FILEERR 4 %000367 %000367 %000037 ( 31) UPSHIFTC 5 %000426 %000426 %000077 ( 63) IFCNTLY 6 %000525 %000525 %000045 ( 37) INTCNTLY 7 %000572 %000572 %000004 ( 4) CONTROLY 8 %000576 %000576 %000005 ( 5) PROGMAP 9 %000603 %002232 %004526 ( 2390) EXTERNAL ROUTINES: Number of Procedure Procedure type Parameters Check level ---------------- ---------------- ---------- ------------------ TERMINATE' System intrinsic ACHRLL' System intrinsic F'CONTRAP System intrinsic OVFL' System intrinsic INDEX' System intrinsic FOPEN System intrinsic FREADDIR Subroutine 4 Parameter type (3) GETINFO System intrinsic FGETINFO System intrinsic BLANKFILL' System intrinsic FERRMSG Subroutine 3 Parameter type (3) FCHECK System intrinsic PRINT Subroutine 3 Parameter type (3) SIO' System intrinsic IIO' System intrinsic ACHRLS' System intrinsic ACHRLPB' System intrinsic FMTINIT' System intrinsic TFORM' System intrinsic PROCINFO System intrinsic DATELINE Subroutine 1 Parameter type (3) WHO System intrinsic DEBLANK Integer Function 2 Parameter type (3) There are 23 externals in this program. The largest segment is 2832 16-bit words long. End Run