Source Code

000605,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 000606,000002: # 000607,000003: # This file is part of yaAGC. 000608,000004: 000609,000005: # yaAGC is free software; you can redistribute it and/or modify 000610,000006: # it under the terms of the GNU General Public License as published by 000611,000007: # the Free Software Foundation; either version 2 of the License, or 000612,000008: # (at your option) any later version. 000613,000009: 000614,000010: # yaAGC is distributed in the hope that it will be useful, 000615,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 000616,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 000617,000013: # GNU General Public License for more details. 000618,000014: 000619,000015: # You should have received a copy of the GNU General Public License 000620,000016: # along with yaAGC; if not, write to the Free Software 000621,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 000622,000018: 000623,000019: # Filename: ValidateLXCH.agc 000624,000020: # Purpose: This is the part of the Validation suite used for checking 000625,000021: # the LXCH instruction. 000626,000022: # Mod history: 07/04/04 RSB. Began. 000627,000023: 000628,000024: 4577 24061 INCR ERRNUM 000629,000025: 000630,000026: # First we'll swap L and TEMPI 000631,000027: 4600 24062 INCR ERRSUB # 1 000632,000028: 4601 37430 CA ONE 000633,000029: 4602 54063 TS TEMPI 000634,000030: 4603 37424 CA NEGONE 000635,000031: 4604 54001 TS L 000636,000032: 4605 22063 LXCH TEMPI 000637,000033: 4606 30063 CA TEMPI 000638,000034: 4607 67430 AD ONE 000639,000035: 4610 00006 EXTEND 000640,000036: 4611 14613 BZF LXCHOK1 000641,000037: 4612 14711 TCF VLXERROR 000642,000038: 4613 24062 LXCHOK1 INCR ERRSUB # 2 000643,000039: 4614 30001 CA L 000644,000040: 4615 67424 AD NEGONE 000645,000041: 4616 00006 EXTEND 000646,000042: 4617 14621 BZF LXCHOK2 000647,000043: 4620 14711 TCF VLXERROR 000648,000044: 4621 LXCHOK2 000649,000045: # Now we'll swap A and L (without overflow) 000650,000046: 4621 24062 INCR ERRSUB # 3 000651,000047: 4622 37424 CA NEGONE 000652,000048: 4623 54001 TS L 000653,000049: 4624 37430 CA ONE 000654,000050: 4625 22000 LXCH A 000655,000051: 4626 67430 AD ONE 000656,000052: 4627 00006 EXTEND 000657,000053: 4630 14632 BZF LXCHOK3 000658,000054: 4631 14711 TCF VLXERROR 000659,000055: 4632 24062 LXCHOK3 INCR ERRSUB # 4 000660,000056: 4633 30001 CA L 000661,000057: 4634 67424 AD NEGONE 000662,000058: 4635 00006 EXTEND 000663,000059: 4636 14640 BZF LXCHOK4 000664,000060: 4637 14711 TCF VLXERROR 000665,000061: 4640 LXCHOK4 000666,000062: # Now we'll swap A and L with + overflow. 000667,000063: 4640 24062 INCR ERRSUB # 5 000668,000064: 4641 37424 CA NEGONE 000669,000065: 4642 54001 TS L 000670,000066: 4643 37443 CA MAXP 000671,000067: 4644 67430 AD ONE 000672,000068: 4645 54000 OVSK 000673,000069: 4646 14711 TCF VLXERROR 000674,000070: 4647 24062 INCR ERRSUB # 6 000675,000071: 4650 54000 OVSK 000676,000072: 4651 14711 TCF VLXERROR 000677,000073: 4652 24062 INCR ERRSUB # 7 000678,000074: 4653 22000 LXCH A 000679,000075: 4654 67430 AD ONE 000680,000076: 4655 00006 EXTEND 000681,000077: 4656 14660 BZF LXCHOK5 000682,000078: 4657 14711 TCF VLXERROR 000683,000079: 4660 24062 LXCHOK5 INCR ERRSUB # 10 octal 000684,000080: 4661 30001 CA L 000685,000081: 4662 00006 EXTEND 000686,000082: 4663 14711 BZF VLXERROR 000687,000083: 4664 LXCHOK6 000688,000084: # Now we'll swap A and L with - overflow. 000689,000085: 4664 24062 INCR ERRSUB # 11 000690,000086: 4665 37424 CA NEGONE 000691,000087: 4666 54001 TS L 000692,000088: 4667 37447 CA MAXN 000693,000089: 4670 67424 AD NEGONE 000694,000090: 4671 54000 OVSK 000695,000091: 4672 14711 TCF VLXERROR 000696,000092: 4673 24062 INCR ERRSUB # 12 000697,000093: 4674 54000 OVSK 000698,000094: 4675 14711 TCF VLXERROR 000699,000095: 4676 24062 INCR ERRSUB # 13 000700,000096: 4677 22000 LXCH A 000701,000097: 4700 67430 AD ONE 000702,000098: 4701 00006 EXTEND 000703,000099: 4702 14704 BZF LXCHOK7 000704,000100: 4703 14711 TCF VLXERROR 000705,000101: 4704 24062 LXCHOK7 INCR ERRSUB # 14 000706,000102: 4705 30001 CA L 000707,000103: 4706 00006 EXTEND 000708,000104: 4707 14711 BZF VLXERROR 000709,000105: 4710 LXCHOK8 000710,000106: 000711,000107: 4710 14712 TCF +2 000712,000108: 4711 07240 VLXERROR TC ERRORDSP 000713,000109: 4712 30007 CA ZEROES 000714,000110: 4713 54062 TS ERRSUB 000715,000111: End of include-file ValidateLXCH.agc. Parent file is Validation.agc