+1,1                                                                    U08-0001
         TITLE    'OPR-B00,11/16/73,DWG702985'                          U08-0002
*        INCLUDES TECH. BULLETIN NO. 001                                U08-0003
+1887,1887   SIDR#20360 CORRECT MAX. FL. VAL. TO ALLOW FUZZING.         U08-0004
FLOTINF  DATA     X'7FFFFFFF',X'BFFFFFFF'                               U08-0005
+END                                                                    U08-0006
+1,1                                                                    U08-0001
         TITLE    'OPR-B00,03/22/74,DWG702985'                          U08-0002
*        INCLUDES TECH. BULLETIN NO. 001 AND 003                        U08-0003
+485     SIDR NO. 21930, FIX MONADIC MINUS FOR OVERFLOW                 U08-0004
         STW,OP   OPER              SAVE IN CASE OF OVERFLOW            U08-0005
+1887,1887   SIDR#20360 CORRECT MAX. FL. VAL. TO ALLOW FUZZING.         U08-0006
FLOTINF  DATA     X'7FFFFFFF',X'BFFFFFFF'                               U08-0007
+END                                                                    U08-0008
+1,1                                                                    U10-0001
         TITLE    'INDX-B00,11/16/73,DWG702985'                         U10-0002
*        INCLUDES TECH. BULLETIN NO. 001                                U10-0003
+541,544 SIDR#20361                 CORRECT MEMORY MGMT. ERROR IN MTRANSU10-0004
         CW,A     RTRANK            CHECK RANK                          U10-0005
         BGE MNOP                    VECTOR OR SCALAR IS NOP            U10-0006
+545     SIDR#20361                 CORRECT MEMORY MGMT. ERROR IN MTRANSU10-0007
         LW,S     RTRANK            GET RANK                            U10-0008
         BAL,L2   INDEXB            ALLOCATE LOOP CONTROL BLOCK         U10-0009
+1,1                                                                    U09-0001
         TITLE    'MIX-B00,11/16/73,DWG702985'                          U09-0002
*        INCLUDES TECH. BULLETIN MO. 001                                U09-0003
+381,393 SIDR#20362 GENERATE INTG. VECT. FOR IOTA 1 OR 0                U09-0004
         BAL,LZ   INTSCALR          GET AND VALIDITY CHECK RIGHT ARG    U09-0005
         LW,X     AI                SAVE N=LENGTH                       U09-0006
         BLZ ERDOMAIN               QUIT IF NEGATIVE.                   U09-0007
         LI,S     3                 SIZE FOR ISEQ DATA BLOCK            U09-0008
         LI,R     ISEQ**8+1         INDEX SEQUENCE VECTOR               U09-0009
         LCW,T    ORGADJ            BASE=ORIGIN-1                       U09-0010
         LI,XL    1                 STEP=1                              U09-0011
         AI,AI    -1                CHECK FOR SPECIAL CASE              U09-0012
         BGZ MINDX1                 NO                                  U09-0013
         LI,R     INTG**8+1         YES-INTEGER VECTOR                  U09-0014
         LI,S     2                 CHANGE DATA BLOCK SIZE              U09-0015
         LW,T     ORIGIN            VALUE=ORIGIN                        U09-0016
MINDX1   BAL,LX7  ALOCHNW           GET RESULT DATA BLOCK               U09-0017
         STW,A    RESULT                                                U09-0018
         STH,R   *RESULT            SET TYPE-RANK                       U09-0019
         STW,X    2,A               LENGTH                              U09-0020
         STW,T    3,A               BASE (OR VALUE)                     U09-0021
         AI,X     -1                CHECK IF SPECIAL CASE               U09-0022
         STW,XL   4,A               NO-SET STEP=1                       U09-0024
+END                                                                    U09-0025
!JOB
!LIMIT (TIME,3),(CORE,14)
!ASSIGN M:CI,(FILE,APLC08)
!ASSIGN M:SI,(FILE,APLU08)
!ASSIGN M:BO,(FILE,APLB08),(OUT),(SAVE)
!METASYM SI,CI,BO,LO,LU,DC
!JOB
!LIMIT (TIME,5)
!LOAD (LMN,APL),;
!(MAP),(SL,F),(PERM),(ABS),(BREF,60),;
!(EF,(:JO,:SYS),(APLB01),(APLB02),(APLB03),(APLB04),;
! (APLB05),(APLB06),(APLB07),(APLB08),(APLB09),;
! (APLB10),(APLB11),(APLB12),(APLB13),(APLB14),;
! (APLB15),(APLB16),(APLB17),(APLB18),(APLB19),;
! (APLB20),(APLB21),(APLB22),(APLB23),(APLB24),;
! (APLB25),(APLB26),(APLB27))
!TREE :JO-APLB03-APLB14-APLB27-APLB12-APLB13-;
! APLB23-APLB07-APLB08-APLB09-APLB10-APLB11-;
! APLB02-APLB05-APLB06-APLB19-;
! (APLB16-APLB17-APLB18,;
! APLB01-APLB04-APLB15-APLB24,;
! APLB20-APLB21-APLB22,;
! APLB25-APLB26)
+1,1                                                                    U02-0001
         TITLE    'CONSTS-B00,01/28/74,DWG702985'                       U02-0002
+185,185                                                                U02-0003
APLSINON TEXTC    'APL 01/28/74'                                        U02-0004
+END                                                                    U02-0005
+1,1                                                                    U06-0001
         TITLE    'WMAQ-B00,01/28/74,DWG702985'                         U06-0002
*        INCLUDES TECH. BULLETIN NO. 002                                U06-0003
+678,678     ALLOW X'OD' AS EQUIV. TO X'15'                             U06-0004
+END                                                                    U06-0006
+1,1                                                                    U09-0001
         TITLE    'MIX-B00,01/09/74,DWG702985'                          U09-0002
*        INCLUDES TECH. BULLETINS NO. 001 AND 002                       U09-0003
+381,393 SIDR#20362                 GENERATE INTG. VECT. FOR IOTA 1 OR 0U09-0004
         BAL,LZ   INTSCALR          GET AND VALIDITY CHECK RIGHT ARG    U09-0005
         LW,X     AI                SAVE N=LENGTH                       U09-0006
         BLZ ERDOMAIN               QUIT IF NEGATIVE.                   U09-0007
         LI,S     3                 SIZE FOR ISEQ DATA BLOCK            U09-0008
         LI,R     ISEQ**8+1         INDEX SEQUENCE VECTOR               U09-0009
         LCW,T    ORGADJ            BASE=ORIGIN-1                       U09-0010
         LI,XL    1                 STEP=1                              U09-0011
         AI,AI    -1                CHECK FOR SPECIAL CASE              U09-0012
         BGZ MINDX1                 NO                                  U09-0013
         LI,R     INTG**8+1         YES-INTEGER VECTOR                  U09-0014
         LI,S     2                 CHANGE DATA BLOCK SIZE              U09-0015
         LW,T     ORIGIN            VALUE=ORIGIN                        U09-0016
MINDX1   BAL,LX7  ALOCHNW           GET RESULT DATA BLOCK               U09-0017
         STW,A    RESULT                                                U09-0018
         STH,R    *RESULT           SET TYPE-RANK                       U09-0019
         STW,X    2,A               LENGTH                              U09-0020
         STW,T    3,A               BASE (OR VALUE)                     U09-0021
         AI,X     -1                CHECK IF SPECIAL CASE               U09-0022
         BLEZ     *RETURN           YES-DONE                            U09-0023
         STW,XL   4,A               NO-SET STEP=1                       U09-0024
+697     SIDR#20917                 CHECK FOR CHAR. LEFT ARG. ON RESHAPEU09-0025
         AI,T     -CHAR             CHECK LEFT ARG FOR TEXT             U09-0026
         BEZ ERDOMAIN               YES-THATS A NO-NO                   U09-0027
+END                                                                    U09-0028
+1,1                                                                    U09-0001
         TITLE    'MIX-B00,07/09/74,DWG702985'                          U09-0002
*        INCLUDES TECH. BULLETINS NO. 001,002, AND 005                  U09-0003
+381,393 SIDR#20362                 GENERATE INTG. VECT. FOR IOTA 1 OR 0U09-0004
         BAL,LZ   INTSCALR          GET AND VALIDITY CHECK RIGHT ARG    U09-0005
         LW,X     AI                SAVE N=LENGTH                       U09-0006
         BLZ ERDOMAIN               QUIT IF NEGATIVE.                   U09-0007
         LI,S     3                 SIZE FOR ISEQ DATA BLOCK            U09-0008
         LI,R     ISEQ**8+1         INDEX SEQUENCE VECTOR               U09-0009
         LCW,T    ORGADJ            BASE=ORIGIN-1                       U09-0010
         LI,XL    1                 STEP=1                              U09-0011
         AI,AI    -1                CHECK FOR SPECIAL CASE              U09-0012
         BGZ MINDX1                 NO                                  U09-0013
         LI,R     INTG**8+1         YES-INTEGER VECTOR                  U09-0014
         LI,S     2                 CHANGE DATA BLOCK SIZE              U09-0015
         LW,T     ORIGIN            VALUE=ORIGIN                        U09-0016
