!*************************************************************************
!*                                                                       *
!*    Mnemonics for Gould code generator        Version 7    06/03/88    *
!*                                                                       *
!*************************************************************************
!*
!*
!*************************************************************************
!*                                                                       *
!*                                    NP1                                *
!*                                                                       *
!*************************************************************************
!*
%constinteger L      =   1 { RX }
%constinteger LBS    =   2 { RX }
%constinteger LN     =   3 { RX }
%constinteger ST     =   4 { 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 CHKBND =  16 { RX }
%constinteger LA     =  17 { RX }
%constinteger LABR   =  18 { RX }
%constinteger SUABR  =  19 { RX }
%constinteger LWBR   =  20 { RX }
%constinteger STWBR  =  21 { RX }
%constinteger LWSL1  =  22 { RX }
%constinteger LWSL2  =  23 { RX }
%constinteger LWSL3  =  24 { RX }
%constinteger SBMD   =  25 { RX }
%constinteger ZBMD   =  26 { RX }
%constinteger TBMD   =  27 { RX }
!*
%constinteger ADF    =  28 { RX }
%constinteger SUF    =  29 { RX }
%constinteger MPF    =  30 { RX }
%constinteger RF     =  31 { RX }
!*
%constinteger LI     =  32 { RI }
%constinteger ADI    =  33 { RI }
!%constinteger SUI    =  34 { RI } { WITHDRAWN }
%constinteger MPI    =  35 { RI }
%constinteger DVI    =  36 { RI }
%constinteger CI     =  37 { RI }
%constinteger LIL    =  38 { RI }
%constinteger ANI    =  39 { RI }
%constinteger ORI    =  40 { RI }
%constinteger EOI    =  41 { RI }
%constinteger ADIBR  =  42 { RI }
%constinteger OIBR   =  43 { RI }
%constinteger LILBR  =  44 { RI }
!*
%constinteger INCMB  =  48 { X  }
%constinteger INCMH  =  49 { X  }
%constinteger INCMW  =  50 { X  }
%constinteger INCMD  =  51 { X  }
!*
%constinteger TRABS  =  52 { RR }
%constinteger TRABSD =  53 { RR }
%constinteger CXCR   =  54 { RR }
%constinteger CXCRD  =  55 { RR }
%constinteger SDA    =  56 { RR }
%constinteger SDL    =  57 { RR }
%constinteger SDC    =  58 { RR }
%constinteger SDAD   =  59 { RR }
%constinteger SDLD   =  60 { RR }
!*
%constinteger ADR    =  64 { RR }
%constinteger SUR    =  66 { RR }
%constinteger MPRD   =  67 { RR }
%constinteger MPR    =  68 { RR }
%constinteger DVR    =  69 { RR }
%constinteger ANR    =  70 { RR }
%constinteger ORR    =  71 { RR }
%constinteger EOR    =  73 { RR }
%constinteger CAR    =  75 { RR }
%constinteger CARD   =  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 RRFW   =  83 { RR }
%constinteger RRFD   =  84 { RR }
%constinteger FLTW   =  85 { RR }
%constinteger FLTD   =  86 { RR }
%constinteger FIXW   =  87 { RR }
%constinteger FIXD   =  88 { RR }
%constinteger TRR    =  89 { RR }
%constinteger CFPDS  =  90 { RR }
%constinteger TRN    =  91 { RR }
%constinteger TRND   =  92 { RR }
%constinteger TRC    =  93 { RR }
%constinteger XCR    =  94 { RR }
%constinteger TBRR   =  96 { RR }
%constinteger TRBR   =  97 { RR }
!*
%constinteger ZR     =  98 { R  }
%constinteger EXS    =  99 { RR }
%constinteger EXR    = 101 { R  }
%constinteger TBRBR  = 102 { RR }
%constinteger DVRFW  = 103 { RR }
%constinteger DVRFD  = 104 { RR }
%constinteger DVF    = 105 { RX }
!*
%constinteger NOP    = 107 {    }
%constinteger EIAE   = 108 {    }
%constinteger DIAE   = 109 {    }
%constinteger EFAE   = 110 {    }
%constinteger DFAE   = 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 TBM    = 131 { RD }
!*
%constinteger BU     = 136 { D  }
%constinteger BCF    = 137 { D  }
%constinteger BCT    = 138 { D  }
%constinteger BRLNK  = 140 { 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 BUGT   = 148 {pseudo-op}
%constinteger BULT   = 149 {pseudo-op}
%constinteger BUEQ   = 150 {pseudo-op}
%constinteger BUNE   = 151 {pseudo-op}
%constinteger BUGE   = 152 {pseudo-op}
%constinteger BULE   = 153 {pseudo-op}
%constinteger TST    = 154 {pseudo-op}
!*
%constinteger BIB    = 155 { RD }
%constinteger BIH    = 156 { RD }
%constinteger BIW    = 157 { RD }
%constinteger BID    = 153 { RD }
!* 
!*  Vector Instructions
!*
%constinteger LV       = 180 { VX }
%constinteger LIV      = 181 { VR }
%constinteger LIVF     = 182 { VR }
%constinteger STV      = 183 { VX }
%constinteger TRVV     = 184 { VV }
%constinteger TRVVN    = 185 { VV }
%constinteger TRVVND   = 186 { VpVp }
%constinteger TRVAB    = 187 { VV }
%constinteger TRVABD   = 188 { VpVp }
%constinteger CMPV     = 189 { VV }
%constinteger EXPV     = 190 { VV }
%constinteger MRVVLT   = 191 { VV }
%constinteger MRVVLE   = 192 { VV }
%constinteger MRVVGT   = 193 { VV }
%constinteger MRVVGE   = 194 { VV }
%constinteger MRVVEQ   = 195 { VV }
%constinteger MRVVNE   = 196 { VV }
%constinteger MRVRLT   = 197 { VR }
%constinteger MRVRLE   = 198 { VR }
%constinteger MRVRGT   = 199 { VR }
%constinteger MRVRGE   = 200 { VR }
%constinteger MRVREQ   = 201 { VR }
%constinteger MRVRNE   = 202 { VR }
%constinteger TRVR     = 203 { VR }
%constinteger TRRV     = 204 { RV }
!*
%constinteger BIVB     = 205 { RD }
%constinteger BIVH     = 206 { RD }
%constinteger BIVW     = 207 { RD }
%constinteger BIVD     = 208 { RD }
%constinteger BVSB     = 209 { RD }
%constinteger BVSH     = 210 { RD }
%constinteger BVSW     = 211 { RD }
%constinteger BVSD     = 212 { RD }
!*
%constinteger CAVV     = 213 { VV }
%constinteger CAVR     = 214 { VR }
%constinteger CAVVD    = 215 { VpVp }
%constinteger CAVRD    = 216 { VpRp }
!*
%constinteger ANVV     = 217 { VV }
%constinteger ANVR     = 218 { VR }
%constinteger ORVV     = 219 { VV }
%constinteger ORVR     = 220 { VR }
%constinteger EOVV     = 221 { VV }
%constinteger EOVR     = 222 { VR }
!*
%constinteger SVDA     = 223 { VR }
%constinteger SVDL     = 224 { VR }
%constinteger SVDC     = 225 { VR }
%constinteger SVDAD    = 226 { VpR }
%constinteger SVDLD    = 227 { VpR }
!* 
%constinteger ADVV     = 228 { VV }
%constinteger ADVVD    = 229 { VpVp }
%constinteger ADRV     = 230 { VR }
%constinteger ADRVD    = 231 { VpRp }
%constinteger SUVV     = 232 { VV }
%constinteger SUVVD    = 233 { VpVp }
%constinteger SURV     = 234 { VR }
%constinteger SURVD    = 235 { VpRp }
%constinteger MPVV     = 236 { VV }
%constinteger MPRV     = 237 { VR }
!*
%constinteger ADVVFW   = 238 { VV }
%constinteger ADVVFD   = 239 { VpVp }
%constinteger ADRVFW   = 240 { VR }
%constinteger ADRVFD   = 241 { VpRp }
%constinteger SUVVFW   = 242 { VV }
%constinteger SUVVFD   = 243 { VpVp }
%constinteger SURVFW   = 244 { VR }
%constinteger SURVFD   = 245 { VpRp }
%constinteger MPVVFW   = 246 { VV }
%constinteger MPVVFD   = 247 { VpVp }
%constinteger MPRVFW   = 248 { VR }
%constinteger MPRVFD   = 249 { VpRp }
%constinteger RVFW     = 250 { V }
%constinteger RVFD     = 251 { Vp }
!*
%constinteger FLTVW    = 252 { VV }
%constinteger FLTVD    = 253 { VVp }
%constinteger FIXVW    = 254 { VV }
%constinteger FIXVD    = 255 { VpV }
%constinteger CFPVDS   = 256 { VpV }
!*
%constinteger ORVRN    = 257 { VR }
%constinteger ANDVRN   = 258 { VR }
%constinteger FRSTEQ   = 259 { VR }
%constinteger SIGMA    = 260 { VR }
%constinteger SIGMAD   = 261 { VpRp }
%constinteger SIGMF    = 262 { VR }
%constinteger SIGMFD   = 263 { VpRp }
%constinteger PRODF    = 264 { VR }
%constinteger PRODFD   = 265 { VpRp }
%constinteger MAXV     = 266 { VR }
%constinteger MAXVD    = 267 { VpRp }
%constinteger MINV     = 268 { VR }
%constinteger MINVD    = 269 { VpRp }
!*
%constinteger TRRVE    = 270 { RV }
%constinteger TRVER    = 271 { VR }
%constinteger TRVLR    = 272 { VR }
%constinteger RVIU     = 273
%constinteger DVVVFW   = 274 { VV }
%constinteger DVVVFD   = 275 { VpVp }
%constinteger DVRVFW   = 276 { VR }
%constinteger DVRVFD   = 277 { VpRp }
!*
!*
!*
%conststring(6)%array Mnem(0:277) =  %c
{  0} ""     ,"L"    ,"LBS"  ,"LN"   ,"ST"   ,""     ,"ZM"   ,"ADM"  ,
{  8} "ARM"  ,"SUM"  ,"MPM"  ,"DVM"  ,"ANM"  ,"ORM"  ,"EOM"  ,"CAM"  ,
{ 16} "CHKBND","LA"  ,"LABR" ,"SUABR","LWBR" ,"STWBR","LWSL1","LWSL2",
{ 24} "LWSL3","SBMD" ,"ZBMD" ,"TBMD" ,"ADF"  ,"SUF"  ,"MPF"  ,"RF"   ,
{ 32} "LI"   ,"ADI"  ,""     ,"MPI"  ,"DVI"  ,"CI"   ,"LIL"  ,"ANI"  ,
{ 40} "ORI"  ,"EOI"  ,"ADIBR","OIBR" ,"LILBR",""     ,""     ,""     ,
{ 48} "INCMB","INCMH","INCMW","INCMD","TRABS","TRABSD","CXCR","CXCRD",
{ 56} "SDA"  ,"SDL"  ,"SDC"  ,"SDAD" ,"SDLD" ,""     ,""     ,""     ,
{ 64} "ADR"  ,""     ,"SUR"  ,"MPRD" ,"MPR"  ,"DVR"  ,"ANR"  ,"ORR"  ,
{ 72} ""     ,"EOR"  ,""     ,"CAR"  ,"CARD" ,"ADRFW","ADRFD","SURFW",
{ 80} "SURFD","MPRFW","MPRFD","RFW"  ,"RFD"  ,"FLTW" ,"FLTD" ,"FIXW" ,
{ 88} "FIXD" ,"TRR"  ,"CFPDS","TRN"  ,"TRND" ,"TRC"  ,"XCR"  ,""     ,
{ 96} "TBRR" ,"TRBR" ,"ZR"   ,"EXS"  ,""     ,"EXR"  ,"TBRBR","DVRFW",
{104} "DVRFD","DVF"  ,""     ,"NOP"  ,"EIAE" ,"DIAE" ,"EFAE" ,"DFAE" ,
{112} "SLA"  ,"SLL"  ,"SLC"  ,"SLAD" ,"SLLD" ,"SRA"  ,"SRL"  ,"SRC"  ,
{120} "SRAD" ,"SRLD" ,""     ,""     ,""     ,""     ,""     ,""     ,
{128} "SBM"  ,"ZBM"  ,""     ,"TBM"  ,""     ,""     ,""     ,""     ,
{136} "BU"   ,"BCF"  ,"BCT"  ,""     ,"BL"   ,""     ,"BGT"  ,"BLT"  ,
{144} "BEQ"  ,"BNE"  ,"BGE"  ,"BLE"  ,"BUGT" ,"BULT" ,"BUEQ" ,"BUNE" ,
{152} "BUGE" ,"BULE" ,"TST"  ,""     ,"BIB"  ,"BIH"  ,"BIW"  ,"BID"  ,
{160} ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""     ,
{168} ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""     ,
{176} ""     ,""     ,""     ,""     ,"LV"   ,"LIV"  ,"LIVF" ,"STV"  ,
{184} "TRVV"  ,"TRVVN" ,"TRVVND","TRVAB" ,"TRVABD","CMPV"  ,"EXPV"  ,"MRVVLT",
{192} "MRVVLE","MRVVGT","MRVVGE","MRVVEQ","MRVVNE","MRVRLT","MRVRLE","MRVRGT",
{200} "MRVRGE","MRVREQ","MRVRNE","TRVR"  ,"TRRV"  ,"BIVB"  ,"BIVH"  ,"BIVW",
{208} "BIVD"  ,"BVSB"  ,"BVSH"  ,"BVSW"  ,"BVSD"  ,"CAVV"  ,"CAVR"  ,"CAVVD",
{216} "CAVRD" ,"ANVV"  ,"ANVR"  ,"ORVV"  ,"ORVR"  ,"EOVV"  ,"EOVR"  ,"SVDA",
{224} "SVDL"  ,"SVDC"  ,"SVDAD" ,"SVDLD" ,"ADVV"  ,"ADVVD" ,"ADRV"  ,"ADRVD",
{232} "SUVV"  ,"SUVVD" ,"SURV"  ,"SURVD" ,"MPVV"  ,"MPRV"  ,"ADVVFW","ADVVFD",
{240} "ADRVFW","ADRVFD","SUVVFW","SUVVFD","SURVFW","SURVFD","MPVVFW","MPVVFD",
{248} "MPRVFW","MPRVFD","RVFW"  ,"RVFD"  ,"FLTVW" ,"FLTVD" ,"FIXVW" ,"FIXVD",
{256} "CFPVDS","ORVRN" ,"ANDVRN","FRSTEQ","SIGMA" ,"SIGMAD","SIGMF" ,"SIGMFD",
{264} "PRODF" ,"PRODFD","MAXV"  ,"MAXVD" ,"MINV"  ,"MINVD" ,"TRRVE" ,"TRVER",
{272} "TRVLR" ,"RVIU  ","DVVVFW","DVVVFD","DVRVFW","DVRVFD"
!*
%constintegerarray Mask(0:277) =  %c
{  0}      0 ,x'b400',x'ec08',x'b800',x'd400',     0 ,x'd800',x'c800',
{  8} x'e800',x'cc00',x'c000',x'c400',x'8400',x'8800',x'8c00',x'8000',
{ 16} x'5c08',x'5000',x'5808',x'5800',x'5c00',x'5400',x'ec00',x'fc00',
{ 24} x'fc08',x'7c08',x'7c00',x'7808',x'e008',x'e000',x'e408',x'e400',
{ 32} x'f800',x'f801',x'f802',x'f803',x'f804',x'f805',x'f80b',x'f808',
{ 40} x'f809',x'f80a',x'f80d',x'f80c',x'f80f',     0 ,     0 ,     0 ,
{ 48} x'a000',x'a008',x'a400',x'a408',x'2c01',x'2c09',x'2c06',x'2c0e',
{ 56} x'3c03',x'3c02',x'3c01',x'3c0b',x'3c0a',     0 ,     0 ,     0 ,
{ 64} x'3800',     0 ,x'3c00',x'3c0f',x'3802',x'380a',x'0400',x'0800',
{ 72}      0 ,x'0c00',     0 ,x'1000',x'1400',x'3801',x'3809',x'3803',
{ 80} x'380b',x'3806',x'380e',x'0c0e',x'0c0f',x'3807',x'380f',x'3805',
{ 88} x'380d',x'2c00',x'3c09',x'2c04',x'2c0c',x'2c03',x'2804',     0 ,
{ 96} x'2c02',x'2803',x'0c00',x'3808',     0 ,x'f807',x'2801',x'1401',
{104} x'1402',x'9800',     0,x'0002',x'0003',x'000e',x'000d',x'000f',
{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'ac08',x'ac00',     0 ,x'a808',     0 ,     0 ,     0 ,     0 ,
{136} x'4000',x'7008',x'7000',     0 ,x'4400',     0 ,x'7308',x'7100', 
{144} x'7180',x'7188',x'7108',x'7300',x'7288',x'7208',x'7180',x'7188',
{152} x'7200',x'7280',     0 ,x'4800',x'4808',x'4c00',x'4c08',     0 ,
{160}      0 ,     0 ,      0 ,     0 ,     0 ,     0 ,     0 ,     0 ,
{168}      0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,     0 ,
{176}      0 ,     0 ,     0 ,     0 ,x'B000',x'3C04',x'3C08',x'D000',
{184} x'2805',x'2c05',x'2C0D',x'2C07',x'2C0F',x'1406',x'1407',x'1003',
{192} x'1004',x'1403',x'1404',x'1005',x'1405',x'100D',x'100E',x'140D',
{200} x'140E',x'100F',x'140F',x'140B',x'140C',x'6000',x'6008',x'6400',
{208} x'6408',x'6800',x'6808',x'6C00',x'6c08',x'1001',x'1002',x'1009',
{216} x'100B',x'0401',x'0402',x'0801',x'0802',x'0C01',x'0C02',x'3C07',
{224} x'3C06',x'3C05',x'3C0E',x'3C0D',x'3000',x'3008',x'3400',x'3408',
{232} x'3001',x'3009',x'3401',x'3409',x'3002',x'3402',x'3004',x'300C',
{240} x'3404',x'340C',x'3005',x'300D',x'3405',x'340D',x'3006',x'300E',
{248} x'3406',x'340E',x'3007',x'300F',x'080D',x'080F',x'080C',x'080E',
{256} x'0C0D',x'000A',x'000A',x'0409',x'0C08',x'0C0A',x'0808',x'080A',
{264} x'0408',x'040A',x'1008',x'100A',x'1408',x'140A',x'2806',x'2807',
{272} x'280F',x'040F',x'1806',x'1807',x'180c',x'180d'

!*
!*************************************************************************
!*************************************************************************
!*
!*