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