MINDX1   BAL,LX7  ALOCHNW           GET RESULT DATA BLOCK               U09-0017
         STH,R    *RESULT           SET TYPE-RANK                       U09-0019
         STW,X    2,A               LENGTH                              U09-0020
         STW,T    3,A               BASE (OR VALUE)                     U09-0021
         AI,X     -1                CHECK IF SPECIAL CASE               U09-0022
         BLEZ     *RETURN           YES-DONE                            U09-0023
         STW,XL   4,A               NO-SET STEP=1                       U09-0024
+697         SIDR#20917 CHECK FOR CHAR. LEFT ARG. ON RESHAPE            U09-0025
         AI,T     -CHAR             CHECK LEFT ARG FOR TEXT             U09-0026
         BEZ ERDOMAIN               YES-THATS A NO-NO                   U09-0027
+2198    SIDR NO. 22622             OBSCURE INNER PRODUCT BUG           U09-0028
         CI,X     4                 CHECK IF IDENTITY ELEMENT EXISTS    U09-0029
         BE       ERDOMAIN          NO-ERROR EXIT                       U09-0030
+END                                                                    U09-0031
+1,1                                                                    U13-0001
         TITLE    'APLOUT-B00,01/09/74,DWG702985'                       U13-0002
*        INCLUDES TECH. BULLETIN NO. 002                                U13-0003
+924,924 SIDR NO. 21051                                                 U13-0004
         BG       INVALID           INVALID DATA TYPE                   U13-0005
+1201    SIDR NO. 21051                                                 U13-0006
*                                                                       U13-0007
* INVALID DATA TYPE                                                     U13-0008
*                                                                       U13-0009
         BG       SYSTERR           NO-CRASH                            U13-0011
         LI,R6    BA(LISTMSG)                                           U13-0012
         LI,R10   12                YES-OUTPUT MESSAGE                  U13-0013
         LI,R13   LASTROW                                               U13-0014
         B   GENTEXTM                                                   U13-0015
LISTMSG  TEXT     '**LIST ERR**'                                        U13-0016
+END                                                                    U13-0017
+1,1                                                                    U14-0001
         TITLE    'APLUTSI-B00,01/14/74,DWG702985'                      U14-0002
*        INCLUDES TECH. BULLETIN MO. 002                                U14-0003
+528     SIDR 21086                 SET PLATEN TO 0,0                   U14-0004
         LB,R1    X'2B'                                                 U14-0005
         CI,R1    X'70'             CHECK IF CP-V                       U14-0006
         BL  CALSTRMB               NO                                  U14-0007
CALSTRMP CAL1,8   FPTSTRMP          YES-SET PLATEN TO 0,0               U14-0008
+7078707 SIDR 21086                 TURN UPPER CASE RESTRICT MODE OFF   U14-0009
         DATA     X'A0000000'                                           U14-0010
         DATA     X'04'                                                 U14-0011
+708     SIDR 21086 SET PLATEN TO 0,0                                   U14-0012
FPTSTRMP DATA     X'06200000'                                           U14-0013
         DATA     X'18000000'       PRESENCE BITS FOR PLATEN CONTROL    U14-0014
         DATA     255,0                                                 U14-0015
FDBLOCK  TEMP     48                FUNCTION DEF. MODE STORAGE BLOCK    U14-0017
+1608    SIDR 21085                 CORRECT TIMODAY                     U14-0018
         LW,R13   R10               THOUSANDTHS OF MINUTES              U14-0019
         MI,R13   360               CHANGE TO SAME BASE AS TMS          U14-0020
         AW,R11   R13               AND ADD TO TMS                      U14-0021
         AI,R7    -1                (SKIP SECONDS)                      U14-0022
+1612,1612   SIDR 21085 CORRECT TIMODAY                                 U14-0023
         LB,R13   R9,R7             HOURS,MINUTES                       U14-0024
+1616,1616   SIDR 21085             CORRECT TIMODAY                     U14-0025
T60S     DATA     216000,3600                                           U14-0026
+END                                                                    U14-0027
+1,1                                                                    U15-0001
         TITLE    'FUNDEF-B00,01/14/74,DWG702985'                       U15-0002
*        INCLUDES TECH. BULLETIN NO. 002                                U15-0003
+27      SIDR NO. 21109                                                 U15-0004
         DEF FDSICLR                ENTRY FROM )SI CLEAR                U15-0005
+49      SIDR NO. 21109                                                 U15-0006
         REF SICLR$                 CLEAR STATE INDICATOR               U15-0007
+116         SIDR 21050 ADD LINE COUNT CHECK                            U15-0008
LNCHECK  BLOCK    1                 LINE COUNT CHECK                    U15-0009
+358              SIDR 21050 INDICATE LINE VALUE SET                    U15-0010
         MTW,1    LNCHECK           INDICATE LINE VALUE HAS BEEN SET    U15-0011
         STW,R4   LNCHECK           (INDICATE NO LINE VALUE SET)        U15-0013
+524     SIDR NO. 21109                                                 U15-0014
*                                   (UNLESS,PERHAPS, AN SI CLEAR        U15-0015
*                                   CMD. IS ISSUED. SEE 'FDSICLR'       U15-0016
+631              SIDR 21050 INDICATE LINE VALUE SET                    U15-0017
         MTW,1    LNCHECK           INDICATE LINE VALUE HAS BEEN SET    U15-0018
+701              SIDR 21050 RESET EDIT CHECK FLAG                      U15-0019
         STW,R1   EDITCK            RESET EDIT CHECK FLAG               U15-0020
+735,735     SIDR 21050 ADD CHECK OF DIRECTIVE COUNT                    U15-0021
DELETE   AI,R9    0                 CHECK DIRECTIVE COUNT               U15-0022
         BLEZ     NXTPROMT          NO DIRECTIVE-NO DELETE              U15-0023
         LW,R12   LINVAL            FIND THE VALUE IN THE LINE CHAIN    U15-0024
+758,758     SIDR 21050 ADD CHECK IF LINE VALUE SET                     U15-0025
DOPROMPT LW,R12   LNCHECK           CHECK IF LINE VALUE HAS BEEN SET    U15-0026
         BEZ      NXTPROMT          NO-USE NXTPROMT                     U15-0027
         LI,R12   INPF              REQUEST FUNCTION INPUT AFTER        U15-0028
+1212    SIDR NO. 21109                                                 U15-0029
*                                                                       U15-0030
* FDSICLR- )SI CLEAR COMMAND EXECUTED IN FUNCTION DEFINITION MODE.      U15-0031
*        LINE CHAIN ENTRY MUST BE MOVED,NOT CLEARED.                    U15-0032
*        OLDMODE AND GLOBLOC MAY REQUIRE CHANGING                       U15-0033
*                                                                       U15-0034
*        EXIT IS TO REPROMPT.                                           U15-0036
*        MANY REGISTERS USED, NONE SAVED                                U15-0037
*                                                                       U15-0038
FDSICLR  LW,R1    HILINE                                                U15-0039
         AI,R1    3                 SET TO CLEAR BELOW LINE CHAIN       U15-0040
         LW,R8    TOPOSTAK          SAVE TOP OF STACK                   U15-0041
         BAL,R14  SICLR$            CLEAR STACK(EXCEPT LINE-CHAIN)      U15-0042
         LW,R2    HILINE            SET LOOP TO MOVE LINE-CHAIN         U15-0043
         AI,R2    3                                                     U15-0044
SICLOOP  AI,R2    -3                                                    U15-0045
         AI,R1    -3                                                    U15-0046
         LCI 3                                                          U15-0047
         LM,R3    0,R2                                                  U15-0048
         STM,R3   0,R1              MOVE A LINE CHAIN ENTRY             U15-0049
         CW,R2    R8                CHECK IF DONE(R8=TOPOSTAK)          U15-0050
         BG  SICLOOP                                                    U15-0051
         STW,R1   TOPOSTAK          SET NEW TOPOSTAK                    U15-0052
         LW,R2    STATEPTR                                              U15-0053
         AI,R2    -3                SET NEW HILINE                      U15-0054
         STW,R2   HILINE                                                U15-0055
         LW,R2    GLOBLOC           GET GLOBLOC                         U15-0056
         BEZ      GLOBLOK           OK,NO CHANGE                        U15-0057
         AW,R2    SYMT                                                  U15-0059
         STW,R2   GLOBLOC           GLOBLOC NOW PTS TO SYMT ENTRY       U15-0060
