+1,1
         PCC      0
         SYSTEM   SIG7P
+12,12
         DEF      NO:FILL,SEL:BUF,SEL:MT
+18,18
         REF      F:TI,F:SEL,F:BACKUP
+35,35
         REF      QUEUE,QUEUE1,NEWQ
         REF      LASTACCT,OPSMSG,INT
         REF      ERR49,ERR55,THRESH
         REF      REGS,BLDMAIL,MTIME
         REF      FMAILBX,ENVIR
+169
BADLMN   TEXTC    'FILL LOADED WITH WRONG MONSTK..MUST RELOAD'
+343,343
OPNBACKO GEN,8,24 X'14',F:BACKUP
+355,355
OPENBACK GEN,8,24 X'14',F:BACKUP
+358
         DATA     4                 INOUT
+360,360
CLSBACK  GEN,8,24 X'15',F:BACKUP
+414
         CAL1,6   SYS               CHECK FOR PROPER LOADING
         BAL,R6   SLAVE
         CI,SR1   QUEUE
         BNE      BADLOAD
         CI,SR2   QUEUE1
         BNE      BADLOAD
         CI,SR3   NEWQ
         BE       FILL1
BADLOAD  EQU      $
         LI,R5    BADLMN
         CAL1,2   TYPE              TELL OPERATOR OF PROBLEM
         CAL1,9   1                  AND EXIT
FILL1    EQU      $
+417,417
         BEZ      FILL2
+421,422
         BAL,R6   SLAVE
FILL2    EQU      $
+424,424
         BEZ      FILL3
+430,430
FILL3    EQU      $
+438,438
SLAVE    EQU      $
         LPSD,0   SLAVEPSD
SLAVE1   B        0,R6
SLAVEPSD DATA     X'00C00000'+SLAVE1
         DATA     0
+690
         LW,R9    R7                SAVE R7
         LI,R7    0                 RESTART CODE FOR OPS MESSAGE
         BAL,SR4  OPSMSG
         LW,R7    R9
+801
         LD,R6    LBLACCT
         STD,R6   CUR:ACCT
+813,816
         CD,D1    CUR:ACCT
         BNE      NXT:ZAP
+823,823
         BGE      LUK:LUP1
+841,841
         BNE      LUK:LUP1
+846
LUK:LUP1 EQU      $
         LB,R5    LBLORG            CHECK FOR FILELIST
         CI,R5    X'FF'
         BE       SKIPPING          SKIP THE FILELIST IF INCREMENTAL
         LD,R6    LBLACCT           UPDATE THE CURRENT ACCOUNT
         STD,R6   CUR:ACCT           AS IT HAS JUST CHANGED.
         B        USERLAB1          PROCESS THE CURRENTLY OPEN FILE.
+872,882
+952
         MTW,0    SELECT
         BEZ      USERLAB1
*
*        IF THE ACCOUNT HAS CHANGED ON THE TAPE FILE AND THIS IS A
*        FSAVE OR SAVEALL TAPE, WE WILL BE ABLE TO END A RESTORE OF
*        A FULL ACCOUNT WITHOUT MOUNTING THE REST OF THE REELS.
*
         LD,R6    LBLACCT
         MTW,0    CUR:ACCT          WILL BE ZERO IF FIRST ACCOUNT
         BNEZ     $+2
         STD,R6   CUR:ACCT          FAKE OUT THE COMPARE
         CD,R6    CUR:ACCT
         BE       USERLAB1          STILL IN THE SAME ACCOUNT
         LB,R5    LBLORG,R1         GET TYPE OF TAPE
         CI,R5    3                 SQUIRREL
         BGE      USERLAB1          FILES MAY BE OUT OF ORDER, SEARCH
*                                    ENTIRE TAPE SET. (PURGE TAPE = 4)
         B        ZAPENTRY          REMOVE SEL FILL REQUEST FOR THIS ACCOUNT.
USERLAB1 EQU      $
+968
         LB,R4    *D4,R2            DON'T BE FOOLED BY 0 LENGTH VLPS
         BEZ      MOVELOOP           NOT A REAL ONE, SKIP IT.
+1036,1036
         B        NOSKIP
+1080,1080
         LI,D1    14*24             ADD 14 DAYS TO CURRENT DATE
+1097,1097
         STH,SR2  SR3,R4            SR2 CONTAINS BINARY EQUIVALENT
+1153
         LI,D4    USER:VPT          ADDRESS OF FPT VLP'S
         BAL,R5   LOCCODE1
         B        JITLP1            SHOULD NOT OCCUR
         AI,D4    1                 POINT TO ENTRY ITSELF
+1166,1168
+1260,1260
         B        0,R5
+1446
         LCI      3
         PSM,SR1  ENVIR             SAVE ORIGINAL REGISTERS
+1454,1454
         B        NO:OPEN1
+1456
NO:OPEN1 EQU      $
         LCI      3
         PLM,SR1  ENVIR             GET ORIGINAL ABNORMAL REGS
         LCI      0
         STM,R0   REGS              GET A DUMP OF PROBLEM
         BAL,R3   SNAPPER
+1474,1474
+1539
         LW,D4    BLDMAIL           TELL USER IF ALLOWED
+1649    LLF      #21258            10/18/74
         CW,D1    THRESH
+1669,1670
         LH,R5    FL:TAPE
         CI,R5    X'20'             IS TAPE OPEN?
         BANZ     $+3               YES
         CAL1,1   OPNXTAP           NO, OPEN IT ONE WAY
         CAL1,1   OPNDEVTP           OR ANOTHER.
         CAL1,1   CLSTPREM          CLOSE AND REMOVE
*
         LCI      0
         STM,R0   REGS
         BAL,R3   SNAPPER
         B        NO:FILL
+1688,1688
+1690,1690
         BEZ      SHORT
         LCI      0
         STM,R0   REGS
         BAL,SR4  PURGE
         LCI      0
         LM,R0    REGS
+1697,1697
+1710,1710
+1730
         MTW,0    SELECT            IF SELECTIVE FILL, TELL
         BEZ      $+2                THE USER IF IT'S ALLOWED
         LW,D4    BLDMAIL
+1749,1752
+1756
         LCI      3
         PSM,SR1  ENVIR             ORIGINAL REGISTERS
+1757


         LCI      3
         PLM,SR1  ENVIR
+1761
         LCI      0
         STM,R0   REGS
         BAL,R3   SNAPPER
+1766,1766
+1781,1781
         LW,D4    BLDMAIL
+1813
         PAGE
+1816,1816
+END

