*DECK  INCRDIS
          IDENT  INCRDIS
          COMMENT  FUNCTION TO ADD DISPLAY CODE INTEGERS
INCRDIS   TITLE    INCRDIS - FUNCTION TO ADD DISPLAY CODE INTEGERS
***  THIS ROUTINE ADDS ITS TWO ARGUMENTS, WHICH SHOULD BOTH 
*** BE 5 DIGIT DISPLAY-CODED NUMBERS.  THEIR SUM IS 
***  RETURNED AS THE VALUE OF THE FUNCTION. 
          SPACE  2
          ENTRY  INCRDIS
          SPACE  1
 INCRDIS  BSSZ   1
          SA2    A1 
          SA2    X2                PICK UP FIRST ARGUMENT 
          BX0     X2
          SA1    A1+1 
          SA1    X1                PICK UP SECOND ARGUMENT
          SA4    SIXES
          IX3    X1+X2
          BX2    -X3*X4 
          SA5    THREES 
          IX6    X3+X2
          AX2    3
          IX6    X6-X5
          IX6    X6+X2
          MX7    30 
          BX0    X7*X0
          LX7    30 
          BX6    X7*X6             SUM IN X6
          BX6    X6+X0
          EQ   INCRDIS
          SPACE  2
 SIXES    DATA   10H##########
 THREES   DATA   10H0000000000
          END 
