. . ** THIS ELEMENT SERVES ONLY TO SAVE ASSEMBLY TIME WHILE . ** INTERCHANGE IS UNDER DEVELOPMENT BY GENERATING THE CRC . ** TABLE IN A SEPARATE ELEMENT. . . . THIS SEQUENCE OF CODING GENERATES A 256 WORD POLYNOMIAL DIVISION . REMAINDER TABLE. THIS TABLE IS USED TO COMPUTE THE CRC OF MESSAGES . TRANSMITTED AND RECEIVED. TO REDUCE CHARACTER PROCESSING OVERHEAD, . THE 16 BIT REMAINDER IS STORED WITH THE HIGH-ORDER 8 BITS RIGHT . JUSTIFIED IN H1, AND THE LOW-ORDER 8 BITS RIGHT JUSTIFIED IN H2. . . FUNCTION TO REVERSE BITS IN 8 OR 16 BIT BYTE . F FUNC . REVERSE8* NAME 7 REVERSE16* NAME 15 I DO F(0)+1 ,; A(0) EQU A(0)++(1*/(F(0)-I+1))*(((1*/(I-1))**F(1))>0) END A(0) . . PERFORM POLYNOMIAL DIVISION . DIVIDE* FUNC . DIVIDEND(0) EQU DIVIDE(1)*/16 EXPAND TO 24 BITS DIVISOR(0) EQU 0300005*/7 BITS SET FOR COEFFICIENTS DP* PROC *0 A EQU 24-I BIT BEING PROCESSED ON THIS INVOKATION DO (DIVIDEND(0)**(1*/A))>0 ,; DIVIDEND*(0) EQU DIVIDEND(0)--DIVISOR(0) DIVISOR*(0) EQU DIVISOR(0)/2 END I DO 8 , DP END DIVIDEND(0) . . GENERATE THE TABLE ENTRIES . REMAINDER* PROC 0,1 Z EQU REVERSE16(DIVIDE(REVERSE8(I-1))) * Z/(1*/8),Z**0377 END . REMAINDER*. I DO 256 , REMAINDER END