+1,1 TSM 10/18/74 #CLEANUP
         SYSTEM   SIG7FDP
         REF      TSTACK
BUMP     CNAME
         PROC
LF       LI,AF(2) AF(1)
         MSP,AF(2) TSTACK
         PEND
PUSH     CNAME    9,11
PULL     CNAME    8,10
         PROC
         DO       NUM(AF)=1|AF(1)=1
LF       GEN,8,4,3,17 NAME(1),AF(1+(NUM(AF)>1)),0,TSTACK
         ELSE
LF       LCI      AF(1)&15
         GEN,8,4,3,17 NAME(2),AF(2),0,TSTACK
         FIN
         PEND
*
+21,21 TSM 10/18/74 #CLEANUP
+47,49 TSM 10/21/74 #CLEANUP
*
HEAD     RES      12                SPACE FOR LM HEAD RECORD.
*
LMFPT    GEN,8,7,17 X'10',0,M:XX    M:READ M:XX   (LOAD MODULE)
+53,53 TSM 10/21/74 #CLEANUP
         DATA     HEAD              BUF
+56,63 TSM 10/21/74 #CLEANUP
LMHEAD   TEXTC    'HEAD'
LMTREE   TEXTC    'TREE'
*
RDSEGF   GEN,8,7,17 X'10',0,M:XX    M:READ M:XX   (LOAD MODULE)
+69,71 TSM 10/18/74 #CLEANUP
         DATA     RFDFKEY           KEY
*
RFDFKEY  DATA     0,0,0,0           SPACE FOR KEY OF LM RECORD.
*
ODBFPT   GEN,8,7,17 X'14',0,F:DB    M:OPEN F:DB   (DEBUG FILE)
+84,85 TSM 10/18/74 #CLEANUP
*
RDDBFPT  GEN,8,7,17 X'10',0,F:DB    M:READ F:DB   (DEBUG FILE)
+91,106 TSM 10/18/74 #CLEANUP
*
DELETE   GEN,8,7,17 X'0D',0,F:DB    M:DELREC F:DB (DEBUG FILE)
         DATA     0
*
WBUG     GEN,8,7,17 X'11',0,F:DB    M:WRITE F:DB  (DEBUG FILE)
         DATA     X'38000050'       ONEWKEY
         DATA     X'80000007'       BUF IN 7
         DATA     36                SIZE
         DATA     KEYRES            KEY
KEYRES   RES      3
*
CDBFPT   GEN,8,7,17 X'15',0,F:DB    M:CLOSE F:DB  (DEBUG FILE)
         DATA     X'80000000'
         DATA     2                 SAVE
*
GVPFPT   DATA     X'8400000F'       PAGE ADDRESS IN 15
FVPFPT   DATA     X'8500000F'
*
GCPFPT   DATA     X'8C000005'       # OF PAGES IN 5
FCPFPT   DATA     X'8D000005'
*
CPGN     DATA     0                 # OF COMMON PAGES REQUIRED.
*
RFDFTOP  DATA     0                 TOP OF RFDF AREA + 1
*
SYMBC    DATA     0                 NONZERO IF START ADDRESS SPECIFIED
+116,116 TSM 10/18/74 #CLEANUP
+150,159 TSM 10/18/74 #CLEANUP
*
+248,248 TSM 10/18/74 #CLEANUP
         CAL1,8   FCPFPT            FREE THE COMMON PAGE (RUN TABLE).
+250,252 TSM 10/21/74 #CLEANUP
         LB,8     RUN+10            BC OF SYMB START  0=NOT PRESENT
         STW,8    SYMBC             REMEMBER WHETHER START SPECIFIED
+260,269 TSM 10/18/74 #CLEANUP
         CAL1,1   LMFPT             READ LM HEAD RECORD.
*  CHECK FOR DEBUGS WITH LINK-LOADED LMN.
         LB,8     HEAD              FIRST BYTE OF HEAD
+278,284 TSM 10/21/74 #CLEANUP
         INT,8    HEAD+3            DATALEN, DATABEGIN
         SLS,9    +1                WA(BEGIN OF DATA)
         STW,9    DATALIM
         INT,8    HEAD+4            PPLEN, PPBEGIN
         SLS,9    +1                WA(BEGIN OF PURE PROCEDURE)
         STW,9    PPLIM
+291,299 TSM 10/21/74 #CLEANUP
         INT,8    HEAD+5            9 = TREE SIZE FROM HEAD
         SLS,9    +2                  (BYTES)
         STW,9    LMFPT+5             TO SIZE WORD IN FPT.
         SLS,9    -2                  (WORDS)
         LI,0     DP
         SW,0     9                 0 = BUFFER FOR READING TREE RECORD
         STW,0    LMFPT+4             TO BUF WORD IN FPT.
+326,326 TSM 10/21/74 #CLEANUP
         STW,12   RFDFTOP