GLOBLOK  LI,R2    1                                                     U15-0061
         STW,R2   OLDMODE           SET OLDMODE DIRECT                  U15-0062
         B        REPROMPT          GO TO REPROMPT                      U15-0063
+END                                                                    U15-0064
+1,1                                                                    U17-0001
         TITLE    'CMD-B00,01/23/74,DWG702985'                          U17-0002
*        INCLUDES TECH. BULL. NO. 002                                   U17-0003
+976     SIDR NO. 21132                                                 U17-0004
         LW,R8    BREAKFLG          CHECK FOR HANGUP                    U17-0005
         CI,R8    -5                                                    U17-0006
         BE  SETQUIT                                                    U17-0007
+979,979 SIDR NO. 21132                                                 U17-0008
SETQUIT  MTW,-1   QUITFLAG          AVOID REPEATED ATTEMPTS             U17-0009
+END                                                                    U17-0010
+1,1                                                                    U20-0001
         TITLE    'APLFIO-B00,01/25/74,DWG702985'                       U20-0002
*        INCLUDES TECH. BULLETIN NO.002                                 U20-0003
+1088        SIDR#21362 FIX TRAP ON 25-26-27                            U20-0004
         LW,R3    RTARG             RESTORE RTARG POINTER-R3            U20-0005
+1340,1340   SIDR#20885 CORRECT ERROR MESSAGES                          U20-0006
         GEN,1,8,70,X'75',X'01'     18                                  U20-0007
+1366        SIDR#20885 CORRECT ERROR MESSAGES                          U20-0008
         GEN,1,8,7 0,0,22           45                                  U20-0009
         GEN,1,8,7 0,0,23           46                                  U20-0010
         GEN,1,8,7 0,0,24           47                                  U20-0011
+1368,1368   SIDR#20885 CORRECT ERROR MESSAGES                          U20-0012
NCASES   EQU HA($)-HA(CASECODE)-1   # SP. CASES OF INTEREST.            U20-0013
+1417    SIDR#20885 CORRECT ERROR MESSAGES                              U20-0014
         DATA,1   IDFILTIE          45                                  U20-0015
         DATA,1   IDFILTIE          46                                  U20-0016
         DATA,1   IDFILTIE          47                                  U20-0017
+END                                                                    U20-0018
+1,1                                                                    U24-0001
         TITLE    'SCMD-B00,01/23/74,DWG702985'                         U24-0002
*        INCLUDES TECH. BULL. NO. 002                                   U24-0003
+40      SIDR NO. 21109                                                 U24-0004
         REF FDSICLR                SI CLEAR IN FUNDEF MODE             U24-0005
+668,669 SIDR NO. 21109                                                 U24-0006
         LI,R14   INPDIR            SET RETURN                          U24-0007
         LW,R8    MODE              TEST FOR FUNDEF MODE                U24-0008
         BNEZ     SICLR             NO-GOOD                             U24-0009
         B   FDSICLR                YES-MORE WORK                       U24-0010
+END                                                                    U24-0011
+1,1                                                                    U10-0001
         INCLUDES TECH. BULLETIN NO. 001 AND 003                        U10-0003
+541,544 SIDR#20361 CORRECT MEMORY MGMT. ERROR IN MTRANS                U10-0004
         CW,A     RTRANK            CHECK RANK                          U10-0005
         BCE      MNOP              VECTOR OR SCALAR IS NOP             U10-0006
+545     SIDR#20361 CORRECT MEMORY MGMT. ERROR IN MTRANS                U10-0007
         LW,S     RTRANK            GET RANK                            U10-0008
         BAL,L2   INDEXB            ALLOCATE LOOP CONTROL BLOCK         U10-0009
+1073    SIDR NO. 21930, FIX TAKE ERR ON (-2)*31                        U10-0010
         BLZ      ERDOMAIN          CATCH '80000000'                    U10-0011
+1684,1684   SIDR NO. *****, ALLOW COORD SPEC. OF 1 WITH SCALAR         U10-0012
         AI,K     -1                GREATER THAN 1                      U10-0013
         BGZ      ERCOORD           MAY BE SPECIFIED                    U10-0014
+END                                                                    U10-0015
+1,1                                                                    U11-0001
         TITLE    'EVAL-B00,03/22/74,DWG702985'                         U11-0002
+154,154     SIDR NO. 21931         FIX ERROR IN LAMINATION             U11-0003
         LI,AI    -2                NO,SET AI NEGATIVE (-2)             U11-0004
+163         SIDR NO. 21931         FIX ERROR IN LAMINATION             U11-0005
         MTW,0    X                 CHECK FOR NEGATIVE VALUE            U11-0006
         BGEZ     0,LX              NO,USE INTEGER PART                 U11-0007
         AI,AI    -1                YES,ADJUST INTEGER VALUE            U11-0008
+END                                                                    U11-0009
         TITLE    'APLOUT-B00,03/22/74,DWG702985'                       U13-0002
*        INCLUDES TECH. BULLETIN NO. 002 AND 003                        U13-0003
+574,575     SIDR NO. 21930, FIX '-0' PRINTOUT                          U13-0004
CINTIM   LI,R2    9                 PRESET COUNT                        U13-0005
         LAW,R9   R8                GET ABS VALUE IN R9                 U13-0006
         BLZ SIZFOUND               CATCH WEIRDO                        U13-0007
+612,612     SIDR NO. 21930                                             U13-0008
+614         SIDR NO. 21930,FIX ' -0' PRINTOUT                          U13-0009
         LAW,R9   R8                GET ABS VALUE IN R9                 U13-0010
         BLZ SIZFOUND               CATCH WEIRDO                        U13-0011
+659,659          FIX ROUND ERR IN DFMT FOR 0<N<1                       U13-0012
         AI,R5    0                 CHECK SPECIAL CASE (DFMT)           U13-0013
         BGZ      ADJUST            NO                                  U13-0014
         LI,R5    1                 YES, CHANGE TO 1 DIGIT              U13-0015
ADJUST   LD,R8    PRANGE-2,R5                                           U13-0016
+924,924     SIDR NO. 21051                                             U13-0017
         BG       INVALID           INVALID DATA TYPE                   U13-0018
+1077    SIDR NO. 21930,FIX '-0' PRINTOUT                               U13-0019
         BLZ      WEIRDO            (-2)*31                             U13-0020
+1089    SIDR NO. 21930,FIX '-0' PRINTOUT                               U13-0021
WEIRDO   LI,R6    10                SET 10 DIGITS                       U13-0022
         B        SETDMAX                                               U13-0023
*                                                                       U13-0025
*        INVALID DATA TYPE                                              U13-0026
*                                                                       U13-0027
INVALID  CI,R2    6                 CHECK FOR LIST                      U13-0028
         BG       SYSTERR           NO-CRASH                            U13-0029
         LI,R6    BA(LISTMSG)                                           U13-0030
         LI,R10   12                YES-OUTPUT MESSAGE                  U13-0031
         LI,R13   LASTROW                                               U13-0032
         B        GENTEXTM                                              U13-0033
LISTMSG  TEXT     '**LIST ERR**'                                        U13-0034
+END                                                                    U13-0035
+1,1                                                                    U17-0001
         TITLE    'CMD-B00,03/04/74,DWG702985'                          U17-0002
*        INCLUDES TECH. BULL. NO. 002 AND 003                           U17-0003
+364,364 SIDR NO. 21594             FIX SAVE WITH AUTOSTART OPTION      U17-0004
+378,378 SIDR NO. 21594             FIX SAVE WITH AUTOSTART OPTION      U17-0005
SAVEREL  BAL,R8   GARBCOLL          GARBAGE COLLECT                     U17-0006
         BAL,R11  RELEASER          RELEASE UNUSED MEMORY               U17-0007
+575     SIDR NO. 21595  FIX COPY PROBLEM IN GRAPHICS WORKSPACES        U17-0008
         LW,R5    HICOMMON          RESTORE                             U17-0009
         LW,R5    -18,R5            GRAPHICS SPECIAL DATA BLOCK         U17-0010
         STW,R5   GRAFPNTR          POINTER (FOR FILE COPY)             U17-0011
         STW,R6   SAVE312           SET SAVE312 TO SKIP IN SNEWTABS     U17-0013
+976     SIDR NO. 21132                                                 U17-0014
         LW,R8    BREAKFLG          CHECK FOR HANGUP                    U17-0015
         CI,R8    -5                                                    U17-0016
         BE  SETQUIT                                                    U17-0017
+979,979 SIDR NO. 21132                                                 U17-0018
SETQUIT  MTW,-1   QUITFLAG          AVOID REPEATED ATTEMPTS             U17-0019
+END                                                                    U17-0020
+1,1                                                                    U21-0001
         TITLE    'APLFMT-B00,03/22/74,DWG702985'                       U21-0002
