Source Code

000970,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 000971,000002: # 000972,000003: # This file is part of yaAGC. 000973,000004: 000974,000005: # yaAGC is free software; you can redistribute it and/or modify 000975,000006: # it under the terms of the GNU General Public License as published by 000976,000007: # the Free Software Foundation; either version 2 of the License, or 000977,000008: # (at your option) any later version. 000978,000009: 000979,000010: # yaAGC is distributed in the hope that it will be useful, 000980,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 000981,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 000982,000013: # GNU General Public License for more details. 000983,000014: 000984,000015: # You should have received a copy of the GNU General Public License 000985,000016: # along with yaAGC; if not, write to the Free Software 000986,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 000987,000018: 000988,000019: # Filename: ValidateCA.agc 000989,000020: # Purpose: This is the part of the Validation program that validates 000990,000021: # just the CA instruction. 000991,000022: # Mod history: 07/05/04 RSB. Began. 000992,000023: 000993,000024: 5160 24061 INCR ERRNUM 000994,000025: 000995,000026: # Now just load and check a few values. 000996,000027: 000997,000028: 5161 24062 INCR ERRSUB # 1 000998,000029: # Start with MAXP. Generate overflow too. 000999,000030: 5162 37443 CA MAXP # Generate overflow. 001000,000031: 5163 24000 INCR A 001001,000032: 5164 37443 CA MAXP # Load and check overflow. 001002,000033: 5165 54000 OVSK 001003,000034: 5166 15170 TCF CA1 001004,000035: 5167 15261 TCF VCAERROR 001005,000036: 5170 24062 CA1 INCR ERRSUB # 2 001006,000037: 5171 54001 TS L # Check that loaded value is right. 001007,000038: 5172 00006 EXTEND # Compute rather than load MAXP. 001008,000039: 5173 60000 SU A 001009,000040: 5174 67443 AD MAXP 001010,000041: 5175 00006 EXTEND # Compare. 001011,000042: 5176 60001 SU L 001012,000043: 5177 00006 EXTEND 001013,000044: 5200 15202 BZF CA2 001014,000045: 5201 15261 TCF VCAERROR 001015,000046: 5202 CA2 001016,000047: 001017,000048: 5202 24062 INCR ERRSUB # 3 001018,000049: # -MAXP. 001019,000050: 5203 37447 CA MAXN 001020,000051: 5204 54001 TS L # Check that loaded value is right. 001021,000052: 5205 00006 EXTEND # Compute rather than load MAXN. 001022,000053: 5206 60000 SU A 001023,000054: 5207 67447 AD MAXN 001024,000055: 5210 00006 EXTEND # Compare. 001025,000056: 5211 60001 SU L 001026,000057: 5212 00006 EXTEND 001027,000058: 5213 15215 BZF CA3 001028,000059: 5214 15261 TCF VCAERROR 001029,000060: 5215 CA3 001030,000061: 001031,000062: 5215 24062 INCR ERRSUB # 4 001032,000063: # +1. 001033,000064: 5216 37430 CA ONE 001034,000065: 5217 54001 TS L # Check that loaded value is right. 001035,000066: 5220 00006 EXTEND # Compute rather than load MAXN. 001036,000067: 5221 60000 SU A 001037,000068: 5222 67430 AD ONE 001038,000069: 5223 00006 EXTEND # Compare. 001039,000070: 5224 60001 SU L 001040,000071: 5225 00006 EXTEND 001041,000072: 5226 15230 BZF CA4 001042,000073: 5227 15261 TCF VCAERROR 001043,000074: 5230 CA4 001044,000075: 001045,000076: 5230 24062 INCR ERRSUB # 5 001046,000077: # -1. 001047,000078: 5231 37424 CA NEGONE 001048,000079: 5232 54001 TS L # Check that loaded value is right. 001049,000080: 5233 00006 EXTEND # Compute rather than load MAXN. 001050,000081: 5234 60000 SU A 001051,000082: 5235 67424 AD NEGONE 001052,000083: 5236 00006 EXTEND # Compare. 001053,000084: 5237 60001 SU L 001054,000085: 5240 00006 EXTEND 001055,000086: 5241 15243 BZF CA5 001056,000087: 5242 15261 TCF VCAERROR 001057,000088: 5243 CA5 001058,000089: 001059,000090: 5243 24062 INCR ERRSUB # 6 001060,000091: # 0. 001061,000092: 5244 30007 CA ZEROES 001062,000093: 5245 10000 CCS A 001063,000094: 5246 15261 TCF VCAERROR 001064,000095: 5247 15252 TCF CA6 001065,000096: 5250 15261 TCF VCAERROR 001066,000097: 5251 15261 TCF VCAERROR 001067,000098: 5252 CA6 001068,000099: 001069,000100: 5252 24062 INCR ERRSUB # 7 001070,000101: # -0. 001071,000102: 5253 37423 CA NEGZERO 001072,000103: 5254 10000 CCS A 001073,000104: 5255 15261 TCF VCAERROR 001074,000105: 5256 15261 TCF VCAERROR 001075,000106: 5257 15261 TCF VCAERROR 001076,000107: 001077,000108: 5260 15262 TCF +2 001078,000109: 5261 07240 VCAERROR TC ERRORDSP 001079,000110: 5262 30007 CA ZEROES 001080,000111: 5263 54062 TS ERRSUB 001081,000112: 001082,000113: End of include-file ValidateCA.agc. Parent file is Validation.agc