Source Code

000720,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 000721,000002: # 000722,000003: # This file is part of yaAGC. 000723,000004: 000724,000005: # yaAGC is free software; you can redistribute it and/or modify 000725,000006: # it under the terms of the GNU General Public License as published by 000726,000007: # the Free Software Foundation; either version 2 of the License, or 000727,000008: # (at your option) any later version. 000728,000009: 000729,000010: # yaAGC is distributed in the hope that it will be useful, 000730,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 000731,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 000732,000013: # GNU General Public License for more details. 000733,000014: 000734,000015: # You should have received a copy of the GNU General Public License 000735,000016: # along with yaAGC; if not, write to the Free Software 000736,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 000737,000018: 000738,000019: # Filename: ValidateINCR.agc 000739,000020: # Purpose: This is the part of the validation suite which tests the 000740,000021: # INCR instruction. 000741,000022: # Mod history: 07/05/04 RSB. Began. 000742,000023: # 07/08/04 RSB. Overflow now inhibits BZF rather than being 000743,000024: # ignored by it. 000744,000025: 000745,000026: 000746,000027: 4714 24061 INCR ERRNUM 000747,000028: 000748,000029: # Accumulator 000749,000030: 4715 24062 INCR ERRSUB # 1 000750,000031: 4716 37424 CA NEGONE 000751,000032: 4717 24000 INCR A 000752,000033: 4720 00006 EXTEND 000753,000034: 4721 14723 BZF INCROK1 000754,000035: 4722 15013 TCF VINERROR 000755,000036: 4723 24062 INCROK1 INCR ERRSUB # 2 000756,000037: 4724 54000 OVSK 000757,000038: 4725 14727 TCF INCROK2 000758,000039: 4726 15013 TCF VINERROR 000759,000040: 4727 24062 INCROK2 INCR ERRSUB # 3 000760,000041: 4730 24000 INCR A 000761,000042: 4731 54000 OVSK 000762,000043: 4732 14734 TCF INCROK3 000763,000044: 4733 15013 TCF VINERROR 000764,000045: 4734 24062 INCROK3 INCR ERRSUB # 4 000765,000046: 4735 54001 TS L 000766,000047: 4736 37430 CA ONE 000767,000048: 4737 00006 EXTEND 000768,000049: 4740 60001 SU L 000769,000050: 4741 00006 EXTEND 000770,000051: 4742 14744 BZF INCROK4 000771,000052: 4743 15013 TCF VINERROR 000772,000053: 4744 24062 INCROK4 INCR ERRSUB # 5 000773,000054: 4745 37444 CA MAXP-1 000774,000055: 4746 24000 INCR A 000775,000056: 4747 54000 OVSK 000776,000057: 4750 14752 TCF INCROK5 000777,000058: 4751 15013 TCF VINERROR 000778,000059: 4752 24062 INCROK5 INCR ERRSUB # 6 000779,000060: 4753 24000 INCR A 000780,000061: 4754 00006 EXTEND 000781,000062: 4755 15013 BZF VINERROR 000782,000063: 4756 24062 INCR ERRSUB # 7 000783,000064: 4757 54000 OVSK # We expect there to BE overflow. 000784,000065: 4760 15013 TCF VINERROR 000785,000066: 000786,000067: # TEMPI 000787,000068: 4761 24062 INCR ERRSUB # 10 octal 000788,000069: 4762 37424 CA NEGONE 000789,000070: 4763 54063 TS TEMPI 000790,000071: 4764 24063 INCR TEMPI 000791,000072: 4765 30063 CA TEMPI 000792,000073: 4766 00006 EXTEND 000793,000074: 4767 14771 BZF INCROK7 000794,000075: 4770 15013 TCF VINERROR 000795,000076: 4771 24062 INCROK7 INCR ERRSUB # 11 000796,000077: 4772 24063 INCR TEMPI 000797,000078: 4773 37430 CA ONE 000798,000079: 4774 00006 EXTEND 000799,000080: 4775 60001 SU L 000800,000081: 4776 00006 EXTEND 000801,000082: 4777 15001 BZF INCROK8 000802,000083: 5000 15013 TCF VINERROR 000803,000084: 5001 24062 INCROK8 INCR ERRSUB # 12 000804,000085: 5002 37444 CA MAXP-1 000805,000086: 5003 54063 TS TEMPI 000806,000087: 5004 24063 INCR TEMPI 000807,000088: 5005 24063 INCR TEMPI 000808,000089: 5006 30063 CA TEMPI 000809,000090: 5007 00006 EXTEND 000810,000091: 5010 15012 BZF INCROK9 000811,000092: 5011 15013 TCF VINERROR 000812,000093: 5012 INCROK9 000813,000094: 000814,000095: 5012 15014 TCF +2 000815,000096: 5013 07240 VINERROR TC ERRORDSP 000816,000097: 5014 30007 CA ZEROES 000817,000098: 5015 54062 TS ERRSUB 000818,000099: End of include-file ValidateINCR.agc. Parent file is Validation.agc