*        INCLUDES TECH. BULLETIN NO 3                                   U21-0003
+217         SIDR NO. 21561 FIX FOR EMPTY DATA SETS                     U21-0004
         LI,R12   0                 INITIALIZE COUNT OF N BY 0 ITEMS    U21-0005
+223         SIDR NO. 21561 FIX FOR EMPTY DATA SETS                     U21-0006
         AI,R9    0                 CHECK FOR N BY 0 DATA SET           U21-0007
         BNEZ     FMT2A             NO                                  U21-0008
         AI,R12   1                 YES-KICK COUNTER                    U21-0009
FMT2A    RES      0                                                     U21-0010
+232         SIDR NO. 21561 FIX FOR EMPTY DATA SETS                     U21-0011
         AW,R1    R12               THROW IN ONE COLUMN PER N BY 0 ITEM U21-0012
+861         SIDR NO. 21561 FIX FOR EMPTY DATA SETS                     U21-0013
         BEZ XFORMGEN               IF N BY 0 SET, DO BLANK INSERT      U21-0014
         LI,R2    0                                                     U21-0016
+923     SIDR NO. 21930,FIX '-0'                                        U21-0017
         BLZ CONVINT2               WEIRDO '-0'                         U21-0018
+960,964 FIX ROUNDOFF FOR 0<N<1                                         U21-0019
         BAL,R11  PLUSREAL          CONVERT                             U21-0020
+967,968 FIX ROUNDOFF FOR 0<N<1                                         U21-0021
         B   CONVRL5                YES                                 U21-0022
+END                                                                    U21-0023
+1,1                                                                    U26-0001
         TITLE    'GRAF-B00,03/31/74.DWG702985'                         U26-0002
+969         SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0003
*            CURRPSF AND LASTPSF ARE FLAGS INDICATING POSITIONS         U26-0004
*            OF CURRENT AND LAST POINTS IF THESE POINTS ARE OFF         U26-0005
*            SCALE: 1=LOW X, 2=HIGH X, 4=LOW Y, 8=HIGH Y                U26-0006
*                                                                       U26-0007
CURRPSF  TEMP                                                           U26-0008
LASTPSF  TEMP                                                           U26-0009
+997,997     SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0010
*        SECTOR CHECKING                                                U26-0011
+999,1014         SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS  U26-0012
         STW,LX   SNDPTRET          SAVE LINK                           U26-0013
         LI,Z     0                 PRESET SECTOR FLAG-IN LIMITS        U26-0014
         BCR,9    1Z7               IN LIMITS                           U26-0016
         BCS,1    1Z2               LOW                                 U26-0017
         AI,Z     1                 HIGH                                U26-0018
1Z2      AI,Z     1                                                     U26-0019
         CLM,Y    YLIMITS           CHECK Y                             U26-0020
         BCR,9    1Z5               IN LIMITS                           U26-0021
1Z3      BCS,1    1Z4               LOW                                 U26-0022
         AI,Z     4                 HIGH                                U26-0023
1Z4      AI,Z     4                                                     U26-0024
1Z5      CI,F     RENTFLAG          NEW POINT OUT,CHECK IF REENTER      U26-0025
         BAZ      QUIT              NO-QUIT                             U26-0026
         STW,Z    CURRPSF           YES-SAVE SECTOR FLAG                U26-0027
         CI,F     EDGEFLAG          CHECK IF OLD POINT ALSO OUT         U26-0028
         BAZ      OUTBOUND          NO-GOING OFFSCREEN                  U26-0029
         AND,Z    LASTPSF           CHECK IF LINE IS ENTIRELY OFF       U26-0030
         BEZ      BOTHOUT           PROBABLY NO-TRY FURTHER             U26-0031
1Z6      STD,X    LASTPNT           OFFSCREEN-SAVE LAST POINT AND       U26-0032
1Z6P1    LW,Z     CURRPSF           SECTOR FLAG.                        U26-0033
         STW,Z    LASTPSF                                               U26-0034
         OR,F     =EDGEFLAG         MAKE SURE EDGEFLAG IS SET           U26-0035
         B   *SNDPTRET              RETURN                              U26-0036
1Z7      CLM,Y    YLIMITS           X IN LIMS,CHECK Y                   U26-0037
         BCR,9    NEWIN             NEW POINT IS INSIDE                 U26-0038
         B        1Z3               NEW POINT IS OUT                    U26-0039
OUTBOUND CI,F     VECTORFG          CHECK IF FIRST POINT                U26-0040
         BAZ      1Z6               YES-SAVE AND EXIT                   U26-0041
1Z8      STW,Z    LASTPSF           NO-SAVE SECTOR FLAG-CONTROLS        U26-0042
*                                   DIRECTION OF INTERPOLATION.         U26-0043
         BAL,LX   INTERPOL          INTERPOLATE TO EDGE,OUTBOUND        U26-0044
         B        QUIT              THIS POINT SHOULD NOT BE REACHED    U26-0045
         BAL,LX   PLOT1             PLOT TO THE EDGE POINT              U26-0046
         AND,F    =-1-VECTORFG      START NEW VECTOR                    U26-0047
         B   *SNDPTRET              RETURN                              U26-0048
NEWIN    CI,F     EDGEFLAG          NEW PT ON SCREEN: HOW ABOUT LAST    U26-0049
+1017,1019   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0050
         BAL,LX   INTERPOL          INBOUND-INTERPOLATE TO EDGE         U26-0051
         B   QUIT                   THIS POINT SHOULD NOT BE REACHED    U26-0052
         BAL,LX   PLOT1             PLOT POINT                          U26-0053
         LW,LX    SNDPTRET          RESTORE LINK                        U26-0054
+1021    SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS           U26-0055
BOTHOUT STD,X     SAVEPNT           SAVE NEW OUTSIDE POINT              U26-0056
         BAL,LX   INTERPOL          INTERPOLATE FROM OLD POINT TO EDGE  U26-0057
         B   1Z6P1                  LINE ENTIRELY OUTSIDE               U26-0058
         BAL,LX   PLOT              PLOT EDGE POINT-GOING IN            U26-0059
         LD,X     SAVEPNT                                               U26-0060
         LW,Z     CURRPSF           RESTORE NEW POINT AND SECTOR FLAG   U26-0061
+1024,1024   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0063
*        INTERPOL-INTERPOLATES TO AN EDGE OF WINDOW, USING CURRENT AND  U26-0064
*            LAST VALUES, AND LASTPSF TO DETERMINE THE DIRECTION        U26-0065
*            OF INTERPOLATION                                           U26-0066
*        IF RESULT NOT IN WINDOW, RETURNS TO 0,LX(SHOULD OCCUR ONLY WHENU26-0067
*            CALLED FROM 'BOTHOUT')                                     U26-0068
*        NORMAL RETURN TO 1,LX                                          U26-0069
*                                                                       U26-0070
INTERPOL RES      0                                                     U26-0071
+1026,1030   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0072
+1040,1051   SIDR NO.21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS        U26-0073
             LI,Z 3                 SET MASK                            U26-0074
         AND,Z    LASTPSF           CHECK X                             U26-0075
         BEZ INTRPBT                IN RANGE-INTERP TO TOP-BOTTOM       U26-0076
         AI,Z     XLIMITS-1         OUT-GET EDGE VALUE                  U26-0077
         LW,X     *Z                                                    U26-0078
+1057,1071   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0079
         BLZ      INTRPBT           NOT IN WINDOW-TRY TOP-BOTTOM        U26-0080
         CW,Y     UPPERY                                                U26-0081
         BLE 1,LX                   OK                                  U26-0082
INTRPBT  LW,Z     LASTPSF                                               U26-0083
         SLS,Z    -2                CHECK Y                             U26-0084
         BEZ 0,LX                   IN WINDOW-NO GOOD                   U26-0086
         AI,Z     YLIMITS-1         GET BOTTOM OR TOP VALUE             U26-0087
         LW,Y     *Z                                                    U26-0088
         LW,X     Y                                                     U26-0089
+1076,1076   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0090
         BLZ      0,LX              NOT IN WINDOW                       U26-0091
         CW,X     UPPERX                                                U26-0092
         BLE      1,LX              OK                                  U26-0093
         B        0,LX                                                  U26-0094
+END                                                                    U26-0095
+1,1                                                                    U02-0001
         TITLE    'CONSTS-B00,07/10/74,DWG702985'                       U02-0002
+185,185                                                                U02-0003
APLSINON TEXTC    'APL B00 005'                                         U02-0004
+END                                                                    U02-0005
+1,1                                                                    U10-0001
         TITLE    'INDX-B00,07/09/74,DWG702985'                         U10-0002
*        INCLUDES TECH. BULLETINS NO. 001,003, AND 005                  U10-0003
+541,544     SIDR#20361             CORRECT MEMORY MGMT. ERROR IN MTRANSU10-0004
         CW,A     RTRANK            CHECK RANK                          U10-0005
         BGE      MNOP              VECTOR OR SCALAR IS NOP             U10-0006
