Source Code

001028,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001029,000002: # 001030,000003: # This file is part of yaAGC. 001031,000004: 001032,000005: # yaAGC is free software; you can redistribute it and/or modify 001033,000006: # it under the terms of the GNU General Public License as published by 001034,000007: # the Free Software Foundation; either version 2 of the License, or 001035,000008: # (at your option) any later version. 001036,000009: 001037,000010: # yaAGC is distributed in the hope that it will be useful, 001038,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001039,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001040,000013: # GNU General Public License for more details. 001041,000014: 001042,000015: # You should have received a copy of the GNU General Public License 001043,000016: # along with yaAGC; if not, write to the Free Software 001044,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001045,000018: 001046,000019: # Filename: ValidateCA.agc 001047,000020: # Purpose: This is the part of the Validation program that validates 001048,000021: # just the CA instruction. 001049,000022: # Mod history: 07/05/04 RSB. Began. 001050,000023: 001051,000024: 5236 24061 INCR ERRNUM 001052,000025: 001053,000026: # Now just load and check a few values. 001054,000027: 001055,000028: 5237 24062 INCR ERRSUB # 1 001056,000029: # Start with MAXP. Generate overflow too. 001057,000030: 5240 37651 CA MAXP # Generate overflow. 001058,000031: 5241 24000 INCR A 001059,000032: 5242 37651 CA MAXP # Load and check overflow. 001060,000033: 5243 54000 OVSK 001061,000034: 5244 15246 TCF CA1 001062,000035: 5245 15337 TCF VCAERROR 001063,000036: 5246 24062 CA1 INCR ERRSUB # 2 001064,000037: 5247 54001 TS L # Check that loaded value is right. 001065,000038: 5250 00006 EXTEND # Compute rather than load MAXP. 001066,000039: 5251 60000 SU A 001067,000040: 5252 67651 AD MAXP 001068,000041: 5253 00006 EXTEND # Compare. 001069,000042: 5254 60001 SU L 001070,000043: 5255 00006 EXTEND 001071,000044: 5256 15260 BZF CA2 001072,000045: 5257 15337 TCF VCAERROR 001073,000046: 5260 CA2 001074,000047: 001075,000048: 5260 24062 INCR ERRSUB # 3 001076,000049: # -MAXP. 001077,000050: 5261 37655 CA MAXN 001078,000051: 5262 54001 TS L # Check that loaded value is right. 001079,000052: 5263 00006 EXTEND # Compute rather than load MAXN. 001080,000053: 5264 60000 SU A 001081,000054: 5265 67655 AD MAXN 001082,000055: 5266 00006 EXTEND # Compare. 001083,000056: 5267 60001 SU L 001084,000057: 5270 00006 EXTEND 001085,000058: 5271 15273 BZF CA3 001086,000059: 5272 15337 TCF VCAERROR 001087,000060: 5273 CA3 001088,000061: 001089,000062: 5273 24062 INCR ERRSUB # 4 001090,000063: # +1. 001091,000064: 5274 37635 CA ONE 001092,000065: 5275 54001 TS L # Check that loaded value is right. 001093,000066: 5276 00006 EXTEND # Compute rather than load MAXN. 001094,000067: 5277 60000 SU A 001095,000068: 5300 67635 AD ONE 001096,000069: 5301 00006 EXTEND # Compare. 001097,000070: 5302 60001 SU L 001098,000071: 5303 00006 EXTEND 001099,000072: 5304 15306 BZF CA4 001100,000073: 5305 15337 TCF VCAERROR 001101,000074: 5306 CA4 001102,000075: 001103,000076: 5306 24062 INCR ERRSUB # 5 001104,000077: # -1. 001105,000078: 5307 37631 CA NEGONE 001106,000079: 5310 54001 TS L # Check that loaded value is right. 001107,000080: 5311 00006 EXTEND # Compute rather than load MAXN. 001108,000081: 5312 60000 SU A 001109,000082: 5313 67631 AD NEGONE 001110,000083: 5314 00006 EXTEND # Compare. 001111,000084: 5315 60001 SU L 001112,000085: 5316 00006 EXTEND 001113,000086: 5317 15321 BZF CA5 001114,000087: 5320 15337 TCF VCAERROR 001115,000088: 5321 CA5 001116,000089: 001117,000090: 5321 24062 INCR ERRSUB # 6 001118,000091: # 0. 001119,000092: 5322 30007 CA ZEROES 001120,000093: 5323 10000 CCS A 001121,000094: 5324 15337 TCF VCAERROR 001122,000095: 5325 15330 TCF CA6 001123,000096: 5326 15337 TCF VCAERROR 001124,000097: 5327 15337 TCF VCAERROR 001125,000098: 5330 CA6 001126,000099: 001127,000100: 5330 24062 INCR ERRSUB # 7 001128,000101: # -0. 001129,000102: 5331 37630 CA NEGZERO 001130,000103: 5332 10000 CCS A 001131,000104: 5333 15337 TCF VCAERROR 001132,000105: 5334 15337 TCF VCAERROR 001133,000106: 5335 15337 TCF VCAERROR 001134,000107: 001135,000108: 5336 15340 TCF +2 001136,000109: 5337 07437 VCAERROR TC ERRORDSP 001137,000110: 5340 30007 CA ZEROES 001138,000111: 5341 54062 TS ERRSUB 001139,000112: 001140,000113: End of include-file ValidateCA.agc. Parent file is Validation.agc