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