pmsm-control/rpi_mc_simple_dc.stp

   1 NOTE "CREATOR" "Designer Version: 11.3.0.112";\r
   2 NOTE "CAPTURE" "11.3.0.112";\r
   3 NOTE "DEVICE" "AGL125V5";\r
   4 NOTE "PACKAGE" "AGL125V5-vq100";\r
   5 NOTE "DATE" "2014/10/07";\r
   6 NOTE "TIME" "15:09:52";\r
   7 NOTE "STAPL_VERSION" "JESD71";\r
   8 NOTE "VENDOR" "Microsemi Corporation";\r
   9 NOTE "IDCODE" "03A121CF";\r
  10 NOTE "IDMASK" "06FFFFFF";\r
  11 NOTE "DESIGN" "rpi_mc_simple_dc";\r
  12 NOTE "DESIGN_DIRECTORY" "/home/pi/fpga/rpi-mc-1/simple-dc/";\r
  13 NOTE "CHECKSUM" "D5FF";\r
  14 NOTE "SECURITY" "Disable";\r
  15 NOTE "ALG_VERSION" "20";\r
  16 NOTE "MAP_VERSION" "1";\r
  17 NOTE "TOOL_VERSION" "1";\r
  18 NOTE "MAX_FREQ" "10000000";\r
  19 NOTE "SILSIG" "00000000";\r
  20 NOTE "SPEED_GRAD" "STD";\r
  21 NOTE "TEMP_GRAD" "COM";\r
  22 NOTE "PLAYER_VERSION_VARIABLE" "PLAYERVERSIONVARIABLE";\r
  23 NOTE "PLAYER_VERSION_SW_VARIABLE" "PLAYERVERSIONSWVARIABLE";\r
  24 \r
  25 ACTION PROGRAM = \r
  26        VERIFY_IDCODE,\r
  27        SET_PRG_ARRAY,\r
  28        W_INITIALIZE,\r
  29        DO_ERASE,\r
  30        DO_PROGRAM,\r
  31        DO_VERIFY_BOL,\r
  32        DO_PROGRAM_RLOCK,\r
  33        DO_VERIFY_PGM_RLOCK,\r
  34        DO_EXIT;\r
  35 ACTION PROGRAM_ARRAY = \r
  36        VERIFY_IDCODE,\r
  37        SET_PRG_ARRAY,\r
  38        AW_INITIALIZE,\r
  39        DO_ERASE_ARRAY,\r
  40        DO_PROGRAM,\r
  41        DO_VERIFY_BOL,\r
  42        DO_PROGRAM_RLOCK,\r
  43        DO_VERIFY_PGM_RLOCK,\r
  44        DO_EXIT;\r
  45 ACTION ERASE_ARRAY = \r
  46        VERIFY_IDCODE,\r
  47        AW_INITIALIZE,\r
  48        DO_ERASE_ARRAY_ONLY,\r
  49        DO_EXIT;\r
  50 ACTION ERASE = \r
  51        VERIFY_IDCODE,\r
  52        W_INITIALIZE,\r
  53        DO_ERASE_ONLY,\r
  54        DO_EXIT;\r
  55 ACTION ERASE_ALL = \r
  56        VERIFY_IDCODE,\r
  57        INITIALIZE,\r
  58        DO_ERASE_ALL,\r
  59        DO_EXIT;\r
  60 ACTION VERIFY = \r
  61        VERIFY_IDCODE,\r
  62        R_INITIALIZE,\r
  63        DO_VERIFY_EOL,\r
  64        DO_VERIFY_RLOCK,\r
  65        DO_EXIT;\r
  66 ACTION VERIFY_ARRAY = \r
  67        VERIFY_IDCODE,\r
  68        AR_INITIALIZE,\r
  69        DO_VERIFY_EOL,\r
  70        DO_VERIFY_RLOCK,\r
  71        DO_EXIT;\r
  72 ACTION READ_IDCODE = \r
  73        DO_READ_IDCODE;\r
  74 ACTION VERIFY_DEVICE_INFO = \r
  75        VERIFY_IDCODE,\r
  76        READ_INITIALIZE,\r
  77        READ_IDCODE_ONLY,\r
  78        DO_VERIFY_DEVICE_INFO,\r
  79        DO_EXIT;\r
  80 ACTION DEVICE_INFO = \r
  81        VERIFY_IDCODE,\r
  82        READ_INITIALIZE,\r
  83        READ_IDCODE_ONLY,\r
  84        DO_DEVICE_INFO,\r
  85        DO_QUERY_SECURITY,\r
  86        DO_EXIT;\r
  87 \r
  88 \r
  89 \r
  90 DATA CONSTBLOCK;\r
  91     INTEGER IEEE1532=0;\r
  92     INTEGER STAPL=1;\r
  93     INTEGER DIRECTC=2;\r
  94     INTEGER PDB=3;\r
  95     INTEGER SVF=4;\r
  96     INTEGER FP=0;\r
  97     INTEGER FPLITE=1;\r
  98     INTEGER FP3=2;\r
  99     INTEGER SCULPTW=3;\r
 100     INTEGER BPW=4;\r
 101     INTEGER DIRECTCP=5;\r
 102     INTEGER STP=6;\r
 103     INTEGER FP4=7;\r
 104     INTEGER FP33=0;\r
 105     INTEGER FP34=1;\r
 106     INTEGER FP40=2;\r
 107     INTEGER FP41=3;\r
 108     INTEGER FP42=4;\r
 109     INTEGER FP50=5;\r
 110     INTEGER FP51=6;\r
 111     INTEGER FP60=7;\r
 112     INTEGER FP61=8;\r
 113     INTEGER FP62=9;\r
 114     INTEGER FP84=11;\r
 115     INTEGER FP85=12;\r
 116     INTEGER FP86=13;\r
 117     INTEGER FP90=14;\r
 118     INTEGER FP91=15;\r
 119     INTEGER FP100=16;\r
 120     INTEGER FP_11=19;\r
 121     INTEGER FP_11_1=20;\r
 122     INTEGER FP_11_2=21;\r
 123     INTEGER FP_11_3=22;\r
 124     INTEGER UNKNOWN=127;\r
 125     INTEGER UNSPECIFIED=0;\r
 126     INTEGER QN132=1;\r
 127     INTEGER VQ100=2;\r
 128     INTEGER TQ144=3;\r
 129     INTEGER PQ208=4;\r
 130     INTEGER FG144=5;\r
 131     INTEGER FG256=6;\r
 132     INTEGER FG484=7;\r
 133     INTEGER FG676=8;\r
 134     INTEGER FG896=9;\r
 135     INTEGER QN108=10;\r
 136     INTEGER QN180=11;\r
 137     INTEGER TQ100=12;\r
 138     INTEGER CQ208=13;\r
 139     INTEGER FG1152=14;\r
 140     INTEGER BG456=15;\r
 141     INTEGER UNDEFINED=63;\r
 142     INTEGER GRADE_UNSPEC=0;\r
 143     INTEGER GRADE_1=1;\r
 144     INTEGER GRADE_2=2;\r
 145     INTEGER GRADE_3=3;\r
 146     INTEGER GRADE_F=4;\r
 147     INTEGER GRADE_STD=5;\r
 148     INTEGER GRADE_4=6;\r
 149     INTEGER GRADE_UNDEF=7;\r
 150 ENDDATA;\r
 151 \r
 152 DATA PARAMETERS;\r
 153     INTEGER FREQ =4;\r
 154 ENDDATA;\r
 155 \r
 156 DATA GV;\r
 157     INTEGER ULOPT1_BITLOCATION =11;\r
 158     INTEGER ULOPT0_BITLOCATION =10;\r
 159     INTEGER ULUWE_BITLOCATION =9;\r
 160     INTEGER ULARE_BITLOCATION =8;\r
 161     INTEGER ULUPC_BITLOCATION =7;\r
 162     INTEGER ULUFE_BITLOCATION =6;\r
 163     INTEGER ULUFP_BITLOCATION =5;\r
 164     INTEGER ULUFJ_BITLOCATION =4;\r
 165     INTEGER ULFLR_BITLOCATION =3;\r
 166     INTEGER ULULR_BITLOCATION =2;\r
 167     INTEGER ULAWE_BITLOCATION =1;\r
 168     INTEGER ULARD_BITLOCATION =0;\r
 169     BOOLEAN BUFF128[128];\r
 170     BOOLEAN BUFF32[32];\r
 171     INTEGER I;\r
 172     INTEGER J;\r
 173     INTEGER TEMP;\r
 174     INTEGER SDNUMBER;\r
 175     INTEGER ROWNUMBER;\r
 176     INTEGER DATAINDEX =0;\r
 177     INTEGER FROMROWNUMBER =1;\r
 178     INTEGER AESBLOCK;\r
 179     BOOLEAN ID[32];\r
 180     BOOLEAN PASS = 1;\r
 181     BOOLEAN FADDR[3];\r
 182     INTEGER STATUS =0;\r
 183     BOOLEAN SILSIG[32] = $00000000;\r
 184     BOOLEAN ISC_CONFIG_RESULT[18];\r
 185     BOOLEAN VERIFYEOL[2];\r
 186     BOOLEAN COMBERASESELECT[23];\r
 187     BOOLEAN SECKEY_OK = 1;\r
 188     BOOLEAN SECREG[44];\r
 189     BOOLEAN ULUWE = 0;\r
 190     BOOLEAN ULARE = 0;\r
 191     BOOLEAN ULUPC = 0;\r
 192     BOOLEAN ULUFE = 0;\r
 193     BOOLEAN ULUFP = 0;\r
 194     BOOLEAN ULUFJ = 0;\r
 195     BOOLEAN ULFLR = 0;\r
 196     BOOLEAN ULULR = 0;\r
 197     BOOLEAN ULAWE = 0;\r
 198     BOOLEAN ULARD = 0;\r
 199     BOOLEAN ULOPT[2];\r
 200     BOOLEAN SUROWCHECKSUM[16];\r
 201     INTEGER SUROWCYCLECOUNT =0;\r
 202     INTEGER ACT_UROW_CYCLE_COUNT =0;\r
 203     BOOLEAN ACT_UROW_DESIGN_NAME[70] = $138797f6de3fb9e5db;\r
 204     BOOLEAN SUROWDESIGNNAME[70];\r
 205     BOOLEAN SUROWPROGMETHOD[3];\r
 206     BOOLEAN ACT_UROW_ALGO_VERSION[7] = $14;\r
 207     BOOLEAN SUROWALGOVERSION[7];\r
 208     BOOLEAN SUROW_PKG_TYPE[6];\r
 209     BOOLEAN ACT_UROW_SW_VERSION[7];\r
 210     BOOLEAN SUROW_SW_VERSION[7];\r
 211     INTEGER PLAYERVERSIONVARIABLE =0;\r
 212     INTEGER PLAYERVERSIONSWVARIABLE =0;\r
 213     INTEGER SCULPTORMAJORBASE =5;\r
 214     INTEGER SCULPTORMINORBASE =16;\r
 215     BOOLEAN ACT_UROW_PROGRAM_SW[4];\r
 216     BOOLEAN SUROWPROGRAMSW[4];\r
 217     BOOLEAN SUROW_SPEED_GRADE[3];\r
 218     BOOLEAN SUROW_SRAM_DISTURB[1];\r
 219     BOOLEAN ISERASEONLY = 0;\r
 220     BOOLEAN ISRESTOREDESIGN = 0;\r
 221     BOOLEAN FLAGDISPLAYCYC = 1;\r
 222     BOOLEAN ISPRGARRAY = 0;\r
 223     BOOLEAN BSRPATTERN[564] = $9249249249249249249249249249249249249249249249249\r
 224         249249249249249249249249249249249249249249249249249249249249249249249249\r
 225         24924924924924924924;\r
 226     BOOLEAN SAMPLEMASK[564] = $0000000000000000000000000000000000000000000000000\r
 227         000000000000000000000000000000000000000000000000000000000000000000000000\r
 228         00000000000000000000;\r
 229     BOOLEAN BSR[564];\r
 230     BOOLEAN SAMPLE_DEVICE[564];\r
 231     BOOLEAN RLOCK[832] = $7fffffcffffffbfffffeffffffbfffffefffffffffffffffffff3f\r
 232         ffffcffffff3fffffcffffff3fffffcffffff3fffffdffffff3fffffcffffff3fffffcff\r
 233         ffff3fffffcffffff3fffffdffffffffffffffffffffffffffffffffffffffffffffffff\r
 234         ffffffffff;\r
 235     BOOLEAN ARRAYRONLY = 1;\r
 236     BOOLEAN CHKARRAY = 0;\r
 237     BOOLEAN FROMRONLY = 1;\r
 238     BOOLEAN CHKFROM = 0;\r
 239     BOOLEAN CHKNVM = 0;\r
 240     BOOLEAN CHKSEC = 1;\r
 241     BOOLEAN PERMLOCK = 0;\r
 242     INTEGER HEX[16] = 70,69,68,67,66,65,57,56,55,54,53,52,51,50,49,48;\r
 243     INTEGER NUMBEROFFROMROWS =8;\r
 244     BOOLEAN INITIALIZE_DATA[5] = $00;\r
 245     INTEGER SDTILE;\r
 246     INTEGER NUMBEROFSDTILES =4;\r
 247     INTEGER NUMBEROFMAPROWS =1244;\r
 248     INTEGER IDREV;\r
 249     INTEGER IDFAB;\r
 250     INTEGER BM7DEVICE =0;\r
 251     INTEGER BM1DEVICE =0;\r
 252     BOOLEAN M1BUFF[128] = $acdd6548ccb488863e291eb18fe95077;\r
 253     BOOLEAN M7BUFF[128] = $e137623a2eeee91126015f3f73664945;\r
 254     BOOLEAN IDCODEVALUE[32] = $03a121cf;\r
 255     BOOLEAN IDMASK[32] = $06ffffff;\r
 256     INTEGER SECKEYCHK =0;\r
 257     INTEGER DESIGNPKGTYPE =2;\r
 258     BOOLEAN ACT_UROW_PROG_METHOD[3] = $1;\r
 259     INTEGER LABEL_SEPARATOR =0;\r
 260     INTEGER ROWITERATION =100;\r
 261     INTEGER PAGEITERATION =100;\r
 262     INTEGER PERCENT_UPDATE;\r
 263     INTEGER DIFFERENCE;\r
 264     INTEGER UNIQUEEXITCODE =0;\r
 265 ENDDATA;\r
 266 \r
 267 DATA BITSTREAM;\r
 268     BOOLEAN UROW[128];\r
 269     BOOLEAN UROW_MASK[128] = $fffffffffffffffffffffffffe01ffc0;\r
 270     BOOLEAN DATASTREAM[1035008] = @WbV00000110040W0W000020G000400108002200000Wwc\r
 271         qqcso0000p@zlF999IDfjIo0000_@p@@IYaatcjj50000y_@@7HIIIGRRRR34OV@VGIIIYss\r
 272         sqDGWt@@Haaa4ssqsUY1rW0fD994000u@@@xJIIYSRJYq4000a@@_VZa89P0000Y49996999\r
 273         XFI00004999W8991sW1Yaaa8aaaKZ3GIII2IIIg601WHIYa0IIa400rm3899950000400O08\r
 274         0IIIo4OGISGNS000009999rWFQRRRP9BBnXaa4b000WssMjvoIiDB9HIU000WRpss2BMsM49\r
 275         9910000ijjjXjjjLGIIoXHWsssMqsosrm2osoWg14OZjb8PNIYaS0000RRsscPMIoa899P00\r
 276         00JIIIYRBAREjjjwiDDPtaa89poaaORhssJJsaSIaaaALMIYPRRRKQQI29999aWWaWsssiaa\r
 277         a8Xaa49H2MDW0DaacrW2iaiGpssMYqaqWaaa4JosMSRRRrHIRpC99HIkaDRpsMjjrazk20IQ\r
 278         I2418000CqTg0IJIW808144XayWC85G022IYQ01cca800008BB9f6GWca4000GW8B89_M680\r
 279         0200989G0000IIIa480HIWa0080OYP0GI208100Pq2IL40GIIADG0I22I80000899BY4C0Ce\r
 280         6S0222Wsr28080g1900W0e6e080992000r04Wa48q9IGDDeDdaaayu1GIHJ4899H8000W000\r
 281         0gb5RBaar04WccsAIIIASUWQJRpQW2OBJRh14i9DGfD99caaaSv1ORIIJ37GRRR3sMtcB999\r
 282         Yz@@_tssiTizORJIYa4_l@@PRss6sklj9HII2x@@@XjjjDQPPRYaaa8_@@h15Gssci6eWtsM\r
 283         4999n__@Vg14mssg4999k@@@RssscgjjjPIIIYu@@t7QRhsQR@j62i@sogTRRpsTRlsUjDRR\r
 284         ijORxjPRRjPRRZcjjjabbj5ssssm__sCRRRpORRp6RRhsQxxQW2ijjjK3G0RRRMjjjniijDI\r
 285         3CmssscvssMjRRRsCRRrsljb6GWz000040030OK3uKh31x0SC04Jdm52000g1q8qWcs2d60o\r
 286         CEPjI5U269822b_AUY6Ue93j0D@F0eZ8O6y63XrV7C0Ohv2k4duiOA4411jOBa1Y008D0C02\r
 287         W0YWaHq0DYJ8JuaF2efC108WZ1W5naW1080a40OPn2NCFewm1T0GO401r0Muqn51qMQUm21Q\r
 288         M520GGdWaYCKGD06orIm5c62efCIIIIaaaaG999HGIIYiaa49A9922IIaaba89HIg1K0GIII\r
 289         4aaaP080IIIYWaa49999IWaa899912GIg6G2aWaW8P9BL30XE1Da6W0P999r0q8Q08r00XIM\r
 290         IIW409H3aHWJX6023JCqGd0CCEn1NSOGR1p0m00uFW42So18400TSeK0DD4uaM371IW6M5Xo\r
 291         31QGYWa4aOBCX4aa49099GIGIaaaa0898bkH1r0O01180GYIInMW0X4W41999o0I2omm0IWI\r
 292         Ir0KW4aa4A818H3iWWa0ae1I02I2IlY4GIGI0198P11J81999gZDgEGYC0MG080u_3CK3W1T\r
 293         f4nQGEqmW6L2Q08999I100HAG06000GaaabPUGkXAimu1j7QGD0Wq9053kuGUQNC00BT2GXa\r
 294         aa430000IIIa3000G99HI0000ma49920r0KW00000999vAGGD06asv1r0qHd0JKIn1caaae0\r
 295         000KIIg@02KIIIMG01z8OID0Kq9m5X0O0GIIIK000L1G010000999o000w3uWM988HW4ECuW\r
 296         Q06fJ0AobaWq0A0G99PQ04W899f608w48YQ06fJ0760u@10EgYbCMexegGM8Ti6UhRhe16Ag\r
 297         m@2DOj0ET680GGS2a4oh19CCIWW_5mv@1s_Vy8s5SoS7taN8lo4qm@nmCLD0waNG41dW6100\r
 298         WW7@J999PrR8GGIKAeE6KIII6lu5r0OW2IIoQ0e8uneKGII2aa4i6W82Uisfus8Wc@3Efs_A\r
 299         O8sYKabaaKU171QuX4a4ie1kG2I2Iq0NCzO1H3C1988fe1Ae6032quWg3E8mH4E4ZYQ0qeXX\r
 300         LAP4240001FkKd0ACj14G0002USfE1E8un@3Uy@10_V001FN5Y0QmAQWA2GhzW7lydnC2SYh\r
 301         61Ge5Y32Uy@W7bS5262UqgJEkCU4e3Du@0qUhs_72Uiu0RnlanC2US4GIGI1FQM4Uh4@hr1d\r
 302         yVmZX6RXO1QiM0QzKd85T2O12osMjD0002QRrsM0000eLRRx0000IjjjT0000g1e000ijQR3\r
 303         0g1eWR29GRRR3001iQ0AG02RRD0A800Rpss0GQ08q9G4ijjjXaaa8tssaHIIY4QRRo299IIi\r
 304         jPRda899ij6W24RRRN3W1i5IIg1W0DIIIamsci9IIY4OR3s499GIeDRR9ar0eGQ0B8nssEDW\r
 305         3w4W0RRRQE9911jjjOdaa4fsscjHIIqaRRssC9HIYRpssAHII2DRRR19999h3qWjDi1baa4W\r
 306         sMsaGIQM3W18DsseDHI2a4scjjTYaa4RsssEf1010000daaaG0000IIIgK0000999Q20000b\r
 307         a89H0_P4Xp3F0IIIIVaAK3W1889Dn20G00aa4f10GD08q9G28500g3W09000WIIIam@@RV89\r
 308         HIo@l@@a499n@_@VJaaWmx@@@HIIIY@@@@Q0CmZaaKD04Waaa4y@@l7IIIay@x_6IIg1W0BI\r
 309         IHau@tzF99H2u@d@DaKQ0Bq9G2f1GWFIIIa0008ess6Uu0t1008WjjPQ1000escjj2000esx\r
 310         7K000mcjjD0000GsssM004Wesstc00800RRQ_0000XjjPJ0080Xscjj0GQ0BC911ORRRx4mW\r
 311         Q088um@dAFfOO8hdL223O402000G002fo0G000B@zGZ9cazAAD3OGg05i9O6nziTw1Q88008\r
 312         eYb0401KTm522W02UCae1a8unnw4eZG3AeMgB2Uypu4iANvKYygpwH88un@Z6eceE8uMlE_A\r
 313         9iU4OgPW426E601201DWub57qNHe1Fswg2C4y8K@0KHmZc04ba8unC0191r372aeaa8P895y\r
 314         e14a4a8991HMIIAungaWaWK3G3aXaa81994yOP7DOGGG06pbAHT0H80A4ILANM4KmZ@NH118\r
 315         889ZjmYQDA8UnE40995yO744aa89191IYIAG38WaWWK3G1Z2GGW6E09919uHS8080yaH4xCP\r
 316         GD0K4SlCbCUHmZSK3W120ORrs60040ej60280Wj5yO5C0002UaX67T8unFqms8H2IYLRQRKm\r
 317         Z5K3W1ejHII30XE1QWQRRRmZ6Ko81Wsss2UCXd088uHGqM99PIej5RBa499nMDjDIh3G0iDI\r
 318         IaamsT2KHmZGKou11FQY910020GIr08Hd0M8X@@laHA2U44@399GI_@r@Za899_tt@JID04m\r
 319         @7IYcayVmZRKou51Fo1e0eMjfj0hGaGD0580WsEunz70uumM0gUSC_kf9W000H3uGGGEE00d\r
 320         N1PGJ3V4uqGH3iGWJ2suudt5SHmzBlIK1HjNOaASkgW61QWM@bsMGmD1FgOS2e6SIDxqbHm9\r
 321         M5W6B1FMKm194ye9nnvGmZEq373r0i09809IIIGaWaa2UigQ0u8unl2WEkWJQFuniZjmgq0M\r
 322         8un9g10XW7b8GZP2USZ7rGOd6N2UyaI6F8unDg1Gak8ZeaHD2USZQ0K8uH5g10Yk8V8unQg1\r
 323         uWW7De6W7SIII2RRRhJ05g1uWW7pf603O9904yu7I0002UidQ0i8uHdg1eaW7@V0W@ZXPiOZ\r
 324         79Q0PgLXZkXezniP2Sgce1o8un@ZlQt8lMBun@33x@0q_V005wRtWU4mi_4q2iDsW7ZIGIMI\r
 325         zZS4yewXK5wfDN6yu@1FcJW6b5q0Q1FwLd074y8LT2GHmZKr9041FMMd064yu@30m7100W10\r
 326         _FW6_3UixUph8unfY6WXW7@F0js11014vLPHuTO8Y@7Qm@1ePu00h5So@1FY7891fW7@Fua@\r
 327         3Uy@W7@FuHlh1eYW7Xg6WA2UqgQ0a8uHcg1GaW7T5G00m00@F0WeHDr1010WOOGAQWD2swyG\r
 328         JHBmfhYJbYI5_98a72Uy@0qgTJ3h33x@G3_Fun@3Ev@W77I2IMISSPq9G1aWWa2Uy@WJ_Fun\r
 329         @3Uy@W7142qscjD0002PR1FAbbHIoE1WWDTIImZLHQejjJW3CDIIYWSRpM69PmZLHQ408uno\r
 330         aWy@t9m1ktaa2U4BGKRRsK00w4u08mss1Fsp0096L8630yV0D@7yu@1FAOaNf4yu@1eP8W80\r
 331         WWJ_FCi@3Gx@W7@Fun@3UabQ0_8un@31XszZe8ua@3Uy@W7vj602u0006y8LT241nss6TIII\r
 332         WORR3UCgE1Kmq899IojjW7ngJ0A2UagE1K8unjw4eXW7JU0W@ZXvpOoKV0050200C00G0200\r
 333         ANIae1Q8sle2Uy@0q_VdNjZ7nse1IeCX8gv4w0qU3200m00012008uHq1200KTWC7BmHd09i\r
 334         4W31dK6MIIoW7LGGIIImZbO99B9EEC8O9957N5O999HGII6KtBMIII4aaW4yOwXK9Om9o555\r
 335         H1F_Vq0rGGIIAunI2QOeu4g0200WijjD32001Fw4ijjDR1000assij30q9G1l9QWSQRxT49G\r
 336         PRRRmZDn689f602K999HYjjLR7a49XosW7H0QIIImZ4Pcaa4XsscjGIor1EGA00G9ZE8D999\r
 337         uHgaoz@7ye3C8993Ua8NIIITHgWFIIoR88eaH5W000WfjjDuHYWORRt5f2mQRRr000C0m@1F\r
 338         _VmZ@F0mfFJNGWJE5dG5VMZGG3b9400eTAP23BZq0ae3F42UqugnL8gzf3Uy@0qOlY262hyh\r
 339         0R@x7Lq2EfiuLC8mMbRSqWuukennCg1mZE1SW4aaLGTJ5yu@1qyVm9A6RXM8A993U4Z8MX8G\r
 340         3d2UKeTgU8E1Aa0008RRRpa00GmZAm1000ijjTmZSG00ocjjD0G00uW7peBo8UJq0fqssl9I\r
 341         0osssI6D8unIqqs6L301osM83U4Zk8NWqssc1III0PRR1FU0saaad0EennDGRRb889XcbjjG\r
 342         D07GJIYDun7w4uWr1KeaH8qcaa4yeCqaa02Uy39O@@1Fw01IIoI6DenHEq@@GM3G32IIu3Uy\r
 343         XE1E8un4E8WWW7LG2000assM5000WRRR3Ua320GjhGm0scssw7d8uH50rssM30130yVCCo79\r
 344         9qz8ytrl4LZs91EX620000100HU9M9z@5y8hHGKNaA@7SIFZSgGpC@7qGZjCOG0DD7yufp28\r
 345         HmZU7Kt41FcS8LG7yu@7I7HmZU1I2IAsYK2Uq2P898H3SX4a4a0DkG2IIImZhKf080202g18\r
 346         Zy0_eanB2USZQ0QG00GRmZfKo851F6Ysss8IGI2QJRR19895yO8bCQ1paa49kjj1FcHD06mm\r
 347         sMe602mss8L3031FUI9Z94y8Baaa001005yO7bCQXVIIoW75nx@@OD0Auz@V8unEAPCZW7ve\r
 348         6030100M3m51FoRuSBD0m@13NUgzvE0W621002SwdE0O8mfg6vFYW7@FuHA@3uX88w0400Gm\r
 349         9@t9WE1FIMaAGNGm1P@S2G02W0Q8gTz72USS20G01d0TD1P4y8MIGII2UCcq0I82FFGG2IM3\r
 350         01IJI22UK7Y000131JylJMGWCb1amTDJ4QGL7vqI11nqnnDHT86oIIIcaaanbo3O91fOB69Q\r
 351         0X8B985eX91dWcijjD7000WsssQSy0A000DEAHmZQK3W4T2G1RRRRA999x8QWaQRx67h8uHD\r
 352         g1OYE1kenn4iIIIMo81IIIIKRRR7yO9r0mHd0D4ye2O0000JIIYS00eaH2q0000899Ho00Gm\r
 353         ZiK3G2T2OXa_@V@B99Io_@BPa0Iz@@_laa89@@x@NIYaazVmZQK307T2CX7IIIa100bCU0GR\r
 354         RRs2000mjjpQaWW7Bf60Ew40YW7VBGm@3Gx@W6_leCAANoekk29QW92wUjW7PQZj6s0WXW7@\r
 355         FgThMjGiWJ_FWc@3Qu@W7nh60BwoqWWJqDgJB2UKA1991r0OHmZX4KND1FQJCCUL306Zhc12\r
 356         02WQ0q8uaAhnMZWJY7300GW6K4Rn6IGIGwhm2WaWar00IW6d0HIIg9Z5Waaaq9m14a442quc\r
 357         u4S1404GG3tORRRhan9O7004yODT2SnRY6Koe1DEkID0Tq905bCo0ojjjW7NgJ052UiE@III\r
 358         a_@@3U4fE1Q8un6USuWW7FgJ082Uy@Wj_FeX@70ur0d6CuH1h1OpW7@Fua@Z6udTwiej0fY6\r
 359         WZW6eDE1R2Uy@WJ_FunVg18ZW7PIGI2ImZp611E04002ev@WjWDkKh81195agUn9K644Wa8K\r
 360         9W04400000IG2200000881H000e60e81900800YW5400C00Im3200C008e1H004e6WdodC1G\r
 361         RRRs200Aca06000Wijj3h4dE1WW300Gd04KCv4KRRRr9995MvIT2GWjjjDdaaaWsssiJIIYK\r
 362         RRx9W32hSdE1c8iI5W0000aaa4f00Gna4Ko81aaa43hKdE1cG2@@V_a7uJIIAVI2OIII2_@@\r
 363         tF99PBbUK308T2qWFIIoF28eOo4kVW0ijjjA0002haeE1Q8iot60u@sS2jUBq2hy@mA@Fio@\r
 364         3hy@mm8lj0i2YgW226BQ082Tx@mA@Fio@3hikmzc96cp0100C0W502002f2tWJ_FioQ88995\r
 365         RX5IGIIYjGfmAXEun@3Uy@W7@V0W@3Uy@W7@Fun@h10tByQ8un@3sw@mMqE0j@3Uy@W7@Fun\r
 366         @3Ev@WJ_FuHDYjmiW7@FuHKWjjjPB000WqsMd084yONi1IIw4W0LIII1FYbPIII4QRRs299N\r
 367         7u0f0001FMcK_@@W7hobaaKd07G_@@t799vD444y8LGijjx4G1OjjjQ00060u@10W@czE2sw\r
 368         @W7@Fun@3Gx@W7@FUaQ3Du@0Q_Fua@3EH602001F_VCCl6So@1F_VmZ@7y8BT2OGmZ4m1008\r
 369         uno0ssss9011Fg5IjjjW7LeaHD2US9O999Iu@@3UyBm@@@k899@8WWW733KRRRD04C0m@308\r
 370         VOo26yu@1F_VmZJ32008EXlYPLXW7@FU4v3k@@W7@Fun@3EvgW7@F66z04004So@1F_VD078\r
 371         1999un@3UKgQ088uHog1u0TIII4ORR3UigE1QWGIIImZb1A999uHiw4m0@QIIr0GWFIIoW7n\r
 372         gJ082Uyuzp8Odv560u@uHQ1200GeEb5DmM1TJn00ElxN11EvK33Li8821F_VD0e4EH41efyT\r
 373         6E7yu@Dr_O0Qu52W21F_VmZ@7yeOr0G0989hW7@F22PW0W04E1FvHEHmZ@7yeZIGIIYjm429\r
 374         191FY6WaaaW7J6WqsMd084yONi1IIa4QRt9G11FUbPIIIaQRRs299N70XW793MIIImZOvIII\r
 375         gJ05SHII6y8MGijj3Uaw10_FWc@3sgk8iweS0i2S2jW7jzol62GRjuuUBun@3EXqG3_FWc@3\r
 376         Uy@W7@FUH72Uy@WJ_Fun@ZjOe0DMBuHUXjjj5yu1S0002UiCYjjjgaaa2USB4QRR1FgWK00W\r
 377         W753KIIYK_@@W75p799vD444yOOmQRRr000C0m@DE_V9zG6tZj1F_VmZ7M30P0C00YjGkMpT\r
 378         8un@Z7H_e1QeoX6A8Oh0RbBun@3Uy@W7@FekS0aaa4y8mH3qmIpDKJ3q1Qe5G00WW7@FQ0RG\r
 379         GGI6y8nT2eGmZaL3m1T2GGmZNr9G3r0GGmZd9X@@Fungw4e1VaaaV4GGmZKr904r0Gm00@7y\r
 380         u@1F_VmZ@7yu@1ezVmZ@7yOjrdqTmZ@7y8anow0G00WWJK6B99PmZbXbaa4199P4UY5yOo1d\r
 381         yVm9e6y8o1QiGmZ6t9m11F6Md074yu@1F_@00@7Gp@1RTUmZ@7yu@1F_@00D18008uaoY6ue\r
 382         u44CI5e3envhGw8uHI3EPxI690IIYImZX5KtQnmCTm9@t9WDHiM6IIIouIBBunnv0004yOP4\r
 383         RRR3Uy@W7@V00r0100C0m@LXaJ2QX5DWI1F68G00W0EBFun@3Uy@W7LEGm@xHuo6LGhYYe26\r
 384         _S30001dyVm9pWbaaian5889A5yuLO999Zmhi0evj@5R3ir@AAW8f232Uy@66A12PRRmZG08\r
 385         8RBunawYy0sssqx8MWjCIoW7jgJW3ijjbLoO2CrssU2m0RQca81nj3UCBc2001Fwbqa@@I69\r
 386         04@@V9Z6utVIAuHi08WjPRw0ean304KR7yen30yVan@7QWq1ezNmZ@7yu@1F_VmMs7qGsTIw\r
 387         H@6T4qGevCRLZ9Er5f6L7Onb2x4Ws51dKM9ZP4yuJ1rT2aaaaW7X2W00GGG_6Gp@1dWPi46K\r
 388         H12aWWaYju1baaanB6KD04G2IoAD0709H95Dm5WaWaY6uYQ0g8unF8080C0m5r0yImZfKoO1\r
 389         4400QS42I000DEk0G00vQ0A0WqsMmZRm0008un4GGijjZ81IijjBPS1qqssG2II4PRR7y86Q\r
 390         QRZ8199ejjjf603K8995y85KRRR3UK1ORRRs999pQCXW79GYPPRZZ7Onaai6W34QQRp099H2\r
 391         RJRD05mos6GIII0RRRhW7JGARRRmZW0GGIgaH4a0004yu2G0003Uq3200Ir0WWK00WW7xGIo\r
 392         @l@_aaI6L8uH6S@@FquO20V@@RSi0z@FaDEMW3999IyV@1Fg02_@@W71fan62US1Y0000ejj\r
 393         RSy0HG00DEM010esq0A0YjjTmZA0fjjL300GmZ@73JyhhZMq0SqM050200020044q@1F_V9Z\r
 394         oLGGP30u1400WW7pAEE42USBW4001rXLii@NG0W92eGe1MIG008eXFZK9faGI8dl52UaA20G\r
 395         01s_VmZlmIIIg7E24aab4yuLH3e0199XW7DA88LxVnsW7tEhe7G0006e15nMiImZK0IIGYaa\r
 396         0Ki5Eq5P41Qy299912I2254SHD09q9G44aa4YJOcyCm0404Gd0N0200GRRR23000Ct_@_aaa\r
 397         8rscAD3000ujj@@B9IIUQqsK0000mx@@V49991DjjjD0C8GG2asssK3W2scsqg1G1D000400\r
 398         0uV000J200OA00W4000aF000Z000O0000Y4999MTb90aaa4Waa4100W108Gaaa4XaaaQ0E09\r
 399         999899fQ001WH0m@JBW4000a00GI078000e1k3WaaaK4H359eGfX6K3G88000h1GX62EO003\r
 400         qsssoIIMc3999A1000jjjQpbiP9MIYay0000tcjj5Mijj8III20000ORRR3PPRP444a6W1ej\r
 401         ibh1O1RRBGr0OW6000o000S900W1000i500Gk000I2WD0AGIIIYRIBBEjjjwijjPtaa89Z4Y\r
 402         iPRhssRRssUIaaaALIIYPRRRKRRR39999iiaiWsssiqssgbaa49HoYi4RxQ0IGII6TD06810\r
 403         0m5000t200OM000J000a900Wi100ODGG350qca4800W4G2W1080QRIY0088089039S0WW0WA\r
 404         4E0IIIY880Wx4K0G00GG774M9101802QmW65MO8W20100i942808162W0991032G08G0Ws58\r
 405         0P0000WWW_08e6W3GG004oW2W000I3G10W04r0eGZ46a602BPMGd07e2ms4JIIY404Wp0A0a\r
 406         c68IIIexGCGffjPh4A0DjjLaaaKu47eqss_aX3Qfa0JRQar0aWQIIIC100TSI00000e899Y4\r
 407         0000aa81jjLRujhska499sV_@VRrssHpijDHIIIez@@7RRRRmsssC999Hu@@tFsscjfjjL88\r
 408         0n@@VD0ROJII2MIIYA999Y@99Isaa8Pza89JIYa4VYaaGRssMx_ssiPRRxBPRRdjjjj_@jDl\r
 409         sssCsssizssgjsscjHRxm35msss6ssscPRRR6RRRsORRh103RIIIQRRRjD99HkjjLxca49ps\r
 410         MjzRIaaORrsU04XdQ1Ery00W6mvCn9KJq0P4y8iXbOGAah5en@9ocsybOaSNB1f_VD0jysW5\r
 411         1QyV0DdlgH3Vjkmb7aKTm4X0SGW6r2X00u81CAleC2000f1Oo4AEqAd61Qe9408W0Ed9GGPY\r
 412         0e0WacanOkIKX25m9gnfTm80RCl36H3O1820W10i0G04GJJBcID41qmLCcH4OBV4aaaYjm29\r
 413         899zLq0898e_AMWWWaKD0808999GZN889Az6G11QK1191e0DcG2IIIW6FLZO21QK30110040\r
 414         Gv0G040G0004002080022K3GK;\r
 415     INTEGER CHECKSUM =54783;\r
 416 ENDDATA;\r
 417 \r
 418 \r
 419 PROCEDURE DO_EXIT USES GV;\r
 420     IRSTOP IRPAUSE;\r
 421     DRSTOP DRPAUSE;\r
 422     IRSCAN 8, $81;\r
 423     WAIT IDLE, 250 USEC;\r
 424     IRSCAN 8, $81, CAPTURE BUFF128[7..0];\r
 425     IF ( ! (BUFF128[2]==0) ) THEN GOTO Label_0;\r
 426     IRSTOP IRPAUSE;\r
 427     DRSTOP DRPAUSE;\r
 428     IRSCAN 8, $07;\r
 429     WAIT IDLE, 1 CYCLES;\r
 430     WAIT IDLE, 200 USEC;\r
 431     Label_0:\r
 432     IRSCAN 8, $ff;\r
 433     WAIT IDLE, 200 USEC;\r
 434     WAIT RESET, 3 CYCLES;\r
 435     EXIT STATUS;\r
 436 ENDPROC;\r
 437 \r
 438 PROCEDURE DO_READ_SECURITY USES GV;\r
 439     IRSTOP IRPAUSE;\r
 440     DRSTOP DRPAUSE;\r
 441     IRSCAN 8, $a4;\r
 442     WAIT IDLE, 3 CYCLES;\r
 443     DRSCAN 44, $00000000000, CAPTURE SECREG[];\r
 444     ULUWE = SECREG[ULUWE_BITLOCATION];\r
 445     ULARE = SECREG[ULARE_BITLOCATION];\r
 446     ULUPC = SECREG[ULUPC_BITLOCATION];\r
 447     ULUFE = SECREG[ULUFE_BITLOCATION];\r
 448     ULUFP = SECREG[ULUFP_BITLOCATION];\r
 449     ULUFJ = SECREG[ULUFJ_BITLOCATION];\r
 450     ULFLR = SECREG[ULFLR_BITLOCATION];\r
 451     ULULR = SECREG[ULULR_BITLOCATION];\r
 452     ULAWE = SECREG[ULAWE_BITLOCATION];\r
 453     ULARD = SECREG[ULARD_BITLOCATION];\r
 454     ULOPT[1] = SECREG[ULOPT1_BITLOCATION];\r
 455     ULOPT[0] = SECREG[ULOPT0_BITLOCATION];\r
 456 ENDPROC;\r
 457 \r
 458 PROCEDURE DO_OUTPUT_SECURITY USES GV;\r
 459     PRINT "Security Settings :";\r
 460     IF ( ! (ULUFP==1) ) THEN GOTO Label_1;\r
 461     PRINT "FlashROM Write/Erase protected by pass key.";\r
 462     Label_1:\r
 463     IF ( ! (ULUFJ==1) ) THEN GOTO Label_2;\r
 464     PRINT "FlashROM Read protected by pass key.";\r
 465     Label_2:\r
 466     IF ( ! (ULAWE==1) ) THEN GOTO Label_3;\r
 467     PRINT "Array Write/Erase protected by pass key.";\r
 468     Label_3:\r
 469     IF ( ! (ULARD==1) ) THEN GOTO Label_4;\r
 470     PRINT "Array Verify protected by pass key.";\r
 471     Label_4:\r
 472     IF ( ! (ULUFE==1) ) THEN GOTO Label_5;\r
 473     PRINT "Encrypted FlashROM Programming Enabled.";\r
 474     Label_5:\r
 475     IF ( ! (ULARE==1) ) THEN GOTO Label_6;\r
 476     PRINT "Encrypted FPGA Array Programming Enabled.";\r
 477     Label_6:\r
 478     PRINT "=========================================";\r
 479 ENDPROC;\r
 480 \r
 481 PROCEDURE DO_QUERY_SECURITY USES DO_READ_SECURITY,DO_OUTPUT_SECURITY;\r
 482     CALL DO_READ_SECURITY;\r
 483     CALL DO_OUTPUT_SECURITY;\r
 484 ENDPROC;\r
 485 \r
 486 PROCEDURE READ_UROW USES BITSTREAM,GV;\r
 487     IRSTOP IRPAUSE;\r
 488     DRSTOP DRPAUSE;\r
 489     IRSCAN 8, $c0;\r
 490     WAIT IDLE, 1 CYCLES;\r
 491     IRSTOP IRPAUSE;\r
 492     DRSTOP DRPAUSE;\r
 493     IRSCAN 8, $a8;\r
 494     WAIT IDLE, 3 CYCLES;\r
 495     WAIT IDLE, 165 USEC;\r
 496     DRSCAN 128, $00000000000000000000000000000000, CAPTURE UROW[];\r
 497     SUROWALGOVERSION[6..0] = $00;\r
 498     IF ( ! ( (UROW[5]==0)&&(UROW[0]==1)) ) THEN GOTO Label_7;\r
 499     SUROWALGOVERSION[5..4] = UROW[24..23];\r
 500     Label_7:\r
 501     IF ( ! ( (UROW[5]==1)&&(UROW[0]==0)) ) THEN GOTO Label_8;\r
 502     SUROWALGOVERSION[5..4] = UROW[24..23];\r
 503     SUROWALGOVERSION[6] = 1;\r
 504     Label_8:\r
 505     SUROWCHECKSUM[15..0] = UROW[127..112];\r
 506     SUROWCYCLECOUNT = INT(UROW[111..102]);\r
 507     SUROWDESIGNNAME[69..0] = UROW[101..32];\r
 508     SUROWPROGMETHOD[2..0] = UROW[31..29];\r
 509     SUROWALGOVERSION[3..0] = UROW[28..25];\r
 510     SUROW_PKG_TYPE[5..0] = UROW[22..17];\r
 511     SUROW_SW_VERSION[6..0] = UROW[16..10];\r
 512     SUROWPROGRAMSW[3..0] = UROW[9..6];\r
 513     SUROW_SRAM_DISTURB[0] = UROW[4];\r
 514     SUROW_SPEED_GRADE[2..0] = UROW[3..1];\r
 515     ACT_UROW_CYCLE_COUNT = SUROWCYCLECOUNT;\r
 516 ENDPROC;\r
 517 \r
 518 PROCEDURE FIX_INT_ARRAYS USES GV;\r
 519     IF ( ! (HEX[0]!=48) ) THEN GOTO Label_9;\r
 520     FOR I = 0 TO 7;\r
 521         TEMP = HEX[I];\r
 522         HEX[I] = HEX[(15-I)];\r
 523         HEX[(15-I)] = TEMP;\r
 524     NEXT I;\r
 525     Label_9:\r
 526     LABEL_SEPARATOR = 0;\r
 527 ENDPROC;\r
 528 \r
 529 PROCEDURE DISP_CHKSUM_DESIGN USES GV,FIX_INT_ARRAYS;\r
 530     CALL FIX_INT_ARRAYS;\r
 531     IF ( ! (INT(SUROWCHECKSUM[15..0])==65535) ) THEN GOTO Label_10;\r
 532     PRINT "CHECKSUM: ";\r
 533     Label_10:\r
 534     IF ( ! (INT(SUROWCHECKSUM[15..0])!=65535) ) THEN GOTO Label_11;\r
 535     PRINT "CHECKSUM: ",CHR$(HEX[INT(SUROWCHECKSUM[15..12])]),CHR$(HEX[INT(SUROWCHECKSUM[11..8])])\r
 536         ,CHR$(HEX[INT(SUROWCHECKSUM[7..4])]),CHR$(HEX[INT(SUROWCHECKSUM[3..0])]);\r
 537     Label_11:\r
 538     IF ( ! ( ( (INT(SUROWDESIGNNAME[0..30])==2147483647)&&(INT(SUROWDESIGNNAME[31..61])==2147483647))&&(INT(SUROWDESIGNNAME[62..69])==255)) ) THEN GOTO Label_12;\r
 539     PRINT "Design Name: ";\r
 540     Label_12:\r
 541     IF ( ! ( ( (INT(SUROWDESIGNNAME[0..30])!=2147483647)||(INT(SUROWDESIGNNAME[31..61])!=2147483647))||(INT(SUROWDESIGNNAME[62..69])!=255)) ) THEN GOTO Label_13;\r
 542     PRINT "Design Name: ",CHR$(INT(SUROWDESIGNNAME[63..69])),CHR$(INT(SUROWDESIGNNAME[56..62]))\r
 543         ,CHR$(INT(SUROWDESIGNNAME[49..55])),CHR$(INT(SUROWDESIGNNAME[42..48])),CHR$(INT(SUROWDESIGNNAME[35..41]))\r
 544         ,CHR$(INT(SUROWDESIGNNAME[28..34])),CHR$(INT(SUROWDESIGNNAME[21..27])),CHR$(INT(SUROWDESIGNNAME[14..20]))\r
 545         ,CHR$(INT(SUROWDESIGNNAME[7..13])),CHR$(INT(SUROWDESIGNNAME[0..6]));\r
 546     Label_13:\r
 547     LABEL_SEPARATOR = 0;\r
 548 ENDPROC;\r
 549 \r
 550 PROCEDURE DISPLAY_UROW USES BITSTREAM,CONSTBLOCK,GV,DISP_CHKSUM_DESIGN;\r
 551     EXPORT "USER_ROW", UROW[127..0];\r
 552     PRINT "User information: ";\r
 553     CALL DISP_CHKSUM_DESIGN;\r
 554     IF ( ! (FLAGDISPLAYCYC==1) ) THEN GOTO Label_14;\r
 555     PRINT "CYCLE COUNT: ",SUROWCYCLECOUNT;\r
 556     Label_14:\r
 557     INTEGER TMPINT =INT(SUROWPROGMETHOD[]);\r
 558     INTEGER TMPINT2 =0;\r
 559     INTEGER TMPINT3 =0;\r
 560     INTEGER TMPINT4 =0;\r
 561     INTEGER TMPINT5 =0;\r
 562     IF ( ! (TMPINT==IEEE1532) ) THEN GOTO Label_15;\r
 563     PRINT "Programming Method: IEEE1532";\r
 564     Label_15:\r
 565     IF ( ! (TMPINT==STAPL) ) THEN GOTO Label_16;\r
 566     PRINT "Programming Method: STAPL";\r
 567     Label_16:\r
 568     IF ( ! (TMPINT==DIRECTC) ) THEN GOTO Label_17;\r
 569     PRINT "Programming Method: DirectC";\r
 570     Label_17:\r
 571     IF ( ! (TMPINT==PDB) ) THEN GOTO Label_18;\r
 572     PRINT "Programming Method: PDB";\r
 573     Label_18:\r
 574     IF ( ! (TMPINT==SVF) ) THEN GOTO Label_19;\r
 575     PRINT "Programming Method: SVF";\r
 576     Label_19:\r
 577     PRINT "Algorithm Version: ",INT(SUROWALGOVERSION[6..0]);\r
 578     TMPINT = INT(SUROW_SPEED_GRADE[]);\r
 579     IF ( ! (TMPINT==GRADE_UNSPEC) ) THEN GOTO Label_20;\r
 580     PRINT "Device Speed Grade: speed grade information not available from device";\r
 581     Label_20:\r
 582     IF ( ! (TMPINT==GRADE_1) ) THEN GOTO Label_21;\r
 583     PRINT "Device Speed Grade: -1";\r
 584     Label_21:\r
 585     IF ( ! (TMPINT==GRADE_2) ) THEN GOTO Label_22;\r
 586     PRINT "Device Speed Grade: -2";\r
 587     Label_22:\r
 588     IF ( ! (TMPINT==GRADE_3) ) THEN GOTO Label_23;\r
 589     PRINT "Device Speed Grade: -3";\r
 590     Label_23:\r
 591     IF ( ! (TMPINT==GRADE_F) ) THEN GOTO Label_24;\r
 592     PRINT "Device Speed Grade: -F";\r
 593     Label_24:\r
 594     IF ( ! (TMPINT==GRADE_STD) ) THEN GOTO Label_25;\r
 595     PRINT "Device Speed Grade: STD";\r
 596     Label_25:\r
 597     IF ( ! (TMPINT==GRADE_4) ) THEN GOTO Label_26;\r
 598     PRINT "Device Speed Grade: -4";\r
 599     Label_26:\r
 600     IF ( ! (TMPINT==GRADE_UNDEF) ) THEN GOTO Label_27;\r
 601     PRINT "Device Speed Grade: speed grade information not available from device";\r
 602     Label_27:\r
 603     TMPINT = INT(SUROWPROGRAMSW[]);\r
 604     IF ( ! (TMPINT==FP) ) THEN GOTO Label_28;\r
 605     PRINT "Programmer: FlashPro";\r
 606     Label_28:\r
 607     IF ( ! (TMPINT==FPLITE) ) THEN GOTO Label_29;\r
 608     PRINT "Programmer: FlashPro Lite";\r
 609     Label_29:\r
 610     IF ( ! (TMPINT==FP3) ) THEN GOTO Label_30;\r
 611     PRINT "Programmer: FlashPro3";\r
 612     Label_30:\r
 613     IF ( ! (TMPINT==FP4) ) THEN GOTO Label_31;\r
 614     PRINT "Programmer: FlashPro4";\r
 615     Label_31:\r
 616     IF ( ! (TMPINT==SCULPTW) ) THEN GOTO Label_32;\r
 617     PRINT "Programmer: Sculptor WIN";\r
 618     Label_32:\r
 619     IF ( ! (TMPINT==BPW) ) THEN GOTO Label_33;\r
 620     PRINT "Programmer: BP Programmer";\r
 621     Label_33:\r
 622     IF ( ! (TMPINT==DIRECTCP) ) THEN GOTO Label_34;\r
 623     PRINT "Programmer: DirectC";\r
 624     Label_34:\r
 625     IF ( ! (TMPINT==STP) ) THEN GOTO Label_35;\r
 626     PRINT "Programmer: Actel JAM Player";\r
 627     Label_35:\r
 628     IF ( ! ( ( ( (TMPINT==FP)||(TMPINT==FPLITE))||(TMPINT==FP3))||(TMPINT==FP4)) ) THEN GOTO Label_51;\r
 629     TMPINT2 = INT(SUROW_SW_VERSION[]);\r
 630     IF ( ! (TMPINT2==FP33) ) THEN GOTO Label_36;\r
 631     PRINT "Software: FlashPro v3.3";\r
 632     Label_36:\r
 633     IF ( ! (TMPINT2==FP34) ) THEN GOTO Label_37;\r
 634     PRINT "Software: FlashPro v3.4";\r
 635     Label_37:\r
 636     IF ( ! (TMPINT2==FP40) ) THEN GOTO Label_38;\r
 637     PRINT "Software: FlashPro v4.0";\r
 638     Label_38:\r
 639     IF ( ! (TMPINT2==FP41) ) THEN GOTO Label_39;\r
 640     PRINT "Software: FlashPro v4.1";\r
 641     Label_39:\r
 642     IF ( ! (TMPINT2==FP42) ) THEN GOTO Label_40;\r
 643     PRINT "Software: FlashPro v4.2";\r
 644     Label_40:\r
 645     IF ( ! (TMPINT2==FP50) ) THEN GOTO Label_41;\r
 646     PRINT "Software: FlashPro v5.0";\r
 647     Label_41:\r
 648     IF ( ! (TMPINT2==FP51) ) THEN GOTO Label_42;\r
 649     PRINT "Software: FlashPro v5.1";\r
 650     Label_42:\r
 651     IF ( ! (TMPINT2==FP60) ) THEN GOTO Label_43;\r
 652     PRINT "Software: FlashPro v6.0";\r
 653     Label_43:\r
 654     IF ( ! (TMPINT2==FP61) ) THEN GOTO Label_44;\r
 655     PRINT "Software: FlashPro v6.1";\r
 656     Label_44:\r
 657     IF ( ! (TMPINT2==FP62) ) THEN GOTO Label_45;\r
 658     PRINT "Software: FlashPro v6.2";\r
 659     Label_45:\r
 660     IF ( ! (TMPINT2==FP84) ) THEN GOTO Label_46;\r
 661     PRINT "Software: FlashPro v8.4";\r
 662     Label_46:\r
 663     IF ( ! (TMPINT2==FP85) ) THEN GOTO Label_47;\r
 664     PRINT "Software: FlashPro v8.5";\r
 665     Label_47:\r
 666     IF ( ! (TMPINT2==FP86) ) THEN GOTO Label_48;\r
 667     PRINT "Software: FlashPro v8.6";\r
 668     Label_48:\r
 669     IF ( ! (TMPINT2==FP90) ) THEN GOTO Label_49;\r
 670     PRINT "Software: FlashPro v9.0";\r
 671     Label_49:\r
 672     IF ( ! (TMPINT2==FP91) ) THEN GOTO NOT_FP91;\r
 673     PRINT "Software: FlashPro v9.1";\r
 674     NOT_FP91:\r
 675     IF ( ! (TMPINT2==FP100) ) THEN GOTO NOT_FP100;\r
 676     PRINT "Software: FlashPro v10.0";\r
 677     NOT_FP100:\r
 678     IF ( ! (TMPINT2==FP_11) ) THEN GOTO NOT_FP_11;\r
 679     PRINT "Software: FlashPro v11.0";\r
 680     NOT_FP_11:\r
 681     IF ( ! (TMPINT2==FP_11_1) ) THEN GOTO NOT_FP_11_1;\r
 682     PRINT "Software: FlashPro v11.1";\r
 683     NOT_FP_11_1:\r
 684     IF ( ! (TMPINT2==FP_11_2) ) THEN GOTO NOT_FP_11_2;\r
 685     PRINT "Software: FlashPro v11.2";\r
 686     NOT_FP_11_2:\r
 687     IF ( ! (TMPINT2==FP_11_3) ) THEN GOTO NOT_FP_11_3;\r
 688     PRINT "Software: FlashPro v11.3";\r
 689     NOT_FP_11_3:\r
 690     IF ( ! (TMPINT2==UNKNOWN) ) THEN GOTO Label_50;\r
 691     PRINT "Software: FlashPro vX.X";\r
 692     Label_50:\r
 693     LABEL_SEPARATOR = 0;\r
 694     Label_51:\r
 695     IF ( ! ( (TMPINT==SCULPTW)||(TMPINT==BPW)) ) THEN GOTO Label_55;\r
 696     TMPINT3 = (INT(SUROW_SW_VERSION[6..5])+SCULPTORMAJORBASE);\r
 697     TMPINT4 = (INT(SUROW_SW_VERSION[4..1])+SCULPTORMINORBASE);\r
 698     TMPINT5 = 0;\r
 699     IF ( ! (SUROW_SW_VERSION[0]==1) ) THEN GOTO Label_52;\r
 700     TMPINT5 = 1;\r
 701     Label_52:\r
 702     INTEGER CURRPGM =INT(ACT_UROW_PROGRAM_SW[3..0]);\r
 703     IF ( ! (TMPINT==SCULPTW) ) THEN GOTO Label_53;\r
 704     IF ( ! ( (CURRPGM==FP3)||(CURRPGM==FP4)) ) THEN GOTO NOT_FP3_FP4;\r
 705     PRINT "NOTE: The Sculptor Windows version number below should be converted to HEX.";\r
 706     NOT_FP3_FP4:\r
 707     PRINT "Software: Sculptor Win v",TMPINT3,".",TMPINT4,".",TMPINT5;\r
 708     Label_53:\r
 709     IF ( ! (TMPINT==BPW) ) THEN GOTO Label_54;\r
 710     IF ( ! ( (CURRPGM==FP3)||(CURRPGM==FP4)) ) THEN GOTO NOT_FP3_FP4_BPW;\r
 711     PRINT "NOTE: The BP Windows version number below should be converted to HEX.";\r
 712     NOT_FP3_FP4_BPW:\r
 713     PRINT "Software: BP Win v",TMPINT3,".",TMPINT4,".",TMPINT5;\r
 714     Label_54:\r
 715     LABEL_SEPARATOR = 0;\r
 716     Label_55:\r
 717     PRINT "=========================================";\r
 718 ENDPROC;\r
 719 \r
 720 PROCEDURE READ_F_ROW USES GV;\r
 721     IRSTOP IRPAUSE;\r
 722     DRSTOP DRPAUSE;\r
 723     IRSCAN 8, $c0;\r
 724     WAIT IDLE, 1 CYCLES;\r
 725     IRSTOP IRPAUSE;\r
 726     DRSTOP DRPAUSE;\r
 727     IRSCAN 8, $f9;\r
 728     DRSCAN 3, FADDR[];\r
 729     WAIT IDLE, 1 CYCLES;\r
 730     IRSTOP IRPAUSE;\r
 731     DRSTOP DRPAUSE;\r
 732     IRSCAN 8, $bf;\r
 733     WAIT IDLE, 3 CYCLES;\r
 734     WAIT IDLE, 165 USEC;\r
 735     DRSCAN 128, $00000000000000000000000000000000, CAPTURE BUFF128[];\r
 736 ENDPROC;\r
 737 \r
 738 PROCEDURE DO_DEVICE_INFO USES GV,READ_UROW,DISPLAY_UROW,READ_F_ROW;\r
 739     IRSTOP IRPAUSE;\r
 740     DRSTOP DRPAUSE;\r
 741     IRSCAN 8, $0e;\r
 742     WAIT IDLE, 1 CYCLES;\r
 743     DRSCAN 32, $00000000, CAPTURE BUFF32[];\r
 744     EXPORT "SILSIG", BUFF32[];\r
 745     IRSCAN 8, $84, CAPTURE BUFF128[7..0];\r
 746     IF ( ! (BUFF128[2]==1) ) THEN GOTO CORE_NOT_ENABLED;\r
 747     PRINT "FPGA Array is programmed and enabled.";\r
 748     CORE_NOT_ENABLED:\r
 749     IF ( ! (BUFF128[2]==0) ) THEN GOTO CORE_ENABLED;\r
 750     PRINT "FPGA Array is not enabled.";\r
 751     CORE_ENABLED:\r
 752     CALL READ_UROW;\r
 753     CALL DISPLAY_UROW;\r
 754     FADDR[] = $0;\r
 755     CALL READ_F_ROW;\r
 756     EXPORT "FSN", BUFF128[55..8];\r
 757     PRINT "=========================================";\r
 758 ENDPROC;\r
 759 \r
 760 PROCEDURE INIT_AES;\r
 761     IRSTOP IRPAUSE;\r
 762     DRSTOP DRPAUSE;\r
 763     IRSCAN 8, $dd;\r
 764     DRSCAN 128, $00000000000000000000000000000000;\r
 765     WAIT IDLE, 3 CYCLES;\r
 766     WAIT IDLE, 165 USEC;\r
 767 ENDPROC;\r
 768 \r
 769 PROCEDURE DO_VERIFY_DEVICE_INFO USES GV,BITSTREAM,DO_EXIT,DO_READ_SECURITY,READ_UROW\r
 770     ,DISP_CHKSUM_DESIGN;\r
 771     CALL READ_UROW;\r
 772     CALL DISP_CHKSUM_DESIGN;\r
 773     CALL DO_READ_SECURITY;\r
 774     BUFF32[31..0] = BOOL(CHECKSUM);\r
 775     UROW[127..112] = BUFF32[15..0];\r
 776     UROW[101..32] = ACT_UROW_DESIGN_NAME[69..0];\r
 777     IRSTOP IRPAUSE;\r
 778     DRSTOP DRPAUSE;\r
 779     IRSCAN 8, $c0;\r
 780     WAIT IDLE, 1 CYCLES;\r
 781     IRSTOP IRPAUSE;\r
 782     DRSTOP DRPAUSE;\r
 783     IRSCAN 8, $a8;\r
 784     WAIT IDLE, 3 CYCLES;\r
 785     WAIT IDLE, 165 USEC;\r
 786     DRSCAN 128, $00000000000000000000000000000000,COMPARE UROW[],$ffff003fffffffffffffffff00000000\r
 787         ,PASS;\r
 788     IF ( ! (PASS==0) ) THEN GOTO UROW_CMP_OK;\r
 789     STATUS = -43;\r
 790     PRINT "Failed to verify design information.";\r
 791     UNIQUEEXITCODE = 32772;\r
 792     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 793     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 794     CALL DO_EXIT;\r
 795     UROW_CMP_OK:\r
 796     LABEL_SEPARATOR = 0;\r
 797 ENDPROC;\r
 798 \r
 799 PROCEDURE READ_IDCODE_ONLY USES GV;\r
 800     IRSTOP IRPAUSE;\r
 801     DRSTOP DRPAUSE;\r
 802     IRSCAN 8, $0f;\r
 803     WAIT IDLE, 1 CYCLES;\r
 804     DRSCAN 32, $00000000, CAPTURE ID[];\r
 805     EXPORT "IDCODE", ID[];\r
 806 ENDPROC;\r
 807 \r
 808 PROCEDURE VERIFY_RLOCK USES GV;\r
 809     IRSCAN 8, $84,COMPARE $04,$04,PASS;\r
 810 ENDPROC;\r
 811 \r
 812 PROCEDURE DO_VERIFY_PGM_RLOCK USES GV,DO_EXIT,VERIFY_RLOCK;\r
 813     CALL VERIFY_RLOCK;\r
 814     IF ( ! (PASS==0) ) THEN GOTO RLOCK_PGM_PASS;\r
 815     STATUS = 10;\r
 816     PRINT "Failed to enable FPGA Array.";\r
 817     UNIQUEEXITCODE = 32891;\r
 818     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 819     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 820     CALL DO_EXIT;\r
 821     RLOCK_PGM_PASS:\r
 822     LABEL_SEPARATOR = 0;\r
 823 ENDPROC;\r
 824 \r
 825 PROCEDURE DO_VERIFY_RLOCK USES GV,DO_EXIT,VERIFY_RLOCK;\r
 826     CALL VERIFY_RLOCK;\r
 827     IF ( ! (PASS==0) ) THEN GOTO RLOCK_VERIFY_PASS;\r
 828     STATUS = 11;\r
 829     PRINT "FPGA Array is not enabled.";\r
 830     UNIQUEEXITCODE = 32892;\r
 831     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 832     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 833     CALL DO_EXIT;\r
 834     RLOCK_VERIFY_PASS:\r
 835     LABEL_SEPARATOR = 0;\r
 836 ENDPROC;\r
 837 \r
 838 PROCEDURE VERIFY_ID_DMK USES GV,DO_EXIT,INIT_AES;\r
 839     CALL INIT_AES;\r
 840     IRSTOP IRPAUSE;\r
 841     DRSTOP DRPAUSE;\r
 842     IRSCAN 8, $0a;\r
 843     DRSCAN 128, M7BUFF[];\r
 844     WAIT IDLE, 3 CYCLES;\r
 845     WAIT IDLE, 90 USEC;\r
 846     DRSCAN 128, $00000000000000000000000000000000, CAPTURE BUFF128[],COMPARE $c0000000000000000000000000000000\r
 847         ,$c0000000000000000000000000000000,PASS;\r
 848     IF ( ! (BUFF128[127]==0) ) THEN GOTO M7VERDONE;\r
 849     STATUS = -31;\r
 850     PRINT "Failed to verify AES Sec.";\r
 851     UNIQUEEXITCODE = 32775;\r
 852     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 853     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 854     CALL DO_EXIT;\r
 855     M7VERDONE:\r
 856     IF ( ! ( (BUFF128[126]==0)||(BM7DEVICE==0)) ) THEN GOTO MXIDOK;\r
 857     IF ( ! ( (BUFF128[126]==1)&&(BM7DEVICE==0)) ) THEN GOTO LDETECTM1;\r
 858     STATUS = 6;\r
 859     PRINT "Failed to verify IDCODE.";\r
 860     PRINT "Target is an M7 device.";\r
 861     UNIQUEEXITCODE = 32776;\r
 862     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 863     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 864     CALL DO_EXIT;\r
 865     LDETECTM1:\r
 866     IF ( ! (BUFF128[126]==0) ) THEN GOTO Label_58;\r
 867     IRSTOP IRPAUSE;\r
 868     DRSTOP DRPAUSE;\r
 869     IRSCAN 8, $0a;\r
 870     DRSCAN 128, M1BUFF[];\r
 871     WAIT IDLE, 3 CYCLES;\r
 872     WAIT IDLE, 90 USEC;\r
 873     DRSCAN 128, $00000000000000000000000000000000, CAPTURE BUFF128[],COMPARE $c0000000000000000000000000000000\r
 874         ,$c0000000000000000000000000000000,PASS;\r
 875     IF ( ! (BUFF128[127]==0) ) THEN GOTO M1VERDONE;\r
 876     STATUS = -31;\r
 877     PRINT "Failed to verify AES Sec.";\r
 878     UNIQUEEXITCODE = 32777;\r
 879     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 880     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 881     CALL DO_EXIT;\r
 882     M1VERDONE:\r
 883     BOOLEAN BTMPBUFFBIT126 = BUFF128[126];\r
 884     IF ( ! ( (BTMPBUFFBIT126==1)&&(BM1DEVICE==0)) ) THEN GOTO REGDEV;\r
 885     STATUS = 6;\r
 886     PRINT "Failed to verify IDCODE.";\r
 887     PRINT "Target is an M1 device.";\r
 888     UNIQUEEXITCODE = 32778;\r
 889     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 890     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 891     CALL DO_EXIT;\r
 892     REGDEV:\r
 893     IF ( ! ( (BTMPBUFFBIT126==0)&&(BM7DEVICE==1)) ) THEN GOTO Label_56;\r
 894     STATUS = 6;\r
 895     PRINT "Failed to verify IDCODE.";\r
 896     PRINT "The Target is not an M7 Device.";\r
 897     UNIQUEEXITCODE = 32781;\r
 898     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 899     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 900     CALL DO_EXIT;\r
 901     Label_56:\r
 902     IF ( ! ( (BTMPBUFFBIT126==0)&&(BM1DEVICE==1)) ) THEN GOTO Label_57;\r
 903     STATUS = 6;\r
 904     PRINT "Failed to verify IDCODE.";\r
 905     PRINT "The Target is not an M1 Device.";\r
 906     UNIQUEEXITCODE = 32782;\r
 907     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 908     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 909     CALL DO_EXIT;\r
 910     Label_57:\r
 911     LABEL_SEPARATOR = 0;\r
 912     Label_58:\r
 913     LABEL_SEPARATOR = 0;\r
 914     MXIDOK:\r
 915     LABEL_SEPARATOR = 0;\r
 916 ENDPROC;\r
 917 \r
 918 PROCEDURE VERIFY_IDCODE USES GV,PARAMETERS,DO_EXIT;\r
 919     FREQUENCY (FREQ*1000000);\r
 920     WAIT RESET, 5 CYCLES;\r
 921     IRSTOP IRPAUSE;\r
 922     DRSTOP DRPAUSE;\r
 923     IRSCAN 8, $0f;\r
 924     DRSCAN 32, $00000000;\r
 925     WAIT IDLE, 1 CYCLES;\r
 926     DRSCAN 32, $00000000, CAPTURE ID[],COMPARE IDCODEVALUE[],IDMASK[],PASS;\r
 927     IF ( ! (PASS==0) ) THEN GOTO IDOK;\r
 928     STATUS = 6;\r
 929     PRINT "Failed to verify IDCODE";\r
 930     UNIQUEEXITCODE = 32797;\r
 931     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 932     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 933     CALL DO_EXIT;\r
 934     IDOK:\r
 935     IDREV = INT(ID[31..28]);\r
 936     IDFAB = INT(ID[24..24]);\r
 937 ENDPROC;\r
 938 \r
 939 PROCEDURE IS_SECOK USES GV,DO_EXIT;\r
 940     IF ( ! (SECKEY_OK==0) ) THEN GOTO SECOK;\r
 941     STATUS = -35;\r
 942     PRINT "Failed to match pass key.";\r
 943     UNIQUEEXITCODE = 32799;\r
 944     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 945     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 946     CALL DO_EXIT;\r
 947     SECOK:\r
 948     LABEL_SEPARATOR = 0;\r
 949 ENDPROC;\r
 950 \r
 951 PROCEDURE DO_CHECK_R USES GV,DO_EXIT,DO_READ_SECURITY;\r
 952     CALL DO_READ_SECURITY;\r
 953     IF ( ! (ULARE==1) ) THEN GOTO ARRAYEPR;\r
 954     STATUS = -33;\r
 955     PRINT "FPGA Array Encryption is enforced. Plain text verification is prohibited.";\r
 956     UNIQUEEXITCODE = 32800;\r
 957     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 958     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 959     CALL DO_EXIT;\r
 960     ARRAYEPR:\r
 961     IF ( ! (ULARD==1) ) THEN GOTO SKIPRCHK1;\r
 962     STATUS = -30;\r
 963     PRINT "FPGA Array Verification is protected by pass key.";\r
 964     PRINT "A valid pass key needs to be provided.";\r
 965     UNIQUEEXITCODE = 32804;\r
 966     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 967     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 968     CALL DO_EXIT;\r
 969     SKIPRCHK1:\r
 970     IF ( ! (ULARD==0) ) THEN GOTO Label_59;\r
 971     CHKSEC = 0;\r
 972     Label_59:\r
 973     LABEL_SEPARATOR = 0;\r
 974 ENDPROC;\r
 975 \r
 976 PROCEDURE DO_CHECK_W USES GV,DO_EXIT,DO_READ_SECURITY;\r
 977     CALL DO_READ_SECURITY;\r
 978     IF ( ! (ULAWE==1) ) THEN GOTO ARRAYWP;\r
 979     STATUS = -28;\r
 980     PRINT "FPGA Array Write/Erase is protected by pass key.";\r
 981     PRINT "A valid pass key needs to be provided.";\r
 982     UNIQUEEXITCODE = 32805;\r
 983     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 984     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 985     CALL DO_EXIT;\r
 986     ARRAYWP:\r
 987     IF ( ! (ULARD==1) ) THEN GOTO ARRAYRPW;\r
 988     STATUS = -30;\r
 989     PRINT "FPGA Array Verification is protected by pass key.";\r
 990     PRINT "A valid pass key needs to be provided.";\r
 991     UNIQUEEXITCODE = 32806;\r
 992     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
 993     EXPORT "ERROR_CODE", BUFF128[15..0];\r
 994     CALL DO_EXIT;\r
 995     ARRAYRPW:\r
 996     IF ( ! (ULARE==1) ) THEN GOTO ARRAYEPW;\r
 997     STATUS = -33;\r
 998     PRINT "FPGA Array Encryption is enforced. Plain text programming is prohibited.";\r
 999     CALL DO_EXIT;\r
