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