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