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