Source Code

001087,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001088,000002: # 001089,000003: # This file is part of yaAGC. 001090,000004: 001091,000005: # yaAGC is free software; you can redistribute it and/or modify 001092,000006: # it under the terms of the GNU General Public License as published by 001093,000007: # the Free Software Foundation; either version 2 of the License, or 001094,000008: # (at your option) any later version. 001095,000009: 001096,000010: # yaAGC is distributed in the hope that it will be useful, 001097,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001098,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001099,000013: # GNU General Public License for more details. 001100,000014: 001101,000015: # You should have received a copy of the GNU General Public License 001102,000016: # along with yaAGC; if not, write to the Free Software 001103,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001104,000018: 001105,000019: # Filename: ValidateCS.agc 001106,000020: # Purpose: This is the part of the Validation program that validates 001107,000021: # just the CS instruction. 001108,000022: # Mod history: 07/05/04 RSB. Began. 001109,000023: 001110,000024: 5264 24061 INCR ERRNUM 001111,000025: 001112,000026: # Now just load and check a few values. 001113,000027: 001114,000028: 5265 24062 INCR ERRSUB # 1 001115,000029: # Start with MAXP. Generate overflow too. 001116,000030: 5266 37443 CA MAXP # Generate overflow. 001117,000031: 5267 24000 INCR A 001118,000032: 5270 47443 CS MAXP # Load and check overflow. 001119,000033: 5271 54000 OVSK 001120,000034: 5272 15274 TCF CS1 001121,000035: 5273 15355 TCF VCSERROR 001122,000036: 5274 24062 CS1 INCR ERRSUB # 2 001123,000037: 5275 54001 TS L # Check that loaded value is right. 001124,000038: 5276 37447 CA MAXN 001125,000039: 5277 00006 EXTEND # Compare. 001126,000040: 5300 60001 SU L 001127,000041: 5301 00006 EXTEND 001128,000042: 5302 15304 BZF CS2 001129,000043: 5303 15355 TCF VCSERROR 001130,000044: 5304 CS2 001131,000045: 001132,000046: 5304 24062 INCR ERRSUB # 3 001133,000047: # -MAXP. 001134,000048: 5305 47447 CS MAXN 001135,000049: 5306 54001 TS L # Check that loaded value is right. 001136,000050: 5307 37443 CA MAXP 001137,000051: 5310 00006 EXTEND # Compare. 001138,000052: 5311 60001 SU L 001139,000053: 5312 00006 EXTEND 001140,000054: 5313 15315 BZF CS3 001141,000055: 5314 15355 TCF VCSERROR 001142,000056: 5315 CS3 001143,000057: 001144,000058: 5315 24062 INCR ERRSUB # 4 001145,000059: # +1. 001146,000060: 5316 47430 CS ONE 001147,000061: 5317 54001 TS L # Check that loaded value is right. 001148,000062: 5320 37424 CA NEGONE 001149,000063: 5321 00006 EXTEND # Compare. 001150,000064: 5322 60001 SU L 001151,000065: 5323 00006 EXTEND 001152,000066: 5324 15326 BZF CS4 001153,000067: 5325 15355 TCF VCSERROR 001154,000068: 5326 CS4 001155,000069: 001156,000070: 5326 24062 INCR ERRSUB # 5 001157,000071: # -1. 001158,000072: 5327 47424 CS NEGONE 001159,000073: 5330 54001 TS L # Check that loaded value is right. 001160,000074: 5331 37430 CA ONE 001161,000075: 5332 00006 EXTEND # Compare. 001162,000076: 5333 60001 SU L 001163,000077: 5334 00006 EXTEND 001164,000078: 5335 15337 BZF CS5 001165,000079: 5336 15355 TCF VCSERROR 001166,000080: 5337 CS5 001167,000081: 001168,000082: 5337 24062 INCR ERRSUB # 6 001169,000083: # 0. 001170,000084: 5340 40007 CS ZEROES 001171,000085: 5341 10000 CCS A 001172,000086: 5342 15355 TCF VCSERROR 001173,000087: 5343 15355 TCF VCSERROR 001174,000088: 5344 15355 TCF VCSERROR 001175,000089: 001176,000090: 5345 24062 INCR ERRSUB # 7 001177,000091: # -0. 001178,000092: 5346 47423 CS NEGZERO 001179,000093: 5347 10000 CCS A 001180,000094: 5350 15355 TCF VCSERROR 001181,000095: 5351 15354 TCF CS7 001182,000096: 5352 15355 TCF VCSERROR 001183,000097: 5353 15355 TCF VCSERROR 001184,000098: 5354 CS7 001185,000099: 001186,000100: 5354 15356 TCF +2 001187,000101: 5355 07240 VCSERROR TC ERRORDSP 001188,000102: 5356 30007 CA ZEROES 001189,000103: 5357 54062 TS ERRSUB 001190,000104: 001191,000105: End of include-file ValidateCS.agc. Parent file is Validation.agc