+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
         LI,R5    1                 YES, CHANGE TO 1 DIGIT              U13-0021
ADJUST   LD,R8    PRANGE-2,R5                                           U13-0022
+924,924     SIDR NO. 21051                                             U13-0023
+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