+545         SIDR#20361             CORRECT MEMORY MGMT. ERROR IN MTRANSU10-0007
         BAL,L2   INDEXB            ALLOCATE LOOP CONTROL BLOCK         U10-0009
+1073        SIDR NO. 21930, FIX TAKE ERR ON (-2)*31                    U10-0010
         BLZ      ERDOMAIN          CATCH '80000000'                    U10-0011
+1114,1114        SIDR NO. 22620 FIX TAKE WITH PECULIAR ARG.            U10-0012
17Z10    BLZ ERDOMAIN               CATCH '80000000'                    U10-0013
         STW,S    *DIMENPTR,X       TAKE:R(J)=ABS(A(J));STORE IT AS     U10-0014
+1684,1684   SIDR NO. *****, ALLOW COORD SPEC. OF 1 WITH SCALAR         U10-0015
         AI,K     -1                GREATER THAN 1                      U10-0016
         BGZ      ERCOORD           MAY BE SPECIFIED                    U10-0017
+END                                                                    U10-0018
+1,1                                                                    U11-0001
         TITLE    'EVAL-B00,07/09/74,DWG702985'                         U11-0002
*        INCLUDES TECH. BULLETINS 003 AND 005                           U11-0003
+154,154 SIDR NO. 21931             FIX ERROR IN LAMINATION             U11-0004
         LI,AI    -2                NO,SET AI NEGATIVE (-2)             U11-0005
+163     SIDR NO. 21931             FIX ERROR IN LAMINATION             U11-0006
         MTW,0    X                 CHECK FOR NEGATIVE VALUE            U11-0007
         BGEZ     0,LX              NO,USE INTEGER PART                 U11-0008
         AI,AI    -1                YES,ADJUST INTEGER VALUE            U11-0009
+172     SIDR NO. 22618             FIX RESIDUE AND ENCODE              U11-0010
RESLIMS  DATA     FS'-1E15',FS'1E15'LIMITS FOR RESIDUE                  U11-0011
+363     SIDR NO. 22618             FIX RESIDUE AND ENCODE              U11-0012
         BCS,9    ERDOMAIN          OUT OF RANGE                        U11-0014
+END                                                                    U11-0015
+1,1                                                                    U13-0001
         TITLE    'APLOUT-B00,07/09/74,DWG702985'                       U13-0002
*        INCLUDES TECH. BULLETINS NO. 002,003 AND 005                   U13-0003
+574,575 SIDR NO. 21930, FIX '-0' PRINTOUT                              U13-0004
CINTIM   LI,R2    9                 PRESET COUNT                        U13-0005
         LAW,R9   R8                GET ABS VALUE IN R9                 U13-0006
         BLZ SIZFOUND               CATCH WEIRDO                        U13-0007
+612,612 SIDR NO. 21930                                                 U13-0008
+614     SIDR NO. 21930,FIX '-0' PRINTOUT                               U13-0009
         LAW,R9   R8                GET ABS VALUE IN R9                 U13-0010
         BLZ      SIZFOUND          CATCH WEIRDO                        U13-0011
+646,646     SIDR NO. 22624         FIX PRINT BUG ON NEG. UNDRFLO NO'S  U13-0012
         BGZ      POSVAL            +                                   U13-0013
+649,649     SIDR NO. 22624         FIX PRINT BUG ON NEG. UNDRFLO NO'S  U13-0014
PLUSREAL AI,R8    0                 CHECK FOR UNDERFLOW                 U13-0015
         BEZ      ZEROREAL          YES                                 U13-0016
POSVAL   LW,R12   R5                GET SIGNIFICANCE                    U13-0017
+659,659                            FIX ROUND ERR IN DFMT FOR 0<N<1     U13-0018
         AI,R5    0                 CHECK SPECIAL CASE (DFMT)           U13-0019
         BGZ      ADJUST            NO                                  U13-0020
ADJUST   LD,R8    PRANGE-2,R5                                           U13-0022
+924,924     SIDR NO. 21051                                             U13-0023
         BG       INVALID           INVALID DATA TYPE                   U13-0024
+1077        SIDR NO. 21930, FIX '-0' PRINTOUT                          U13-0025
         BLZ      WEIRDO            (-2)*31                             U13-0026
+1089        SIDR NO. 21930, FIX '-0' PRINTOUT                          U13-0027
WEIRDO   LI,R6    10                SET 10 DIGITS                       U13-0028
         B        SETDMAX                                               U13-0029
+1201        SIDRS NO. 21051 AND 22623                                  U13-0030
*                                                                       U13-0031
*        INVALID DATA TYPE                                              U13-0032
*                                                                       U13-0033
INVALID  CI,R2    6                 CHECK FOR LIST                      U13-0034
         BG  LASTROW                NO-SKIP OUTPUT                      U13-0035
         LI,R6    BA(LISTMSG)                                           U13-0036
         LI,R10   12                YES-OUTPUT MESSAGE                  U13-0037
         LI,R13   LASTROW                                               U13-0038
         B   GENTEXTM                                                   U13-0039
LISTMSG  TEXT     '**LIST ERR**'                                        U13-0040
+END                                                                    U13-0041
+1,1                                                                    U14-0001
         TITLE    'APLUTSI-B00,07/09/74,DWG702985'                      U14-0002
+528         SIDR 21086 SET PLATEN TO 0,0                               U14-0004
         LB,R1    X'2B'                                                 U14-0005
         CI,R1    X'70'             CHECK IF CP-V                       U14-0006
         BL  CALSTRMB               NO                                  U14-0007
CALSTRMP CAL1,8   FPTSTRMP          YES-SET PLATEN TO 0,0               U14-0008
+707,707     SIDR 21086 TURN UPPER CASE RESTRICT MODE OFF               U14-0009
         DATA     X'A0000000'                                           U14-0010
         DATA     X'04'                                                 U14-0011
+708         SIDR 21086 SET PLATEN TO 0,0                               U14-0012
FPTSTRMP DATA     X'06200000'                                           U14-0013
         DATA     X'18000000'       PRESENCE BITS FOR PLATEN CONTROL    U14-0014
         DATA     255,0                                                 U14-0015
+755,755     SIDR 21050 INCREASE SIZE OF FDBLOCK (SEE FUNDEF,APLU15)    U14-0016
FDBLOCK  TEMP     48                FUNCTION DEF. MODE STORAGE BLOCK    U14-0017
+969,969     SIDR NO. 22619         FIX BUG IN FILE LISTING OPERATION   U14-0018
         DATA     X'03000000'       EMPTY NAME,3 BYTES OF ZEROS         U14-0019
+1608        SIDR 21085 CORRECT TIMODAY                                 U14-0020
         LW,R13   R10               THOUSANDTHS OF MINUTES              U14-0021
         MI,R13   360               CHANGE TO SAME BASE AS TMS          U14-0022
         AW,R11   R13               AND ADD TO TMS                      U14-0023
         AI,R7    -1                (SKIP SECONDS)                      U14-0024
+1612,1612   SIDR 21085 CORRECT TIMODAY                                 U14-0025
         LB,R13   R9,R7             HOURS,MINUTES                       U14-0026
+1616,1616   SIDR 21085 CORRECT TIMODAY                                 U14-0027
T60S     DATA     216000,3600                                           U14-0028
+END                                                                    U14-0029
+1,1                                                                    U15-0001
         TITLE    'FUNDEF-B00,07/09/74,DWG702985'                       U15-0002
*        INCLUDES TECH. BULLETINS NO. 002 AND 005                       U15-0003
+27      SIDR NO. 21109                                                 U15-0004
         DEF      FDSICLR           ENTRY FROM )SI CLEAR                U15-0005
+49      SIDR NO. 21109                                                 U15-0006
         REF      SICLRS            CLEAR STATE INDICATOR               U15-0007
+68      SIDR NO. 22617                                                 U15-0008
         REF      WIDTH             LINE WIDTH                          U15-0009
+116         SIDR 21050 ADD LINE COUNT CHECK                            U15-0010
LNCHECK BLOCK     1                 LINE COUNT CHECK                    U15-0011
+358         SIDR 21050 INDICATE LINE VALUE SET                         U15-0012
         MTW,1    LNCHECK           INDICATE LINE VALUE HAS BEEN SET    U15-0013
+406              SIDR 21050 RESET LNCHECK                              U15-0014
         STW,R4   LNCHECK           (INDICATE NO LINE VALUE SET)        U15-0015
