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