+328,329 TSM 10/21/74 #CLEANUP
         LH,8     HEAD+5            MAX RFDF SIZE FROM HEAD RECORD.
+332,339 TSM 10/22/74 #CLEANUP
         AND,10   X1FE00
         STW,10   RFDF              BEG OF RFDF STACK AREA
         LI,5     DP
         SW,5     10
         SLS,5    -9
         STW,5    CPGN              REMEMBER # COMMON PGS NEEDED
         CAL1,8   GCPFPT            GET COMMON PAGES NEEDED.
+343,345 TSM 10/18/74 #CLEANUP
         STW,8    LMFPT+6           KEY
         CAL1,1   LMFPT
+363,363 TSM 10/18/74 #CLEANUP
         CAL1,8   GVPFPT            GET VP FOR FLAG TABLE (ADR IN 15)
+374,377 TSM 10/18/74 #CLEANUP
         CAL1,1   ODBFPT            OPEN DB FILE.
+383,383 TSM 10/18/74 #CLEANUP
+386,386 TSM 10/18/74 #CLEANUP
         CAL1,1   RDDBFPT           READ DEBUG RECORD.
+401,401 TSM 10/21/74 #CLEANUP
         LW,5     RFDFTOP
+423,423 TSM 10/18/74 #CLEANUP
         CAL1,1   RDSEGF            READ IN REFDEF STACK.
+434,434 TSM 10/18/74 #CLEANUP
         CAL1,1   RDSEGF            READ IN BACK-PATH'S REFDEF STACK.
+471,472 TSM 10/21/74 #CLEANUP
         LW,8     SYMBC             WAS START ADDRESS SPECIFIED...
         BEZ      DB10              ---> NO.
+477,477 TSM 10/21/74 #CLEANUP
         LW,5     RFDFTOP
+478,480 TSM 10/18/74 #CLEANUP
+484,484 TSM 10/18/74 #CLEANUP
         CAL1,1   RDSEGF            READ IN ROOT REFDEF STACK.
+501,501 TSM 10/21/74 #CLEANUP
+506,508 TSM 10/22/74 #CLEANUP
         BAL,R7   PASSNAME
         AW,R6    0,R5              ADD DISPLACEMENT TO LOC.
+510,510 TSM 10/21/74 #CLEANUP
         STS,R6   HEAD+1            STORE START ADD INTO HEAD.
         PULL     16,R2
+522,522 TSM 10/18/74 #CLEANUP
         CAL1,8   FVPFPT            FREE FLAG TABLE VP (ADR IN 15)
+524,525 TSM 10/21/74 #CLEANUP
         LH,R5    HEAD+5            MAX RFDF SIZE
+527,529 TSM 10/18/74 #CLEANUP
         CAL1,8   FCPFPT            FREE # COMMON PAGES IN 5.
         LCW,R5   R5
         AWM,R5   CPGN              UPDATE # COMMON PAGES STILL HELD.
+543,550 TSM 10/21/74 #CLEANUP
         LH,14    HEAD+4            PP DOUBLEWORD SIZE.
         INT,15   HEAD+4            PP DOUBLEWORD ADDRESS.
         AW,15    14
         SLS,15   +1                PP WORD END +1.
         AI,15    X'200'-1          NEXT PAGE PAST PP.
         AND,15   X1FE00            NEXT PAGE PAST PP.
+558,559 TSM 10/21/74 #CLEANUP
         STH,14   HEAD+4            UPDATE PP SIZE IN HEAD.
+565,565 TSM 10/18/74 #CLEANUP
         CAL1,8   GVPFPT            GET VP WHOSE ADDR IS IN 15
+573,575 TSM 10/21/74 #CLEANUP
         LW,5     RFDFTOP
+633,633 TSM 10/21/74 #CLEANUP
         STW,8    DP,2
+639,641 TSM 10/18/74 #CLEANUP
         LW,5     CPGN              GET # COMMON PAGES
         BEZ      $+2               ---> NONE.
         CAL1,8   FCPFPT            FREE THEM ALL.
+710,712 TSM 10/18/74 #CLEANUP
         STW,5    RDSEGF+4          BUF TO M:READ FPT
         SLS,8    2
         STW,8    RDSEGF+5          SIZE TO M:READ FPT  (BYTES)
+717,723 TSM 10/18/74 #CLEANUP
         STM,8    RFDFKEY           KEY IS SEGMENT NAME,
         STB,2    RFDFKEY             WITH ONE MORE BYTE ON THE END
         LI,8     0
         STB,8    RFDFKEY,2           (A ZERO).
+923,923 TSM 10/18/74 #22910
         LI,D3    HEAD              USE HEAD LIMITS, NOT TREE
+935,935 TSM 10/21/74 #CLEANUP
         LW,4     HEAD+2            USE BIAS IN
+END
