+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
         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
+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
