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