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