*DECK PUTPRFX 
          IDENT  PUTPRFX
          TITLE  PUTPRFX -  PUT PREFIX (77) TABLE ON BINARY FILE
  
          MACHINE  ANY,I
          SST 
          COMMENT   "COMRTN"
          COMMENT  PUT PREFIX (77) TABLE ON BINARY FILE 
          SPACE  4
**        PUTPRFX -  PUT PREFIX TABLE ON BINARY FILE
* 
*         PUTPRFX(CCTSSDNATPTR);
  
  
          ENTRY  PUTPRFX
 PUTPRFX  CON    *
          SA2    X1          SECONDARY STORAGE DNAT POINTER 
          ZR     X2,PUTPRFX1 IF NO SECONDARY STORAGE INSTRUCTIONS 
          SA3    HARDWARE    6/1H ,54/9H<HARDWARE OPTIONS>
          SX4    1R &1RL
          LX4    54 
          BX6    X3-X4       6/1HL,54/9H<HARDWARE OPTIONS>
          LX6    -6          6/1H ,6/1HL,48/<HARDWARE OPTIONS>
          SA6    A3 
 PUTPRFX1 SB6    6
          SA5    =XCDATE     GET DATE OF COMPILATION
          LX6    X5,B6
          SA6    TBL77DAT 
          SA5    =XCTIME     GET TIME OF COMPILATION
          LX6    X5,B6
          SA6    TBL77CLK 
          SA1    CALL1
          RJ     =XPUTBIN    PUTBIN(LOC(TBL77), 15);
          EQ     PUTPRFX     RETURN;
          SPACE  4
**        77 TABLE
* 
  
  
 HARDWARE MICRO  1,, I
          LIST   F
          IFEQ   OP.BDP,OP.YES,1
 HARDWARE MICRO  1,, "HARDWARE"C
  
 TARGET   MICRO  1,2,#  # 
          IFEQ   OP.MODEL,OP.6400,1 
 TARGET   MICRO  1,2, 64
          IFEQ   OP.MODEL,OP.6600,1 
 TARGET   MICRO  1,2, 66
  
 VALID    MICRO  1,2,#  # 
  
  
          ENTRY  PRFXNAM
 TBL77    BSS    0
          VFD    12/7700B,12/16B,36/
 PRFXNAM  DATA   0L_KLUDGE
 TBL77DAT BSS    1
 TBL77CLK BSS    1
          DATA   10H"OSID"
          VFD    42/7H COBOL ,18/3H"COBVER" 
          VFD    30/0H"COBLVL",12/2H"TARGET",12/2H"VALID",6/1H
 HARDWARE VFD    6/1H ,54/9H"HARDWARE"
          DATA   50HCOBOL PROGRAM 
          DATA   10H
          DATA   10H
          SPACE  4
 CALL1    CON    TBL77PTR 
          CON    =15
          CON    0
 TBL77PTR CON    TBL77
          SPACE  4
          END 
