!*************************************************************************
!*                                                                       *
!*    Mnemonics for Gould code generator        Version 1    26/02/86    *
!*                                                                       *
!*************************************************************************
!*
%constinteger L      =   1 { RX }
%constinteger LM     =   2 { RX }
%constinteger LN     =   3 { RX }
%constinteger ST     =   4 { RX }
%constinteger STM    =   5 { RX }
%constinteger ZM     =   6 { RX }
%constinteger ADM    =   7 { RX }
%constinteger ARM    =   8 { RX }
%constinteger SUM    =   9 { RX }
%constinteger MPM    =  10 { RX }
%constinteger DVM    =  11 { RX }
%constinteger ANM    =  12 { RX }
%constinteger ORM    =  13 { RX }
%constinteger EOM    =  14 { RX }
%constinteger CAM    =  15 { RX }
%constinteger CMM    =  16 { RX }
%constinteger LA     =  17 { RX }
%constinteger LABR   =  18 { RX }
%constinteger SUABR  =  19 { RX }
%constinteger LWBR   =  20 { RX }
%constinteger STWBR  =  21 { RX }
%constinteger EXM    =  22 { RX }
!*
%constinteger ADF    =  24 { RX }
%constinteger SUF    =  25 { RX }
%constinteger MPF    =  26 { RX }
%constinteger DVF    =  27 { RX }
!*
%constinteger LI     =  32 { RI }
%constinteger ADI    =  33 { RI }
%constinteger SUI    =  34 { RI }
%constinteger MPI    =  35 { RI }
%constinteger DVI    =  36 { RI }
%constinteger CI     =  37 { RI }
!*
%constinteger ADR    =  64 { RR }
%constinteger ADRM   =  65 { RR }
%constinteger SUR    =  66 { RR }
%constinteger SURM   =  67 { RR }
%constinteger MPR    =  68 { RR }
%constinteger DVR    =  69 { RR }
%constinteger ANR    =  70 { RR }
%constinteger ORR    =  71 { RR }
%constinteger ORRM   =  72 { RR }
%constinteger EOR    =  73 { RR }
%constinteger EORM   =  74 { RR }
%constinteger CAR    =  75 { RR }
%constinteger CMR    =  76 { RR }
%constinteger ADRFW  =  77 { RR }
%constinteger ADRFD  =  78 { RR }
%constinteger SURFW  =  79 { RR }
%constinteger SURFD  =  80 { RR }
%constinteger MPRFW  =  81 { RR }
%constinteger MPRFD  =  82 { RR }
%constinteger DVRFW  =  83 { RR }
%constinteger DVRFD  =  84 { RR }
%constinteger FLTW   =  85 { RR }
%constinteger FLTD   =  86 { RR }
%constinteger FIXW   =  87 { RR }
%constinteger FIXD   =  88 { RR }
%constinteger TRR    =  89 { RR }
%constinteger TRRM   =  90 { RR }
%constinteger TRN    =  91 { RR }
%constinteger TRNM   =  92 { RR }
%constinteger TRC    =  93 { RR }
%constinteger XCR    =  94 { RR }
%constinteger XCRM   =  95 { RR }
%constinteger TBRR   =  96 { RR }
%constinteger TRBR   =  97 { RR }
!*
%constinteger ZR     =  98 { R  }
%constinteger EX     =  99 { R  }
%constinteger RND    = 100 { R  }
%constinteger EXR    = 101 { R  }
%constinteger EXRR   = 102 { R  }
%constinteger TPCBR  = 103 { R  }
%constinteger TCCR   = 104 { R  }
%constinteger TRCC   = 105 { R  }
%constinteger TRSW   = 106 { R  }
!*
%constinteger NOP    = 109 {    }
%constinteger EAE    = 110 {    }
%constinteger DAE    = 111 {    }
!*
%constinteger SLA    = 112 { RD }
%constinteger SLL    = 113 { RD }
%constinteger SLC    = 114 { RD }
%constinteger SLAD   = 115 { RD }
%constinteger SLLD   = 116 { RD }
%constinteger SRA    = 117 { RD }
%constinteger SRL    = 118 { RD }
%constinteger SRC    = 119 { RD }
%constinteger SRAD   = 120 { RD }
%constinteger SRLD   = 121 { RD }
!*
%constinteger SBM    = 128 { RD }
%constinteger ZBM    = 129 { RD }
%constinteger ABM    = 130 { RD }
%constinteger TBM    = 131 { RD }
%constinteger SBR    = 132 { RD }
%constinteger ZBR    = 133 { RD }
%constinteger ABR    = 134 { RD }
%constinteger TBR    = 135 { RD }
!*
%constinteger BU     = 136 { D  }
%constinteger BCF    = 137 { D  }
%constinteger BCT    = 138 { D  }
%constinteger BFT    = 139 { D  }
%constinteger BL     = 140 { D  }
%constinteger BI     = 141 { D  }
%constinteger BGT    = 142 {pseudo-op}
%constinteger BLT    = 143 {pseudo-op}
%constinteger BEQ    = 144 {pseudo-op}
%constinteger BNE    = 145 {pseudo-op}
%constinteger BGE    = 146 {pseudo-op}
%constinteger BLE    = 147 {pseudo-op}
%constinteger TST    = 148 {pseudo-op}
!*
!*
%conststring(5)%array Mnem(0:148) =  %c
{  0} ""     ,"L"    ,"LM"   ,"LN"   ,"ST"   ,"STM"  ,"ZM"   ,"ADM"  ,
{  8} "ARM"  ,"SUM"  ,"MPM"  ,"DVM"  ,"ANM"  ,"ORM"  ,"EOM"  ,"CAM"  ,
{ 16} "CMM"  ,"LA"   ,"LABR" ,"SUABR","LWBR" ,"STWBR","EXM"  ,""     ,
{ 24} "ADF"  ,"SUF"  ,"MPF"  ,"DVF"  ,""     ,""     ,""     ,""     ,
{ 32} "LI"   ,"ADI"  ,"SUI"  ,"MPI"  ,"DVI"  ,"CI"   ,""     ,""     ,
{ 40} ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""     ,
{ 48} ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""     ,
{ 56} ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""     ,
{ 64} "ADR"  ,"ADRM" ,"SUR"  ,"SURM" ,"MPR"  ,"DVR"  ,"ANR"  ,"ORR"  ,
{ 72} "ORRM" ,"EOR"  ,"EORM" ,"CAR"  ,"CMR"  ,"ADRFW","ADRFD","SURFW",
{ 80} "SURFD","MPRFW","MPRFD","DVRFW","DVRFD","FLTW" ,"FLTD" ,"FIXW" ,
{ 88} "FIXD" ,"TRR"  ,"TRRM" ,"TRN"  ,"TRNM" ,"TRC"  ,"XCR"  ,"XCRM" ,
{ 96} "TBRR" ,"TRBR" ,"ZR"   ,"ES"   ,"RND"  ,"EXR"  ,"EXRR" ,"TPCBR",
{104} "TCCR" ,"TRCC" ,"TRSW" ,""     ,""     ,"NOP"  ,"EAE"  ,"DAE"  ,
{112} "SLA"  ,"SLL"  ,"SLC"  ,"SLAD" ,"SLLD" ,"SRA"  ,"SRL"  ,"SRC"  ,
{120} "SRAD" ,"SRLD" ,""     ,""     ,""     ,""     ,""     ,""     ,
{128} "SBM"  ,"ZBM"  ,"ABM"  ,"TBM"  ,"SBR"  ,"ZBR"  ,"ABR"  ,"TBR"  ,
{136} "BU"   ,"BCF"  ,"BCT"  ,"BFT"  ,"BL"   ,"BI"   ,"BGT"  ,"BLT"  ,
{144} "BEQ"  ,"BNE"  ,"BGE"  ,"BLE"  ,"TST"
!*
%consthalfintegerarray Mask(0:148) =  %c
{  0}      0 ,x'ac00',x'b000',x'b400',x'd400',x'd800',x'f800',x'b800',
{  8} x'e800',x'bc00',x'c000',x'c400',x'8400',x'8800',x'8c00',x'9000',
{ 16} x'9400',x'5000',x'5808',x'5800',x'5c00',x'5400',x'a800',     0 ,
{ 24} x'e008',x'e000',x'e408',x'e400',     0 ,     0 ,     0 ,     0 ,
{ 32} x'c800',x'c801',x'c802',x'c803',x'c804',x'c805',     0 ,     0 ,
{ 40}      0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,
{ 48}      0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,
{ 56}      0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,
{ 64} x'3800',x'3808',x'3c00',x'3c08',x'3802',x'380a',x'0400',x'0800',
{ 72} x'0808',x'0c00',x'0c08',x'1000',x'1400',x'3801',x'3809',x'3803',
{ 80} x'380b',x'3806',x'380e',x'3804',x'380c',x'3807',x'380f',x'3805',
{ 88} x'380d',x'2c00',x'2c08',x'2c04',x'2c0c',x'2c03',x'2c05',x'2c0d',
{ 96} x'2c02',x'2c01',x'0c00',x'0004',x'0005',x'c807',x'c807',x'280c',
{104} x'2804',x'2805',x'2800',     0 ,     0 ,x'0002',x'0008',x'000e',
{112} x'1c40',x'1c60',x'2440',x'2040',x'2060',x'1c00',x'1c20',x'2400',
{120} x'2000',x'2020',     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,
{128} x'9808',x'9c08',x'a008',x'a408',x'1800',x'1804',x'1808',x'180c',
{136} x'ec00',x'f000',x'ec00',x'f000',x'f880',x'f400',x'ed00',x'ed80', 
{144} x'ee00',x'f200',x'ee80',x'ef00',     0
!*