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