Source Code

001669,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001670,000002: # 001671,000003: # This file is part of yaAGC. 001672,000004: 001673,000005: # yaAGC is free software; you can redistribute it and/or modify 001674,000006: # it under the terms of the GNU General Public License as published by 001675,000007: # the Free Software Foundation; either version 2 of the License, or 001676,000008: # (at your option) any later version. 001677,000009: 001678,000010: # yaAGC is distributed in the hope that it will be useful, 001679,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001680,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001681,000013: # GNU General Public License for more details. 001682,000014: 001683,000015: # You should have received a copy of the GNU General Public License 001684,000016: # along with yaAGC; if not, write to the Free Software 001685,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001686,000018: 001687,000019: # Filename: ValidateXCH.agc 001688,000020: # Purpose: This is the part of the Validation program that validates 001689,000021: # just the XCH instruction. 001690,000022: # Mod history: 07/05/04 RSB. Began. 001691,000023: # 07/13/04 RSB. Added ERRSUB. 001692,000024: 001693,000025: 6145 24061 INCR ERRNUM 001694,000026: 001695,000027: # Swap some stuff. 001696,000028: 6146 24062 INCR ERRSUB # 1 001697,000029: 6147 37435 CA TEN 001698,000030: 6150 54063 TS TEMPI 001699,000031: 6151 37433 CA FIVE 001700,000032: 6152 56063 XCH TEMPI 001701,000033: 6153 40000 COM 001702,000034: 6154 67435 AD TEN 001703,000035: 6155 00006 EXTEND 001704,000036: 6156 16160 BZF XCH1 001705,000037: 6157 16247 TCF VXCERROR 001706,000038: 6160 24062 XCH1 INCR ERRSUB # 2 001707,000039: 6161 30063 CA TEMPI 001708,000040: 6162 40000 COM 001709,000041: 6163 67433 AD FIVE 001710,000042: 6164 00006 EXTEND 001711,000043: 6165 16167 BZF XCH2 001712,000044: 6166 16247 TCF VXCERROR 001713,000045: 6167 XCH2 001714,000046: 001715,000047: # Same, but with some overflow correction. 001716,000048: 6167 24062 INCR ERRSUB # 3 001717,000049: 6170 37435 CA TEN 001718,000050: 6171 54063 TS TEMPI 001719,000051: 6172 37443 CA MAXP 001720,000052: 6173 67433 AD FIVE 001721,000053: 6174 56063 XCH TEMPI 001722,000054: 6175 54000 OVSK 001723,000055: 6176 16200 TCF XCH3A 001724,000056: 6177 16247 TCF VXCERROR 001725,000057: 6200 24062 XCH3A INCR ERRSUB # 4 001726,000058: 6201 40000 COM 001727,000059: 6202 67435 AD TEN 001728,000060: 6203 00006 EXTEND 001729,000061: 6204 16206 BZF XCH3 001730,000062: 6205 16247 TCF VXCERROR 001731,000063: 6206 24062 XCH3 INCR ERRSUB # 5 001732,000064: 6207 30063 CA TEMPI 001733,000065: 6210 24000 INCR A 001734,000066: 6211 40000 COM 001735,000067: 6212 67433 AD FIVE 001736,000068: 6213 00006 EXTEND 001737,000069: 6214 16216 BZF XCH4 001738,000070: 6215 16247 TCF VXCERROR 001739,000071: 6216 XCH4 001740,000072: 001741,000073: # Check for "XCH A", as if it's of any interest. 001742,000074: 6216 24062 INCR ERRSUB # 6 001743,000075: 6217 37443 CA MAXP 001744,000076: 6220 67435 AD TEN 001745,000077: 6221 56000 XCH A 001746,000078: 6222 54000 OVSK 001747,000079: 6223 16247 TCF VXCERROR 001748,000080: 6224 24062 XCH5 INCR ERRSUB # 7 001749,000081: 6225 24000 INCR A 001750,000082: 6226 54001 TS L 001751,000083: 6227 16230 NOOP 001752,000084: 6230 30001 CA L 001753,000085: 6231 40000 COM 001754,000086: 6232 67435 AD TEN 001755,000087: 6233 00006 EXTEND 001756,000088: 6234 16247 BZF VXCERROR # L contains overflow. 001757,000089: 6235 30001 CA L 001758,000090: 6236 54063 TS TEMPI 001759,000091: 6237 16240 NOOP 001760,000092: 6240 37435 CA TEN 001761,000093: 6241 40000 COM 001762,000094: 6242 60063 AD TEMPI 001763,000095: 6243 00006 EXTEND 001764,000096: 6244 16246 BZF +2 # ... but TEMP doesn't. 001765,000097: 6245 16247 TCF VXCERROR 001766,000098: 001767,000099: 001768,000100: 6246 XCH6 001769,000101: 001770,000102: 6246 16250 TCF +2 001771,000103: 6247 07240 VXCERROR TC ERRORDSP 001772,000104: 6250 30007 CA ZEROES 001773,000105: 6251 54062 TS ERRSUB 001774,000106: End of include-file ValidateXCH.agc. Parent file is Validation.agc