%constinteger Wseg = X'FFC0'
%constinteger Nweicodes=50
!*
%constinteger WADD   =  0
%constinteger WLOAD  =  1
%constinteger WMUL   =  2
%constinteger WSTOR  =  3
%constinteger WSUB   =  4
%constinteger WDIV   =  5
%constinteger WMULN  =  6
%constinteger WFLOATS=  7
%constinteger WCMPT  =  8
%constinteger WTSTT  =  9
%constinteger WNEG   = 10
%constinteger WABS   = 11
%constinteger WCMP   = 12
%constinteger WTST   = 13
%constinteger WAMUL  = 14
%constinteger WFIX   = 15
%constinteger WCVTS  = 16
%constinteger WCVTD  = 17
%constinteger WMAC   = 18
%constinteger WFLOATD= 39
%constinteger WLDCTX = 48
%constinteger WSTCTX = 49
!*
%conststring(6) %array wopname(0:Nweicodes)= %c
"  WADD"," WLOAD","  WMUL"," WSTOR","  WSUB","  WDIV"," WMULN","WFLOAT",
" WCMPT"," WTSTT","  WNEG","  WABS","  WCMP","  WTST"," WAMUL","  WFIX",
" WCVTS"," WCVTD","  WMAC","      ","      ","      ","      ","      ",
"      "(8),
"      "(8),
"      "(7),"      ",
"WLDCTX","WSTCTX","      "
!*
%constintegerarray WOP(0:Nweicodes) = %c
X'0000',X'0400',X'0800',X'0C00',X'1000',X'1400',X'1800',X'1C00',
X'2000',X'2400',X'2800',X'2C00',X'3000',X'3400',X'3800',X'3C00',
X'4000',X'4400',X'4800',0(5),
0(8),
0(7),X'9C00',
0(7),X'BC00',
X'C000',X'C400',0
!*
!*