+1,2
         PCC      0
         SYSTEM   SIG7D
+37,37
         DEF      PURGEINT,BINTODEC,PURDYN
+53,53
         REF      SUSPNDED,SL:BKUP,THRESH
         REF      REGS
+61,62
         REF      TAPETYPE,EI:DESC,NOTAPE
         REF      SNAPPER
+75,75
+77,77
+98,98
MOVE:FID DATA     BA(PURGEFID)+5
         DATA     BA(PURGMSG)+21
+101,101
+129,129
PURGMSG  TEXTC    'ON DDLD PURGED FILE '
+244,244
         SW,D1    THRESH
+247,247
         LCW,R5   THRESH
+255,255
         BNEZ     $+3
+259,259
         STW,R5   THRESH
         BAL,R5   WRT:SAV           SAVE THE THRESHOLD ACROSS CRASHES
+273,273
         LW,SR1   THRESH
+384
         TEXT,2   'PR','SN'
+397
         B        PRINT
         B        SNAP
+401
*
PRINT    CAL1,9   6
         B        GETCOM
*
SNAP     LCI      0
         STM,R0   REGS
         BAL,R3   SNAPPER
         B        PRINT
+451,451
+538     LLF      9/17/74           #22368
         LW,R4    LASTREEL          HAS REEL # BEEN SET UP?
         BNEZ     REELMSG1          YES.
         LW,R13   R5                SAVE R5
         LW,R14   R6                 AND R6
         BAL,R10  NOTAPE            GET THE CURRENT SERIAL NUMBER
         LW,R5    R13               RESTORE R5
         LW,R6    R14                AND R6
         LI,R4    BA(LASTREEL)
         MBS,R4   0
         STW,R0   LASTREEL          PUT LASTREEL THE WAY YOU FOUND IT
         B        TYPEIT
REELMSG1 EQU      $
+893,893
         STW,D1   PURGMSG+1
+899,904
         AI,D1    20                NUMBER OF CHARACTERS IN BASE MSG
         STB,D1   PURGMSG           TOTAL MESSAGE LENGTH
+942,945 LLF      #22570            10/18/74
         LW,R5    *GRANRADAD        CALCULATE CURRENT NUMBER
         AW,R5    *GRANPACKAD        OF PFA GRANULES AVAILABLE.
         BLZ      PURGEX            COUNTS HAVEN'T BEEN SET UP YET
         SW,R5    THRESH            ARE WE NOW BELOW THE THRESHOLD?
         BGZ      PURGEX            NO, WE CAN EXIT.
+949,951
         BAL,SR4  PURGELOG          TELL THE CURRENT SITUATION
         BAL,SR4  PURGESETCTR       MAKE THE NEW THRESHOLD
         LW,SR1   THRESH            PRINT NEW THRESHOLD.
+998
         CI,D1    'O'
         BE       OLDER
+1007,1009        LLF               #23033     10/18/74
         B        PURGEX
+1096,1096
         LW,SR4   PURGEXIT
         B        PURGE
+1114,1117
         STW,D2   THRESH            SET NEW THRESHOLD
         BAL,R5   WRT:SAV            AND SAVE IS IN F:BREC
         B        GETCOM
+1167,1167
+1169,1169
         CW,D1    EI:DESC+1
+1173,1173
         CW,D1    EI:DESC+1
+1195,1195
         CS,D2    EI:DESC+1
+1208,1208
         CW,D4    EI:DESC+1
+1229,1229
         CS,D2    EI:DESC+1
+1242,1242
         BAL,SR3  DOPURDEL
+1253,1253
         CS,D2    EI:DESC+1
+1287,1287
         LW,SR1   EI:DESC+1
+1405,1408
         BAL,SR4  ENDTAPE           CLOSE OUT THE TAPE, IF ANY.
+END
