+4       S28325 SP 02-07-77 GO-TO BROKEN                                DBGR
         REF      J:TREE                                                DBGR
+423     S28325 SP 02-07-77 GO-TO BROKEN                                DBGR
         LW,R2    J:TREE            HAS ADDR                            DBGR
         AI,R2    1                 ADJUST ADDR                         DBGR
         STW,R2   TREEPTR           SAVE TREE ADDR
+2059       S28325 SP 02-07-77 GO-TO BROKEN                             DBGR
* NO PROVISION FOR OVERLAID (SEGMENTED) PROGRAMS GO TO ROOT ONLY        DBGR
+2074,2074 S28325 SP 02-07-77 GO-TO BROKEN                              DBGR
+2077,2077  S28325 SP 02-07-77 GO-TO BROKEN                             DBGR
         BE       GO:45             PNAME ONLY SEARCH ALL               DBGR
+2082,2082 S28325 SP 02-07-77 GO-TO BROKEN                              DBGR
         CI,R6    3                 COULD IT BE IN OR OF ?              DBGR
+2084,2084 S28325 SP 02-07-77 GO-TO BROKEN                              DBGR
         LW,R6    STRING            SEE WHAT IT IS                      DBGR
         SLS,R6   -8                POSITION FOR COMPARE                DBGR
         AND,R6   =X'FFFF'          MASK                                DBGR
+2085,2085 S28325 SP 02-07-77 GO-TO BROKEN                              DBGR
         CI,R6    X'C9D5'           IN                                  DBGR
+2087,2087 S28325 SP 02-07-77 GO-TO BROKEN                              DBGR
         CI,R6    X'D6C6'           OF                                  DBGR
+2100,2100  S28325 SP 02-07-77 GO-TO BROKEN                             DBGR
         MBS,R2   0                                                     DBGR
+2118,2153  S28325 SP 02-07-77 GO-TO BROKEN                             DBGR
         LW,R7    SIZEP             SIZE OF PROG                        DBGR
         LI,R2    BA(SNAME)+1       SECTION TEXT STRING                 DBGRR
+2155    S28325 SP 02-07-77 GO-TO BROKEN                                DBGR
         B        GO:47             GET PNAME BUT START AFTER SECNAME   DBGR
+2158    S28325 SP 02-07-77 GO-TO BROKEN                                DBGR
GO:47    RES      0                 GO HERE IF PNAME QUAL BY SECNME     DBGR
+2184,2210  S28325 SP 02-07-77 GO-TO BROKEN                             DBGR
+2606        S28325 SP 02-07-77 GO-TO BROKEN                            DBGR
         LI,R6    X'FFFC'           MASK                                DBGR
         AND,R6   0,R5              GET FIRST WORD AND OFFSET INTO      DBGR
         SLS,R6   -2                SET UP                              DBGR
         AW,R6    TREEPTR           INTO RIGTH SPOT                     DBGR
         STW,R6   REF:FIL           SAVE FOR LATER USE                  DBGR
+2639    S29927 SP 09-13-77 SETFILES ERRORS                             DBGR
SETF:001 RES      0                                                     DBGR
+2641,2641 S29927 SP 09-13-77 ERROR RETURNS SETFILES                    DBGR
                  (IN),(ABN,SETF:99),(ERR,SETF:99)
+2644,2644 S29927 SP 09-13-77 SETFILES ERROR RETURNS                    DBGR
                  (ABN,SETF:99),(ERR,SETF:99)                           DBGR
+2895       S29927 SP 09-13-77 SETFILES ERROR RETURNS                   DBGR
         LB,R9    R10               GET ERROR RETURN                    DBGR
         CI,R9    X'04'             IS IT LESS                          DBGR
         BL       SETF:99A          YES PRINT MSG                       DBGR
         CI,R9    X'06'             IS IT GREATER                       DBGR
         BG       SETF:99A          YES PRINT MSG                       DBGR
         B        SETF:99Z          IGNORE 04,05,06                     DBGR
SETF:99A RES      0                                                     DBGR
         CI,R9    X'2E'             RETRY ERROR                         DBGR
         BNE      $+3               SKIP CLOSE                          DBGR
         M:CLOSE  M:EI              CLOSE FOR NEW OPEN                  DBGR
         B        SETF:001          GO RE OPEN                          DBGR
         STW,R10  R8                SAVE FOR LATER                      DBGR
         LI,R10   0                 CLEAR                               DBGR
         LI,R6    0                 CLEAR                               DBGR
         LI,R7    0                 CLEAR                               DBGR
         LW,R9    =X'40404040'      MASK PATTERN                        DBGR
         LB,R10   R8                GET MAIN ERROR CODE                 DBGR
         SAD,R10  -4                EXAMINE HALF OF IT                  DBGR
SETF:99B RES      0                                                     DBGR
         CI,R10   9                 IS IT A HEX 9 OR LESS               DBGR
         BG       SETF:99D          NO IT IS AN A-F                     DBGR
         AI,R10   X'F0'             ADD FOR PRINTING                    DBGR
         B        SETF:99E          PROCEED ONWARD                      DBGR
SETF:99C RES      0                                                     DBGR
         LB,R10   R8,R6             GET THE SUB CODE                    DBGR
         SLS,R10  -1                FORMAT IT                           DBGR
         B        SETF:99B-1        EXAMINE THE SUB CODE                DBGR
SETF:99D RES      0                                                     DBGR
SETF:99E RES      0                                                     DBGR
         STB,R10  R9,R7             SAVE THE REFORMATTED CODE           DBGR
         AI,R7    1                 UP THE INDEX                        DBGR
         SAD,R10  4                 GET THE OTHER HALF OF THE CODE      DBGR
         AND,R10  =X'F'             JUST LEAVE THE HALF CODE IN QUESTION DBGR
         CI,R7    2                 WHERE ARE WE                        DBGR
         BL       SETF:99B          GO UP AND DO 2ND BYTE               DBGR
         AI,R6    1                 UP THE INDEX                        DBGR
         CI,R7    2                 ARE WE ON BYTE 3                    DBGR
         BE       SETF:99C          YES                                 DBGR
         CI,R7    4                 ARE WE DONE                         DBGR
         BL       SETF:99B          NO GO DO BYTE 4                     DBGR
         STW,R9   ERR11+5           SAVE THE REFORMATTED ERR CODES      DBGR
         LI,R6    ERR11             GET ADDR OF MSG                     DBGR
         BAL,R7   TYPE              PRINT MSG                           DBGR
         B        NEXT              GET ANOTHER COMMAND                 DBGR
SETF:99Z RES      0                 HERE FOR EOD/EOF                    DBGR
+3875     S29927 SP 09-13-77 SETFILES ERROR RETURNS                     DBGR
ERR11    TEXTC    'SETFILES I/O ERROR     '                             DBGR
+4043,4043 SP S29927 09-13-77 ERROR WITH SETFILES                       DBGR
SETF:FNM EQU      SETFOPN+5                                             DBGR
+4409,4410  S28325 SP 02-07-77 GO-TO BROKEN                             DBGR
REF:FIL  DATA     0                 HOLD ADDR OF STACK                  DBGR
+END