+524     SIDR NO. 21109                                                 U15-0016
*                                   (UNLESS,PERHAPS, AN SI CLEAR        U15-0017
*                                   CMD. IS ISSUED. SEE 'FDSICLR'       U15-0018
+631         SIDR 21050 INDICATE LINE VALUE SET                         U15-0019
         MTW,1    LNCHECK           INDICATE LINE VALUE HAS BEEN SET    U15-0020
         CW,R11   WIDTH             CHECK VS WIDTH                      U15-0022
         BG  ERDIR                  TOO BIG                             U15-0023
+701         SIDR 21050 RESET EDIT CHECK FLAG                           U15-0024
         STW,R1   EDITCK            RESET EDIT CHECK FLAG               U15-0025
+735,735     SIDR 21050 ADD CHECK OF DIRECTIVE COUNT                    U15-0026
DELETE   AI,R9    0                 CHECK DIRECTIVE COUNT               U15-0027
         BLEZ     NXTPROMT          NO DIRECTIVE-NO DELETE              U15-0028
         LW,R12   LINVAL            FIND THE VALUE IN THE LINE CHAIN    U15-0029
+758,758     SIDR 21050 ADD CHECK IF LINE VALUE SET                     U15-0030
DOPROMPT LW,R12   LNCHECK           CHECK IF LINE VALUE HAS BEEN SET    U15-0031
         BEZ NXTPROMT               NO-USE NXTPROMT                     U15-0032
         LI,R12   INPF              REQUEST FUNCTION INPUT AFTER        U15-0033
+1212    SIDR NO. 21109                                                 U15-0034
*                                                                       U15-0035
*        FDSICLR-)SI CLEAR COMMAND EXECUTED IN FUNCTION DEFINITION MODE.U15-0036
*        LINE CHAIN ENTRY MUST BE MOVED,NOT CLEARED.                    U15-0037
*        OLDMODE AND GLOBLOC MAY REQUIRE CHANGING                       U15-0038
*                                                                       U15-0039
*        ENTRY FROM SICLEAR IN MODULE SCMD(SAME OVERLAY)                U15-0040
*        EXIT IS TO REPROMPT.                                           U15-0041
*        MANY REGISTERS USED, NONE SAVED                                U15-0042
*                                                                       U15-0043
         AI,R1    3                 SET TO CLEAR BELOW LINE CHAIN       U15-0045
         LW,R8    TOPOSTAK          SAVE TOP OF STACK                   U15-0046
         BAL,R14  SICLR$            CLEAR STACK(EXCEPT LINE-CHAIN)      U15-0047
         LW,R2    HILINE            SET LOOP TO MOVE LINE-CHAIN         U15-0048
         AI,R2    3                                                     U15-0049
SICLOOP  AI,R2    -3                                                    U15-0050
         AI,R1    -3                                                    U15-0051
         LCI 3                                                          U15-0052
         LM,R3    0,R2                                                  U15-0053
         STM,R3   0,R1              MOVE A LINE CHAIN ENTRY             U15-0054
         CW,R2    R8                CHECK IF DONE(R8=TOPOSTAK)          U15-0055
         BG  SICLOOP                                                    U15-0056
         STW,R1   TOPOSTAK          SET NEW TOPOSTAK                    U15-0057
         LW,R2    STATEPTR                                              U15-0058
         AI,R2    -3                SET NEW HILINE                      U15-0059
         STW,R2   HILINE                                                U15-0060
         LW,R2    GLOBLOC           GET GLOBLOC                         U15-0061
         BEZ GLOBLOK                OK,NO CHANGE                        U15-0062
         LW,R2    FBLK+2            NAME PTR OFFSET                     U15-0063
         AW,R2    SYMT                                                  U15-0064
         STW,R2   GLOBLOC           GLOBLOC NOW PTS TO SYMT ENTRY       U15-0065
GLOBLOK  LI,R2    1                                                     U15-0066
         B   REPROMPT               GO TO REPROMPT                      U15-0068
+END                                                                    U15-0069
+1,1                                                                    U26-0001
         TITLE    'GRAF-B00,07/09/74.DWG702985'                         U26-0002
*        INCLUDES TECH. BULLETINS NO. 003 AND 005                       U26-0003
+969         SIDR NO. 21983,ADD 'CLIPPING' ALGORITHM TO GRAPHICS        U26-0004
*            CURRPSF AND LASTPSF ARE FLAGS INDICATING POSITIONS         U26-0005
*            OF CURRENT AND LAST POINTS IF THESE POINTS ARE OFF         U26-0006
*            SCALE: 1=LOW X, 2=HIGH X, 4=LOW Y, 8=HIGH Y                U26-0007
*                                                                       U26-0008
CURRPSF  TEMP                                                           U26-0009
LASTPSF  TEMP                                                           U26-0010
+997,997     SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0011
*        SECTOR CHECKING                                                U26-0012
+999,1014         SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS  U26-0013
         STW,LX   SNDPTRET          SAVE LINK                           U26-0014
         LI,Z     0                 PRESET SECTOR FLAG-IN LIMITS        U26-0015
         CLM,X    XLIMITS           CHECK X                             U26-0016
         BCR,9    1Z7               IN LIMITS                           U26-0017
         BCS,1    1Z2               LOW                                 U26-0018
         AI,Z     1                 HIGH                                U26-0019
1Z2      AI,Z     1                                                     U26-0020
         BCR,9    1Z5               IN LIMITS                           U26-0022
1Z3      BCS,1    1Z4               LOW                                 U26-0023
         AI,Z     4                 HIGH                                U26-0024
1Z4      AI,Z     4                                                     U26-0025
1Z5      CI,F     RENTFLAG          NEW POINT OUT,CHECK IF REENTER      U26-0026
         BAZ QUIT                   NO-QUIT                             U26-0027
         STW,Z    CURRPSF           YES-SAVE SECTOR FLAG                U26-0028
         CI,F     EDGEFLAG          CHECK IF OLD POINT ALSO OUT         U26-0029
         BAZ OUTBOUND               NO-GOING OFFSCREEN                  U26-0030
         AND,Z    LASTPSF           CHECK IF LINE IS ENTIRELY OFF       U26-0031
         BEZ BOTHOUT                PROBABLY NOT-TRY FURTHER            U26-0032
1Z6      STD,X    LASTPNT           OFFSCREEN-SAVE LAST POINT AND       U26-0033
1Z6P1    LW,Z     CURRPSF           SECTOR FLAG.                        U26-0034
         STW,Z    LASTPSF                                               U26-0035
         OR,F     =EDGEFLAG         MAKE SURE EDGEFLAG IS SET           U26-0036
         B   *SNDPTRET              RETURN                              U26-0037
1Z7      CLM,Y    YLIMITS           X IN LIMS,CHECK Y                   U26-0038
         BCR,9    NEWIN             NEW POINT IS INSIDE                 U26-0039
         B   1Z3                    NEW POINT IS OUT                    U26-0040
OUTBOUND CI,F     VECTORFG          CHECK IF FIRST POINT                U26-0041
         BAZ 1Z6                    YES-SAVE AND EXIT                   U26-0042
1Z8      STW,Z    LASTPSF           NO-SAVE SECTOR FLAG-CONTROLS        U26-0043
         BAL,LX   INTERPOL          INTERPOLATE TO EDGE,OUTBOUND        U26-0045
         B   QUIT                   THIS POINT SHOULD NOT BE REACHED    U26-0046
         BAL,LX   PLOT1             PLOT TO THE EDGE POINT              U26-0047
         AND,F    =-1-VECTORFG      START NEW VECTOR                    U26-0048
         B   *SNDPTRET              RETURN                              U26-0049
NEWIN    CI,F     EDGEFLAG          NEW PT ON SCREEN: HOW ABOUT LAST    U26-0050
+1017,1019   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0051
         BAL,LX   INTERPOL          INBOUND-INTERPOLATE TO EDGE         U26-0052
         B   QUIT                   THIS POINT SHOULD NOT BE REACHED    U26-0053
         BAL,LX   PLOT1             PLOT POINT                          U26-0054
         LW,LX    SNDPTRET          RESTORE LINK                        U26-0055
+1021        SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0056
BOTHOUT  STD,X    SAVEPNT           SAVE NEW OUTSIDE POINT              U26-0057
         BAL,LX   INTERPOL          INTERPOLATE FROM OLD POINT TO EDGE  U26-0058
         B   1Z6P1                  LINE ENTIRELY OUTSIDE               U26-0059
         BAL,LX   PLOT              PLOT EDGE POINT-GOING IN            U26-0060
         LD,X     SAVEPNT                                               U26-0061
         LW,Z     CURRPSF           RESTORE NEW POINT AND SECTOR FLAG   U26-0062
         B   1Z8                    FINISH WITH 'OUTBOUND' LOGIC.       U26-0063
