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