         DEF      FBCD
*  CATALOG NO. 704852  SIGMA 5/7  FORTRAN BCD CONVERSION                85200010
         SYSTEM   UTS
FBCD     EQU      %
CN704852 EQU      0                                                   *B85200040
         DEF      EBCTOBCD,BCDTOEBC                                     85200050
D3       EQU      14                                                    85200070
R1       EQU      1                                                     85200080
R2       EQU      2                                                     85200090
R3       EQU      3                                                     85200100
R4       EQU      4                                                     85200110
R5       EQU      5                                                     85200120
R6       EQU      6                                                     85200130
LIMITS    DATA     X'7E',X'4A'
BCDTB    DATA,1   X'48',X'49',X'4A',X'4B',X'4E',X'6C',X'50',X'4F'       85200150
         DATA,1   X'50',X'51',X'52',X'53',X'54',X'55',X'56',X'57'       85200160
         DATA,1   X'58',X'59',X'5A',X'5B',X'5C',X'4C',X'5E',X'5F'       85200170
         DATA,1   X'60',X'61',X'62',X'63',X'64',X'65',X'66',X'67'       85200180
         DATA,1   X'68',X'69',X'6A',X'6B',X'6C',X'6D',X'7E',X'4A'       85200190
         DATA,1   X'70',X'71',X'72',X'73',X'74',X'75',X'76',X'77'       85200200
         DATA,1   X'78',X'79',X'7D',X'7B',X'7C',X'7C',X'7B',X'7F'       85200210
EBCTB    DATA,1   X'48',X'49',X'6F',X'4B',X'5D',X'4D',X'4C',X'4F'       85200220
         DATA,1   X'4E',X'51',X'52',X'53',X'54',X'55',X'56',X'57'       85200230
         DATA,1   X'58',X'59',X'5A',X'5B',X'5C',X'5D',X'5E',X'5F'       85200240
         DATA,1   X'60',X'61',X'62',X'63',X'64',X'65',X'66',X'67'       85200250
         DATA,1   X'68',X'69',X'6A',X'6B',X'4D',X'6D',X'6E',X'6F'       85200260
         DATA,1   X'70',X'71',X'72',X'73',X'74',X'75',X'76',X'77'       85200270
         DATA,1   X'78',X'79',X'7A',X'7E',X'7D',X'7A',X'6E',X'7F'       85200280
XEBCTB   EQU      EBCTB-18
XBCDTB   EQU      BCDTB-18
         DEF      XEBCTB,XBCDTB
BCDTOEBC LI,D3    XEBCTB
*                 BA(BUF) IN R2.  BYTE COUNT IN R3.                     85200290
*                 D3 = LINK REGISTER - ALL REG'S SAVED.                 85200300
EBCTOBCD LCI      3
         PSM,R2   TSTACK
CNVLOP   EQU      %                                                     85200370
         LB,R4    0,R2                                                  85200380
         CLM,R4   LIMITS
         BCS,6    NOCNV                                                 85200400
         LB,R4    *D3,R4
         STB,R4   0,R2                                                  85200420
NOCNV    AI,R2    1                                                     85200430
         BDR,R3   CNVLOP                                                85200440
         BDR,R3   CNVLOP
         LCI      3
         PLM,R2   TSTACK
         B        0,R1
FBCDSZ   EQU      %-FBCD
         END                                                            85200530

