Source Code

001947,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001948,000002: # 001949,000003: # This file is part of yaAGC. 001950,000004: 001951,000005: # yaAGC is free software; you can redistribute it and/or modify 001952,000006: # it under the terms of the GNU General Public License as published by 001953,000007: # the Free Software Foundation; either version 2 of the License, or 001954,000008: # (at your option) any later version. 001955,000009: 001956,000010: # yaAGC is distributed in the hope that it will be useful, 001957,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001958,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001959,000013: # GNU General Public License for more details. 001960,000014: 001961,000015: # You should have received a copy of the GNU General Public License 001962,000016: # along with yaAGC; if not, write to the Free Software 001963,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001964,000018: 001965,000019: # Filename: ValidateMASK.agc 001966,000020: # Purpose: This is the part of the Validation program that validates 001967,000021: # just the MASK instruction. 001968,000022: # Mod history: 07/05/04 RSB. Began. 001969,000023: 001970,000024: 6360 24061 INCR ERRNUM 001971,000025: 001972,000026: # Just check a few values. 001973,000027: 6361 24062 INCR ERRSUB # 1 001974,000028: 6362 37713 CA MASKL1 001975,000029: 6363 77715 MASK MASKL2 001976,000030: 6364 40000 COM 001977,000031: 6365 67717 AD ANDL1L2 001978,000032: 6366 00006 EXTEND 001979,000033: 6367 16371 BZF MASK1 001980,000034: 6370 16422 TCF VMSERROR 001981,000035: 6371 MASK1 001982,000036: 001983,000037: 6371 24062 INCR ERRSUB # 2 001984,000038: 6372 37713 CA MASKL1 001985,000039: 6373 77716 MASK MASKR2 001986,000040: 6374 40000 COM 001987,000041: 6375 67720 AD ANDL1R2 001988,000042: 6376 00006 EXTEND 001989,000043: 6377 16401 BZF MASK2 001990,000044: 6400 16422 TCF VMSERROR 001991,000045: 6401 MASK2 001992,000046: 001993,000047: 6401 24062 INCR ERRSUB # 3 001994,000048: 6402 37714 CA MASKR1 001995,000049: 6403 77715 MASK MASKL2 001996,000050: 6404 40000 COM 001997,000051: 6405 67721 AD ANDR1L2 001998,000052: 6406 00006 EXTEND 001999,000053: 6407 16411 BZF MASK3 002000,000054: 6410 16422 TCF VMSERROR 002001,000055: 6411 MASK3 002002,000056: 002003,000057: 6411 24062 INCR ERRSUB # 4 002004,000058: 6412 37714 CA MASKR1 002005,000059: 6413 77716 MASK MASKR2 002006,000060: 6414 40000 COM 002007,000061: 6415 67722 AD ANDR1R2 002008,000062: 6416 00006 EXTEND 002009,000063: 6417 16421 BZF MASK4 002010,000064: 6420 16422 TCF VMSERROR 002011,000065: 6421 MASK4 002012,000066: 002013,000067: 6421 16423 TCF +2 002014,000068: 6422 07437 VMSERROR TC ERRORDSP 002015,000069: 6423 30007 CA ZEROES 002016,000070: 6424 54062 TS ERRSUB 002017,000071: End of include-file ValidateMASK.agc. Parent file is Validation.agc