Source Code

000661,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 000662,000002: # 000663,000003: # This file is part of yaAGC. 000664,000004: 000665,000005: # yaAGC is free software; you can redistribute it and/or modify 000666,000006: # it under the terms of the GNU General Public License as published by 000667,000007: # the Free Software Foundation; either version 2 of the License, or 000668,000008: # (at your option) any later version. 000669,000009: 000670,000010: # yaAGC is distributed in the hope that it will be useful, 000671,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 000672,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 000673,000013: # GNU General Public License for more details. 000674,000014: 000675,000015: # You should have received a copy of the GNU General Public License 000676,000016: # along with yaAGC; if not, write to the Free Software 000677,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 000678,000018: 000679,000019: # Filename: ValidateLXCH.agc 000680,000020: # Purpose: This is the part of the Validation suite used for checking 000681,000021: # the LXCH instruction. 000682,000022: # Mod history: 07/04/04 RSB. Began. 000683,000023: 000684,000024: 4653 24061 INCR ERRNUM 000685,000025: 000686,000026: # First we'll swap L and TEMPI 000687,000027: 4654 24062 INCR ERRSUB # 1 000688,000028: 4655 37635 CA ONE 000689,000029: 4656 54063 TS TEMPI 000690,000030: 4657 37631 CA NEGONE 000691,000031: 4660 54001 TS L 000692,000032: 4661 22063 LXCH TEMPI 000693,000033: 4662 30063 CA TEMPI 000694,000034: 4663 67635 AD ONE 000695,000035: 4664 00006 EXTEND 000696,000036: 4665 14667 BZF LXCHOK1 000697,000037: 4666 14767 TCF VLXERROR 000698,000038: 4667 24062 LXCHOK1 INCR ERRSUB # 2 000699,000039: 4670 30001 CA L 000700,000040: 4671 67631 AD NEGONE 000701,000041: 4672 00006 EXTEND 000702,000042: 4673 14675 BZF LXCHOK2 000703,000043: 4674 14767 TCF VLXERROR 000704,000044: 4675 LXCHOK2 000705,000045: # Now we'll swap A and L (without overflow) 000706,000046: 4675 24062 INCR ERRSUB # 3 000707,000047: 4676 37631 CA NEGONE 000708,000048: 4677 54001 TS L 000709,000049: 4700 37635 CA ONE 000710,000050: 4701 22000 LXCH A 000711,000051: 4702 67635 AD ONE 000712,000052: 4703 00006 EXTEND 000713,000053: 4704 14706 BZF LXCHOK3 000714,000054: 4705 14767 TCF VLXERROR 000715,000055: 4706 24062 LXCHOK3 INCR ERRSUB # 4 000716,000056: 4707 30001 CA L 000717,000057: 4710 67631 AD NEGONE 000718,000058: 4711 00006 EXTEND 000719,000059: 4712 14714 BZF LXCHOK4 000720,000060: 4713 14767 TCF VLXERROR 000721,000061: 4714 LXCHOK4 000722,000062: # Now we'll swap A and L with + overflow. 000723,000063: 4714 24062 INCR ERRSUB # 5 000724,000064: 4715 37631 CA NEGONE 000725,000065: 4716 54001 TS L 000726,000066: 4717 37651 CA MAXP 000727,000067: 4720 67635 AD ONE 000728,000068: 4721 54000 OVSK 000729,000069: 4722 14767 TCF VLXERROR 000730,000070: 4723 24062 INCR ERRSUB # 6 000731,000071: 4724 54000 OVSK 000732,000072: 4725 14767 TCF VLXERROR 000733,000073: 4726 24062 INCR ERRSUB # 7 000734,000074: 4727 22000 LXCH A 000735,000075: 4730 67635 AD ONE 000736,000076: 4731 00006 EXTEND 000737,000077: 4732 14734 BZF LXCHOK5 000738,000078: 4733 14767 TCF VLXERROR 000739,000079: 4734 24062 LXCHOK5 INCR ERRSUB # 10 octal 000740,000080: 4735 30001 CA L 000741,000081: 4736 00006 EXTEND 000742,000082: 4737 14741 BZF LXCHOK6 000743,000083: 4740 04767 TC VLXERROR 000744,000084: 4741 LXCHOK6 000745,000085: # Now we'll swap A and L with - overflow. 000746,000086: 4741 24062 INCR ERRSUB # 11 000747,000087: 4742 37631 CA NEGONE 000748,000088: 4743 54001 TS L 000749,000089: 4744 37655 CA MAXN 000750,000090: 4745 67631 AD NEGONE 000751,000091: 4746 54000 OVSK 000752,000092: 4747 14767 TCF VLXERROR 000753,000093: 4750 24062 INCR ERRSUB # 12 000754,000094: 4751 54000 OVSK 000755,000095: 4752 14767 TCF VLXERROR 000756,000096: 4753 24062 INCR ERRSUB # 13 000757,000097: 4754 22000 LXCH A 000758,000098: 4755 67635 AD ONE 000759,000099: 4756 00006 EXTEND 000760,000100: 4757 14761 BZF LXCHOK7 000761,000101: 4760 14767 TCF VLXERROR 000762,000102: 4761 24062 LXCHOK7 INCR ERRSUB # 14 000763,000103: 4762 30001 CA L 000764,000104: 4763 00006 EXTEND 000765,000105: 4764 14766 BZF LXCHOK8 000766,000106: 4765 04767 TC VLXERROR 000767,000107: 4766 LXCHOK8 000768,000108: 000769,000109: 4766 14770 TCF +2 000770,000110: 4767 07437 VLXERROR TC ERRORDSP 000771,000111: 4770 30007 CA ZEROES 000772,000112: 4771 54062 TS ERRSUB 000773,000113: End of include-file ValidateLXCH.agc. Parent file is Validation.agc