+1024,1024   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0064
*        INTERPOL-INTERPOLATES TO AN EDGE OF WINDOW, USING CURRENT AND  U26-0065
*        LAST VALUES, AND LASTPSF TO DETERMINE THE DIRECTION            U26-0066
*        IF RESULT NOT IN WINDOW, RETURNS TO 0,LX(SHOULD OCCUR ONLY WHENU26-0068
*        CALLED FROM'BOTHOUT')                                          U26-0069
*        NORMAL RETURN TO 1,LX                                          U26-0070
*                                                                       U26-0071
INTERPOL RES 0                                                          U26-0072
+1026,1030   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0073
+1040,1051   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0074
         LI,Z     3                 SET MASK                            U26-0075
         AND,Z    LASTPSF           CHECK X                             U26-0076
         BEZ INTRPBT                IN RANGE-INTERP TO TOP-BOTTOM       U26-0077
         AI,Z     XLIMITS-1         OUT-GET EDGE VALUE                  U26-0078
         LW,X     *Z                                                    U26-0079
+1057,1071   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0080
         BLZ INTRPBT                NOT IN WINDOW-TRY TOP-BOTTOM        U26-0081
         CW,Y     UPPERY                                                U26-0082
         BLE 1,LX                   OK                                  U26-0083
INTRPBT  LW,Z     LASTPSF                                               U26-0084
         SLS,Z    -2                CHECK Y                             U26-0085
         AI,Z     0                                                     U26-0086
         BEZ 0,LX                   IN WINDOW-NO GOOD                   U26-0087
         AI,Z     YLIMITS-1         GET BOTTOM OR TOP VALUE             U26-0088
         LW,Y     *Z                                                    U26-0089
         LW,X     Y                                                     U26-0090
+1076,1076   SIDR NO. 21983, ADD 'CLIPPING' ALGORITHM TO GRAPHICS       U26-0091
         BLZ      0,LX              NOT IN WINDOW                       U26-0092
         CW,X     UPPERX                                                U26-0093
         BLE 1,LX                   OK                                  U26-0094
         B        0,LX                                                  U26-0095
+1535    SIDR NO. 22621             REMOVE TERM 13 RESTRICTION          U26-0096
*        OR 'TERM 3' (TEKTRONIX 4010 TERMINAL)                          U26-0097
+1538,1539   SIDR NO. 22621         REMOVE TERM 13 RESTRICTION          U26-0098
         LW,R     TERMTYPE          CHECK TERMINAL TYPE                 U26-0099
         CI,R     13                                                    U26-0100
         BE  17Z1                                                       U26-0101
         CI,R     3                                                     U26-0102
+END                                                                    U26-0103
+2,2                                                                    UBAS0001
*        PLUS TECH. BULLETINS #001 AND #002                             UBAS0002
+68,68   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG'               UBAS0003
M:SO     EQU F:EI                   SAVE,FILE,LOAD,CHAIN,RENUMBER       UBAS0004
* (DELETES M:SO AS EXTERNAL,USES F:EI WHICH WAS ADDED FOR 'CATALOG')    UBAS0005
+532,532 SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.      UBAS0006
+544,544 SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG'               UBAS0007
         DATA     X'C0000409'       ERROR,ABN,NEXTF,ACCT,FILE           UBAS0008
         DATA     ERR:FILE          ERROR ADDRESS                       UBAS0009
         DATA     ERR:FILE          ABNORMAL ADDRESS                    UBAS0010
+2181,2182   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0012
         LI,R4    BA(PTITLE)        SET TEXT POINTER                    UBAS0013
         BAL,R6   PRCAT             PRINT OUT ACCOUNT                   UBAS0014
         MTW,7    MODEF             DISABLE BREAK DURING OPEN-CLOSE     UBAS0015
+2186,2187   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0016
         MTW,7    MODEF             DISABLE BREAK DURING OPEN-CLOSE     UBAS0017
+2191    SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.      UBAS0018
         MTW,-7   MODEF             RE-ENABLE BREAK                     UBAS0019
         MTW,0    BREAKF            CHECK FOR UNSATISFIED BREAK         UBAS0020
         BGZ REENTHER               YES-QUIT                            UBAS0021
+2241,2242   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0022
         LI,R4    BA(LINE)          SET POINTER TO 'LINE'               UBAS0023
         BAL,R6   PRCAT             OUTPUT THE LINE                     UBAS0024
+2251,2251   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0025
         BE       CLS               YES,CLOSE                           UBAS0026
+2263,2264   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0027
         LI,R4    BA(RLINE)         PRINT 'RESTRICTED' INFO             UBAS0028
         BAL,R6   PRCAT             OUTPUT MESSAGE                      UBAS0029
+4603    SIG712376,TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0030
         CI,R14   1                 CHECK FOR FORCED SCIENTIFIC FORMAT  UBAS0031
         BANZ     OC31              YES                                 UBAS0032
+4606,4606   SIG712376,TECH. BULLETIN #001 ERROR IN PRINTUSING          UBAS0033
+4617    SIG712376 TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0035
         CI,R14   1                 CHECK FOR FORCED SCIENTIFIC FORMAT  UBAS0036
         BANZ     OCV15WW           YES                                 UBAS0037
+4658    SIG712376 TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0038
         LI,R14   0                 INDICATE E-FORMAT NOT FORCED        UBAS0039
+5744,5744   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0040
PRCAT1   LB,R2    0,R4              BYTE COUNT                          UBAS0041
+5757        SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0042
* ENTRY TO 'CATALOG' PRINT                                              UBAS0043
PRCAT    OR,R6    X40               NEW LINE                            UBAS0044
         STW,R6   8T5               SAVE LINK                           UBAS0045
         B   PRCAT1                 JOIN GENERAL TEXT OUTPUT ROUTINE.   UBAS0046
+6091,6091   SIDR #21027 TECH. BULL. NO. 002 ERROR IN PRINTUSING        UBAS0047
MPR02    LW,R0    8T6               INDEX FOR INNER LOOP                UBAS0048
+6099,6099   SIDR# 21027 TECH. BULL. NO. 002 ERROR IN PRINTUSING        UBAS0049
$MPUT3   BDR,R0   MPR03             END OF INNER LOOP                   UBAS0050
+END                                                                    UBAS0051
+2,2                                                                    UBAS0001
*        PLUS TECH. BULLETINS #001, #002, AND #003                      UBAS0002
+68,68   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG'               UBAS0003
M:SO     EQU F:EI                   SAVE,FILE,LOAD,CHAIN,RENUMBER       UBAS0004
* (DELETES M:SO AS EXTERNAL,USES F:EI WHICH WAS ADDED FOR 'CATALOG')    UBAS0005
+544,544 SIG712359-21938 TECH BULLETINS 103 ERROR IN 'CATALOG'          UBAS0007
         DATA     X'C1000409'       ERROR,ABN,MODE,NEXTF,ACCT,FILE      UBAS0008
         DATA     ERR:FILE          ERROR ADDRESS                       UBAS0009
         DATA     ERR:FILE          ABNORMAL ADDRESS                    UBAS0010
         DATA     1                 INPUT MODE                          UBAS0011
+545,546 SIG-21938,TECH BULLETIN #003 ERROR IN 'CATALOG'                UBAS0012
         DATA     X'01000101'                                           UBAS0013
         DATA     X'03000000'                                           UBAS0014
+556,558 SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.      UBAS0015
+2181,2182   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0016
         LI,R4    BA(PTITLE)        SET TEXT POINTER                    UBAS0017
         BAL,R6   PRCAT             PRINT OUT ACCOUNT                   UBAS0018
         MTW,7    MODEF             DISABLE BREAK DURING OPEN-CLOSE     UBAS0019
+2186,2187   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0020
         MTW,7    MODEF             DISABLE BREAK DURING OPEN-CLOSE     UBAS0021
+2191    SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.      UBAS0022
         MTW,-7   MODEF             RE-ENABLE BREAK                     UBAS0023
         MTW,0    BREAKF            CHECK FOR UNSATISFIED BREAK         UBAS0024
         BGZ REENTHER               YES-QUIT                            UBAS0025
+2223,2223   SIG-21938,TECH BULLETIN #003 ERROR IN 'CATALOG' COMMAND.   UBAS0026
         DW,R14   DAYD01                                                UBAS0027
+2241,2242   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0028
         BAL,R6   PRCAT             OUTPUT THE LINE                     UBAS0030
+2251,2251   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0031
         BE  CLS                    YES,CLOSE                           UBAS0032
+2263,2264   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0033
         LI,R4    BA(RLINE)         PRINT 'RESTRICTED' INFO             UBAS0034
         BAL,R6   PRCAT             OUTPUT MESSAGE                      UBAS0035
+4603    SIG712376,TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0036
         CI,R14   1                 CHECK FOR FORCED SCIENTIFIC FORMAT  UBAS0037
         BANZ     OC31              YES                                 UBAS0038
+4606,4606   SIG712376,TECH. BULLETIN #001 ERROR IN PRINTUSING          UBAS0039
OC31     LI,R12   -6                FORCE POINT AFTER MOST SIG. DIGIT   UBAS0040
+4617    SIG712376 TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0041
         CI,R14   1                 CHECK FOR FORCED SCIENTIFIC FORMAT  UBAS0042
         BANZ     OCV15WW           YES                                 UBAS0043
