To gen the HCPLDR MODULE, SETUP SP2  &  UTILITY GEN HCPLDR.  At least,
on 1/26/90, this worked.  Kind of.  Wayne had a UTILITY EXEC on the
F-disk (CPALM - CPSYSXA A51) which he modified.  The problem is that the
UTILITY EXEC dynamically creates its own $PPF file and then calls the
SES EXECs with it.  This $UTIL $PPF file assumes the standard SES disk
structure, which you don't get if you use our SETUP EXEC.  So Wayne
modified the UTILITY EXEC to create $UTIL $PPF that does represent our
disk layout, but he had it wrong.  His B41 disk should be E11.
 
  I traced the UTILITY EXEC and besides creating the 3CARD LOADER,
this is what it does to create the HCPLDR MODULE and the HCPLDR LOADER.
(some things that follow are/were/may be specific for this day.  For
 example, the 3CARD LOADER was on the F-disk, HCPLDR ASSEMBLE on the A)
 
/* */
'SET CMSTYPE HT'
'ERASE HCPLDR TXT* A'
'ERASE HCPLDR LISTING A'
'ERASE HCPLDR LOADER A'
'ERASE HCPLDR MODULE A'
'ERASE $HCPLDR LISTING A'
'STATE HCPLDR ASSEMBLE A'
If rc^=0 Then 'COPYFILE HCPLDR ASSEMBLE H = = A (UNPACK'
'SET CMSTYPE RT'
/*    Build HCPLDR MODULE with a different CNTRL deck.       */
/*  HCPLDR CNTRL points to HCPLDRCM MACLIB, which has a      */
/*  different HCPOPTNS COPY in it, one with which has the    */
/*  variable &HCPCMSX set to 1 instead of 0.  This causes    */
/*  the CMS code to be generated, rather than the CP code.   */
'EXEC VMFHASM HCPLDR HCPLDRCM (NOSETUP DISK EXP'
'RENAME $HCPLDR LISTING A HCPLDR = ='
ft = 'TXTSUP'
'RENAME HCPLDR' ft 'A = TEXT A'
'LOAD HCPLDR (CLEAR NOLIBE MAP'
'GENMOD HCPLDR MODULE A2 (SYSTEM STR FROM HCPLDR TO HCPLDRSA NOMAP'
'ERASE HCPLDR TEXT'
 
/*  Now recompile HCPLDR for CP and create the HCPLDR LOADER.  */
'EXEC VMFHASM HCPLDR HCPXA (NOSETUP DISK EXP'
'COPYFILE 3CARD LOADER F HCPLDR' ft 'A HCPLDR LOADER A2 (REPLACE'
'ERASE HCPLDR' ft