         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
create program Log on 10/10/85                                 <<11480>>00231100
                                                               <<11480>>00231200
10/10/85  Jesse Chin  SR#5000-095535                           <<11480>>00231300
          F1010 - Stack overflow due to infinite loop in CIPER <<11480>>00231400
                  B08'DEVICE'CLEAR routine label retry2 if     <<11480>>00231500
                  CIPER detect wrong'creator %304 error.       <<11480>>00231600
                                                               <<11480>>00231700
04/15/86  Jesse Chin  SR#4700-240317                           <<J2102>>00231800
          F0415 - SF16 caused by enabling CIPER logging.       <<J2102>>00231900
  double lockdst;                                              <<J2102>>16410100
  integer lock1= lockdst,                                      <<J2102>>16410200
          lock2= lock1+1;                                      <<J2102>>16410300
  double           segident               ;                    <<J2102>>16430000
  lock1:=0;                                                    <<J2102>>16595100
  lock2:=new'dst;                                              <<J2102>>16595200
  lockseg'(lockdst,false);  << lock but don't freeze >>        <<J2102>>16600000
      << But first check and see if print on perf...        >> <<p9225>>40276000
      IF PRINT'ON'PERF THEN                                    <<p9225>>40277000
         BEGIN                                                 <<p9225>>40278000
         MOVE SBUFF(I) := (slew'start,"1",slew'tail);          <<p9225>>40279000
         I := I + 8;                                           <<p9225>>40279100
         END                                                   <<p9225>>40279200
      ELSE BEGIN                                               <<p9225>>40279300
           MOVE SBUFF(I):=(l'start,"3V");                      <<p9225>>40280000
           << Insert a blank line >>                           <<p9225>>40285000
           I:=I+6;                                             <<p9225>>40290000
           << Adjust the buffer pointer >>                     <<p9225>>40295000
           END;                                                <<p9225>>40296000
$EDIT                                                          <<11480>>60815000
              return'buffers;                                  <<11480>>60831000
