Source Code

001889,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001890,000002: # 001891,000003: # This file is part of yaAGC. 001892,000004: 001893,000005: # yaAGC is free software; you can redistribute it and/or modify 001894,000006: # it under the terms of the GNU General Public License as published by 001895,000007: # the Free Software Foundation; either version 2 of the License, or 001896,000008: # (at your option) any later version. 001897,000009: 001898,000010: # yaAGC is distributed in the hope that it will be useful, 001899,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001900,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001901,000013: # GNU General Public License for more details. 001902,000014: 001903,000015: # You should have received a copy of the GNU General Public License 001904,000016: # along with yaAGC; if not, write to the Free Software 001905,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001906,000018: 001907,000019: # Filename: ValidateMASK.agc 001908,000020: # Purpose: This is the part of the Validation program that validates 001909,000021: # just the MASK instruction. 001910,000022: # Mod history: 07/05/04 RSB. Began. 001911,000023: 001912,000024: 6360 24061 INCR ERRNUM 001913,000025: 001914,000026: # Just check a few values. 001915,000027: 6361 24062 INCR ERRSUB # 1 001916,000028: 6362 37505 CA MASKL1 001917,000029: 6363 77507 MASK MASKL2 001918,000030: 6364 40000 COM 001919,000031: 6365 67511 AD ANDL1L2 001920,000032: 6366 00006 EXTEND 001921,000033: 6367 16371 BZF MASK1 001922,000034: 6370 16422 TCF VMSERROR 001923,000035: 6371 MASK1 001924,000036: 001925,000037: 6371 24062 INCR ERRSUB # 2 001926,000038: 6372 37505 CA MASKL1 001927,000039: 6373 77510 MASK MASKR2 001928,000040: 6374 40000 COM 001929,000041: 6375 67512 AD ANDL1R2 001930,000042: 6376 00006 EXTEND 001931,000043: 6377 16401 BZF MASK2 001932,000044: 6400 16422 TCF VMSERROR 001933,000045: 6401 MASK2 001934,000046: 001935,000047: 6401 24062 INCR ERRSUB # 3 001936,000048: 6402 37506 CA MASKR1 001937,000049: 6403 77507 MASK MASKL2 001938,000050: 6404 40000 COM 001939,000051: 6405 67513 AD ANDR1L2 001940,000052: 6406 00006 EXTEND 001941,000053: 6407 16411 BZF MASK3 001942,000054: 6410 16422 TCF VMSERROR 001943,000055: 6411 MASK3 001944,000056: 001945,000057: 6411 24062 INCR ERRSUB # 4 001946,000058: 6412 37506 CA MASKR1 001947,000059: 6413 77510 MASK MASKR2 001948,000060: 6414 40000 COM 001949,000061: 6415 67514 AD ANDR1R2 001950,000062: 6416 00006 EXTEND 001951,000063: 6417 16421 BZF MASK4 001952,000064: 6420 16422 TCF VMSERROR 001953,000065: 6421 MASK4 001954,000066: 001955,000067: 6421 16423 TCF +2 001956,000068: 6422 07240 VMSERROR TC ERRORDSP 001957,000069: 6423 30007 CA ZEROES 001958,000070: 6424 54062 TS ERRSUB 001959,000071: End of include-file ValidateMASK.agc. Parent file is Validation.agc