+4658    SIG712376 TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0044
         LI,R14   0                 INDICATE E-FORMAT NOT FORCED        UBAS0045
+5744,5744   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0046
PRCAT1   LB,R2    0,R4              BYTE COUNT                          UBAS0047
+5757    SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.      UBAS0048
* ENTRY TO 'CATALOG' PRINT                                              UBAS0049
PRCAT    OR,R6    X40               NEW LINE                            UBAS0050
         STW,R6   8T5               SAVE LINK                           UBAS0051
+6091,6091   SIDR #21027 TECH. BULL. NO. 002 ERROR IN PRINTUSING        UBAS0053
MPR02    LW,R0    8T6               INDEX FOR INNER LOOP                UBAS0054
+6099,6099   SIDR# 21027 TECH. BULL. NO. 002 ERROR IN PRINTUSING        UBAS0055
$MPUT3   BDR,R0   MPR03             END OF INNER LOOP                   UBAS0056
+6755,6755   SIDR #21509 TECH. BULL. #3 ERROR IN I/O ERROR 57           UBAS0057
NORADERR BAL,R6   ENDCP08           CLEAR OUTPUT BUFFER (I/O 57)        UBAS0058
         BAL,R2   ERROR                                                 UBAS0059
+11822,11823 SIDR #20857 TECH BULL #3 UPDATE OF FILE IN ANOTHER ACCT    UBAS0060
+END                                                                    UBAS0061
+2,2                                                                    UBAS0001
*            PLUS TECH. BULLETINS #001, #002, #003, AND #004            UBAS0002
+65,65   SIDR12359 TECH BULL #004 DCB CHANGE                            UBAS0003
         REF M:DO                   STREAM 4  GET,PUT,INPUT,AND PRINT   UBAS0004
+67,67   SIDR12359TECH BULL #004 DCB CHANGE                             UBAS0005
+68,68       SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG'           UBAS0006
M:SO     EQU      F:EI              SAVE,FILE,LOAD,CHAIN,RENUMBER       UBAS0007
* (DELETES M:SO AS EXTERNAL,USES F:EI WHICH WAS ADDED FOR 'CATALOG')    UBAS0008
+364,364 SIDR12359TECH BULL #004 DCB CHANGE                             UBAS0009
PRINTDCB DATA     M:SL              .SHOWN  (NO FILE ASSIGNMENT)        UBAS0010
+532,532     SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0011
+544,544 SIG712359-21938 TECH BULLETINS 1&3 ERROR IN 'CATALOG'          UBAS0012
         DATA     X'C1000409'       ERROR,ABN,MODE,NEXTF,ACCT,FILE      UBAS0013
         DATA     ERR:FILE          ABNORMAL ADDRESS                    UBAS0015
         DATA     1                 INPUT MODE                          UBAS0016
+545,546     SIG-21938, TECH BULLETIN #003 ERROR IN 'CATALOG'           UBAS0017
         DATA     X'01000101'                                           UBAS0018
         DATA     X'03000000'                                           UBAS0019
+556,558     SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0020
+2181,2182   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0021
         LI,R4    BA(PTITLE)        SET TEXT POINTER                    UBAS0022
         BAL,R6   PRCAT             PRINT OUT ACCOUNT                   UBAS0023
         MTW,7    MODEF             DISABLE BREAK DURING OPEN-CLOSE     UBAS0024
+2186,2187   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0025
         MTW,7    MODEF             DISABLE BREAK DURING OPEN-CLOSE     UBAS0026
+2191        SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0027
         MTW,-7   MODEF             RE-ENABLE BREAK                     UBAS0028
         MTW,0    BREAKF            CHECK FOR UNSATISFIED BREAK         UBAS0029
         BGZ      REENTHER          YES-QUIT                            UBAS0030
+2223,2223   SIG-21938, TECH BULLETIN #003 ERROR IN 'CATALOG' COMMAND.  UBAS0031
         DW,R14   DAYD01                                                UBAS0032
+2241,2242   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND   UBAS0033
         LI,R4    BA(LINE)          SET POINTER TO 'LINE'               UBAS0034
         BAL,R6   PRCAT             OUTPUT THE LINE                     UBAS0035
+2251,2251   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0036
         BE       CLS               YES,CLOSE                           UBAS0037
+2263,2264   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0038
         LI,R4    BA(RLINE)         PRINT 'RESTRICTED' INFO             UBAS0039
         BAL,R6   PRCAT             OUTPUT MESSAGE                      UBAS0040
+2453,2453   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0041
* FPTWRDO-WRITE RECORD ON M:SL -(OUTPUT ECHO OF AN INPUT LINE)          UBAS0042
+2455,2455   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0043
FPTWRDO  GEN,8,7,17 X'11',0,M:SL                                        UBAS0044
+2480,2480   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0045
* FPTDOWR-WRITE ON M:SL (DIAGNOSTIC ERROR)                              UBAS0046
+2482,2482   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0047
FPTDOWR  GEN,8,7,17 X'11',O,M:SL    WRITE M:SL                          UBAS0048
+2488,2488   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0049
* FPTDOALT-WRITE ON M:SL (ECHO ILLEGAL INPUT FROM M:SI)                 UBAS0050
+2490,2490   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0051
FPTDOALT GEN,8,7,17 X'11',O,M:SL    WRITE M:SL                          UBAS0052
+2571,2571   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0053
FPTPAGE  GEN,8,7,17 4,0,M:SL                                            UBAS0054
+2882,2882   SIDR12359 TECH BULL#004 DCB CHANGE                         UBAS0055
         CS,R8    M:SL+1            CHECK IF SAME DEVICE                UBAS0056
+4603    SIG712376,TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0057
         CI,R14   1                 CHECK FOR FORCED SCIENTIFIC FORMAT  UBAS0058
         BANZ     OC31              YES                                 UBAS0059
+4606,4606   SIG712376,TECH. BULLETIN #001 ERROR IN PRINTUSING          UBAS0060
+4617    SIG712376 TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0062
         CI,R14   1                 CHECK FOR FORCED SCIENTIFIC FORMAT  UBAS0063
         BANZ     OCV15WW           YES                                 UBAS0064
+4658    SIG712376 TECH. BULLETIN #001 ERROR IN PRINTUSING              UBAS0065
         LI,R14   0                 INDICATE E-FORMAT NOT FORCED        UBAS0066
+5629,5629   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0067
         CI,R1    M:SL              CHECK IF NON-FILE                   UBAS0068
+5744,5744   SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.  UBAS0069
PRCAT1   LB,R2    0,R4              BYTE COUNT                          UBAS0070
+5757    SIG712359,TECH. BULLETIN #001 ERROR IN 'CATALOG' COMMAND.      UBAS0071
* ENTRY TO 'CATALOG' PRINT                                              UBAS0072
PRCAT    OR,R6    X40               NEW LINE                            UBAS0073
         STW,R6   8T5               SAVE LINK                           UBAS0074
         B   PRCAT1                 JOIN GENERAL TEXT OUTPUT ROUTINE.   UBAS0075
+6091,6091   SIDR #21027 TECH. BULL. NO. 002 ERROR IN PRINTUSING        UBAS0076
MPR02    LW,R0    8T6               INDEX FOR INNER LOOP                UBAS0077
+6099,6099   SIDR# 21027 TECH. BULL. NO. 002 ERROR IN PRINTUSING        UBAS0078
$MPUT3   BDR,R0   MPR03             END OF INNER LOOP                   UBAS0079
+6669,6670   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0080
         DATA     M:DO              4                                   UBAS0081
         DATA     M:SL              PRINT ON ME                         UBAS0082
+6755,6755   SIDR #21509 TECH. BULL. #3 ERROR IN I/O ERRROR 57          UBAS0083
         BAL,R2   ERROR                                                 UBAS0085
+6858,6858   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0086
         LI,R1    M:SL                                                  UBAS0087
+6872,6872   SIDR12359 TECH BULL #004 DCB CHANGE                        UBAS0088
         LI,R5    M:SL                                                  UBAS0089
+9260    SIDR #21592 TECH BULL #4 $TRING SYNTAX ERROR                   UBAS0090
         LW,R5    *KPOINTER         CHECK LAST CHAR.                    UBAS0091
         CI,R5    KCM               IF COMMA THEN                       UBAS0092
         BE       $TRERR            STRING ERROR                        UBAS0093
+10853   SIDR# 22376                FOR NEXT ERROR                      UBAS0094
         LW,R13   ONE@MODE          TEST EDIT OR COMPILE                UBAS0095
         BNEZ     DR$FORK           BRANCH FOR COMPILE                  UBAS0096
+11822,11823 SIDR #20857 TECH BULL #3 UPDATE OF FILE IN ANOTHER ACCT    UBAS0097
+END                                                                    UBAS0098