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