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