Source Code

001145,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001146,000002: # 001147,000003: # This file is part of yaAGC. 001148,000004: 001149,000005: # yaAGC is free software; you can redistribute it and/or modify 001150,000006: # it under the terms of the GNU General Public License as published by 001151,000007: # the Free Software Foundation; either version 2 of the License, or 001152,000008: # (at your option) any later version. 001153,000009: 001154,000010: # yaAGC is distributed in the hope that it will be useful, 001155,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001156,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001157,000013: # GNU General Public License for more details. 001158,000014: 001159,000015: # You should have received a copy of the GNU General Public License 001160,000016: # along with yaAGC; if not, write to the Free Software 001161,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001162,000018: 001163,000019: # Filename: ValidateCS.agc 001164,000020: # Purpose: This is the part of the Validation program that validates 001165,000021: # just the CS instruction. 001166,000022: # Mod history: 07/05/04 RSB. Began. 001167,000023: 001168,000024: 5342 24061 INCR ERRNUM 001169,000025: 001170,000026: # Now just load and check a few values. 001171,000027: 001172,000028: 5343 24062 INCR ERRSUB # 1 001173,000029: # Start with MAXP. Generate overflow too. 001174,000030: 5344 37651 CA MAXP # Generate overflow. 001175,000031: 5345 24000 INCR A 001176,000032: 5346 47651 CS MAXP # Load and check overflow. 001177,000033: 5347 54000 OVSK 001178,000034: 5350 15352 TCF CS1 001179,000035: 5351 15433 TCF VCSERROR 001180,000036: 5352 24062 CS1 INCR ERRSUB # 2 001181,000037: 5353 54001 TS L # Check that loaded value is right. 001182,000038: 5354 37655 CA MAXN 001183,000039: 5355 00006 EXTEND # Compare. 001184,000040: 5356 60001 SU L 001185,000041: 5357 00006 EXTEND 001186,000042: 5360 15362 BZF CS2 001187,000043: 5361 15433 TCF VCSERROR 001188,000044: 5362 CS2 001189,000045: 001190,000046: 5362 24062 INCR ERRSUB # 3 001191,000047: # -MAXP. 001192,000048: 5363 47655 CS MAXN 001193,000049: 5364 54001 TS L # Check that loaded value is right. 001194,000050: 5365 37651 CA MAXP 001195,000051: 5366 00006 EXTEND # Compare. 001196,000052: 5367 60001 SU L 001197,000053: 5370 00006 EXTEND 001198,000054: 5371 15373 BZF CS3 001199,000055: 5372 15433 TCF VCSERROR 001200,000056: 5373 CS3 001201,000057: 001202,000058: 5373 24062 INCR ERRSUB # 4 001203,000059: # +1. 001204,000060: 5374 47635 CS ONE 001205,000061: 5375 54001 TS L # Check that loaded value is right. 001206,000062: 5376 37631 CA NEGONE 001207,000063: 5377 00006 EXTEND # Compare. 001208,000064: 5400 60001 SU L 001209,000065: 5401 00006 EXTEND 001210,000066: 5402 15404 BZF CS4 001211,000067: 5403 15433 TCF VCSERROR 001212,000068: 5404 CS4 001213,000069: 001214,000070: 5404 24062 INCR ERRSUB # 5 001215,000071: # -1. 001216,000072: 5405 47631 CS NEGONE 001217,000073: 5406 54001 TS L # Check that loaded value is right. 001218,000074: 5407 37635 CA ONE 001219,000075: 5410 00006 EXTEND # Compare. 001220,000076: 5411 60001 SU L 001221,000077: 5412 00006 EXTEND 001222,000078: 5413 15415 BZF CS5 001223,000079: 5414 15433 TCF VCSERROR 001224,000080: 5415 CS5 001225,000081: 001226,000082: 5415 24062 INCR ERRSUB # 6 001227,000083: # 0. 001228,000084: 5416 40007 CS ZEROES 001229,000085: 5417 10000 CCS A 001230,000086: 5420 15433 TCF VCSERROR 001231,000087: 5421 15433 TCF VCSERROR 001232,000088: 5422 15433 TCF VCSERROR 001233,000089: 001234,000090: 5423 24062 INCR ERRSUB # 7 001235,000091: # -0. 001236,000092: 5424 47630 CS NEGZERO 001237,000093: 5425 10000 CCS A 001238,000094: 5426 15433 TCF VCSERROR 001239,000095: 5427 15432 TCF CS7 001240,000096: 5430 15433 TCF VCSERROR 001241,000097: 5431 15433 TCF VCSERROR 001242,000098: 5432 CS7 001243,000099: 001244,000100: 5432 15434 TCF +2 001245,000101: 5433 07437 VCSERROR TC ERRORDSP 001246,000102: 5434 30007 CA ZEROES 001247,000103: 5435 54062 TS ERRSUB 001248,000104: 001249,000105: End of include-file ValidateCS.agc. Parent file is Validation.agc