Source Code

000778,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 000779,000002: # 000780,000003: # This file is part of yaAGC. 000781,000004: 000782,000005: # yaAGC is free software; you can redistribute it and/or modify 000783,000006: # it under the terms of the GNU General Public License as published by 000784,000007: # the Free Software Foundation; either version 2 of the License, or 000785,000008: # (at your option) any later version. 000786,000009: 000787,000010: # yaAGC is distributed in the hope that it will be useful, 000788,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 000789,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 000790,000013: # GNU General Public License for more details. 000791,000014: 000792,000015: # You should have received a copy of the GNU General Public License 000793,000016: # along with yaAGC; if not, write to the Free Software 000794,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 000795,000018: 000796,000019: # Filename: ValidateINCR.agc 000797,000020: # Purpose: This is the part of the validation suite which tests the 000798,000021: # INCR instruction. 000799,000022: # Mod history: 07/05/04 RSB. Began. 000800,000023: # 07/08/04 RSB. Overflow now inhibits BZF rather than being 000801,000024: # ignored by it. 000802,000025: 000803,000026: 000804,000027: 4772 24061 INCR ERRNUM 000805,000028: 000806,000029: # Accumulator 000807,000030: 4773 24062 INCR ERRSUB # 1 000808,000031: 4774 37631 CA NEGONE 000809,000032: 4775 24000 INCR A 000810,000033: 4776 00006 EXTEND 000811,000034: 4777 15001 BZF INCROK1 000812,000035: 5000 15071 TCF VINERROR 000813,000036: 5001 24062 INCROK1 INCR ERRSUB # 2 000814,000037: 5002 54000 OVSK 000815,000038: 5003 15005 TCF INCROK2 000816,000039: 5004 15071 TCF VINERROR 000817,000040: 5005 24062 INCROK2 INCR ERRSUB # 3 000818,000041: 5006 24000 INCR A 000819,000042: 5007 54000 OVSK 000820,000043: 5010 15012 TCF INCROK3 000821,000044: 5011 15071 TCF VINERROR 000822,000045: 5012 24062 INCROK3 INCR ERRSUB # 4 000823,000046: 5013 54001 TS L 000824,000047: 5014 37635 CA ONE 000825,000048: 5015 00006 EXTEND 000826,000049: 5016 60001 SU L 000827,000050: 5017 00006 EXTEND 000828,000051: 5020 15022 BZF INCROK4 000829,000052: 5021 15071 TCF VINERROR 000830,000053: 5022 24062 INCROK4 INCR ERRSUB # 5 000831,000054: 5023 37652 CA MAXP-1 000832,000055: 5024 24000 INCR A 000833,000056: 5025 54000 OVSK 000834,000057: 5026 15030 TCF INCROK5 000835,000058: 5027 15071 TCF VINERROR 000836,000059: 5030 24062 INCROK5 INCR ERRSUB # 6 000837,000060: 5031 24000 INCR A 000838,000061: 5032 00006 EXTEND 000839,000062: 5033 15071 BZF VINERROR 000840,000063: 5034 24062 INCR ERRSUB # 7 000841,000064: 5035 54000 OVSK # We expect there to BE overflow. 000842,000065: 5036 15071 TCF VINERROR 000843,000066: 000844,000067: # TEMPI 000845,000068: 5037 24062 INCR ERRSUB # 10 octal 000846,000069: 5040 37631 CA NEGONE 000847,000070: 5041 54063 TS TEMPI 000848,000071: 5042 24063 INCR TEMPI 000849,000072: 5043 30063 CA TEMPI 000850,000073: 5044 00006 EXTEND 000851,000074: 5045 15047 BZF INCROK7 000852,000075: 5046 15071 TCF VINERROR 000853,000076: 5047 24062 INCROK7 INCR ERRSUB # 11 000854,000077: 5050 24063 INCR TEMPI 000855,000078: 5051 37635 CA ONE 000856,000079: 5052 00006 EXTEND 000857,000080: 5053 60001 SU L 000858,000081: 5054 00006 EXTEND 000859,000082: 5055 15057 BZF INCROK8 000860,000083: 5056 15071 TCF VINERROR 000861,000084: 5057 24062 INCROK8 INCR ERRSUB # 12 000862,000085: 5060 37652 CA MAXP-1 000863,000086: 5061 54063 TS TEMPI 000864,000087: 5062 24063 INCR TEMPI 000865,000088: 5063 24063 INCR TEMPI 000866,000089: 5064 30063 CA TEMPI 000867,000090: 5065 00006 EXTEND 000868,000091: 5066 15070 BZF INCROK9 000869,000092: 5067 15071 TCF VINERROR 000870,000093: 5070 INCROK9 000871,000094: 000872,000095: 5070 15072 TCF +2 000873,000096: 5071 07437 VINERROR TC ERRORDSP 000874,000097: 5072 30007 CA ZEROES 000875,000098: 5073 54062 TS ERRSUB 000876,000099: End of include-file ValidateINCR.agc. Parent file is Validation.agc