src/patch.mac

   1 TITLE   PATCH - PATCH AREA FOR T.S. MONITOR\r
   2 SUBTTL  A. FRANZ/RAP  TS3.19  6 SEP 68  V001\r
   3 \r
   4 ;THIS PROGRAM SHOULD BE LOADED AFTER LAST NEEDED PROGRAM\r
   5 ;BUT BEFORE SYSMAK,EXEC DDT,USER DDT AND ONCE\r
   6 \r
   7 ENTRY PATCH\r
   8 PATCH:  BLOCK 300\r
   9 \r
  10 ;SET JOBDDT NON-ZERO SO SYMBOLS WILL BE SAVED.\r
  11 \r
  12 ZZ=.\r
  13 LOC 74\r
  14         EXP 141\r
  15 RELOC ZZ\r
  16 \r
  17         END\r
  18 \f\r