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