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