*DECK   VERSION 
          IDENT  VERSION
          TITLE  VERSION -
          COMMENT  VERSION -
          SST 
          LIST   F,-R 
          SPACE  4
**        VERSION - 
* 
*         THIS DECK DETERMINES THE DATE OF ASSEMBLY OF THE COMPILER 
*         WHICH SHOWS UP IN THE COMPILER SOURCE LISTING AND THE PREFIX
*         TABLE OF THE GENERATED RELOCATABLES.
* 
*         THIS DECK CREATES THE (EXTERNAL) DATA WHICH IS PLUGGED BY 
*         CONCARD INTO THE EXTERNALS IN PTLST USED IN THE HEADINGS. 
* 
*         THE WORD FOLLOWING *VERA1* IS THE VERSION WHICH GOES INTO THE 
*         RELOCATABLES, AND IS ACCESSED BY USING *VERA1+1*. 
* 
*         MODLEV IS DEFINED AS AN ADDITIONAL PIECE OF INFORMATION 
*         WHICH CAN SHOW UP IN THE HEADING.  IT IS SET TO BLANK IF
*         THE *ML* PARAMETER IS NOT USED IN THE COMPASS CONTROL CARD. 
*         IF THE *ML* OPTION IS SPECIFIED, THE VALUE OF THE PARAMETER 
*         IS INSERTED IN THE SOURCE LISTING HEADER JUST IN FRONT OF 
*         THE *SYMPL 1.X*.
* 
*         THE BULK OF THE MODLEV CODE IS NECESSARY TO RIGHT JUSTIFY 
*         THE STRING AND BLANK IT WHEN *ML* IS NOT SPECIFIED. 
          SPACE  4
          ENTRY  VERA1
          ENTRY  MODLEV 
          SPACE  4
 BLG      MICCNT MODLEVEL    BINARY NUM OF CHAR IN MODLEVEL 
 LG       DECMIC BLG         DECIMAL NUM OF CHAR IN MODLEVEL
  
 BLANKS   MICRO  1,9-"LG",*          *   PADDING TO RIGHT JUSTIFY MODLEV
  
 #MOD     IFC    EQ,*"JDATE"*"MODLEVEL"*
 MODLEV   DATA   10H                     DEFAULT HEADING (BLANK)
 #MOD     ELSE
 MODLEV   DATA   10H"BLANKS""MODLEVEL"   HEADING WITH MODLEV
 #MOD     ENDIF 
  
 VERA1    VFD    12/2L (,30/0L"JDATE",18/3L)
          VFD    30/5H"JDATE",30/5H"MODEL"                               L414 
         END
