Source Code

001727,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 001728,000002: # 001729,000003: # This file is part of yaAGC. 001730,000004: 001731,000005: # yaAGC is free software; you can redistribute it and/or modify 001732,000006: # it under the terms of the GNU General Public License as published by 001733,000007: # the Free Software Foundation; either version 2 of the License, or 001734,000008: # (at your option) any later version. 001735,000009: 001736,000010: # yaAGC is distributed in the hope that it will be useful, 001737,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 001738,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 001739,000013: # GNU General Public License for more details. 001740,000014: 001741,000015: # You should have received a copy of the GNU General Public License 001742,000016: # along with yaAGC; if not, write to the Free Software 001743,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 001744,000018: 001745,000019: # Filename: ValidateXCH.agc 001746,000020: # Purpose: This is the part of the Validation program that validates 001747,000021: # just the XCH instruction. 001748,000022: # Mod history: 07/05/04 RSB. Began. 001749,000023: # 07/13/04 RSB. Added ERRSUB. 001750,000024: 001751,000025: 6145 24061 INCR ERRNUM 001752,000026: 001753,000027: # Swap some stuff. 001754,000028: 6146 24062 INCR ERRSUB # 1 001755,000029: 6147 37642 CA TEN 001756,000030: 6150 54063 TS TEMPI 001757,000031: 6151 37640 CA FIVE 001758,000032: 6152 56063 XCH TEMPI 001759,000033: 6153 40000 COM 001760,000034: 6154 67642 AD TEN 001761,000035: 6155 00006 EXTEND 001762,000036: 6156 16160 BZF XCH1 001763,000037: 6157 16247 TCF VXCERROR 001764,000038: 6160 24062 XCH1 INCR ERRSUB # 2 001765,000039: 6161 30063 CA TEMPI 001766,000040: 6162 40000 COM 001767,000041: 6163 67640 AD FIVE 001768,000042: 6164 00006 EXTEND 001769,000043: 6165 16167 BZF XCH2 001770,000044: 6166 16247 TCF VXCERROR 001771,000045: 6167 XCH2 001772,000046: 001773,000047: # Same, but with some overflow correction. 001774,000048: 6167 24062 INCR ERRSUB # 3 001775,000049: 6170 37642 CA TEN 001776,000050: 6171 54063 TS TEMPI 001777,000051: 6172 37651 CA MAXP 001778,000052: 6173 67640 AD FIVE 001779,000053: 6174 56063 XCH TEMPI 001780,000054: 6175 54000 OVSK 001781,000055: 6176 16200 TCF XCH3A 001782,000056: 6177 16247 TCF VXCERROR 001783,000057: 6200 24062 XCH3A INCR ERRSUB # 4 001784,000058: 6201 40000 COM 001785,000059: 6202 67642 AD TEN 001786,000060: 6203 00006 EXTEND 001787,000061: 6204 16206 BZF XCH3 001788,000062: 6205 16247 TCF VXCERROR 001789,000063: 6206 24062 XCH3 INCR ERRSUB # 5 001790,000064: 6207 30063 CA TEMPI 001791,000065: 6210 24000 INCR A 001792,000066: 6211 40000 COM 001793,000067: 6212 67640 AD FIVE 001794,000068: 6213 00006 EXTEND 001795,000069: 6214 16216 BZF XCH4 001796,000070: 6215 16247 TCF VXCERROR 001797,000071: 6216 XCH4 001798,000072: 001799,000073: # Check for "XCH A", as if it's of any interest. 001800,000074: 6216 24062 INCR ERRSUB # 6 001801,000075: 6217 37651 CA MAXP 001802,000076: 6220 67642 AD TEN 001803,000077: 6221 56000 XCH A 001804,000078: 6222 54000 OVSK 001805,000079: 6223 16247 TCF VXCERROR 001806,000080: 6224 24062 XCH5 INCR ERRSUB # 7 001807,000081: 6225 24000 INCR A 001808,000082: 6226 54002 TS Q 001809,000083: 6227 16230 NOOP 001810,000084: 6230 30002 CA Q 001811,000085: 6231 40000 COM 001812,000086: 6232 67642 AD TEN 001813,000087: 6233 00006 EXTEND 001814,000088: 6234 16247 BZF VXCERROR # Q contains overflow. 001815,000089: 6235 30002 CA Q 001816,000090: 6236 54063 TS TEMPI 001817,000091: 6237 16240 NOOP 001818,000092: 6240 37642 CA TEN 001819,000093: 6241 40000 COM 001820,000094: 6242 60063 AD TEMPI 001821,000095: 6243 00006 EXTEND 001822,000096: 6244 16246 BZF +2 # ... but TEMP doesn't. 001823,000097: 6245 16247 TCF VXCERROR 001824,000098: 001825,000099: 001826,000100: 6246 XCH6 001827,000101: 001828,000102: 6246 16250 TCF +2 001829,000103: 6247 07437 VXCERROR TC ERRORDSP 001830,000104: 6250 30007 CA ZEROES 001831,000105: 6251 54062 TS ERRSUB 001832,000106: End of include-file ValidateXCH.agc. Parent file is Validation.agc