1000     ARRAYEPW:\r
1001     LABEL_SEPARATOR = 0;\r
1002 ENDPROC;\r
1003 \r
1004 PROCEDURE BP_VER USES GV;\r
1005     BOOLEAN PLAYER_VERSION_BOOLEAN[32];\r
1006     PLAYER_VERSION_BOOLEAN[31..0] = BOOL(PLAYERVERSIONVARIABLE);\r
1007     INTEGER PLAYER_MAJOR_VERSION =(INT(PLAYER_VERSION_BOOLEAN[23..16])-SCULPTORMAJORBASE);\r
1008     INTEGER PLAYER_MINOR_VERSION =(INT(PLAYER_VERSION_BOOLEAN[15..8])-SCULPTORMINORBASE);\r
1009     ACT_UROW_SW_VERSION[6..5] = BOOL(PLAYER_MAJOR_VERSION);\r
1010     ACT_UROW_SW_VERSION[4..1] = BOOL(PLAYER_MINOR_VERSION);\r
1011     ACT_UROW_SW_VERSION[0] = PLAYER_VERSION_BOOLEAN[0];\r
1012     ACT_UROW_PROGRAM_SW[3..0] = BOOL(PLAYERVERSIONSWVARIABLE);\r
1013 ENDPROC;\r
1014 \r
1015 PROCEDURE POLL_PROGRAM USES GV;\r
1016     INTEGER ILOOP_0;\r
1017     FOR ILOOP_0 = 16381 - 1 TO 0 STEP -1;\r
1018         IRSTOP IRPAUSE;\r
1019         DRSTOP DRPAUSE;\r
1020         IRSCAN 8, $84;\r
1021         WAIT IDLE, 1 CYCLES;\r
1022         WAIT IDLE, 100 USEC;\r
1023         DRSCAN 5, $00,COMPARE $00,$0b,PASS;\r
1024         IF PASS THEN ILOOP_0 = 0;\r
1025     NEXT ILOOP_0;\r
1026 ENDPROC;\r
1027 \r
1028 PROCEDURE SET_PRG_ARRAY USES GV;\r
1029     ISPRGARRAY = 1;\r
1030 ENDPROC;\r
1031 \r
1032 PROCEDURE DO_INITIALIZE USES GV,DO_EXIT,READ_F_ROW,VERIFY_ID_DMK,DO_CHECK_R,DO_CHECK_W\r
1033     ,BP_VER;\r
1034     IRSTOP IRPAUSE;\r
1035     DRSTOP DRPAUSE;\r
1036     IRSCAN 8, $7f;\r
1037     WAIT IDLE, 3 CYCLES;\r
1038     WAIT IDLE, 50 USEC;\r
1039     BSR[563..0] = BSRPATTERN[563..0];\r
1040     BOOLEAN SHIFT_DATA[564];\r
1041     IRSCAN 8, $01;\r
1042     DRSCAN 564, BSR[];\r
1043     WAIT IDLE, 1 CYCLES;\r
1044     DRSCAN 564, SHIFT_DATA[], CAPTURE SAMPLE_DEVICE[];\r
1045     FOR I = 0 TO 563;\r
1046         IF ( ! (SAMPLEMASK[I]==1) ) THEN GOTO Label_60;\r
1047         BSR[I] = SAMPLE_DEVICE[I];\r
1048         Label_60:\r
1049         LABEL_SEPARATOR = 0;\r
1050     NEXT I;\r
1051     IRSTOP IRPAUSE;\r
1052     DRSTOP DRPAUSE;\r
1053     IRSCAN 8, $01;\r
1054     DRSCAN 564, BSR[];\r
1055     WAIT IDLE, 1 CYCLES;\r
1056     IRSTOP IRPAUSE;\r
1057     DRSTOP DRPAUSE;\r
1058     IRSCAN 8, $c0;\r
1059     WAIT IDLE, 1 CYCLES;\r
1060     IRSTOP IRPAUSE;\r
1061     DRSTOP DRPAUSE;\r
1062     IRSCAN 8, $80;\r
1063     DRSCAN 18, $00000;\r
1064     WAIT IDLE, 3 CYCLES;\r
1065     WAIT IDLE, 1875 USEC;\r
1066     DRSCAN 18, $00000, CAPTURE ISC_CONFIG_RESULT[],COMPARE $30000,$30000,PASS;\r
1067     IF ( ! (PASS==0) ) THEN GOTO CRCOK;\r
1068     STATUS = 5;\r
1069     PRINT "Failed to enter programming mode.";\r
1070     EXPORT "ISC_Config_Result", ISC_CONFIG_RESULT[];\r
1071     UNIQUEEXITCODE = 32850;\r
1072     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1073     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1074     CALL DO_EXIT;\r
1075     CRCOK:\r
1076     FADDR[] = $0;\r
1077     CALL READ_F_ROW;\r
1078     EXPORT "FSN", BUFF128[55..8];\r
1079     CALL VERIFY_ID_DMK;\r
1080     IF ( ! (CHKARRAY==1) ) THEN GOTO SKIPCHKARRAY;\r
1081     IF ( ! (ARRAYRONLY==0) ) THEN GOTO Label_61;\r
1082     CALL DO_CHECK_W;\r
1083     Label_61:\r
1084     IF ( ! (ARRAYRONLY==1) ) THEN GOTO Label_62;\r
1085     CALL DO_CHECK_R;\r
1086     Label_62:\r
1087     LABEL_SEPARATOR = 0;\r
1088     SKIPCHKARRAY:\r
1089     IF ( ! (PLAYERVERSIONVARIABLE!=0) ) THEN GOTO Label_63;\r
1090     CALL BP_VER;\r
1091     Label_63:\r
1092     LABEL_SEPARATOR = 0;\r
1093 ENDPROC;\r
1094 \r
1095 PROCEDURE READ_INITIALIZE USES GV,DO_INITIALIZE;\r
1096     CHKFROM = 0;\r
1097     CHKARRAY = 0;\r
1098     CHKNVM = 0;\r
1099     CHKSEC = 0;\r
1100     CALL DO_INITIALIZE;\r
1101 ENDPROC;\r
1102 \r
1103 PROCEDURE NW_INITIALIZE_COMMON USES GV;\r
1104     CHKFROM = 0;\r
1105     CHKARRAY = 0;\r
1106 ENDPROC;\r
1107 \r
1108 PROCEDURE NW_INITIALIZE USES DO_INITIALIZE,NW_INITIALIZE_COMMON;\r
1109     CALL NW_INITIALIZE_COMMON;\r
1110     CALL DO_INITIALIZE;\r
1111 ENDPROC;\r
1112 \r
1113 PROCEDURE NR_INITIALIZE_COMMON USES GV;\r
1114     CHKFROM = 0;\r
1115     CHKARRAY = 0;\r
1116 ENDPROC;\r
1117 \r
1118 PROCEDURE NR_INITIALIZE USES DO_INITIALIZE,NR_INITIALIZE_COMMON;\r
1119     CALL NR_INITIALIZE_COMMON;\r
1120     CALL DO_INITIALIZE;\r
1121 ENDPROC;\r
1122 \r
1123 PROCEDURE AW_INITIALIZE USES GV,DO_INITIALIZE;\r
1124     ARRAYRONLY = 0;\r
1125     CHKFROM = 0;\r
1126     CHKARRAY = 1;\r
1127     CHKNVM = 0;\r
1128     CALL DO_INITIALIZE;\r
1129 ENDPROC;\r
1130 \r
1131 PROCEDURE AR_INITIALIZE USES GV,DO_INITIALIZE;\r
1132     ARRAYRONLY = 1;\r
1133     CHKFROM = 0;\r
1134     CHKARRAY = 1;\r
1135     CHKNVM = 0;\r
1136     CALL DO_INITIALIZE;\r
1137 ENDPROC;\r
1138 \r
1139 PROCEDURE W_INITIALIZE USES GV,DO_INITIALIZE;\r
1140     ARRAYRONLY = 0;\r
1141     CHKARRAY = 1;\r
1142     CALL DO_INITIALIZE;\r
1143 ENDPROC;\r
1144 \r
1145 PROCEDURE R_INITIALIZE USES GV,DO_INITIALIZE;\r
1146     ARRAYRONLY = 1;\r
1147     CHKARRAY = 1;\r
1148     CALL DO_INITIALIZE;\r
1149 ENDPROC;\r
1150 \r
1151 PROCEDURE INITIALIZE USES GV,DO_INITIALIZE;\r
1152     ARRAYRONLY = 0;\r
1153     FROMRONLY = 0;\r
1154     CHKFROM = 1;\r
1155     CHKARRAY = 1;\r
1156     CALL DO_INITIALIZE;\r
1157 ENDPROC;\r
1158 \r
1159 PROCEDURE POLL_ERASE USES GV;\r
1160     PASS = 0;\r
1161     INTEGER ILOOP_1;\r
1162     FOR ILOOP_1 = 262141 - 1 TO 0 STEP -1;\r
1163         IRSTOP IRPAUSE;\r
1164         DRSTOP DRPAUSE;\r
1165         IRSCAN 8, $84;\r
1166         WAIT IDLE, 1 CYCLES;\r
1167         WAIT IDLE, 1000 USEC;\r
1168         DRSCAN 5, $00,COMPARE $00,$03,PASS;\r
1169         IF PASS THEN ILOOP_1 = 0;\r
1170     NEXT ILOOP_1;\r
1171 ENDPROC;\r
1172 \r
1173 PROCEDURE UFROM_DISTURB USES GV;\r
1174     FOR FROMROWNUMBER = NUMBEROFFROMROWS TO 1 STEP -1;\r
1175         IRSTOP IRPAUSE;\r
1176         DRSTOP DRPAUSE;\r
1177         IRSCAN 8, $9f;\r
1178         DRSCAN 3, BOOL((FROMROWNUMBER-1));\r
1179         WAIT IDLE, 1 CYCLES;\r
1180         IRSTOP IRPAUSE;\r
1181         DRSTOP DRPAUSE;\r
1182         IRSCAN 8, $9b;\r
1183         DRSCAN 128, $ffffffffffffffffffffffffffffffff;\r
1184         WAIT IDLE, 5 CYCLES;\r
1185         WAIT IDLE, 10000 USEC;\r
1186     NEXT FROMROWNUMBER;\r
1187 ENDPROC;\r
1188 \r
1189 PROCEDURE PROGRAM_UROW USES GV,BITSTREAM,DO_EXIT,POLL_PROGRAM;\r
1190     IF ( ! (ISERASEONLY==0) ) THEN GOTO SKIP_CYC_INCREMENT;\r
1191     IF ( ! (ISPRGARRAY==1) ) THEN GOTO NOT_PGM_ARRAY;\r
1192     IF ( ! ( ( ( (INT(UROW[31..0])==-1)&&(INT(UROW[63..32])==-1))&&(INT(UROW[95..64])==-1))&&(INT(UROW[127..96])==-1)) ) THEN GOTO NOT_CORRUPTED_CYCLE_COUNT;\r
1193     ACT_UROW_CYCLE_COUNT = 0;\r
1194     NOT_CORRUPTED_CYCLE_COUNT:\r
1195     IF ( ! (ACT_UROW_CYCLE_COUNT<1000) ) THEN GOTO MAX_CYCLE_COUNT;\r
1196     ACT_UROW_CYCLE_COUNT = (ACT_UROW_CYCLE_COUNT+1);\r
1197     MAX_CYCLE_COUNT:\r
1198     LABEL_SEPARATOR = 0;\r
1199     NOT_PGM_ARRAY:\r
1200     LABEL_SEPARATOR = 0;\r
1201     SKIP_CYC_INCREMENT:\r
1202     IF ( ! (ISERASEONLY==1) ) THEN GOTO Label_64;\r
1203     UROW[] = $ffffffffffffffffffffffffffffffff;\r
1204     Label_64:\r
1205     IF ( ! ( (ISERASEONLY==0)||(ISRESTOREDESIGN==1)) ) THEN GOTO SKIP_DESIGN_INFO;\r
1206     BUFF32[31..0] = BOOL(CHECKSUM);\r
1207     IF ( ! ( !ISRESTOREDESIGN) ) THEN GOTO Label_65;\r
1208     UROW[127..112] = BUFF32[15..0];\r
1209     Label_65:\r
1210     IF ( ! ISRESTOREDESIGN ) THEN GOTO Label_66;\r
1211     UROW[127..112] = SUROWCHECKSUM[15..0];\r
1212     Label_66:\r
1213     IF ( ! ( !ISRESTOREDESIGN) ) THEN GOTO Label_67;\r
1214     UROW[101..32] = ACT_UROW_DESIGN_NAME[69..0];\r
1215     Label_67:\r
1216     IF ( ! ISRESTOREDESIGN ) THEN GOTO Label_68;\r
1217     UROW[101..32] = SUROWDESIGNNAME[69..0];\r
1218     Label_68:\r
1219     LABEL_SEPARATOR = 0;\r
1220     SKIP_DESIGN_INFO:\r
1221     BUFF32[31..0] = BOOL(ACT_UROW_CYCLE_COUNT);\r
1222     UROW[111..102] = BUFF32[9..0];\r
1223     UROW[31..29] = ACT_UROW_PROG_METHOD[2..0];\r
1224     UROW[28..25] = ACT_UROW_ALGO_VERSION[3..0];\r
1225     UROW[16..10] = ACT_UROW_SW_VERSION[6..0];\r
1226     UROW[9..6] = ACT_UROW_PROGRAM_SW[3..0];\r
1227     UROW[4] = SUROW_SRAM_DISTURB[0];\r
1228     IF ( ! (ACT_UROW_ALGO_VERSION[6]==1) ) THEN GOTO Label_69;\r
1229     UROW[5] = 1;\r
1230     UROW[0] = 0;\r
1231     UROW[24..23] = ACT_UROW_ALGO_VERSION[5..4];\r
1232     Label_69:\r
1233     IF ( ! (ACT_UROW_ALGO_VERSION[6]==0) ) THEN GOTO Label_70;\r
1234     UROW[5] = 0;\r
1235     UROW[0] = 1;\r
1236     UROW[24..23] = ACT_UROW_ALGO_VERSION[5..4];\r
1237     Label_70:\r
1238     IRSTOP IRPAUSE;\r
1239     DRSTOP DRPAUSE;\r
1240     IRSCAN 8, $a7;\r
1241     DRSCAN 128, UROW[];\r
1242     WAIT IDLE, 15 CYCLES;\r
1243     CALL POLL_PROGRAM;\r
1244     IF ( ! (PASS==0) ) THEN GOTO PROGRAM_OK3;\r
1245     STATUS = -24;\r
1246     PRINT "Failed to program UROW";\r
1247     UNIQUEEXITCODE = 32853;\r
1248     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1249     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1250     CALL DO_EXIT;\r
1251     PROGRAM_OK3:\r
1252     IRSTOP IRPAUSE;\r
1253     DRSTOP DRPAUSE;\r
1254     IRSCAN 8, $c0;\r
1255     WAIT IDLE, 1 CYCLES;\r
1256     IRSTOP IRPAUSE;\r
1257     DRSTOP DRPAUSE;\r
1258     IRSCAN 8, $a8;\r
1259     WAIT IDLE, 3 CYCLES;\r
1260     WAIT IDLE, 165 USEC;\r
1261     DRSCAN 128, $00000000000000000000000000000000,COMPARE UROW[],UROW_MASK[],PASS;\r
1262     IF ( ! (PASS==0) ) THEN GOTO UROW_OK;\r
1263     STATUS = -24;\r
1264     PRINT "Failed to program UROW";\r
1265     UNIQUEEXITCODE = 32854;\r
1266     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1267     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1268     CALL DO_EXIT;\r
1269     UROW_OK:\r
1270     LABEL_SEPARATOR = 0;\r
1271 ENDPROC;\r
1272 \r
1273 PROCEDURE FAIL_ERASE USES GV,DO_EXIT;\r
1274     STATUS = 8;\r
1275     PRINT "Failed Erase Operation";\r
1276     UNIQUEEXITCODE = 32855;\r
1277     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1278     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1279     CALL DO_EXIT;\r
1280 ENDPROC;\r
1281 \r
1282 PROCEDURE EXE_ERASE USES BITSTREAM,GV,READ_UROW,POLL_ERASE,PROGRAM_UROW,FAIL_ERASE;\r
1283     IF ( ! (COMBERASESELECT[14]==1) ) THEN GOTO SKIPRUROW;\r
1284     CALL READ_UROW;\r
1285     EXPORT "ACTEL_SLOG_UROW", UROW[];\r
1286     SKIPRUROW:\r
1287     IRSTOP IRPAUSE;\r
1288     DRSTOP DRPAUSE;\r
1289     IRSCAN 8, $85;\r
1290     DRSCAN 23, COMBERASESELECT[];\r
1291     WAIT IDLE, 3 CYCLES;\r
1292     CALL POLL_ERASE;\r
1293     IF ( ! (PASS==0) ) THEN GOTO ERASEOK;\r
1294     CALL FAIL_ERASE;\r
1295     ERASEOK:\r
1296     IF ( ! (COMBERASESELECT[14]==1) ) THEN GOTO Label_71;\r
1297     CALL PROGRAM_UROW;\r
1298     Label_71:\r
1299     LABEL_SEPARATOR = 0;\r
1300 ENDPROC;\r
1301 \r
1302 PROCEDURE DO_ERASE USES BITSTREAM,GV,EXE_ERASE;\r
1303     PRINT "Erase ...";\r
1304     COMBERASESELECT[22..0] = $004000;\r
1305     COMBERASESELECT[0] = 1;\r
1306     CALL EXE_ERASE;\r
1307     PRINT "Completed erase";\r
1308     IF ( ! (ISPRGARRAY==1) ) THEN GOTO NOT_PGM_ARRAY_ERASE;\r
1309     BUFF32[31..0] = BOOL(CHECKSUM);\r
1310     EXPORT "CHECKSUM: ", BUFF32[15..0];\r
1311     NOT_PGM_ARRAY_ERASE:\r
1312     LABEL_SEPARATOR = 0;\r
1313 ENDPROC;\r
1314 \r
1315 PROCEDURE DO_ERASE_ARRAY USES GV,EXE_ERASE;\r
1316     PRINT "Erase FPGA Array ...";\r
1317     COMBERASESELECT[22..0] = $004001;\r
1318     CALL EXE_ERASE;\r
1319 ENDPROC;\r
1320 \r
1321 PROCEDURE DO_ERASE_ONLY USES GV,DO_ERASE;\r
1322     ISERASEONLY = 1;\r
1323     CALL DO_ERASE;\r
1324 ENDPROC;\r
1325 \r
1326 PROCEDURE DO_ERASE_ARRAY_ONLY USES GV,DO_ERASE_ARRAY;\r
1327     ISERASEONLY = 1;\r
1328     CALL DO_ERASE_ARRAY;\r
1329 ENDPROC;\r
1330 \r
1331 PROCEDURE DO_ERASE_ALL USES GV,UFROM_DISTURB,EXE_ERASE;\r
1332     IF ( ! ( (BM7DEVICE==1)||(BM1DEVICE==1)) ) THEN GOTO Label_72;\r
1333     PRINT "Erase FPGA Array and FlashROM ...";\r
1334     Label_72:\r
1335     IF ( ! ( (BM7DEVICE!=1)&&(BM1DEVICE!=1)) ) THEN GOTO Label_73;\r
1336     PRINT "Erase FPGA Array, FlashROM and Security Settings ...";\r
1337     Label_73:\r
1338     COMBERASESELECT[22..0] = $7fc00f;\r
1339     ISERASEONLY = 1;\r
1340     CALL EXE_ERASE;\r
1341     CALL UFROM_DISTURB;\r
1342 ENDPROC;\r
1343 \r
1344 PROCEDURE LOAD_ROW_DATA USES BITSTREAM,GV;\r
1345     FOR SDTILE = 1 TO NUMBEROFSDTILES;\r
1346         FOR I = 1 TO 8;\r
1347             IRSTOP IRPAUSE;\r
1348             DRSTOP DRPAUSE;\r
1349             IRSCAN 8, $89;\r
1350             DRSCAN 26, DATASTREAM[(DATAINDEX+25)..DATAINDEX];\r
1351             WAIT IDLE, 3 CYCLES;\r
1352             DATAINDEX = (DATAINDEX+26);\r
1353         NEXT I;\r
1354     NEXT SDTILE;\r
1355 ENDPROC;\r
1356 \r
1357 PROCEDURE EXE_PROGRAM USES GV,DO_EXIT,POLL_PROGRAM;\r
1358     IRSTOP IRPAUSE;\r
1359     DRSTOP DRPAUSE;\r
1360     IRSCAN 8, $83;\r
1361     WAIT IDLE, 3 CYCLES;\r
1362     CALL POLL_PROGRAM;\r
1363     IF ( ! (PASS==0) ) THEN GOTO Label_74;\r
1364     STATUS = 10;\r
1365     PRINT "Failed to program FPGA array at row ",ROWNUMBER,".";\r
1366     UNIQUEEXITCODE = 32856;\r
1367     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1368     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1369     CALL DO_EXIT;\r
1370     Label_74:\r
1371     LABEL_SEPARATOR = 0;\r
1372 ENDPROC;\r
1373 \r
1374 PROCEDURE EXE_VERIFY USES GV,DO_EXIT,POLL_PROGRAM;\r
1375     IRSTOP IRPAUSE;\r
1376     DRSTOP DRPAUSE;\r
1377     IRSCAN 8, $8d;\r
1378     DRSCAN 2, VERIFYEOL[];\r
1379     WAIT IDLE, 3 CYCLES;\r
1380     WAIT IDLE, 132 USEC;\r
1381     CALL POLL_PROGRAM;\r
1382     IF ( ! (PASS==0) ) THEN GOTO Label_75;\r
1383     STATUS = 11;\r
1384     PRINT "Verify 0 failed at row ",ROWNUMBER,".";\r
1385     UNIQUEEXITCODE = 32857;\r
1386     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1387     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1388     CALL DO_EXIT;\r
1389     Label_75:\r
1390     IRSCAN 8, $8d;\r
1391     DRSCAN 2, VERIFYEOL[],COMPARE $0,$3,PASS;\r
1392     IF ( ! (PASS==0) ) THEN GOTO Label_76;\r
1393     STATUS = 11;\r
1394     PRINT "Verify 0 failed at row ",ROWNUMBER,".";\r
1395     UNIQUEEXITCODE = 32858;\r
1396     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1397     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1398     CALL DO_EXIT;\r
1399     Label_76:\r
1400     IRSTOP IRPAUSE;\r
1401     DRSTOP DRPAUSE;\r
1402     IRSCAN 8, $8e;\r
1403     DRSCAN 2, VERIFYEOL[];\r
1404     WAIT IDLE, 3 CYCLES;\r
1405     WAIT IDLE, 132 USEC;\r
1406     CALL POLL_PROGRAM;\r
1407     IF ( ! (PASS==0) ) THEN GOTO Label_77;\r
1408     STATUS = 11;\r
1409     PRINT "Verify 1 failed at row ",ROWNUMBER,".";\r
1410     UNIQUEEXITCODE = 32859;\r
1411     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1412     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1413     CALL DO_EXIT;\r
1414     Label_77:\r
1415     IRSCAN 8, $8e;\r
1416     DRSCAN 2, VERIFYEOL[],COMPARE $0,$3,PASS;\r
1417     IF ( ! (PASS==0) ) THEN GOTO Label_78;\r
1418     STATUS = 11;\r
1419     PRINT "Verify 1 failed at row ",ROWNUMBER,".";\r
1420     UNIQUEEXITCODE = 32860;\r
1421     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1422     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1423     CALL DO_EXIT;\r
1424     Label_78:\r
1425     LABEL_SEPARATOR = 0;\r
1426 ENDPROC;\r
1427 \r
1428 PROCEDURE DO_PROGRAM USES GV,LOAD_ROW_DATA,EXE_PROGRAM;\r
1429     IRSTOP IRPAUSE;\r
1430     DRSTOP DRPAUSE;\r
1431     IRSCAN 8, $87;\r
1432     DRSCAN 2, $2;\r
1433     WAIT IDLE, 3 CYCLES;\r
1434     PRINT "Programming FPGA Array";\r
1435     DATAINDEX = 0;\r
1436     ROWNUMBER = (NUMBEROFMAPROWS-1);\r
1437     INTEGER IREPEAT_0;\r
1438     FOR IREPEAT_0 = NUMBEROFMAPROWS - 1 TO 0 STEP -1;\r
1439         CALL LOAD_ROW_DATA;\r
1440         CALL EXE_PROGRAM;\r
1441         IRSTOP IRPAUSE;\r
1442         DRSTOP DRPAUSE;\r
1443         IRSCAN 8, $87;\r
1444         DRSCAN 2, $3;\r
1445         WAIT IDLE, 3 CYCLES;\r
1446         IF ( ! ((ROWNUMBER%ROWITERATION)==0) ) THEN GOTO Label_79;\r
1447         PERCENT_UPDATE = ((100*((NUMBEROFMAPROWS-ROWNUMBER)+1))/NUMBEROFMAPROWS);\r
1448         DIFFERENCE = (PERCENT_UPDATE%10);\r
1449         IF ( ! (DIFFERENCE>=5) ) THEN GOTO ROUND_DOWN_PGM_A;\r
1450         PERCENT_UPDATE = (PERCENT_UPDATE+(10-DIFFERENCE));\r
1451         ROUND_DOWN_PGM_A:\r
1452         IF ( ! (DIFFERENCE<5) ) THEN GOTO ROUND_UP_PGM_A;\r
1453         PERCENT_UPDATE = (PERCENT_UPDATE-DIFFERENCE);\r
1454         ROUND_UP_PGM_A:\r
1455         EXPORT "PERCENT_DONE", PERCENT_UPDATE;\r
1456         Label_79:\r
1457         ROWNUMBER = (ROWNUMBER-1);\r
1458     NEXT IREPEAT_0;\r
1459 ENDPROC;\r
1460 \r
1461 PROCEDURE DO_VERIFY USES GV,LOAD_ROW_DATA,EXE_VERIFY;\r
1462     IRSTOP IRPAUSE;\r
1463     DRSTOP DRPAUSE;\r
1464     IRSCAN 8, $87;\r
1465     DRSCAN 2, $2;\r
1466     WAIT IDLE, 3 CYCLES;\r
1467     PRINT "Verifying FPGA Array";\r
1468     DATAINDEX = 0;\r
1469     ROWNUMBER = (NUMBEROFMAPROWS-1);\r
1470     INTEGER IREPEAT_1;\r
1471     FOR IREPEAT_1 = NUMBEROFMAPROWS - 1 TO 0 STEP -1;\r
1472         CALL LOAD_ROW_DATA;\r
1473         CALL EXE_VERIFY;\r
1474         IRSTOP IRPAUSE;\r
1475         DRSTOP DRPAUSE;\r
1476         IRSCAN 8, $87;\r
1477         DRSCAN 2, $3;\r
1478         WAIT IDLE, 3 CYCLES;\r
1479         IF ( ! ((ROWNUMBER%ROWITERATION)==0) ) THEN GOTO Label_80;\r
1480         PERCENT_UPDATE = ((100*((NUMBEROFMAPROWS-ROWNUMBER)+1))/NUMBEROFMAPROWS);\r
1481         DIFFERENCE = (PERCENT_UPDATE%10);\r
1482         IF ( ! (DIFFERENCE>=5) ) THEN GOTO ROUND_DOWN_VER_ARRAY;\r
1483         PERCENT_UPDATE = (PERCENT_UPDATE+(10-DIFFERENCE));\r
1484         ROUND_DOWN_VER_ARRAY:\r
1485         IF ( ! (DIFFERENCE<5) ) THEN GOTO ROUND_UP_VER_ARRAY;\r
1486         PERCENT_UPDATE = (PERCENT_UPDATE-DIFFERENCE);\r
1487         ROUND_UP_VER_ARRAY:\r
1488         EXPORT "PERCENT_DONE", PERCENT_UPDATE;\r
1489         Label_80:\r
1490         ROWNUMBER = (ROWNUMBER-1);\r
1491     NEXT IREPEAT_1;\r
1492     PRINT "        Verifying FPGA Array -- pass";\r
1493 ENDPROC;\r
1494 \r
1495 PROCEDURE DO_VERIFY_BOL USES GV,DO_VERIFY;\r
1496     VERIFYEOL[0] = 0;\r
1497     CALL DO_VERIFY;\r
1498 ENDPROC;\r
1499 \r
1500 PROCEDURE DO_VERIFY_EOL USES GV,DO_VERIFY;\r
1501     VERIFYEOL[0] = 1;\r
1502     CALL DO_VERIFY;\r
1503 ENDPROC;\r
1504 \r
1505 PROCEDURE DO_PROGRAM_RLOCK USES GV,DO_EXIT,POLL_PROGRAM;\r
1506     DATAINDEX = 0;\r
1507     INTEGER IREPEAT_2;\r
1508     FOR IREPEAT_2 = NUMBEROFSDTILES - 1 TO 0 STEP -1;\r
1509         FOR I = 1 TO 8;\r
1510             IRSTOP IRPAUSE;\r
1511             DRSTOP DRPAUSE;\r
1512             IRSCAN 8, $89;\r
1513             DRSCAN 26, RLOCK[(DATAINDEX+25)..DATAINDEX];\r
1514             WAIT IDLE, 3 CYCLES;\r
1515             DATAINDEX = (DATAINDEX+26);\r
1516         NEXT I;\r
1517     NEXT IREPEAT_2;\r
1518     IRSTOP IRPAUSE;\r
1519     DRSTOP DRPAUSE;\r
1520     IRSCAN 8, $8c;\r
1521     WAIT IDLE, 3 CYCLES;\r
1522     CALL POLL_PROGRAM;\r
1523     IF ( ! (PASS==0) ) THEN GOTO Label_81;\r
1524     STATUS = 10;\r
1525     PRINT "Failed to enable FPGA Array.";\r
1526     UNIQUEEXITCODE = 32862;\r
1527     BUFF128[15..0] = BOOL(UNIQUEEXITCODE);\r
1528     EXPORT "ERROR_CODE", BUFF128[15..0];\r
1529     CALL DO_EXIT;\r
1530     Label_81:\r
1531     LABEL_SEPARATOR = 0;\r
1532 ENDPROC;\r
1533 \r
1534 PROCEDURE DO_READ_IDCODE USES READ_IDCODE_ONLY;\r
1535     WAIT RESET, 5 CYCLES;\r
1536     CALL READ_IDCODE_ONLY;\r
1537     EXIT 0;\r
1538 ENDPROC;\r
1539 \r
1540 \r
1541 CRC A5F1;\r