1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4 " *                                                         *
 5 " * Copyright (c) 1972 by Massachusetts Institute of        *
 6 " * Technology and Honeywell Information Systems, Inc.      *
 7 " *                                                         *
 8 " ***********************************************************
 9 
10 " data segment for arithmetic code generator, BLW, 18 November 1968
11 " Modified: 1 July 1971 by BLW for Version II
12 "
13           name      arith_data
14           segdef    fixed
15 "
16 fixed:    dec       19,0,0    add  s s  adfx1
17           dec       21,1,0    add  s d  adfx3
18           dec       21,0,0    add  d s  adfx3
19           dec       20,0,0    add  d d  adfx2
20 "
21           dec       22,0,0    sub  s s  sbfx1
22           dec       21,1,1    sub  s d  adfx3
23           dec       24,0,1    sub  d s  sbfx3
24           dec       23,0,0    sub  d d  sbfx2
25 "
26           dec       25,0,0    mult s s  mpfx1
27           dec       258,0,0   mult s d  mpfx2
28           dec       258,1,0   mult d s  mpfx2
29           dec       259,0,0   mult d d  mpfx3
30 "
31           dec       260,0,0   div  s s  dvfx1
32           dec       262,0,0   div  s d  dvfx3
33           dec       261,0,0   div  d s  dvfx2
34           dec       262,0,0   div  d d  dvfx3
35 "
36           end