Quellcode-Bibliothek nc207a.cob

000100 IDENTIFICATION DIVISION.                                         NC2074.2
000200 PROGRAM-ID.                                                      NC2074.2
000300     NC207A.                                                      NC2074.2
000400****************************************************************  NC2074.2
000500*                                                              *  NC2074.2
000600*    VALIDATION FOR:-                                          *  NC2074.2
000700*                                                              *  NC2074.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2074.2
000900*                                                              *  NC2074.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2074.2
001100*                                                              *  NC2074.2
001200****************************************************************  NC2074.2
001300*                                                              *  NC2074.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2074.2
001500*                                                              *  NC2074.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC2074.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC2074.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC2074.2
001900*                                                              *  NC2074.2
002000****************************************************************  NC2074.2
002100*                                                              *  NC2074.2
002200*    PROGRAM NC207A TESTS THE USE OF FORMAT 1 QUALIFICATION    *  NC2074.2
002300*    USING FORMATS 1, 2 AND 3 OF THE "ADD" STATEMENT, FORMATS  *  NC2074.2
002400*    2 AND 3 OF THE "SUBTRACT" STATEMENT, FORMAT 2 OF THE      *  NC2074.2
002500*    "MULTIPLY" STATEMENT AND FORMAT 3 OF THE "DIVIDE"*           NC2074.2
002600*    STATEMENT.                                                *  NC2074.2
002700*    THE MAJORITY OF TESTST USE UP TO FIVE LEVELS OF           *  NC2074.2
002800*    QUALIFICATION BUT THE MINIMUM REQUIREMENT OF 49 LEVELS IN *  NC2074.2
002900*    THE NUCLEUS IS ALSO TESTED.                               *  NC2074.2
003000*                                                              *  NC2074.2
003100****************************************************************  NC2074.2
003200 ENVIRONMENT DIVISION.                                            NC2074.2
003300 CONFIGURATION SECTION.                                           NC2074.2
003400 SOURCE-COMPUTER.                                                 NC2074.2
003500     Card0130.                                                    NC2074.2
003600 OBJECT-COMPUTER.                                                 NC2074.2
003700     Card0131.                                                    NC2074.2
003800 INPUT-OUTPUT SECTION.                                            NC2074.2
003900 FILE-CONTROL.                                                    NC2074.2
004000     SELECT PRINT-FILE ASSIGN TO                                  NC2074.2
004100     "C0085" .                                                    NC2074.2
004200 DATA DIVISION.                                                   NC2074.2
004300 FILE SECTION.                                                    NC2074.2
004400 FD  PRINT-FILE.                                                  NC2074.2
004500 01  PRINT-REC PICTURE X(120).                                    NC2074.2
004600 01  DUMMY-RECORD PICTURE X(120).                                 NC2074.2
004700 WORKING-STORAGE SECTION.                                         NC2074.2
004800 77  ACCUMULATOR1                PIC 9(18) VALUE ZERO.            NC2074.2
004900 77  ACCUMULATOR2                PIC 9(18) VALUE ZERO.            NC2074.2
005000 01  TABLE-LEVEL-5A.                                              NC2074.2
005100     02  TABLE-LEVEL-4A.                                          NC2074.2
005200         03  TABLE-LEVEL-3A.                                      NC2074.2
005300             04  TABLE-LEVEL-2A.                                  NC2074.2
005400                 05  TABLE-LEVEL-1A.                              NC2074.2
005500                     06  TBL-ITEM-1   PIC 9  VALUE 1.             NC2074.2
005600                 05  TABLE-LEVEL-1B.                              NC2074.2
005700                     06  TBL-ITEM-1   PIC 9(2)  VALUE 2.          NC2074.2
005800             04  TABLE-LEVEL-2B.                                  NC2074.2
005900                 05  TABLE-LEVEL-1A.                              NC2074.2
006000                     06  TBL-ITEM-1   PIC 9(3)  VALUE 3.          NC2074.2
006100                 05  TABLE-LEVEL-1B.                              NC2074.2
006200                     06  TBL-ITEM-1   PIC 9(4)  VALUE 4.          NC2074.2
006300         03  TABLE-LEVEL-3B.                                      NC2074.2
006400             04  TABLE-LEVEL-2A.                                  NC2074.2
006500                 05  TABLE-LEVEL-1A.                              NC2074.2
006600                     06  TBL-ITEM-1   PIC 9(5)  VALUE 5.          NC2074.2
006700                 05  TABLE-LEVEL-1B.                              NC2074.2
006800                     06  TBL-ITEM-1   PIC 9(6)  VALUE 6.          NC2074.2
006900             04  TABLE-LEVEL-2B.                                  NC2074.2
007000                 05  TABLE-LEVEL-1A.                              NC2074.2
007100                     06  TBL-ITEM-1   PIC 9(7)  VALUE 7.          NC2074.2
007200                 05  TABLE-LEVEL-1B.                              NC2074.2
007300                     06  TBL-ITEM-1   PIC 9(8)  VALUE 8.          NC2074.2
007400     02  TABLE-LEVEL-4B.                                          NC2074.2
007500         03  TABLE-LEVEL-3A.                                      NC2074.2
007600             04  TABLE-LEVEL-2A.                                  NC2074.2
007700                 05  TABLE-LEVEL-1A.                              NC2074.2
007800                     06  TBL-ITEM-1   PIC 9(9)  VALUE 9.          NC2074.2
007900                 05  TABLE-LEVEL-1B.                              NC2074.2
008000                     06  TBL-ITEM-1   PIC 9(10) VALUE 10.         NC2074.2
008100             04  TABLE-LEVEL-2B.                                  NC2074.2
008200                 05  TABLE-LEVEL-1A.                              NC2074.2
008300                     06  TBL-ITEM-1   PIC 9(11) VALUE 11.         NC2074.2
008400                 05  TABLE-LEVEL-1B.                              NC2074.2
008500                     06  TBL-ITEM-1   PIC 9(12) VALUE 12.         NC2074.2
008600         03  TABLE-LEVEL-3B.                                      NC2074.2
008700             04  TABLE-LEVEL-2A.                                  NC2074.2
008800                 05  TABLE-LEVEL-1A.                              NC2074.2
008900                     06  TBL-ITEM-1   PIC 9(13) VALUE 13.         NC2074.2
009000                 05  TABLE-LEVEL-1B.                              NC2074.2
009100                     06  TBL-ITEM-1   PIC 9(14) VALUE 14.         NC2074.2
009200             04  TABLE-LEVEL-2B.                                  NC2074.2
009300                 05  TABLE-LEVEL-1A.                              NC2074.2
009400                     06  TBL-ITEM-1   PIC 9(15) VALUE 15.         NC2074.2
009500                 05  TABLE-LEVEL-1B.                              NC2074.2
009600                     06  TBL-ITEM-1   PIC 9(16) VALUE 16.         NC2074.2
009700 01  TABLE-LEVEL-5B.                                              NC2074.2
009800     02  TABLE-LEVEL-4A.                                          NC2074.2
009900         03  TABLE-LEVEL-3A.                                      NC2074.2
010000             04  TABLE-LEVEL-2A.                                  NC2074.2
010100                 05  TABLE-LEVEL-1A.                              NC2074.2
010200                     06  TBL-ITEM-1   PIC 9(16) VALUE 16.         NC2074.2
010300                 05  TABLE-LEVEL-1B.                              NC2074.2
010400                     06  TBL-ITEM-1   PIC 9(15) VALUE 15.         NC2074.2
010500             04  TABLE-LEVEL-2B.                                  NC2074.2
010600                 05  TABLE-LEVEL-1A.                              NC2074.2
010700                     06  TBL-ITEM-1   PIC 9(14) VALUE 14.         NC2074.2
010800                 05  TABLE-LEVEL-1B.                              NC2074.2
010900                     06  TBL-ITEM-1   PIC 9(13) VALUE 13.         NC2074.2
011000         03  TABLE-LEVEL-3B.                                      NC2074.2
011100             04  TABLE-LEVEL-2A.                                  NC2074.2
011200                 05  TABLE-LEVEL-1A.                              NC2074.2
011300                     06  TBL-ITEM-1   PIC 9(12) VALUE 12.         NC2074.2
011400                 05  TABLE-LEVEL-1B.                              NC2074.2
011500                     06  TBL-ITEM-1   PIC 9(11) VALUE 11.         NC2074.2
011600             04  TABLE-LEVEL-2B.                                  NC2074.2
011700                 05  TABLE-LEVEL-1A.                              NC2074.2
011800                     06  TBL-ITEM-1   PIC 9(10) VALUE 10.         NC2074.2
011900                 05  TABLE-LEVEL-1B.                              NC2074.2
012000                     06  TBL-ITEM-1   PIC 9(9)  VALUE 9.          NC2074.2
012100     02  TABLE-LEVEL-4B.                                          NC2074.2
012200         03  TABLE-LEVEL-3A.                                      NC2074.2
012300             04  TABLE-LEVEL-2A.                                  NC2074.2
012400                 05  TABLE-LEVEL-1A.                              NC2074.2
012500                     06  TBL-ITEM-1   PIC 9(8)  VALUE 8.          NC2074.2
012600                 05  TABLE-LEVEL-1B.                              NC2074.2
012700                     06  TBL-ITEM-1   PIC 9(7)  VALUE 7.          NC2074.2
012800             04  TABLE-LEVEL-2B.                                  NC2074.2
012900                 05  TABLE-LEVEL-1A.                              NC2074.2
013000                     06  TBL-ITEM-1   PIC 9(6)  VALUE 6.          NC2074.2
013100                 05  TABLE-LEVEL-1B.                              NC2074.2
013200                     06  TBL-ITEM-1   PIC 9(5)  VALUE 5.          NC2074.2
013300         03  TABLE-LEVEL-3B.                                      NC2074.2
013400             04  TABLE-LEVEL-2A.                                  NC2074.2
013500                 05  TABLE-LEVEL-1A.                              NC2074.2
013600                     06  TBL-ITEM-1   PIC 9(4)  VALUE 4.          NC2074.2
013700                 05  TABLE-LEVEL-1B.                              NC2074.2
013800                     06  TBL-ITEM-1   PIC 9(3)  VALUE 3.          NC2074.2
013900             04  TABLE-LEVEL-2B.                                  NC2074.2
014000                 05  TABLE-LEVEL-1A.                              NC2074.2
014100                     06  TBL-ITEM-1   PIC 9(2)  VALUE 2.          NC2074.2
014200                 05  TABLE-LEVEL-1B.                              NC2074.2
014300                     06  TBL-ITEM-1   PIC 99 VALUE 1.             NC2074.2
014400                                                                  NC2074.2
014500 01  TABLE-LEVEL-5C.                                              NC2074.2
014600     02  TABLE-LEVEL-4A.                                          NC2074.2
014700         03  TABLE-LEVEL-3A.                                      NC2074.2
014800             04  TABLE-LEVEL-2A.                                  NC2074.2
014900                 05  TABLE-LEVEL-1A.                              NC2074.2
015000                     06  TBL-ITEM-1   PIC 9  VALUE 1.             NC2074.2
015100                 05  TABLE-LEVEL-1B.                              NC2074.2
015200                     06  TBL-ITEM-1   PIC 9(2)  VALUE  2.         NC2074.2
015300             04  TABLE-LEVEL-2B.                                  NC2074.2
015400                 05  TABLE-LEVEL-1A.                              NC2074.2
015500                     06  TBL-ITEM-1   PIC 9(3)  VALUE  3.         NC2074.2
015600                 05  TABLE-LEVEL-1B.                              NC2074.2
015700                     06  TBL-ITEM-1   PIC 9(4)  VALUE  4.         NC2074.2
015800         03  TABLE-LEVEL-3B.                                      NC2074.2
015900             04  TABLE-LEVEL-2A.                                  NC2074.2
016000                 05  TABLE-LEVEL-1A.                              NC2074.2
016100                     06  TBL-ITEM-1   PIC 9(5)  VALUE  5.         NC2074.2
016200                 05  TABLE-LEVEL-1B.                              NC2074.2
016300                     06  TBL-ITEM-1   PIC 9(6)  VALUE  6.         NC2074.2
016400             04  TABLE-LEVEL-2B.                                  NC2074.2
016500                 05  TABLE-LEVEL-1A.                              NC2074.2
016600                     06  TBL-ITEM-1   PIC 9(7)  VALUE  7.         NC2074.2
016700                 05  TABLE-LEVEL-1B.                              NC2074.2
016800                     06  TBL-ITEM-1   PIC 9(8)  VALUE  8.         NC2074.2
016900     02  TABLE-LEVEL-4B.                                          NC2074.2
017000         03  TABLE-LEVEL-3A.                                      NC2074.2
017100             04  TABLE-LEVEL-2A.                                  NC2074.2
017200                 05  TABLE-LEVEL-1A.                              NC2074.2
017300                     06  TBL-ITEM-1   PIC 9(9)  VALUE  9.         NC2074.2
017400                 05  TABLE-LEVEL-1B.                              NC2074.2
017500                     06  TBL-ITEM-1   PIC 9(10) VALUE 10.         NC2074.2
017600             04  TABLE-LEVEL-2B.                                  NC2074.2
017700                 05  TABLE-LEVEL-1A.                              NC2074.2
017800                     06  TBL-ITEM-1   PIC 9(11) VALUE 11.         NC2074.2
017900                 05  TABLE-LEVEL-1B.                              NC2074.2
018000                     06  TBL-ITEM-1   PIC 9(12) VALUE 12.         NC2074.2
018100         03  TABLE-LEVEL-3B.                                      NC2074.2
018200             04  TABLE-LEVEL-2A.                                  NC2074.2
018300                 05  TABLE-LEVEL-1A.                              NC2074.2
018400                     06  TBL-ITEM-1   PIC 9(13) VALUE 13.         NC2074.2
018500                 05  TABLE-LEVEL-1B.                              NC2074.2
018600                     06  TBL-ITEM-1   PIC 9(14) VALUE 14.         NC2074.2
018700             04  TABLE-LEVEL-2B.                                  NC2074.2
018800                 05  TABLE-LEVEL-1A.                              NC2074.2
018900                     06  TBL-ITEM-1   PIC 9(15) VALUE 15.         NC2074.2
019000                 05  TABLE-LEVEL-1B.                              NC2074.2
019100                     06  TBL-ITEM-1   PIC 9(16) VALUE 16.         NC2074.2
019200 01  TABLE-5B-INIT.                                               NC2074.2
019300     02 FILLER         PIC 9(16)  VALUE  16.                      NC2074.2
019400     02 FILLER         PIC 9(15)  VALUE  15.                      NC2074.2
019500     02 FILLER         PIC 9(14)  VALUE  14.                      NC2074.2
019600     02 FILLER         PIC 9(13)  VALUE  13.                      NC2074.2
019700     02 FILLER         PIC 9(12)  VALUE  12.                      NC2074.2
019800     02 FILLER         PIC 9(11)  VALUE  11.                      NC2074.2
019900     02 FILLER         PIC 9(10)  VALUE  10.                      NC2074.2
020000     02 FILLER         PIC 9(9)   VALUE  9.                       NC2074.2
020100     02 FILLER         PIC 9(8)   VALUE  8.                       NC2074.2
020200     02 FILLER         PIC 9(7)   VALUE  7.                       NC2074.2
020300     02 FILLER         PIC 9(6)   VALUE  6.                       NC2074.2
020400     02 FILLER         PIC 9(5)   VALUE  5.                       NC2074.2
020500     02 FILLER         PIC 9(4)   VALUE  4.                       NC2074.2
020600     02 FILLER         PIC 9(3)   VALUE  3.                       NC2074.2
020700     02 FILLER         PIC 9(2)   VALUE  2.                       NC2074.2
020800     02 FILLER         PIC 9(2)   VALUE  1.                       NC2074.2
020900 01  FIRST-GROUP.                                                 NC2074.2
021000  02 GROUP-02.                                                    NC2074.2
021100   03 GROUP-03.                                                   NC2074.2
021200    04 GROUP-04.                                                  NC2074.2
021300     05 GROUP-05.                                                 NC2074.2
021400      06 GROUP-06.                                                NC2074.2
021500       07 GROUP-07.                                               NC2074.2
021600        08 GROUP-08.                                              NC2074.2
021700         09 GROUP-09.                                             NC2074.2
021800          10 GROUP-10.                                            NC2074.2
021900           11 GROUP-11.                                           NC2074.2
022000            12 GROUP-12.                                          NC2074.2
022100             13 GROUP-13.                                         NC2074.2
022200              14 GROUP-14.                                        NC2074.2
022300               15 GROUP-15.                                       NC2074.2
022400                16 GROUP-16.                                      NC2074.2
022500                 17 GROUP-17.                                     NC2074.2
022600                  18 GROUP-18.                                    NC2074.2
022700                   19 GROUP-19.                                   NC2074.2
022800                    20 GROUP-20.                                  NC2074.2
022900                     21 GROUP-21.                                 NC2074.2
023000                      22 GROUP-22.                                NC2074.2
023100                       23 GROUP-23.                               NC2074.2
023200                        24 GROUP-24.                              NC2074.2
023300                         25 GROUP-25.                             NC2074.2
023400                          26 GROUP-26.                            NC2074.2
023500                           27 GROUP-27.                           NC2074.2
023600                            28 GROUP-28.                          NC2074.2
023700                             29 GROUP-29.                         NC2074.2
023800                              30 GROUP-30.                        NC2074.2
023900                               31 GROUP-31.                       NC2074.2
024000                                32 GROUP-32.                      NC2074.2
024100                                 33 GROUP-33.                     NC2074.2
024200                                  34 GROUP-34.                    NC2074.2
024300                                   35 GROUP-35.                   NC2074.2
024400                                    36 GROUP-36.                  NC2074.2
024500                                     37 GROUP-37.                 NC2074.2
024600                                      38 GROUP-38.                NC2074.2
024700                                       39 GROUP-39.               NC2074.2
024800                                        40 GROUP-40.              NC2074.2
024900                                         41 GROUP-41.             NC2074.2
025000                                          42 GROUP-42.            NC2074.2
025100                                           43 GROUP-43.           NC2074.2
025200                                            44 GROUP-44.          NC2074.2
025300                                             45 GROUP-45.         NC2074.2
025400                                              46 GROUP-46.        NC2074.2
025500                                               47 GROUP-47.       NC2074.2
025600                                                48 GROUP-48.      NC2074.2
025700                   49 GROUP-49-1  PIC 9(4)           VALUE 1.     NC2074.2
025800                   49 GROUP-49-2  PIC S9(3)  COMP    VALUE 2.     NC2074.2
025900                   49 GROUP-49-3  PIC S9(15) COMP    VALUE 3.     NC2074.2
026000                   49 GROUP-49-4  PIC S9(8)  COMP    VALUE 4.     NC2074.2
026100                   49 GROUP-49-5  PIC 9(8)           VALUE 5.     NC2074.2
026200 01  SECOND-GROUP.                                                NC2074.2
026300  02 GROUP-02.                                                    NC2074.2
026400   03 GROUP-03.                                                   NC2074.2
026500    04 GROUP-04.                                                  NC2074.2
026600     05 GROUP-05.                                                 NC2074.2
026700      06 GROUP-06.                                                NC2074.2
026800       07 GROUP-07.                                               NC2074.2
026900        08 GROUP-08.                                              NC2074.2
027000         09 GROUP-09.                                             NC2074.2
027100          10 GROUP-10.                                            NC2074.2
027200           11 GROUP-11.                                           NC2074.2
027300            12 GROUP-12.                                          NC2074.2
027400             13 GROUP-13.                                         NC2074.2
027500              14 GROUP-14.                                        NC2074.2
027600               15 GROUP-15.                                       NC2074.2
027700                16 GROUP-16.                                      NC2074.2
027800                 17 GROUP-17.                                     NC2074.2
027900                  18 GROUP-18.                                    NC2074.2
028000                   19 GROUP-19.                                   NC2074.2
028100                    20 GROUP-20.                                  NC2074.2
028200                     21 GROUP-21.                                 NC2074.2
028300                      22 GROUP-22.                                NC2074.2
028400                       23 GROUP-23.                               NC2074.2
028500                        24 GROUP-24.                              NC2074.2
028600                         25 GROUP-25.                             NC2074.2
028700                          26 GROUP-26.                            NC2074.2
028800                           27 GROUP-27.                           NC2074.2
028900                            28 GROUP-28.                          NC2074.2
029000                             29 GROUP-29.                         NC2074.2
029100                              30 GROUP-30.                        NC2074.2
029200                               31 GROUP-31.                       NC2074.2
029300                                32 GROUP-32.                      NC2074.2
029400                                 33 GROUP-33.                     NC2074.2
029500                                  34 GROUP-34.                    NC2074.2
029600                                   35 GROUP-35.                   NC2074.2
029700                                    36 GROUP-36.                  NC2074.2
029800                                     37 GROUP-37.                 NC2074.2
029900                                      38 GROUP-38.                NC2074.2
030000                                       39 GROUP-39.               NC2074.2
030100                                        40 GROUP-40.              NC2074.2
030200                                         41 GROUP-41.             NC2074.2
030300                                          42 GROUP-42.            NC2074.2
030400                                           43 GROUP-43.           NC2074.2
030500                                            44 GROUP-44.          NC2074.2
030600                                             45 GROUP-45.         NC2074.2
030700                                              46 GROUP-46.        NC2074.2
030800                                               47 GROUP-47.       NC2074.2
030900                                                48 GROUP-48.      NC2074.2
031000                   49 GROUP-49-1  PIC 9(4)           VALUE 100.   NC2074.2
031100                   49 GROUP-49-2  PIC S9(3)  COMP    VALUE 200.   NC2074.2
031200                   49 GROUP-49-3  PIC S9(15) COMP    VALUE 300.   NC2074.2
031300                   49 GROUP-49-4  PIC S9(8)  COMP    VALUE 400.   NC2074.2
031400                   49 GROUP-49-5  PIC 9(8)           VALUE 500.   NC2074.2
031500                     88 LEVEL-49-OK VALUE 500.                    NC2074.2
031600 01  TEST-RESULTS.                                                NC2074.2
031700     02 FILLER                   PIC X      VALUE SPACE.          NC2074.2
031800     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC2074.2
031900     02 FILLER                   PIC X      VALUE SPACE.          NC2074.2
032000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2074.2
032100     02 FILLER                   PIC X      VALUE SPACE.          NC2074.2
032200     02  PAR-NAME.                                                NC2074.2
032300       03 FILLER                 PIC X(19)  VALUE SPACE.          NC2074.2
032400       03  PARDOT-X              PIC X      VALUE SPACE.          NC2074.2
032500       03 DOTVALUE               PIC 99     VALUE ZERO.           NC2074.2
032600     02 FILLER                   PIC X(8)   VALUE SPACE.          NC2074.2
032700     02 RE-MARK                  PIC X(61).                       NC2074.2
032800 01  TEST-COMPUTED.                                               NC2074.2
032900     02 FILLER                   PIC X(30)  VALUE SPACE.          NC2074.2
033000     02 FILLER                   PIC X(17)  VALUE                 NC2074.2
033100            "       COMPUTED=".                                   NC2074.2
033200     02 COMPUTED-X.                                               NC2074.2
033300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2074.2
033400     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2074.2
033500                                 PIC -9(9).9(9).                  NC2074.2
033600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC2074.2
033700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2074.2
033800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC2074.2
033900     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2074.2
034000         04 COMPUTED-18V0                    PIC -9(18).          NC2074.2
034100         04 FILLER                           PIC X.               NC2074.2
034200     03 FILLER PIC X(50) VALUE SPACE.                             NC2074.2
034300 01  TEST-CORRECT.                                                NC2074.2
034400     02 FILLER PIC X(30) VALUE SPACE.                             NC2074.2
034500     02 FILLER PIC X(17) VALUE "       CORRECT =".                NC2074.2
034600     02 CORRECT-X.                                                NC2074.2
034700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC2074.2
034800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC2074.2
034900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC2074.2
035000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC2074.2
035100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC2074.2
035200     03      CR-18V0 REDEFINES CORRECT-A.                         NC2074.2
035300         04 CORRECT-18V0                     PIC -9(18).          NC2074.2
035400         04 FILLER                           PIC X.               NC2074.2
035500     03 FILLER PIC X(2) VALUE SPACE.                              NC2074.2
035600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC2074.2
035700 01  CCVS-C-1.                                                    NC2074.2
035800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PANC2074.2
035900-    "SS  PARAGRAPH-NAME                                          NC2074.2
036000-    "       REMARKS".                                            NC2074.2
036100     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2074.2
036200 01  CCVS-C-2.                                                    NC2074.2
036300     02 FILLER                     PIC X        VALUE SPACE.      NC2074.2
036400     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2074.2
036500     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2074.2
036600     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2074.2
036700     02 FILLER                     PIC X(94)    VALUE SPACE.      NC2074.2
036800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC2074.2
036900 01  REC-CT                        PIC 99       VALUE ZERO.       NC2074.2
037000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC2074.2
037100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC2074.2
037200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC2074.2
037300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC2074.2
037400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC2074.2
037500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2074.2
037600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2074.2
037700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2074.2
037800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC2074.2
037900 01  CCVS-H-1.                                                    NC2074.2
038000     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2074.2
038100     02  FILLER                    PIC X(42)    VALUE             NC2074.2
038200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC2074.2
038300     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2074.2
038400 01  CCVS-H-2A.                                                   NC2074.2
038500   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2074.2
038600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2074.2
038700   02  FILLER                        PIC XXXX   VALUE             NC2074.2
038800     "4.2 ".                                                      NC2074.2
038900   02  FILLER                        PIC X(28)  VALUE             NC2074.2
039000            " COPY - NOT FOR DISTRIBUTION".                       NC2074.2
039100   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2074.2
039200                                                                  NC2074.2
039300 01  CCVS-H-2B.                                                   NC2074.2
039400   02  FILLER                        PIC X(15)  VALUE             NC2074.2
039500            "TEST RESULT OF ".                                    NC2074.2
039600   02  TEST-ID                       PIC X(9).                    NC2074.2
039700   02  FILLER                        PIC X(4)   VALUE             NC2074.2
039800            " IN ".                                               NC2074.2
039900   02  FILLER                        PIC X(12)  VALUE             NC2074.2
040000     " HIGH       ".                                              NC2074.2
040100   02  FILLER                        PIC X(22)  VALUE             NC2074.2
040200            " LEVEL VALIDATION FOR ".                             NC2074.2
040300   02  FILLER                        PIC X(58)  VALUE             NC2074.2
040400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2074.2
040500 01  CCVS-H-3.                                                    NC2074.2
040600     02  FILLER                      PIC X(34)  VALUE             NC2074.2
040700            " FOR OFFICIAL USE ONLY    ".                         NC2074.2
040800     02  FILLER                      PIC X(58)  VALUE             NC2074.2
040900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2074.2
041000     02  FILLER                      PIC X(28)  VALUE             NC2074.2
041100            "  COPYRIGHT   1985 ".                                NC2074.2
041200 01  CCVS-E-1.                                                    NC2074.2
041300     02 FILLER                       PIC X(52)  VALUE SPACE.      NC2074.2
041400     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              NC2074.2
041500     02 ID-AGAIN                     PIC X(9).                    NC2074.2
041600     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2074.2
041700 01  CCVS-E-2.                                                    NC2074.2
041800     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2074.2
041900     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2074.2
042000     02 CCVS-E-2-2.                                               NC2074.2
042100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2074.2
042200         03 FILLER                   PIC X      VALUE SPACE.      NC2074.2
042300         03 ENDER-DESC               PIC X(44)  VALUE             NC2074.2
042400            "ERRORS ENCOUNTERED".                                 NC2074.2
042500 01  CCVS-E-3.                                                    NC2074.2
042600     02  FILLER                      PIC X(22)  VALUE             NC2074.2
042700            " FOR OFFICIAL USE ONLY".                             NC2074.2
042800     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2074.2
042900     02  FILLER                      PIC X(58)  VALUE             NC2074.2
043000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2074.2
043100     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2074.2
043200     02 FILLER                       PIC X(15)  VALUE             NC2074.2
043300             " COPYRIGHT 1985".                                   NC2074.2
043400 01  CCVS-E-4.                                                    NC2074.2
043500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2074.2
043600     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2074.2
043700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2074.2
043800     02 FILLER                       PIC X(40)  VALUE             NC2074.2
043900      "  TESTS WERE EXECUTED SUCCESSFULLY".                       NC2074.2
044000 01  XXINFO.                                                      NC2074.2
044100     02 FILLER                       PIC X(19)  VALUE             NC2074.2
044200            "*** INFORMATION ***".                                NC2074.2
044300     02 INFO-TEXT.                                                NC2074.2
044400       04 FILLER                     PIC X(8)   VALUE SPACE.      NC2074.2
044500       04 XXCOMPUTED                 PIC X(20).                   NC2074.2
044600       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2074.2
044700       04 XXCORRECT                  PIC X(20).                   NC2074.2
044800     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2074.2
044900 01  HYPHEN-LINE.                                                 NC2074.2
045000     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2074.2
045100     02 FILLER  PIC IS X(65)    VALUE IS "************************NC2074.2
045200-    "*****************************************".                 NC2074.2
045300     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2074.2
045400-    "******************************".                            NC2074.2
045500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC2074.2
045600     "NC207".                                                     NC2074.2
045700 PROCEDURE DIVISION.                                              NC2074.2
045800 CCVS1 SECTION.                                                   NC2074.2
045900 OPEN-FILES.                                                      NC2074.2
046000     OPEN     OUTPUT PRINT-FILE.                                  NC2074.2
046100     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2074.2
046200     MOVE    SPACE TO TEST-RESULTS.                               NC2074.2
046300     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2074.2
046400     GO TO CCVS1-EXIT.                                            NC2074.2
046500 CLOSE-FILES.                                                     NC2074.2
046600     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2074.2
046700 TERMINATE-CCVS.                                                  NC2074.2
046800     EXIT PROGRAM.                                                NC2074.2
046900 TERMINATE-CALL.                                                  NC2074.2
047000     STOP     RUN.                                                NC2074.2
047100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2074.2
047200 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC2074.2
047300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC2074.2
047400 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC2074.2
047500     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2074.2
047600 PRINT-DETAIL.                                                    NC2074.2
047700     IF REC-CT NOT EQUAL TO ZERO                                  NC2074.2
047800             MOVE "." TO PARDOT-X                                 NC2074.2
047900             MOVE REC-CT TO DOTVALUE.                             NC2074.2
048000     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2074.2
048100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2074.2
048200        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2074.2
048300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC2074.2
048400     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2074.2
048500     MOVE SPACE TO CORRECT-X.                                     NC2074.2
048600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC2074.2
048700     MOVE     SPACE TO RE-MARK.                                   NC2074.2
048800 HEAD-ROUTINE.                                                    NC2074.2
048900     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2074.2
049000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2074.2
049100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2074.2
049200     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2074.2
049300 COLUMN-NAMES-ROUTINE.                                            NC2074.2
049400     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2074.2
049500     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2074.2
049600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC2074.2
049700 END-ROUTINE.                                                     NC2074.2
049800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2074.2
049900 END-RTN-EXIT.                                                    NC2074.2
050000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2074.2
050100 END-ROUTINE-1.                                                   NC2074.2
050200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC2074.2
050300      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2074.2
050400      ADD PASS-COUNTER TO ERROR-HOLD.                             NC2074.2
050500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2074.2
050600      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2074.2
050700      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2074.2
050800      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2074.2
050900      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2074.2
051000  END-ROUTINE-12.                                                 NC2074.2
051100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC2074.2
051200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2074.2
051300         MOVE "NO " TO ERROR-TOTAL                                NC2074.2
051400         ELSE                                                     NC2074.2
051500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2074.2
051600     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2074.2
051700     PERFORM WRITE-LINE.                                          NC2074.2
051800 END-ROUTINE-13.                                                  NC2074.2
051900     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2074.2
052000         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC2074.2
052100         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2074.2
052200     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   NC2074.2
052300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2074.2
052400      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC2074.2
052500          MOVE "NO " TO ERROR-TOTAL                               NC2074.2
052600      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2074.2
052700      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2074.2
052800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2074.2
052900     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2074.2
053000 WRITE-LINE.                                                      NC2074.2
053100     ADD 1 TO RECORD-COUNT.                                       NC2074.2
053200     IF RECORD-COUNT GREATER 50                                   NC2074.2
053300         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2074.2
053400         MOVE SPACE TO DUMMY-RECORD                               NC2074.2
053500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2074.2
053600         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             NC2074.2
053700         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2074.2
053800         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC2074.2
053900         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2074.2
054000         MOVE ZERO TO RECORD-COUNT.                               NC2074.2
054100     PERFORM WRT-LN.                                              NC2074.2
054200 WRT-LN.                                                          NC2074.2
054300     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2074.2
054400     MOVE SPACE TO DUMMY-RECORD.                                  NC2074.2
054500 BLANK-LINE-PRINT.                                                NC2074.2
054600     PERFORM WRT-LN.                                              NC2074.2
054700 FAIL-ROUTINE.                                                    NC2074.2
054800     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2074.2
054900     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2074.2
055000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2074.2
055100     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2074.2
055200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2074.2
055300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2074.2
055400     GO TO  FAIL-ROUTINE-EX.                                      NC2074.2
055500 FAIL-ROUTINE-WRITE.                                              NC2074.2
055600     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2074.2
055700     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2074.2
055800     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2074.2
055900     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2074.2
056000 FAIL-ROUTINE-EX. EXIT.                                           NC2074.2
056100 BAIL-OUT.                                                        NC2074.2
056200     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC2074.2
056300     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC2074.2
056400 BAIL-OUT-WRITE.                                                  NC2074.2
056500     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2074.2
056600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2074.2
056700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2074.2
056800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2074.2
056900 BAIL-OUT-EX. EXIT.                                               NC2074.2
057000 CCVS1-EXIT.                                                      NC2074.2
057100     EXIT.                                                        NC2074.2
057200 SECT-NC207A-001 SECTION.                                         NC2074.2
057300 ADD-INIT-F1-1.                                                   NC2074.2
057400     MOVE "ADD-TEST-F1-1 " TO PAR-NAME.                           NC2074.2
057500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
057600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
057700     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
057800 ADD-TEST-F1-1.                                                   NC2074.2
057900     ADD TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF        NC2074.2
058000         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
058100         TO ACCUMULATOR1.                                         NC2074.2
058200     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
058300         PERFORM PASS                                             NC2074.2
058400         GO TO ADD-WRITE-F1-1.                                    NC2074.2
058500     GO TO ADD-FAIL-F1-1.                                         NC2074.2
058600 ADD-DELETE-F1-1.                                                 NC2074.2
058700     PERFORM DE-LETE.                                             NC2074.2
058800     GO TO ADD-WRITE-F1-1.                                        NC2074.2
058900 ADD-FAIL-F1-1.                                                   NC2074.2
059000     MOVE 1 TO CORRECT-N.                                         NC2074.2
059100     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2074.2
059200         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
059300         TO COMPUTED-N.                                           NC2074.2
059400     PERFORM FAIL.                                                NC2074.2
059500 ADD-WRITE-F1-1.                                                  NC2074.2
059600     PERFORM PRINT-DETAIL.                                        NC2074.2
059700*                                                                 NC2074.2
059800 ADD-INIT-F1-2.                                                   NC2074.2
059900     MOVE "ADD-TEST-F1-2 " TO PAR-NAME.                           NC2074.2
060000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
060100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
060200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
060300 ADD-TEST-F1-2.                                                   NC2074.2
060400     ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF        NC2074.2
060500         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
060600         ACCUMULATOR1.                                            NC2074.2
060700     IF ACCUMULATOR1 EQUAL TO 2                                   NC2074.2
060800         PERFORM PASS                                             NC2074.2
060900         GO TO ADD-WRITE-F1-2.                                    NC2074.2
061000     GO TO ADD-FAIL-F1-2.                                         NC2074.2
061100 ADD-DELETE-F1-2.                                                 NC2074.2
061200     PERFORM DE-LETE.                                             NC2074.2
061300     GO TO ADD-WRITE-F1-2.                                        NC2074.2
061400 ADD-FAIL-F1-2.                                                   NC2074.2
061500     MOVE 2 TO CORRECT-N.                                         NC2074.2
061600     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF       NC2074.2
061700         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
061800         COMPUTED-N.                                              NC2074.2
061900     PERFORM FAIL.                                                NC2074.2
062000 ADD-WRITE-F1-2.                                                  NC2074.2
062100     PERFORM PRINT-DETAIL.                                        NC2074.2
062200*                                                                 NC2074.2
062300 ADD-INIT-F1-3.                                                   NC2074.2
062400     MOVE "ADD-TEST-F1-3 " TO PAR-NAME.                           NC2074.2
062500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
062600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
062700     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
062800 ADD-TEST-F1-3.                                                   NC2074.2
062900     ADD TBL-ITEM-1 IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN        NC2074.2
063000         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2074.2
063100         ACCUMULATOR1.                                            NC2074.2
063200     IF ACCUMULATOR1 EQUAL TO 3                                   NC2074.2
063300         PERFORM PASS                                             NC2074.2
063400         GO TO ADD-WRITE-F1-3.                                    NC2074.2
063500     GO TO ADD-FAIL-F1-3.                                         NC2074.2
063600 ADD-DELETE-F1-3.                                                 NC2074.2
063700     PERFORM DE-LETE.                                             NC2074.2
063800     GO TO ADD-WRITE-F1-3.                                        NC2074.2
063900 ADD-FAIL-F1-3.                                                   NC2074.2
064000     MOVE TBL-ITEM-1 IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN       NC2074.2
064100         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2074.2
064200         COMPUTED-N.                                              NC2074.2
064300     MOVE 3 TO CORRECT-N.                                         NC2074.2
064400     PERFORM FAIL.                                                NC2074.2
064500 ADD-WRITE-F1-3.                                                  NC2074.2
064600     PERFORM PRINT-DETAIL.                                        NC2074.2
064700*                                                                 NC2074.2
064800 ADD-INIT-F1-4.                                                   NC2074.2
064900     MOVE "ADD-TEST-F1-4 " TO PAR-NAME.                           NC2074.2
065000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
065100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
065200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
065300 ADD-TEST-F1-4.                                                   NC2074.2
065400     ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF        NC2074.2
065500         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2074.2
065600         ACCUMULATOR1.                                            NC2074.2
065700     IF ACCUMULATOR1 EQUAL TO 4                                   NC2074.2
065800         PERFORM PASS                                             NC2074.2
065900         GO TO ADD-WRITE-F1-4.                                    NC2074.2
066000     GO TO ADD-FAIL-F1-4.                                         NC2074.2
066100 ADD-DELETE-F1-4.                                                 NC2074.2
066200     PERFORM DE-LETE.                                             NC2074.2
066300     GO TO ADD-WRITE-F1-4.                                        NC2074.2
066400 ADD-FAIL-F1-4.                                                   NC2074.2
066500     MOVE 4 TO CORRECT-N.                                         NC2074.2
066600     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2074.2
066700         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2074.2
066800         COMPUTED-N.                                              NC2074.2
066900     PERFORM FAIL.                                                NC2074.2
067000 ADD-WRITE-F1-4.                                                  NC2074.2
067100     PERFORM PRINT-DETAIL.                                        NC2074.2
067200*                                                                 NC2074.2
067300 ADD-INIT-F1-5.                                                   NC2074.2
067400     MOVE "ADD-TEST-F1-5 " TO PAR-NAME.                           NC2074.2
067500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
067600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
067700     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
067800 ADD-TEST-F1-5.                                                   NC2074.2
067900     ADD TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF        NC2074.2
068000         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
068100         ACCUMULATOR1.                                            NC2074.2
068200     IF ACCUMULATOR1 EQUAL TO 5                                   NC2074.2
068300         PERFORM PASS                                             NC2074.2
068400         GO TO ADD-WRITE-F1-5.                                    NC2074.2
068500     GO TO ADD-FAIL-F1-5.                                         NC2074.2
068600 ADD-DELETE-F1-5.                                                 NC2074.2
068700     PERFORM DE-LETE.                                             NC2074.2
068800     GO TO ADD-WRITE-F1-5.                                        NC2074.2
068900 ADD-FAIL-F1-5.                                                   NC2074.2
069000     MOVE 5 TO CORRECT-N.                                         NC2074.2
069100     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF       NC2074.2
069200         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
069300         COMPUTED-N.                                              NC2074.2
069400     PERFORM FAIL.                                                NC2074.2
069500 ADD-WRITE-F1-5.                                                  NC2074.2
069600     PERFORM PRINT-DETAIL.                                        NC2074.2
069700*                                                                 NC2074.2
069800 ADD-INIT-F1-6.                                                   NC2074.2
069900     MOVE "ADD-TEST-F1-6 " TO PAR-NAME.                           NC2074.2
070000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
070100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
070200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
070300 ADD-TEST-F1-6.                                                   NC2074.2
070400     ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN        NC2074.2
070500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
070600         ACCUMULATOR1.                                            NC2074.2
070700     IF ACCUMULATOR1 EQUAL TO 6                                   NC2074.2
070800         PERFORM PASS                                             NC2074.2
070900         GO TO ADD-WRITE-F1-6.                                    NC2074.2
071000     GO TO ADD-FAIL-F1-6.                                         NC2074.2
071100 ADD-DELETE-F1-6.                                                 NC2074.2
071200     PERFORM DE-LETE.                                             NC2074.2
071300     GO TO ADD-WRITE-F1-6.                                        NC2074.2
071400 ADD-FAIL-F1-6.                                                   NC2074.2
071500     MOVE 6 TO CORRECT-N.                                         NC2074.2
071600     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN       NC2074.2
071700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
071800         COMPUTED-N.                                              NC2074.2
071900     PERFORM FAIL.                                                NC2074.2
072000 ADD-WRITE-F1-6.                                                  NC2074.2
072100     PERFORM PRINT-DETAIL.                                        NC2074.2
072200*                                                                 NC2074.2
072300 ADD-INIT-F1-7.                                                   NC2074.2
072400     MOVE "ADD-TEST-F1-7" TO PAR-NAME.                            NC2074.2
072500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
072600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
072700     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
072800 ADD-TEST-F1-7.                                                   NC2074.2
072900     ADD TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF        NC2074.2
073000         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
073100         ACCUMULATOR1.                                            NC2074.2
073200     IF ACCUMULATOR1 EQUAL TO 7                                   NC2074.2
073300         PERFORM PASS                                             NC2074.2
073400         GO TO ADD-WRITE-F1-7.                                    NC2074.2
073500     GO TO ADD-FAIL-F1-7.                                         NC2074.2
073600 ADD-DELETE-F1-7.                                                 NC2074.2
073700     PERFORM DE-LETE.                                             NC2074.2
073800     GO TO ADD-WRITE-F1-7.                                        NC2074.2
073900 ADD-FAIL-F1-7.                                                   NC2074.2
074000     MOVE TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF       NC2074.2
074100         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2074.2
074200         COMPUTED-N.                                              NC2074.2
074300     MOVE 7 TO CORRECT-N.                                         NC2074.2
074400     PERFORM FAIL.                                                NC2074.2
074500 ADD-WRITE-F1-7.                                                  NC2074.2
074600     PERFORM PRINT-DETAIL.                                        NC2074.2
074700*                                                                 NC2074.2
074800 ADD-INIT-F1-8.                                                   NC2074.2
074900     MOVE "ADD-TEST-F1-8 " TO PAR-NAME.                           NC2074.2
075000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
075100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
075200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
075300 ADD-TEST-F1-8.                                                   NC2074.2
075400     ADD TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN        NC2074.2
075500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2074.2
075600         ACCUMULATOR1.                                            NC2074.2
075700     IF ACCUMULATOR1 EQUAL TO 8                                   NC2074.2
075800         PERFORM PASS                                             NC2074.2
075900         GO TO ADD-WRITE-F1-8.                                    NC2074.2
076000     GO TO ADD-FAIL-F1-8.                                         NC2074.2
076100 ADD-DELETE-F1-8.                                                 NC2074.2
076200     PERFORM DE-LETE.                                             NC2074.2
076300     GO TO ADD-WRITE-F1-8.                                        NC2074.2
076400 ADD-FAIL-F1-8.                                                   NC2074.2
076500     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN       NC2074.2
076600         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2074.2
076700         COMPUTED-N.                                              NC2074.2
076800     MOVE 8 TO CORRECT-N.                                         NC2074.2
076900     PERFORM FAIL.                                                NC2074.2
077000 ADD-WRITE-F1-8.                                                  NC2074.2
077100     PERFORM PRINT-DETAIL.                                        NC2074.2
077200*                                                                 NC2074.2
077300 ADD-INIT-F2-9.                                                   NC2074.2
077400     MOVE "ADD-TEST-F2-9 " TO PAR-NAME.                           NC2074.2
077500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
077600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
077700     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
077800 ADD-TEST-F2-9.                                                   NC2074.2
077900     ADD TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF        NC2074.2
078000         TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A       NC2074.2
078100         TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF        NC2074.2
078200         TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A       NC2074.2
078300         GIVING ACCUMULATOR2.                                     NC2074.2
078400     IF ACCUMULATOR2 EQUAL TO 18                                  NC2074.2
078500         PERFORM PASS                                             NC2074.2
078600         GO TO ADD-WRITE-F2-9.                                    NC2074.2
078700     GO TO ADD-FAIL-F2-9.                                         NC2074.2
078800 ADD-DELETE-F2-9.                                                 NC2074.2
078900     PERFORM DE-LETE.                                             NC2074.2
079000     GO TO ADD-WRITE-F2-9.                                        NC2074.2
079100 ADD-FAIL-F2-9.                                                   NC2074.2
079200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
079300     MOVE 18 TO CORRECT-N.                                        NC2074.2
079400     PERFORM FAIL.                                                NC2074.2
079500 ADD-WRITE-F2-9.                                                  NC2074.2
079600     PERFORM PRINT-DETAIL.                                        NC2074.2
079700*                                                                 NC2074.2
079800 ADD-INIT-F2-10.                                                  NC2074.2
079900     MOVE "ADD-TEST-F2-10 " TO PAR-NAME.                          NC2074.2
080000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
080100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
080200     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
080300 ADD-TEST-F2-10.                                                  NC2074.2
080400     ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN        NC2074.2
080500         TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A       NC2074.2
080600         TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN        NC2074.2
080700         TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A       NC2074.2
080800         GIVING ACCUMULATOR2.                                     NC2074.2
080900     IF ACCUMULATOR2 EQUAL TO 20                                  NC2074.2
081000         PERFORM PASS                                             NC2074.2
081100         GO TO ADD-WRITE-F2-10.                                   NC2074.2
081200     GO TO ADD-FAIL-F2-10.                                        NC2074.2
081300 ADD-DELETE-F2-10.                                                NC2074.2
081400     PERFORM DE-LETE.                                             NC2074.2
081500     GO TO ADD-WRITE-F2-10.                                       NC2074.2
081600 ADD-FAIL-F2-10.                                                  NC2074.2
081700     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
081800     MOVE 20 TO CORRECT-N.                                        NC2074.2
081900     PERFORM FAIL.                                                NC2074.2
082000 ADD-WRITE-F2-10.                                                 NC2074.2
082100     PERFORM PRINT-DETAIL.                                        NC2074.2
082200*                                                                 NC2074.2
082300 ADD-INIT-F2-11.                                                  NC2074.2
082400     MOVE "ADD-TEST-F2-11 " TO PAR-NAME.                          NC2074.2
082500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
082600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
082700     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
082800 ADD-TEST-F2-11.                                                  NC2074.2
082900     ADD TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF        NC2074.2
083000         TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A       NC2074.2
083100         TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF        NC2074.2
083200         TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A       NC2074.2
083300         GIVING ACCUMULATOR2.                                     NC2074.2
083400     IF ACCUMULATOR2 EQUAL TO 22                                  NC2074.2
083500         PERFORM PASS                                             NC2074.2
083600         GO TO ADD-WRITE-F2-11.                                   NC2074.2
083700     GO TO ADD-FAIL-F2-11.                                        NC2074.2
083800 ADD-DELETE-F2-11.                                                NC2074.2
083900     PERFORM DE-LETE.                                             NC2074.2
084000     GO TO ADD-WRITE-F2-11.                                       NC2074.2
084100 ADD-FAIL-F2-11.                                                  NC2074.2
084200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
084300     MOVE 22 TO CORRECT-N.                                        NC2074.2
084400     PERFORM FAIL.                                                NC2074.2
084500 ADD-WRITE-F2-11.                                                 NC2074.2
084600     PERFORM PRINT-DETAIL.                                        NC2074.2
084700*                                                                 NC2074.2
084800 ADD-INIT-F2-12.                                                  NC2074.2
084900     MOVE "ADD-TEST-F2-12 " TO PAR-NAME.                          NC2074.2
085000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
085100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
085200     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
085300 ADD-TEST-F2-12.                                                  NC2074.2
085400     ADD TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN        NC2074.2
085500         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
085600         TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN        NC2074.2
085700         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
085800         GIVING ACCUMULATOR2.                                     NC2074.2
085900     IF ACCUMULATOR2 EQUAL TO 24                                  NC2074.2
086000         PERFORM PASS                                             NC2074.2
086100         GO TO ADD-WRITE-F2-12.                                   NC2074.2
086200     GO TO ADD-FAIL-F2-12.                                        NC2074.2
086300 ADD-DELETE-F2-12.                                                NC2074.2
086400     PERFORM DE-LETE.                                             NC2074.2
086500     GO TO ADD-WRITE-F2-12.                                       NC2074.2
086600 ADD-FAIL-F2-12.                                                  NC2074.2
086700     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
086800     MOVE 24 TO CORRECT-N.                                        NC2074.2
086900     PERFORM FAIL.                                                NC2074.2
087000 ADD-WRITE-F2-12.                                                 NC2074.2
087100     PERFORM PRINT-DETAIL.                                        NC2074.2
087200*                                                                 NC2074.2
087300 ADD-INIT-F2-13.                                                  NC2074.2
087400     MOVE "ADD-TEST-F2-13 " TO PAR-NAME.                          NC2074.2
087500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
087600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
087700     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
087800 ADD-TEST-F2-13.                                                  NC2074.2
087900     ADD TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A IN        NC2074.2
088000         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
088100         TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A IN        NC2074.2
088200         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
088300         GIVING ACCUMULATOR2.                                     NC2074.2
088400     IF ACCUMULATOR2 EQUAL TO 26                                  NC2074.2
088500         PERFORM PASS                                             NC2074.2
088600         GO TO ADD-WRITE-F2-13.                                   NC2074.2
088700     GO TO ADD-FAIL-F2-13.                                        NC2074.2
088800 ADD-DELETE-F2-13.                                                NC2074.2
088900     PERFORM DE-LETE.                                             NC2074.2
089000     GO TO ADD-WRITE-F2-13.                                       NC2074.2
089100 ADD-FAIL-F2-13.                                                  NC2074.2
089200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
089300     MOVE 26 TO CORRECT-N.                                        NC2074.2
089400     PERFORM FAIL.                                                NC2074.2
089500 ADD-WRITE-F2-13.                                                 NC2074.2
089600     PERFORM PRINT-DETAIL.                                        NC2074.2
089700*                                                                 NC2074.2
089800 ADD-INIT-F2-14.                                                  NC2074.2
089900     MOVE "ADD-TEST-F2-14 " TO PAR-NAME.                          NC2074.2
090000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
090100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
090200     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
090300 ADD-TEST-F2-14.                                                  NC2074.2
090400     ADD TBL-ITEM-1 IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN        NC2074.2
090500         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
090600         TBL-ITEM-1 IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN        NC2074.2
090700         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
090800         GIVING ACCUMULATOR2.                                     NC2074.2
090900     IF ACCUMULATOR2 EQUAL TO 28                                  NC2074.2
091000         PERFORM PASS                                             NC2074.2
091100         GO TO ADD-WRITE-F2-14.                                   NC2074.2
091200     GO TO ADD-FAIL-F2-14.                                        NC2074.2
091300 ADD-DELETE-F2-14.                                                NC2074.2
091400     PERFORM DE-LETE.                                             NC2074.2
091500     GO TO ADD-WRITE-F2-14.                                       NC2074.2
091600 ADD-FAIL-F2-14.                                                  NC2074.2
091700     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
091800     MOVE 28 TO CORRECT-N.                                        NC2074.2
091900     PERFORM FAIL.                                                NC2074.2
092000 ADD-WRITE-F2-14.                                                 NC2074.2
092100     PERFORM PRINT-DETAIL.                                        NC2074.2
092200*                                                                 NC2074.2
092300 ADD-INIT-F2-15.                                                  NC2074.2
092400     MOVE "ADD-TEST-F2-15 " TO PAR-NAME.                          NC2074.2
092500     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
092600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
092700     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
092800 ADD-TEST-F2-15.                                                  NC2074.2
092900     ADD TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN        NC2074.2
093000         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
093100         TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN        NC2074.2
093200         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
093300         GIVING ACCUMULATOR2.                                     NC2074.2
093400     IF ACCUMULATOR2 EQUAL TO 30                                  NC2074.2
093500         PERFORM PASS                                             NC2074.2
093600         GO TO ADD-WRITE-F2-15.                                   NC2074.2
093700     GO TO ADD-FAIL-F2-15.                                        NC2074.2
093800 ADD-DELETE-F2-15.                                                NC2074.2
093900     PERFORM DE-LETE.                                             NC2074.2
094000     GO TO ADD-WRITE-F2-15.                                       NC2074.2
094100 ADD-FAIL-F2-15.                                                  NC2074.2
094200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
094300     MOVE 30 TO CORRECT-N.                                        NC2074.2
094400     PERFORM FAIL.                                                NC2074.2
094500 ADD-WRITE-F2-15.                                                 NC2074.2
094600     PERFORM PRINT-DETAIL.                                        NC2074.2
094700*                                                                 NC2074.2
094800 ADD-INIT-F2-16.                                                  NC2074.2
094900     MOVE "ADD-TEST-F2-16 " TO PAR-NAME.                          NC2074.2
095000     MOVE "QUALIFIED ADDITION" TO FEATURE.                        NC2074.2
095100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
095200     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
095300 ADD-TEST-F2-16.                                                  NC2074.2
095400     ADD TBL-ITEM-1 IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF        NC2074.2
095500         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
095600         TBL-ITEM-1 IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF        NC2074.2
095700         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
095800         GIVING ACCUMULATOR2.                                     NC2074.2
095900     IF ACCUMULATOR2 EQUAL TO 32                                  NC2074.2
096000         PERFORM PASS                                             NC2074.2
096100         GO TO ADD-WRITE-F2-16.                                   NC2074.2
096200     GO TO ADD-FAIL-F2-16.                                        NC2074.2
096300 ADD-DELETE-F2-16.                                                NC2074.2
096400     PERFORM DE-LETE.                                             NC2074.2
096500     GO TO ADD-WRITE-F2-16.                                       NC2074.2
096600 ADD-FAIL-F2-16.                                                  NC2074.2
096700     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
096800     MOVE 32 TO CORRECT-N.                                        NC2074.2
096900     PERFORM FAIL.                                                NC2074.2
097000 ADD-WRITE-F2-16.                                                 NC2074.2
097100     PERFORM PRINT-DETAIL.                                        NC2074.2
097200*                                                                 NC2074.2
097300 ADD-INIT-F3-17.                                                  NC2074.2
097400     MOVE "ADD-TEST-F3-17" TO PAR-NAME.                           NC2074.2
097500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
097600     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
097700     ADD CORRESPONDING TABLE-LEVEL-5A TO TABLE-LEVEL-5B.          NC2074.2
097800 ADD-TEST-F3-17.                                                  NC2074.2
097900     IF  TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF        NC2074.2
098000         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
098100         EQUAL TO 17                                              NC2074.2
098200         PERFORM PASS                                             NC2074.2
098300         GO TO ADD-WRITE-F3-17.                                   NC2074.2
098400     GO TO ADD-FAIL-F3-17.                                        NC2074.2
098500 ADD-DELETE-F3-17.                                                NC2074.2
098600     PERFORM DE-LETE.                                             NC2074.2
098700     GO TO ADD-WRITE-F3-17.                                       NC2074.2
098800 ADD-FAIL-F3-17.                                                  NC2074.2
098900     MOVE 17 TO CORRECT-N.                                        NC2074.2
099000     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2074.2
099100         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
099200         TO COMPUTED-N.                                           NC2074.2
099300     PERFORM FAIL.                                                NC2074.2
099400 ADD-WRITE-F3-17.                                                 NC2074.2
099500     PERFORM PRINT-DETAIL.                                        NC2074.2
099600*                                                                 NC2074.2
099700 ADD-INIT-F3-18.                                                  NC2074.2
099800     MOVE "ADD-TEST-F3-18" TO PAR-NAME.                           NC2074.2
099900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
100000     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
100100 ADD-TEST-F3-18.                                                  NC2074.2
100200     IF  TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF        NC2074.2
100300         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
100400         EQUAL TO 17                                              NC2074.2
100500         PERFORM PASS                                             NC2074.2
100600         GO TO ADD-WRITE-F3-18.                                   NC2074.2
100700 ADD-DELETE-F3-18.                                                NC2074.2
100800     PERFORM DE-LETE.                                             NC2074.2
100900     GO TO ADD-WRITE-F3-18.                                       NC2074.2
101000 ADD-FAIL-F3-18.                                                  NC2074.2
101100     MOVE 17 TO CORRECT-N.                                        NC2074.2
101200     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF       NC2074.2
101300         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
101400     TO  COMPUTED-N.                                              NC2074.2
101500     PERFORM FAIL.                                                NC2074.2
101600 ADD-WRITE-F3-18.                                                 NC2074.2
101700     PERFORM PRINT-DETAIL.                                        NC2074.2
101800*                                                                 NC2074.2
101900 ADD-INIT-F3-19.                                                  NC2074.2
102000     MOVE "ADD-TEST-F3-19" TO PAR-NAME.                           NC2074.2
102100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
102200     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
102300 ADD-TEST-F3-19.                                                  NC2074.2
102400     IF  TBL-ITEM-1 IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN        NC2074.2
102500         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5B       NC2074.2
102600         EQUAL TO 17                                              NC2074.2
102700         PERFORM PASS                                             NC2074.2
102800         GO TO ADD-WRITE-F3-19.                                   NC2074.2
102900     GO TO ADD-FAIL-F3-19.                                        NC2074.2
103000 ADD-DELETE-F3-19.                                                NC2074.2
103100     PERFORM DE-LETE.                                             NC2074.2
103200     GO TO ADD-WRITE-F3-19.                                       NC2074.2
103300 ADD-FAIL-F3-19.                                                  NC2074.2
103400     MOVE 17 TO CORRECT-N.                                        NC2074.2
103500     MOVE TBL-ITEM-1 IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN       NC2074.2
103600         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5B       NC2074.2
103700     TO  COMPUTED-N.                                              NC2074.2
103800     PERFORM FAIL.                                                NC2074.2
103900 ADD-WRITE-F3-19.                                                 NC2074.2
104000     PERFORM PRINT-DETAIL.                                        NC2074.2
104100*                                                                 NC2074.2
104200 ADD-INIT-F3-20.                                                  NC2074.2
104300     MOVE "ADD-TEST-F3-20" TO PAR-NAME.                           NC2074.2
104400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
104500     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
104600 ADD-TEST-F3-20.                                                  NC2074.2
104700     IF  TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF        NC2074.2
104800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5B       NC2074.2
104900         EQUAL TO 17                                              NC2074.2
105000         PERFORM PASS                                             NC2074.2
105100         GO TO ADD-WRITE-F3-20.                                   NC2074.2
105200     GO TO ADD-FAIL-F3-20.                                        NC2074.2
105300 ADD-DELETE-F3-20.                                                NC2074.2
105400     PERFORM DE-LETE.                                             NC2074.2
105500     GO TO ADD-WRITE-F3-20.                                       NC2074.2
105600 ADD-FAIL-F3-20.                                                  NC2074.2
105700     MOVE 17 TO CORRECT-N.                                        NC2074.2
105800     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2074.2
105900         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5B       NC2074.2
106000     TO  COMPUTED-N.                                              NC2074.2
106100     PERFORM FAIL.                                                NC2074.2
106200 ADD-WRITE-F3-20.                                                 NC2074.2
106300     PERFORM PRINT-DETAIL.                                        NC2074.2
106400*                                                                 NC2074.2
106500 ADD-INIT-F3-21.                                                  NC2074.2
106600     MOVE "ADD-TEST-F3-21" TO PAR-NAME.                           NC2074.2
106700     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
106800     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
106900 ADD-TEST-F3-21.                                                  NC2074.2
107000     IF  TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF        NC2074.2
107100         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
107200         EQUAL TO 17                                              NC2074.2
107300         PERFORM PASS                                             NC2074.2
107400         GO TO ADD-WRITE-F3-21.                                   NC2074.2
107500     GO TO ADD-FAIL-F3-21.                                        NC2074.2
107600 ADD-DELETE-F3-21.                                                NC2074.2
107700     PERFORM DE-LETE.                                             NC2074.2
107800     GO TO ADD-WRITE-F3-21.                                       NC2074.2
107900 ADD-FAIL-F3-21.                                                  NC2074.2
108000     MOVE 17 TO CORRECT-N.                                        NC2074.2
108100     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF       NC2074.2
108200         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
108300     TO  COMPUTED-N.                                              NC2074.2
108400     PERFORM FAIL.                                                NC2074.2
108500 ADD-WRITE-F3-21.                                                 NC2074.2
108600     PERFORM PRINT-DETAIL.                                        NC2074.2
108700*                                                                 NC2074.2
108800 ADD-INIT-F3-22.                                                  NC2074.2
108900     MOVE "ADD-TEST-F3-22" TO PAR-NAME.                           NC2074.2
109000     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
109100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
109200 ADD-TEST-F3-22.                                                  NC2074.2
109300     IF  TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN        NC2074.2
109400         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
109500         EQUAL TO 17                                              NC2074.2
109600         PERFORM PASS                                             NC2074.2
109700         GO TO ADD-WRITE-F3-22.                                   NC2074.2
109800     GO TO ADD-FAIL-F3-22.                                        NC2074.2
109900 ADD-DELETE-F3-22.                                                NC2074.2
110000     PERFORM DE-LETE.                                             NC2074.2
110100     GO TO ADD-WRITE-F3-22.                                       NC2074.2
110200 ADD-FAIL-F3-22.                                                  NC2074.2
110300     MOVE 17 TO CORRECT-N.                                        NC2074.2
110400     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN       NC2074.2
110500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B TO    NC2074.2
110600         COMPUTED-N.                                              NC2074.2
110700     PERFORM FAIL.                                                NC2074.2
110800 ADD-WRITE-F3-22.                                                 NC2074.2
110900     PERFORM PRINT-DETAIL.                                        NC2074.2
111000*                                                                 NC2074.2
111100 ADD-INIT-F3-23.                                                  NC2074.2
111200     MOVE "ADD-TEST-F3-23" TO PAR-NAME.                           NC2074.2
111300     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
111400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
111500 ADD-TEST-F3-23.                                                  NC2074.2
111600     IF  TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF        NC2074.2
111700         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
111800         EQUAL TO 17                                              NC2074.2
111900         PERFORM PASS                                             NC2074.2
112000         GO TO ADD-WRITE-F3-23.                                   NC2074.2
112100     GO TO ADD-FAIL-F3-23.                                        NC2074.2
112200 ADD-DELETE-F3-23.                                                NC2074.2
112300     PERFORM DE-LETE.                                             NC2074.2
112400     GO TO ADD-WRITE-F3-23.                                       NC2074.2
112500 ADD-FAIL-F3-23.                                                  NC2074.2
112600     MOVE 17 TO CORRECT-N.                                        NC2074.2
112700     MOVE TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF       NC2074.2
112800         TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5B TO    NC2074.2
112900         COMPUTED-N.                                              NC2074.2
113000     PERFORM FAIL.                                                NC2074.2
113100 ADD-WRITE-F3-23.                                                 NC2074.2
113200     PERFORM PRINT-DETAIL.                                        NC2074.2
113300*                                                                 NC2074.2
113400 ADD-INIT-F3-24.                                                  NC2074.2
113500     MOVE "ADD-TEST-F3-24" TO PAR-NAME.                           NC2074.2
113600     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
113700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
113800 ADD-TEST-F3-24.                                                  NC2074.2
113900     IF  TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN        NC2074.2
114000         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5B       NC2074.2
114100         EQUAL TO 17                                              NC2074.2
114200         PERFORM PASS                                             NC2074.2
114300         GO TO ADD-WRITE-F3-24.                                   NC2074.2
114400     GO TO ADD-FAIL-F3-24.                                        NC2074.2
114500 ADD-DELETE-F3-24.                                                NC2074.2
114600     PERFORM DE-LETE.                                             NC2074.2
114700     GO TO ADD-WRITE-F3-24.                                       NC2074.2
114800 ADD-FAIL-F3-24.                                                  NC2074.2
114900     MOVE 17 TO CORRECT-N.                                        NC2074.2
115000     MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN       NC2074.2
115100         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5B TO    NC2074.2
115200         COMPUTED-N.                                              NC2074.2
115300     PERFORM FAIL.                                                NC2074.2
115400 ADD-WRITE-F3-24.                                                 NC2074.2
115500     PERFORM PRINT-DETAIL.                                        NC2074.2
115600     PERFORM END-ROUTINE.                                         NC2074.2
115700*                                                                 NC2074.2
115800 ADD-INIT-F1-25.                                                  NC2074.2
115900*    ===-->  48 LEVELS OF QUALIFICATION  <--===                   NC2074.2
116000     MOVE   "ADD-TEST-F1-25 " TO PAR-NAME.                        NC2074.2
116100     MOVE   "VI-2 1.3.2" TO ANSI-REFERENCE.                       NC2074.2
116200     MOVE    ZERO TO ACCUMULATOR2.                                NC2074.2
116300 ADD-TEST-F1-25.                                                  NC2074.2
116400     ADD     GROUP-49-1  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
116500             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
116600             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
116700             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
116800             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
116900             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
117000             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
117100             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
117200             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
117300             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
117400             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
117500             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
117600             IN SECOND-GROUP                                      NC2074.2
117700          TO ACCUMULATOR2.                                        NC2074.2
117800     IF      ACCUMULATOR2 EQUAL TO 100                            NC2074.2
117900             PERFORM PASS                                         NC2074.2
118000             GO TO   ADD-WRITE-F1-25.                             NC2074.2
118100     GO TO ADD-FAIL-F1-25.                                        NC2074.2
118200 ADD-DELETE-F1-25.                                                NC2074.2
118300     PERFORM DE-LETE.                                             NC2074.2
118400     GO TO   ADD-WRITE-F1-25.                                     NC2074.2
118500 ADD-FAIL-F1-25.                                                  NC2074.2
118600     MOVE    100 TO CORRECT-N.                                    NC2074.2
118700     MOVE    GROUP-49-1  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
118800             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
118900             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
119000             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
119100             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
119200             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
119300             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
119400             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
119500             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
119600             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
119700             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
119800             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
119900             IN SECOND-GROUP                                      NC2074.2
120000          TO COMPUTED-N.                                          NC2074.2
120100     PERFORM FAIL.                                                NC2074.2
120200 ADD-WRITE-F1-25.                                                 NC2074.2
120300     PERFORM PRINT-DETAIL.                                        NC2074.2
120400*                                                                 NC2074.2
120500 SUB-INIT-F2-1.                                                   NC2074.2
120600     MOVE "SUB-TEST-F2-1  " TO PAR-NAME.                          NC2074.2
120700     MOVE "QUALIFIED SUBTRACT" TO FEATURE.                        NC2074.2
120800     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
120900     MOVE    TABLE-5B-INIT  TO TABLE-LEVEL-5B.                    NC2074.2
121000     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
121100 SUB-TEST-F2-1.                                                   NC2074.2
121200     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
121300         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
121400         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
121500         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
121600         GIVING ACCUMULATOR1.                                     NC2074.2
121700     IF ACCUMULATOR1 EQUAL TO 15                                  NC2074.2
121800         PERFORM PASS                                             NC2074.2
121900         GO TO SUB-WRITE-F2-1.                                    NC2074.2
122000     GO TO SUB-FAIL-F2-1.                                         NC2074.2
122100 SUB-DELETE-F2-1.                                                 NC2074.2
122200     PERFORM DE-LETE.                                             NC2074.2
122300     GO TO SUB-WRITE-F2-1.                                        NC2074.2
122400 SUB-FAIL-F2-1.                                                   NC2074.2
122500     MOVE 15 TO CORRECT-N.                                        NC2074.2
122600     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
122700     PERFORM FAIL.                                                NC2074.2
122800 SUB-WRITE-F2-1.                                                  NC2074.2
122900     PERFORM PRINT-DETAIL.                                        NC2074.2
123000*                                                                 NC2074.2
123100 SUB-INIT-F2-2.                                                   NC2074.2
123200     MOVE "SUB-TEST-F2-2  " TO PAR-NAME.                          NC2074.2
123300     MOVE "QUALIFIED SUBTRACT" TO FEATURE.                        NC2074.2
123400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
123500     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
123600 SUB-TEST-F2-2.                                                   NC2074.2
123700     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
123800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
123900         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
124000         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
124100         GIVING ACCUMULATOR1.                                     NC2074.2
124200     IF ACCUMULATOR1 EQUAL TO 13                                  NC2074.2
124300         PERFORM PASS                                             NC2074.2
124400         GO TO SUB-WRITE-F2-2.                                    NC2074.2
124500     GO TO SUB-FAIL-F2-2.                                         NC2074.2
124600 SUB-DELETE-F2-2.                                                 NC2074.2
124700     PERFORM DE-LETE.                                             NC2074.2
124800     GO TO SUB-WRITE-F2-2.                                        NC2074.2
124900 SUB-FAIL-F2-2.                                                   NC2074.2
125000     MOVE 13 TO CORRECT-N.                                        NC2074.2
125100     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
125200     PERFORM FAIL.                                                NC2074.2
125300 SUB-WRITE-F2-2.                                                  NC2074.2
125400     PERFORM PRINT-DETAIL.                                        NC2074.2
125500*                                                                 NC2074.2
125600 SUB-INIT-F2-3.                                                   NC2074.2
125700     MOVE "SUB-TEST-F2-3  " TO PAR-NAME.                          NC2074.2
125800     MOVE "QUALIFIED SUBTRACT" TO FEATURE.                        NC2074.2
125900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
126000     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
126100 SUB-TEST-F2-3.                                                   NC2074.2
126200     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
126300         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
126400         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
126500         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
126600         GIVING ACCUMULATOR1.                                     NC2074.2
126700     IF ACCUMULATOR1 EQUAL TO 11                                  NC2074.2
126800         PERFORM PASS                                             NC2074.2
126900         GO TO SUB-WRITE-F2-3.                                    NC2074.2
127000     GO TO SUB-FAIL-F2-3.                                         NC2074.2
127100 SUB-DELETE-F2-3.                                                 NC2074.2
127200     PERFORM DE-LETE.                                             NC2074.2
127300     GO TO SUB-WRITE-F2-3.                                        NC2074.2
127400 SUB-FAIL-F2-3.                                                   NC2074.2
127500     MOVE 11 TO CORRECT-N.                                        NC2074.2
127600     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
127700     PERFORM FAIL.                                                NC2074.2
127800 SUB-WRITE-F2-3.                                                  NC2074.2
127900     PERFORM PRINT-DETAIL.                                        NC2074.2
128000*                                                                 NC2074.2
128100 SUB-INIT-F2-4.                                                   NC2074.2
128200     MOVE "SUB-TEST-F2-4  " TO PAR-NAME.                          NC2074.2
128300     MOVE "QUALIFIED SUBTRACT" TO FEATURE.                        NC2074.2
128400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
128500     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
128600 SUB-TEST-F2-4.                                                   NC2074.2
128700     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
128800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
128900         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
129000         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
129100         GIVING ACCUMULATOR1.                                     NC2074.2
129200     IF ACCUMULATOR1 EQUAL TO 9                                   NC2074.2
129300         PERFORM PASS                                             NC2074.2
129400         GO TO SUB-WRITE-F2-4.                                    NC2074.2
129500     GO TO SUB-FAIL-F2-4.                                         NC2074.2
129600 SUB-DELETE-F2-4.                                                 NC2074.2
129700     PERFORM DE-LETE.                                             NC2074.2
129800     GO TO SUB-WRITE-F2-4.                                        NC2074.2
129900 SUB-FAIL-F2-4.                                                   NC2074.2
130000     MOVE 9 TO CORRECT-N.                                         NC2074.2
130100     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
130200     PERFORM FAIL.                                                NC2074.2
130300 SUB-WRITE-F2-4.                                                  NC2074.2
130400     PERFORM PRINT-DETAIL.                                        NC2074.2
130500*                                                                 NC2074.2
130600 SUB-INIT-F2-5.                                                   NC2074.2
130700     MOVE "QUALIFIED SUBTRACT" TO FEATURE.                        NC2074.2
130800     MOVE "SUB-TEST-F2-5  " TO PAR-NAME.                          NC2074.2
130900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
131000     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
131100 SUB-TEST-F2-5.                                                   NC2074.2
131200     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
131300         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
131400         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
131500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
131600         GIVING ACCUMULATOR1.                                     NC2074.2
131700     IF ACCUMULATOR1 EQUAL TO 7                                   NC2074.2
131800         PERFORM PASS                                             NC2074.2
131900         GO TO SUB-WRITE-F2-5.                                    NC2074.2
132000     GO TO SUB-FAIL-F2-5.                                         NC2074.2
132100 SUB-DELETE-F2-5.                                                 NC2074.2
132200     PERFORM DE-LETE.                                             NC2074.2
132300     GO TO SUB-WRITE-F2-5.                                        NC2074.2
132400 SUB-FAIL-F2-5.                                                   NC2074.2
132500     MOVE 7 TO CORRECT-N.                                         NC2074.2
132600     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
132700     PERFORM FAIL.                                                NC2074.2
132800 SUB-WRITE-F2-5.                                                  NC2074.2
132900     PERFORM PRINT-DETAIL.                                        NC2074.2
133000*                                                                 NC2074.2
133100 SUB-INIT-F2-6.                                                   NC2074.2
133200     MOVE "SUB-TEST-F2-6  " TO PAR-NAME.                          NC2074.2
133300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
133400     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
133500 SUB-TEST-F2-6.                                                   NC2074.2
133600     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
133700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
133800         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
133900         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
134000         GIVING ACCUMULATOR1.                                     NC2074.2
134100     IF ACCUMULATOR1 EQUAL TO 5                                   NC2074.2
134200         PERFORM PASS                                             NC2074.2
134300         GO TO SUB-WRITE-F2-6.                                    NC2074.2
134400     GO TO SUB-FAIL-F2-6.                                         NC2074.2
134500 SUB-DELETE-F2-6.                                                 NC2074.2
134600     PERFORM DE-LETE.                                             NC2074.2
134700     GO TO SUB-WRITE-F2-6.                                        NC2074.2
134800 SUB-FAIL-F2-6.                                                   NC2074.2
134900     MOVE 5 TO CORRECT-N.                                         NC2074.2
135000     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
135100     PERFORM FAIL.                                                NC2074.2
135200 SUB-WRITE-F2-6.                                                  NC2074.2
135300     PERFORM PRINT-DETAIL.                                        NC2074.2
135400*                                                                 NC2074.2
135500 SUB-INIT-F2-7.                                                   NC2074.2
135600     MOVE "SUB-TEST-F2-7  " TO PAR-NAME.                          NC2074.2
135700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
135800     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
135900 SUB-TEST-F2-7.                                                   NC2074.2
136000     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
136100         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
136200         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
136300         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
136400         GIVING ACCUMULATOR1.                                     NC2074.2
136500     IF ACCUMULATOR1 EQUAL TO 3                                   NC2074.2
136600         PERFORM PASS                                             NC2074.2
136700         GO TO SUB-WRITE-F2-7.                                    NC2074.2
136800     GO TO SUB-FAIL-F2-7.                                         NC2074.2
136900 SUB-DELETE-F2-7.                                                 NC2074.2
137000     PERFORM DE-LETE.                                             NC2074.2
137100     GO TO SUB-WRITE-F2-7.                                        NC2074.2
137200 SUB-FAIL-F2-7.                                                   NC2074.2
137300     MOVE 3 TO CORRECT-N.                                         NC2074.2
137400     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
137500     PERFORM FAIL.                                                NC2074.2
137600 SUB-WRITE-F2-7.                                                  NC2074.2
137700     PERFORM PRINT-DETAIL.                                        NC2074.2
137800*                                                                 NC2074.2
137900 SUB-INIT-F2-8.                                                   NC2074.2
138000     MOVE "SUB-TEST-F2-8  " TO PAR-NAME.                          NC2074.2
138100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
138200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
138300 SUB-TEST-F2-8.                                                   NC2074.2
138400     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
138500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
138600         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
138700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5B       NC2074.2
138800         GIVING ACCUMULATOR1.                                     NC2074.2
138900     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
139000         PERFORM PASS                                             NC2074.2
139100         GO TO SUB-WRITE-F2-8.                                    NC2074.2
139200     GO TO SUB-FAIL-F2-8.                                         NC2074.2
139300 SUB-DELETE-F2-8.                                                 NC2074.2
139400     PERFORM DE-LETE.                                             NC2074.2
139500     GO TO SUB-WRITE-F2-8.                                        NC2074.2
139600 SUB-FAIL-F2-8.                                                   NC2074.2
139700     MOVE 1 TO CORRECT-N.                                         NC2074.2
139800     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
139900     PERFORM FAIL.                                                NC2074.2
140000 SUB-WRITE-F2-8.                                                  NC2074.2
140100     PERFORM PRINT-DETAIL.                                        NC2074.2
140200*                                                                 NC2074.2
140300 SUB-INIT-F2-9.                                                   NC2074.2
140400     MOVE "SUB-TEST-F2-9  " TO PAR-NAME.                          NC2074.2
140500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
140600     MOVE 5 TO ACCUMULATOR2.                                      NC2074.2
140700 SUB-TEST-F2-9.                                                   NC2074.2
140800     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
140900         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
141000         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
141100         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
141200         GIVING ACCUMULATOR2.                                     NC2074.2
141300     IF ACCUMULATOR2 EQUAL TO ZERO                                NC2074.2
141400         PERFORM PASS                                             NC2074.2
141500         GO TO SUB-WRITE-F2-9.                                    NC2074.2
141600     GO TO SUB-FAIL-F2-9.                                         NC2074.2
141700 SUB-DELETE-F2-9.                                                 NC2074.2
141800     PERFORM DE-LETE.                                             NC2074.2
141900     GO TO SUB-WRITE-F2-9.                                        NC2074.2
142000 SUB-FAIL-F2-9.                                                   NC2074.2
142100     MOVE ZERO TO CORRECT-N.                                      NC2074.2
142200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
142300     PERFORM FAIL.                                                NC2074.2
142400 SUB-WRITE-F2-9.                                                  NC2074.2
142500     PERFORM PRINT-DETAIL.                                        NC2074.2
142600*                                                                 NC2074.2
142700 SUB-INIT-F2-10.                                                  NC2074.2
142800     MOVE "SUB-TEST-F2-10 " TO PAR-NAME.                          NC2074.2
142900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
143000     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
143100 SUB-TEST-F2-10.                                                  NC2074.2
143200     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
143300         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
143400         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
143500         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
143600         GIVING ACCUMULATOR2.                                     NC2074.2
143700     IF ACCUMULATOR2 EQUAL TO 3                                   NC2074.2
143800         PERFORM PASS                                             NC2074.2
143900         GO TO SUB-WRITE-F2-10.                                   NC2074.2
144000     GO TO SUB-FAIL-F2-10.                                        NC2074.2
144100 SUB-DELETE-F2-10.                                                NC2074.2
144200     PERFORM DE-LETE.                                             NC2074.2
144300     GO TO SUB-WRITE-F2-10.                                       NC2074.2
144400 SUB-FAIL-F2-10.                                                  NC2074.2
144500     MOVE 3 TO CORRECT-N.                                         NC2074.2
144600     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
144700     PERFORM FAIL.                                                NC2074.2
144800 SUB-WRITE-F2-10.                                                 NC2074.2
144900     PERFORM PRINT-DETAIL.                                        NC2074.2
145000*                                                                 NC2074.2
145100 SUB-INIT-F2-11.                                                  NC2074.2
145200     MOVE "SUB-TEST-F2-11 " TO PAR-NAME.                          NC2074.2
145300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
145400     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
145500 SUB-TEST-F2-11.                                                  NC2074.2
145600     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
145700         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
145800         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
145900         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
146000         GIVING ACCUMULATOR2.                                     NC2074.2
146100     IF ACCUMULATOR2 EQUAL TO 5                                   NC2074.2
146200         PERFORM PASS                                             NC2074.2
146300         GO TO SUB-WRITE-F2-11.                                   NC2074.2
146400     GO TO SUB-FAIL-F2-11.                                        NC2074.2
146500 SUB-DELETE-F2-11.                                                NC2074.2
146600     PERFORM DE-LETE.                                             NC2074.2
146700     GO TO SUB-WRITE-F2-11.                                       NC2074.2
146800 SUB-FAIL-F2-11.                                                  NC2074.2
146900     MOVE 5 TO CORRECT-N.                                         NC2074.2
147000     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
147100     PERFORM FAIL.                                                NC2074.2
147200 SUB-WRITE-F2-11.                                                 NC2074.2
147300     PERFORM PRINT-DETAIL.                                        NC2074.2
147400*                                                                 NC2074.2
147500 SUB-INIT-F2-12.                                                  NC2074.2
147600     MOVE "SUB-TEST-F2-12 " TO PAR-NAME.                          NC2074.2
147700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
147800     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
147900 SUB-TEST-F2-12.                                                  NC2074.2
148000     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
148100         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
148200         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
148300         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
148400         GIVING ACCUMULATOR2.                                     NC2074.2
148500     IF ACCUMULATOR2 EQUAL TO 7                                   NC2074.2
148600         PERFORM PASS                                             NC2074.2
148700         GO TO SUB-WRITE-F2-12.                                   NC2074.2
148800     GO TO SUB-FAIL-F2-12.                                        NC2074.2
148900 SUB-DELETE-F2-12.                                                NC2074.2
149000     PERFORM DE-LETE.                                             NC2074.2
149100     GO TO SUB-WRITE-F2-12.                                       NC2074.2
149200 SUB-FAIL-F2-12.                                                  NC2074.2
149300     MOVE 7 TO CORRECT-N.                                         NC2074.2
149400     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
149500     PERFORM FAIL.                                                NC2074.2
149600 SUB-WRITE-F2-12.                                                 NC2074.2
149700     PERFORM PRINT-DETAIL.                                        NC2074.2
149800*                                                                 NC2074.2
149900 SUB-INIT-F2-13.                                                  NC2074.2
150000     MOVE "SUB-TEST-F2-13 " TO PAR-NAME.                          NC2074.2
150100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
150200     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
150300 SUB-TEST-F2-13.                                                  NC2074.2
150400     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
150500         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
150600         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
150700         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
150800         GIVING ACCUMULATOR2.                                     NC2074.2
150900     IF ACCUMULATOR2 EQUAL TO 9                                   NC2074.2
151000         PERFORM PASS                                             NC2074.2
151100         GO TO SUB-WRITE-F2-13.                                   NC2074.2
151200     GO TO SUB-FAIL-F2-13.                                        NC2074.2
151300 SUB-DELETE-F2-13.                                                NC2074.2
151400     PERFORM DE-LETE.                                             NC2074.2
151500     GO TO SUB-WRITE-F2-13.                                       NC2074.2
151600 SUB-FAIL-F2-13.                                                  NC2074.2
151700     MOVE 9 TO CORRECT-N.                                         NC2074.2
151800     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
151900     PERFORM FAIL.                                                NC2074.2
152000 SUB-WRITE-F2-13.                                                 NC2074.2
152100     PERFORM PRINT-DETAIL.                                        NC2074.2
152200*                                                                 NC2074.2
152300 SUB-INIT-F2-14.                                                  NC2074.2
152400     MOVE "SUB-TEST-F2-14 " TO PAR-NAME.                          NC2074.2
152500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
152600     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
152700 SUB-TEST-F2-14.                                                  NC2074.2
152800     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
152900         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
153000         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
153100         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
153200         GIVING ACCUMULATOR2.                                     NC2074.2
153300     IF ACCUMULATOR2 EQUAL TO 11                                  NC2074.2
153400         PERFORM PASS                                             NC2074.2
153500         GO TO SUB-WRITE-F2-14.                                   NC2074.2
153600     GO TO SUB-FAIL-F2-14.                                        NC2074.2
153700 SUB-DELETE-F2-14.                                                NC2074.2
153800     PERFORM DE-LETE.                                             NC2074.2
153900     GO TO SUB-WRITE-F2-14.                                       NC2074.2
154000 SUB-FAIL-F2-14.                                                  NC2074.2
154100     MOVE 11 TO CORRECT-N.                                        NC2074.2
154200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
154300     PERFORM FAIL.                                                NC2074.2
154400 SUB-WRITE-F2-14.                                                 NC2074.2
154500     PERFORM PRINT-DETAIL.                                        NC2074.2
154600*                                                                 NC2074.2
154700 SUB-INIT-F2-15.                                                  NC2074.2
154800     MOVE "SUB-TEST-F2-15 " TO PAR-NAME.                          NC2074.2
154900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
155000     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
155100 SUB-TEST-F2-15.                                                  NC2074.2
155200     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
155300         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
155400         FROM TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
155500         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
155600         GIVING ACCUMULATOR2.                                     NC2074.2
155700     IF ACCUMULATOR2 EQUAL TO 13                                  NC2074.2
155800         PERFORM PASS                                             NC2074.2
155900         GO TO SUB-WRITE-F2-15.                                   NC2074.2
156000     GO TO SUB-FAIL-F2-15.                                        NC2074.2
156100 SUB-DELETE-F2-15.                                                NC2074.2
156200     PERFORM DE-LETE.                                             NC2074.2
156300     GO TO SUB-WRITE-F2-15.                                       NC2074.2
156400 SUB-FAIL-F2-15.                                                  NC2074.2
156500     MOVE 13 TO CORRECT-N.                                        NC2074.2
156600     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
156700     PERFORM FAIL.                                                NC2074.2
156800 SUB-WRITE-F2-15.                                                 NC2074.2
156900     PERFORM PRINT-DETAIL.                                        NC2074.2
157000*                                                                 NC2074.2
157100 SUB-INIT-F2-16.                                                  NC2074.2
157200     MOVE "SUB-TEST-F2-16 " TO PAR-NAME.                          NC2074.2
157300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
157400     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
157500 SUB-TEST-F2-16.                                                  NC2074.2
157600     SUBTRACT TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
157700         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5B       NC2074.2
157800         FROM TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
157900         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
158000         GIVING ACCUMULATOR2.                                     NC2074.2
158100     IF ACCUMULATOR2 EQUAL TO 15                                  NC2074.2
158200         PERFORM PASS                                             NC2074.2
158300         GO TO SUB-WRITE-F2-16.                                   NC2074.2
158400     GO TO SUB-FAIL-F2-16.                                        NC2074.2
158500 SUB-DELETE-F2-16.                                                NC2074.2
158600     PERFORM DE-LETE.                                             NC2074.2
158700     GO TO SUB-WRITE-F2-16.                                       NC2074.2
158800 SUB-FAIL-F2-16.                                                  NC2074.2
158900     MOVE 15 TO CORRECT-N.                                        NC2074.2
159000     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
159100     PERFORM FAIL.                                                NC2074.2
159200 SUB-WRITE-F2-16.                                                 NC2074.2
159300     PERFORM PRINT-DETAIL.                                        NC2074.2
159400*                                                                 NC2074.2
159500 SUB-INIT-F3-17.                                                  NC2074.2
159600     MOVE "SUB-TEST-F3-17" TO PAR-NAME.                           NC2074.2
159700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
159800     MOVE "       CORRESPONDING" TO FEATURE.                      NC2074.2
159900     SUBTRACT CORRESPONDING TABLE-LEVEL-5A FROM TABLE-LEVEL-5C.   NC2074.2
160000 SUB-TEST-F3-17.                                                  NC2074.2
160100     IF       TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
160200         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
160300         EQUAL TO ZERO                                            NC2074.2
160400         PERFORM PASS                                             NC2074.2
160500         GO TO SUB-WRITE-F3-17.                                   NC2074.2
160600     GO TO SUB-FAIL-F3-17.                                        NC2074.2
160700 SUB-DELETE-F3-17.                                                NC2074.2
160800     PERFORM DE-LETE.                                             NC2074.2
160900     GO TO SUB-WRITE-F3-17.                                       NC2074.2
161000 SUB-FAIL-F3-17.                                                  NC2074.2
161100     MOVE 00 TO CORRECT-N.                                        NC2074.2
161200     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
161300         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
161400         TO COMPUTED-N.                                           NC2074.2
161500     PERFORM FAIL.                                                NC2074.2
161600 SUB-WRITE-F3-17.                                                 NC2074.2
161700     PERFORM PRINT-DETAIL.                                        NC2074.2
161800*                                                                 NC2074.2
161900 SUB-INIT-F3-18.                                                  NC2074.2
162000     MOVE "SUB-TEST-F3-18" TO PAR-NAME.                           NC2074.2
162100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
162200 SUB-TEST-F3-18.                                                  NC2074.2
162300     IF       TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
162400         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
162500         EQUAL TO ZERO                                            NC2074.2
162600         PERFORM PASS                                             NC2074.2
162700         GO TO SUB-WRITE-F3-18.                                   NC2074.2
162800     GO TO SUB-FAIL-F3-18.                                        NC2074.2
162900 SUB-DELETE-F3-18.                                                NC2074.2
163000     PERFORM DE-LETE.                                             NC2074.2
163100     GO TO SUB-WRITE-F3-18.                                       NC2074.2
163200 SUB-FAIL-F3-18.                                                  NC2074.2
163300     MOVE 00 TO CORRECT-N.                                        NC2074.2
163400     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
163500         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
163600         TO COMPUTED-N.                                           NC2074.2
163700     PERFORM FAIL.                                                NC2074.2
163800 SUB-WRITE-F3-18.                                                 NC2074.2
163900     PERFORM PRINT-DETAIL.                                        NC2074.2
164000*                                                                 NC2074.2
164100 SUB-INIT-F3-19.                                                  NC2074.2
164200     MOVE "SUB-TEST-F3-19" TO PAR-NAME.                           NC2074.2
164300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
164400 SUB-TEST-F3-19.                                                  NC2074.2
164500     IF       TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
164600         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
164700         EQUAL TO ZERO                                            NC2074.2
164800         PERFORM PASS                                             NC2074.2
164900         GO TO SUB-WRITE-F3-19.                                   NC2074.2
165000     GO TO SUB-FAIL-F3-19.                                        NC2074.2
165100 SUB-DELETE-F3-19.                                                NC2074.2
165200     PERFORM DE-LETE.                                             NC2074.2
165300     GO TO SUB-WRITE-F3-19.                                       NC2074.2
165400 SUB-FAIL-F3-19.                                                  NC2074.2
165500     MOVE 00 TO CORRECT-N.                                        NC2074.2
165600     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
165700         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
165800         TO COMPUTED-N.                                           NC2074.2
165900     PERFORM FAIL.                                                NC2074.2
166000 SUB-WRITE-F3-19.                                                 NC2074.2
166100     PERFORM PRINT-DETAIL.                                        NC2074.2
166200*                                                                 NC2074.2
166300 SUB-INIT-F3-20.                                                  NC2074.2
166400     MOVE "SUB-TEST-F3-20" TO PAR-NAME.                           NC2074.2
166500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
166600 SUB-TEST-F3-20.                                                  NC2074.2
166700     IF       TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
166800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
166900         EQUAL TO ZERO                                            NC2074.2
167000         PERFORM PASS                                             NC2074.2
167100         GO TO SUB-WRITE-F3-20.                                   NC2074.2
167200     GO TO SUB-FAIL-F3-20.                                        NC2074.2
167300 SUB-DELETE-F3-20.                                                NC2074.2
167400     PERFORM DE-LETE.                                             NC2074.2
167500     GO TO SUB-WRITE-F3-20.                                       NC2074.2
167600 SUB-FAIL-F3-20.                                                  NC2074.2
167700     MOVE 00 TO CORRECT-N.                                        NC2074.2
167800     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
167900         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
168000         TO COMPUTED-N.                                           NC2074.2
168100     PERFORM FAIL.                                                NC2074.2
168200 SUB-WRITE-F3-20.                                                 NC2074.2
168300     PERFORM PRINT-DETAIL.                                        NC2074.2
168400*                                                                 NC2074.2
168500 SUB-INIT-F3-21.                                                  NC2074.2
168600     MOVE "SUB-TEST-F3-21" TO PAR-NAME.                           NC2074.2
168700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
168800 SUB-TEST-F3-21.                                                  NC2074.2
168900     IF       TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
169000         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
169100         EQUAL TO ZERO                                            NC2074.2
169200         PERFORM PASS                                             NC2074.2
169300         GO TO SUB-WRITE-F3-21.                                   NC2074.2
169400     GO TO SUB-FAIL-F3-21.                                        NC2074.2
169500 SUB-DELETE-F3-21.                                                NC2074.2
169600     PERFORM DE-LETE.                                             NC2074.2
169700     GO TO SUB-WRITE-F3-21.                                       NC2074.2
169800 SUB-FAIL-F3-21.                                                  NC2074.2
169900     MOVE 00 TO CORRECT-N.                                        NC2074.2
170000     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
170100         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
170200         TO COMPUTED-N.                                           NC2074.2
170300     PERFORM FAIL.                                                NC2074.2
170400 SUB-WRITE-F3-21.                                                 NC2074.2
170500     PERFORM PRINT-DETAIL.                                        NC2074.2
170600*                                                                 NC2074.2
170700 SUB-INIT-F3-22.                                                  NC2074.2
170800     MOVE "SUB-TEST-F3-22" TO PAR-NAME.                           NC2074.2
170900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
171000 SUB-TEST-F3-22.                                                  NC2074.2
171100     IF       TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
171200         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
171300         EQUAL TO ZERO                                            NC2074.2
171400         PERFORM PASS                                             NC2074.2
171500         GO TO SUB-WRITE-F3-22.                                   NC2074.2
171600     GO TO SUB-FAIL-F3-22.                                        NC2074.2
171700 SUB-DELETE-F3-22.                                                NC2074.2
171800     PERFORM DE-LETE.                                             NC2074.2
171900     GO TO SUB-WRITE-F3-22.                                       NC2074.2
172000 SUB-FAIL-F3-22.                                                  NC2074.2
172100     MOVE 00 TO CORRECT-N.                                        NC2074.2
172200     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
172300         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
172400         TO COMPUTED-N.                                           NC2074.2
172500     PERFORM FAIL.                                                NC2074.2
172600 SUB-WRITE-F3-22.                                                 NC2074.2
172700     PERFORM PRINT-DETAIL.                                        NC2074.2
172800*                                                                 NC2074.2
172900 SUB-INIT-F3-23.                                                  NC2074.2
173000     MOVE "SUB-TEST-F3-23" TO PAR-NAME.                           NC2074.2
173100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
173200 SUB-TEST-F3-23.                                                  NC2074.2
173300     IF       TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
173400         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
173500         EQUAL TO ZERO                                            NC2074.2
173600         PERFORM PASS                                             NC2074.2
173700         GO TO SUB-WRITE-F3-23.                                   NC2074.2
173800     GO TO SUB-FAIL-F3-23.                                        NC2074.2
173900 SUB-DELETE-F3-23.                                                NC2074.2
174000     PERFORM DE-LETE.                                             NC2074.2
174100     GO TO SUB-WRITE-F3-23.                                       NC2074.2
174200 SUB-FAIL-F3-23.                                                  NC2074.2
174300     MOVE 00 TO CORRECT-N.                                        NC2074.2
174400     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
174500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
174600         TO COMPUTED-N.                                           NC2074.2
174700     PERFORM FAIL.                                                NC2074.2
174800 SUB-WRITE-F3-23.                                                 NC2074.2
174900     PERFORM PRINT-DETAIL.                                        NC2074.2
175000*                                                                 NC2074.2
175100 SUB-INIT-F3-24.                                                  NC2074.2
175200     MOVE "SUB-TEST-F3-24" TO PAR-NAME.                           NC2074.2
175300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
175400 SUB-TEST-F3-24.                                                  NC2074.2
175500     IF       TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
175600         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
175700         EQUAL TO ZERO                                            NC2074.2
175800         PERFORM PASS                                             NC2074.2
175900         GO TO SUB-WRITE-F3-24.                                   NC2074.2
176000     GO TO SUB-FAIL-F3-24.                                        NC2074.2
176100 SUB-DELETE-F3-24.                                                NC2074.2
176200     PERFORM DE-LETE.                                             NC2074.2
176300     GO TO SUB-WRITE-F3-24.                                       NC2074.2
176400 SUB-FAIL-F3-24.                                                  NC2074.2
176500     MOVE 00 TO CORRECT-N.                                        NC2074.2
176600     MOVE     TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
176700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5C       NC2074.2
176800         TO COMPUTED-N.                                           NC2074.2
176900     PERFORM FAIL.                                                NC2074.2
177000 SUB-WRITE-F3-24.                                                 NC2074.2
177100     PERFORM PRINT-DETAIL.                                        NC2074.2
177200*                                                                 NC2074.2
177300 SUB-INIT-F2-25.                                                  NC2074.2
177400*    ===-->  48 LEVELS OF QUALIFICATION  <--===                   NC2074.2
177500     MOVE   "SUB-TEST-F2-25 " TO PAR-NAME.                        NC2074.2
177600     MOVE   "VI-2 1.3.2" TO ANSI-REFERENCE.                       NC2074.2
177700     MOVE    ZERO TO ACCUMULATOR1.                                NC2074.2
177800 SUB-TEST-F2-25.                                                  NC2074.2
177900     SUBTRACT GROUP-49-2  OF GROUP-48 IN GROUP-47 OF GROUP-46     NC2074.2
178000              IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42     NC2074.2
178100              IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38     NC2074.2
178200              IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34     NC2074.2
178300              IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30     NC2074.2
178400              IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26     NC2074.2
178500              IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22     NC2074.2
178600              IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18     NC2074.2
178700              IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14     NC2074.2
178800              IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10     NC2074.2
178900              IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06     NC2074.2
179000              IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02     NC2074.2
179100              IN SECOND-GROUP                                     NC2074.2
179200         FROM 200                                                 NC2074.2
179300       GIVING ACCUMULATOR1.                                       NC2074.2
179400     IF      ACCUMULATOR1 EQUAL TO ZERO                           NC2074.2
179500             PERFORM PASS                                         NC2074.2
179600             GO TO   SUB-WRITE-F2-25.                             NC2074.2
179700     GO TO SUB-FAIL-F2-25.                                        NC2074.2
179800 SUB-DELETE-F2-25.                                                NC2074.2
179900     PERFORM DE-LETE.                                             NC2074.2
180000     GO TO   SUB-WRITE-F2-25.                                     NC2074.2
180100 SUB-FAIL-F2-25.                                                  NC2074.2
180200     MOVE    200 TO CORRECT-N.                                    NC2074.2
180300     MOVE    GROUP-49-2  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
180400             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
180500             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
180600             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
180700             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
180800             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
180900             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
181000             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
181100             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
181200             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
181300             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
181400             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
181500             IN SECOND-GROUP                                      NC2074.2
181600          TO COMPUTED-N.                                          NC2074.2
181700     PERFORM FAIL.                                                NC2074.2
181800 SUB-WRITE-F2-25.                                                 NC2074.2
181900     PERFORM PRINT-DETAIL.                                        NC2074.2
182000     PERFORM END-ROUTINE.                                         NC2074.2
182100*                                                                 NC2074.2
182200 MPY-INIT-F2-1.                                                   NC2074.2
182300     MOVE "MPY-TEST-F2-1  " TO PAR-NAME.                          NC2074.2
182400     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
182500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
182600 MPY-TEST-F2-1.                                                   NC2074.2
182700     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
182800     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
182900         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
183000         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
183100         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
183200     GIVING ACCUMULATOR1.                                         NC2074.2
183300     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
183400         PERFORM PASS                                             NC2074.2
183500         GO TO MPY-WRITE-F2-1.                                    NC2074.2
183600     GO TO MPY-FAIL-F2-1.                                         NC2074.2
183700 MPY-DELETE-F2-1.                                                 NC2074.2
183800     PERFORM DE-LETE.                                             NC2074.2
183900     GO TO MPY-WRITE-F2-1.                                        NC2074.2
184000 MPY-FAIL-F2-1.                                                   NC2074.2
184100     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
184200     MOVE 1 TO CORRECT-N.                                         NC2074.2
184300     PERFORM FAIL.                                                NC2074.2
184400 MPY-WRITE-F2-1.                                                  NC2074.2
184500     PERFORM PRINT-DETAIL.                                        NC2074.2
184600*                                                                 NC2074.2
184700 MPY-INIT-F2-2.                                                   NC2074.2
184800     MOVE "MPY-TEST-F2-2  " TO PAR-NAME.                          NC2074.2
184900     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
185000     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
185100     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
185200 MPY-TEST-F2-2.                                                   NC2074.2
185300     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
185400         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
185500         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
185600         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
185700         GIVING ACCUMULATOR1.                                     NC2074.2
185800     IF ACCUMULATOR1 EQUAL TO 4                                   NC2074.2
185900         PERFORM PASS                                             NC2074.2
186000         GO TO MPY-WRITE-F2-2.                                    NC2074.2
186100     GO TO MPY-FAIL-F2-2.                                         NC2074.2
186200 MPY-DELETE-F2-2.                                                 NC2074.2
186300     PERFORM DE-LETE.                                             NC2074.2
186400     GO TO MPY-WRITE-F2-2.                                        NC2074.2
186500 MPY-FAIL-F2-2.                                                   NC2074.2
186600     MOVE 4 TO CORRECT-N.                                         NC2074.2
186700     PERFORM FAIL                                                 NC2074.2
186800     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
186900 MPY-WRITE-F2-2.                                                  NC2074.2
187000     PERFORM PRINT-DETAIL.                                        NC2074.2
187100*                                                                 NC2074.2
187200 MPY-INIT-F2-3.                                                   NC2074.2
187300     MOVE "MPY-TEST-F2-3  " TO PAR-NAME.                          NC2074.2
187400     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
187500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
187600     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
187700 MPY-TEST-F2-3.                                                   NC2074.2
187800     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
187900         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 1  NC2074.2
188000     GIVING ACCUMULATOR1.                                         NC2074.2
188100     IF ACCUMULATOR1 EQUAL TO 3                                   NC2074.2
188200         PERFORM PASS                                             NC2074.2
188300         GO TO MPY-WRITE-F2-3.                                    NC2074.2
188400     GO TO MPY-FAIL-F2-3.                                         NC2074.2
188500 MPY-DELETE-F2-3.                                                 NC2074.2
188600     PERFORM DE-LETE.                                             NC2074.2
188700     GO TO MPY-WRITE-F2-3.                                        NC2074.2
188800 MPY-FAIL-F2-3.                                                   NC2074.2
188900     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
189000     MOVE 3 TO CORRECT-N.                                         NC2074.2
189100     PERFORM FAIL.                                                NC2074.2
189200 MPY-WRITE-F2-3.                                                  NC2074.2
189300     PERFORM PRINT-DETAIL.                                        NC2074.2
189400*                                                                 NC2074.2
189500 MPY-INIT-F2-4.                                                   NC2074.2
189600     MOVE "MPY-TEST-F2-4  " TO PAR-NAME.                          NC2074.2
189700     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
189800     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
189900     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
190000 MPY-TEST-F2-4.                                                   NC2074.2
190100     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
190200         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 1  NC2074.2
190300     GIVING ACCUMULATOR1.                                         NC2074.2
190400     IF ACCUMULATOR1 EQUAL TO 4                                   NC2074.2
190500         PERFORM PASS                                             NC2074.2
190600         GO TO MPY-WRITE-F2-4.                                    NC2074.2
190700     GO TO MPY-FAIL-F2-4.                                         NC2074.2
190800 MPY-DELETE-F2-4.                                                 NC2074.2
190900     PERFORM DE-LETE.                                             NC2074.2
191000     GO TO MPY-WRITE-F2-4.                                        NC2074.2
191100 MPY-FAIL-F2-4.                                                   NC2074.2
191200     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
191300     MOVE 4 TO CORRECT-N.                                         NC2074.2
191400     PERFORM FAIL.                                                NC2074.2
191500 MPY-WRITE-F2-4.                                                  NC2074.2
191600     PERFORM PRINT-DETAIL.                                        NC2074.2
191700*                                                                 NC2074.2
191800 MPY-INIT-F2-5.                                                   NC2074.2
191900     MOVE "MPY-TEST-F2-5  " TO PAR-NAME.                          NC2074.2
192000     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
192100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
192200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
192300 MPY-TEST-F2-5.                                                   NC2074.2
192400     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
192500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
192600         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
192700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
192800     GIVING ACCUMULATOR1.                                         NC2074.2
192900     IF ACCUMULATOR1 EQUAL TO 25                                  NC2074.2
193000         PERFORM PASS                                             NC2074.2
193100         GO TO MPY-WRITE-F2-5.                                    NC2074.2
193200     GO TO MPY-FAIL-F2-5.                                         NC2074.2
193300 MPY-DELETE-F2-5.                                                 NC2074.2
193400     PERFORM DE-LETE.                                             NC2074.2
193500     GO TO MPY-WRITE-F2-5.                                        NC2074.2
193600 MPY-FAIL-F2-5.                                                   NC2074.2
193700     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
193800     MOVE 25 TO CORRECT-N.                                        NC2074.2
193900     PERFORM FAIL.                                                NC2074.2
194000 MPY-WRITE-F2-5.                                                  NC2074.2
194100     PERFORM PRINT-DETAIL.                                        NC2074.2
194200*                                                                 NC2074.2
194300 MPY-INIT-F2-6.                                                   NC2074.2
194400     MOVE "MPY-TEST-F2-6  " TO PAR-NAME.                          NC2074.2
194500     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
194600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
194700     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
194800 MPY-TEST-F2-6.                                                   NC2074.2
194900     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
195000         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
195100         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
195200         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
195300     GIVING ACCUMULATOR1.                                         NC2074.2
195400     IF ACCUMULATOR1 EQUAL TO 36                                  NC2074.2
195500         PERFORM PASS                                             NC2074.2
195600         GO TO MPY-WRITE-F2-6.                                    NC2074.2
195700     GO TO MPY-FAIL-F2-6.                                         NC2074.2
195800 MPY-DELETE-F2-6.                                                 NC2074.2
195900     PERFORM DE-LETE.                                             NC2074.2
196000     GO TO MPY-WRITE-F2-6.                                        NC2074.2
196100 MPY-FAIL-F2-6.                                                   NC2074.2
196200     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
196300     MOVE 36 TO CORRECT-N.                                        NC2074.2
196400     PERFORM FAIL.                                                NC2074.2
196500 MPY-WRITE-F2-6.                                                  NC2074.2
196600     PERFORM PRINT-DETAIL.                                        NC2074.2
196700*                                                                 NC2074.2
196800 MPY-INIT-F2-7.                                                   NC2074.2
196900     MOVE "MPY-TEST-F2-7  " TO PAR-NAME.                          NC2074.2
197000     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
197100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
197200     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
197300 MPY-TEST-F2-7.                                                   NC2074.2
197400     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
197500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 1  NC2074.2
197600     GIVING ACCUMULATOR1.                                         NC2074.2
197700     IF ACCUMULATOR1 EQUAL TO 7                                   NC2074.2
197800         PERFORM PASS                                             NC2074.2
197900         GO TO MPY-WRITE-F2-7.                                    NC2074.2
198000     GO TO MPY-FAIL-F2-7.                                         NC2074.2
198100 MPY-DELETE-F2-7.                                                 NC2074.2
198200     PERFORM DE-LETE.                                             NC2074.2
198300     GO TO MPY-WRITE-F2-7.                                        NC2074.2
198400 MPY-FAIL-F2-7.                                                   NC2074.2
198500     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
198600     MOVE 7 TO CORRECT-N.                                         NC2074.2
198700     PERFORM FAIL.                                                NC2074.2
198800 MPY-WRITE-F2-7.                                                  NC2074.2
198900     PERFORM PRINT-DETAIL.                                        NC2074.2
199000*                                                                 NC2074.2
199100 MPY-INIT-F2-8.                                                   NC2074.2
199200     MOVE "MPY-TEST-F2-8  " TO PAR-NAME.                          NC2074.2
199300     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
199400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
199500     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
199600 MPY-TEST-F2-8.                                                   NC2074.2
199700     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
199800         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 1  NC2074.2
199900     GIVING ACCUMULATOR1.                                         NC2074.2
200000     IF ACCUMULATOR1 EQUAL TO 8                                   NC2074.2
200100         PERFORM PASS                                             NC2074.2
200200         GO TO MPY-WRITE-F2-8.                                    NC2074.2
200300     GO TO MPY-FAIL-F2-8.                                         NC2074.2
200400 MPY-DELETE-F2-8.                                                 NC2074.2
200500     PERFORM DE-LETE.                                             NC2074.2
200600     GO TO MPY-WRITE-F2-8.                                        NC2074.2
200700 MPY-FAIL-F2-8.                                                   NC2074.2
200800     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
200900     MOVE 8 TO CORRECT-N.                                         NC2074.2
201000     PERFORM FAIL.                                                NC2074.2
201100 MPY-WRITE-F2-8.                                                  NC2074.2
201200     PERFORM PRINT-DETAIL.                                        NC2074.2
201300*                                                                 NC2074.2
201400 MPY-INIT-F2-9.                                                   NC2074.2
201500     MOVE "MPY-TEST-F2-9  " TO PAR-NAME.                          NC2074.2
201600     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
201700     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
201800     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
201900 MPY-TEST-F2-9.                                                   NC2074.2
202000     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
202100         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 1  NC2074.2
202200     GIVING ACCUMULATOR2.                                         NC2074.2
202300     IF ACCUMULATOR2 EQUAL TO 9                                   NC2074.2
202400         PERFORM PASS                                             NC2074.2
202500         GO TO MPY-WRITE-F2-9.                                    NC2074.2
202600     GO TO MPY-FAIL-F2-9.                                         NC2074.2
202700 MPY-DELETE-F2-9.                                                 NC2074.2
202800     PERFORM DE-LETE.                                             NC2074.2
202900     GO TO MPY-WRITE-F2-9.                                        NC2074.2
203000 MPY-FAIL-F2-9.                                                   NC2074.2
203100     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
203200     MOVE 9 TO CORRECT-N.                                         NC2074.2
203300     PERFORM FAIL.                                                NC2074.2
203400 MPY-WRITE-F2-9.                                                  NC2074.2
203500     PERFORM PRINT-DETAIL.                                        NC2074.2
203600*                                                                 NC2074.2
203700 MPY-INIT-F2-10.                                                  NC2074.2
203800     MOVE "MPY-TEST-F2-10 " TO PAR-NAME.                          NC2074.2
203900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
204000     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
204100     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
204200 MPY-TEST-F2-10.                                                  NC2074.2
204300     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
204400         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 1  NC2074.2
204500     GIVING ACCUMULATOR2.                                         NC2074.2
204600     IF ACCUMULATOR2 EQUAL TO 10                                  NC2074.2
204700         PERFORM PASS                                             NC2074.2
204800         GO TO MPY-WRITE-F2-10.                                   NC2074.2
204900     GO TO MPY-FAIL-F2-10.                                        NC2074.2
205000 MPY-DELETE-F2-10.                                                NC2074.2
205100     PERFORM DE-LETE.                                             NC2074.2
205200     GO TO MPY-WRITE-F2-10.                                       NC2074.2
205300 MPY-FAIL-F2-10.                                                  NC2074.2
205400     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
205500     MOVE 10 TO CORRECT-N.                                        NC2074.2
205600     PERFORM FAIL.                                                NC2074.2
205700 MPY-WRITE-F2-10.                                                 NC2074.2
205800     PERFORM PRINT-DETAIL.                                        NC2074.2
205900*                                                                 NC2074.2
206000 MPY-INIT-F2-11.                                                  NC2074.2
206100     MOVE "MPY-TEST-F2-11 " TO PAR-NAME.                          NC2074.2
206200     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
206300     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
206400     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
206500 MPY-TEST-F2-11.                                                  NC2074.2
206600     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
206700         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
206800         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
206900         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
207000     GIVING ACCUMULATOR2.                                         NC2074.2
207100     IF ACCUMULATOR2 EQUAL TO 121                                 NC2074.2
207200         PERFORM PASS                                             NC2074.2
207300         GO TO MPY-WRITE-F2-11.                                   NC2074.2
207400     GO TO MPY-FAIL-F2-11.                                        NC2074.2
207500 MPY-DELETE-F2-11.                                                NC2074.2
207600     PERFORM DE-LETE.                                             NC2074.2
207700     GO TO MPY-WRITE-F2-11.                                       NC2074.2
207800 MPY-FAIL-F2-11.                                                  NC2074.2
207900     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
208000     MOVE 121 TO CORRECT-N.                                       NC2074.2
208100     PERFORM FAIL.                                                NC2074.2
208200 MPY-WRITE-F2-11.                                                 NC2074.2
208300     PERFORM PRINT-DETAIL.                                        NC2074.2
208400*                                                                 NC2074.2
208500 MPY-INIT-F2-12.                                                  NC2074.2
208600     MOVE "MPY-TEST-F2-12 " TO PAR-NAME.                          NC2074.2
208700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
208800     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
208900     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
209000 MPY-TEST-F2-12.                                                  NC2074.2
209100     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
209200         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
209300         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
209400         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
209500     GIVING ACCUMULATOR2.                                         NC2074.2
209600     IF ACCUMULATOR2 EQUAL TO 144                                 NC2074.2
209700         PERFORM PASS                                             NC2074.2
209800         GO TO MPY-WRITE-F2-12.                                   NC2074.2
209900     GO TO MPY-FAIL-F2-12.                                        NC2074.2
210000 MPY-DELETE-F2-12.                                                NC2074.2
210100     PERFORM DE-LETE.                                             NC2074.2
210200     GO TO MPY-WRITE-F2-12.                                       NC2074.2
210300 MPY-FAIL-F2-12.                                                  NC2074.2
210400     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
210500     MOVE 144 TO CORRECT-N.                                       NC2074.2
210600     PERFORM FAIL.                                                NC2074.2
210700 MPY-WRITE-F2-12.                                                 NC2074.2
210800     PERFORM PRINT-DETAIL.                                        NC2074.2
210900*                                                                 NC2074.2
211000 MPY-INIT-F2-13.                                                  NC2074.2
211100     MOVE "MPY-TEST-F2-13 " TO PAR-NAME.                          NC2074.2
211200     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
211300     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
211400     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
211500 MPY-TEST-F2-13.                                                  NC2074.2
211600     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
211700         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 1  NC2074.2
211800     GIVING ACCUMULATOR2.                                         NC2074.2
211900     IF ACCUMULATOR2 EQUAL TO 13                                  NC2074.2
212000         PERFORM PASS                                             NC2074.2
212100         GO TO MPY-WRITE-F2-13.                                   NC2074.2
212200     GO TO MPY-FAIL-F2-13.                                        NC2074.2
212300 MPY-DELETE-F2-13.                                                NC2074.2
212400     PERFORM DE-LETE.                                             NC2074.2
212500     GO TO MPY-WRITE-F2-13.                                       NC2074.2
212600 MPY-FAIL-F2-13.                                                  NC2074.2
212700     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
212800     MOVE 13 TO CORRECT-N.                                        NC2074.2
212900     PERFORM FAIL.                                                NC2074.2
213000 MPY-WRITE-F2-13.                                                 NC2074.2
213100     PERFORM PRINT-DETAIL.                                        NC2074.2
213200*                                                                 NC2074.2
213300 MPY-INIT-F2-14.                                                  NC2074.2
213400     MOVE "MPY-TEST-F2-14 " TO PAR-NAME.                          NC2074.2
213500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
213600     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
213700     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
213800 MPY-TEST-F2-14.                                                  NC2074.2
213900     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
214000         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 1  NC2074.2
214100     GIVING ACCUMULATOR2.                                         NC2074.2
214200     IF ACCUMULATOR2 EQUAL TO 14                                  NC2074.2
214300         PERFORM PASS                                             NC2074.2
214400         GO TO MPY-WRITE-F2-14.                                   NC2074.2
214500     GO TO MPY-FAIL-F2-14.                                        NC2074.2
214600 MPY-DELETE-F2-14.                                                NC2074.2
214700     PERFORM DE-LETE.                                             NC2074.2
214800     GO TO MPY-WRITE-F2-14.                                       NC2074.2
214900 MPY-FAIL-F2-14.                                                  NC2074.2
215000     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
215100     MOVE 14 TO CORRECT-N.                                        NC2074.2
215200     PERFORM FAIL.                                                NC2074.2
215300 MPY-WRITE-F2-14.                                                 NC2074.2
215400     PERFORM PRINT-DETAIL.                                        NC2074.2
215500*                                                                 NC2074.2
215600 MPY-INIT-F2-15.                                                  NC2074.2
215700     MOVE "MPY-TEST-F2-15 " TO PAR-NAME.                          NC2074.2
215800     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
215900     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
216000     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
216100 MPY-TEST-F2-15.                                                  NC2074.2
216200     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
216300         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
216400         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
216500         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
216600     GIVING ACCUMULATOR2.                                         NC2074.2
216700     IF ACCUMULATOR2 EQUAL TO 225                                 NC2074.2
216800         PERFORM PASS                                             NC2074.2
216900         GO TO MPY-WRITE-F2-15.                                   NC2074.2
217000     GO TO MPY-FAIL-F2-15.                                        NC2074.2
217100 MPY-DELETE-F2-15.                                                NC2074.2
217200     PERFORM DE-LETE.                                             NC2074.2
217300     GO TO MPY-WRITE-F2-15.                                       NC2074.2
217400 MPY-FAIL-F2-15.                                                  NC2074.2
217500     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
217600     MOVE 225 TO CORRECT-N.                                       NC2074.2
217700     PERFORM FAIL.                                                NC2074.2
217800 MPY-WRITE-F2-15.                                                 NC2074.2
217900     PERFORM PRINT-DETAIL.                                        NC2074.2
218000*                                                                 NC2074.2
218100 MPY-INIT-F2-16.                                                  NC2074.2
218200     MOVE "MPY-TEST-F2-16 " TO PAR-NAME.                          NC2074.2
218300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
218400     MOVE "QUALIFIED MULTIPLY" TO FEATURE.                        NC2074.2
218500     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
218600 MPY-TEST-F2-16.                                                  NC2074.2
218700     MULTIPLY TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
218800         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
218900         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
219000         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
219100     GIVING ACCUMULATOR2.                                         NC2074.2
219200     IF ACCUMULATOR2 EQUAL TO 256                                 NC2074.2
219300         PERFORM PASS                                             NC2074.2
219400         GO TO MPY-WRITE-F2-16.                                   NC2074.2
219500     GO TO MPY-FAIL-F2-16.                                        NC2074.2
219600 MPY-DELETE-F2-16.                                                NC2074.2
219700     PERFORM DE-LETE.                                             NC2074.2
219800     GO TO MPY-WRITE-F2-16.                                       NC2074.2
219900 MPY-FAIL-F2-16.                                                  NC2074.2
220000     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
220100     MOVE 256 TO CORRECT-N.                                       NC2074.2
220200     PERFORM FAIL.                                                NC2074.2
220300 MPY-WRITE-F2-16.                                                 NC2074.2
220400     PERFORM PRINT-DETAIL.                                        NC2074.2
220500*                                                                 NC2074.2
220600 MPY-INIT-F2-17.                                                  NC2074.2
220700*    ===-->  48 LEVELS OF QUALIFICATION  <--===                   NC2074.2
220800     MOVE   "MPY-TEST-F2-17 " TO PAR-NAME.                        NC2074.2
220900     MOVE   "VI-2 1.3.2" TO ANSI-REFERENCE.                       NC2074.2
221000     MOVE    ZERO TO ACCUMULATOR1.                                NC2074.2
221100 MPY-TEST-F2-17.                                                  NC2074.2
221200     MULTIPLY GROUP-49-3  OF GROUP-48 IN GROUP-47 OF GROUP-46     NC2074.2
221300              IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42     NC2074.2
221400              IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38     NC2074.2
221500              IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34     NC2074.2
221600              IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30     NC2074.2
221700              IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26     NC2074.2
221800              IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22     NC2074.2
221900              IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18     NC2074.2
222000              IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14     NC2074.2
222100              IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10     NC2074.2
222200              IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06     NC2074.2
222300              IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02     NC2074.2
222400              IN FIRST-GROUP                                      NC2074.2
222500           BY 3                                                   NC2074.2
222600       GIVING ACCUMULATOR1.                                       NC2074.2
222700     IF      ACCUMULATOR1 EQUAL TO 9                              NC2074.2
222800             PERFORM PASS                                         NC2074.2
222900             GO TO   MPY-WRITE-F2-17.                             NC2074.2
223000     GO TO MPY-FAIL-F2-17.                                        NC2074.2
223100 MPY-DELETE-F2-17.                                                NC2074.2
223200     PERFORM DE-LETE.                                             NC2074.2
223300     GO TO   MPY-WRITE-F2-17.                                     NC2074.2
223400 MPY-FAIL-F2-17.                                                  NC2074.2
223500     MOVE    9 TO CORRECT-N.                                      NC2074.2
223600     MOVE    GROUP-49-3  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
223700             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
223800             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
223900             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
224000             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
224100             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
224200             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
224300             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
224400             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
224500             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
224600             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
224700             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
224800             IN FIRST-GROUP                                       NC2074.2
224900          TO COMPUTED-N.                                          NC2074.2
225000     MOVE   "3 TIMES 3 SHOULD BE 9" TO RE-MARK.                   NC2074.2
225100     PERFORM FAIL.                                                NC2074.2
225200 MPY-WRITE-F2-17.                                                 NC2074.2
225300     PERFORM PRINT-DETAIL.                                        NC2074.2
225400     PERFORM END-ROUTINE.                                         NC2074.2
225500*                                                                 NC2074.2
225600 DIV-INIT-F3-1.                                                   NC2074.2
225700     MOVE "DIV-TEST-F3-1  " TO PAR-NAME                           NC2074.2
225800     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
225900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
226000     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
226100 DIV-TEST-F3-1.                                                   NC2074.2
226200     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
226300         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
226400         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
226500         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
226600     GIVING ACCUMULATOR1.                                         NC2074.2
226700     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
226800         PERFORM PASS                                             NC2074.2
226900         GO TO DIV-WRITE-F3-1.                                    NC2074.2
227000     GO TO DIV-FAIL-F3-1.                                         NC2074.2
227100 DIV-DELETE-F3-1.                                                 NC2074.2
227200     PERFORM DE-LETE.                                             NC2074.2
227300     GO TO DIV-WRITE-F3-1.                                        NC2074.2
227400 DIV-FAIL-F3-1.                                                   NC2074.2
227500     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
227600     MOVE 1 TO CORRECT-N.                                         NC2074.2
227700     PERFORM FAIL.                                                NC2074.2
227800 DIV-WRITE-F3-1.                                                  NC2074.2
227900     PERFORM PRINT-DETAIL.                                        NC2074.2
228000*                                                                 NC2074.2
228100 DIV-INIT-F3-2.                                                   NC2074.2
228200     MOVE "DIV-TEST-F3-2  " TO PAR-NAME                           NC2074.2
228300     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
228400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
228500     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
228600 DIV-TEST-F3-2.                                                   NC2074.2
228700     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
228800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
228900         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
229000         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
229100     GIVING ACCUMULATOR1.                                         NC2074.2
229200     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
229300         PERFORM PASS                                             NC2074.2
229400         GO TO DIV-WRITE-F3-2.                                    NC2074.2
229500     GO TO DIV-FAIL-F3-2.                                         NC2074.2
229600 DIV-DELETE-F3-2.                                                 NC2074.2
229700     PERFORM DE-LETE.                                             NC2074.2
229800     GO TO DIV-WRITE-F3-2.                                        NC2074.2
229900 DIV-FAIL-F3-2.                                                   NC2074.2
230000     MOVE 1 TO CORRECT-N.                                         NC2074.2
230100     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
230200     PERFORM FAIL.                                                NC2074.2
230300 DIV-WRITE-F3-2.                                                  NC2074.2
230400     PERFORM PRINT-DETAIL.                                        NC2074.2
230500*                                                                 NC2074.2
230600 DIV-INIT-F3-3.                                                   NC2074.2
230700     MOVE "DIV-TEST-F3-3  " TO PAR-NAME                           NC2074.2
230800     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
230900     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
231000     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
231100 DIV-TEST-F3-3.                                                   NC2074.2
231200     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
231300         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 3  NC2074.2
231400     GIVING ACCUMULATOR1.                                         NC2074.2
231500     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
231600         PERFORM PASS                                             NC2074.2
231700         GO TO DIV-WRITE-F3-3.                                    NC2074.2
231800     GO TO DIV-FAIL-F3-3.                                         NC2074.2
231900 DIV-DELETE-F3-3.                                                 NC2074.2
232000     PERFORM DE-LETE.                                             NC2074.2
232100     GO TO DIV-WRITE-F3-3.                                        NC2074.2
232200 DIV-FAIL-F3-3.                                                   NC2074.2
232300     MOVE 1 TO CORRECT-N.                                         NC2074.2
232400     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
232500     PERFORM FAIL.                                                NC2074.2
232600 DIV-WRITE-F3-3.                                                  NC2074.2
232700     PERFORM PRINT-DETAIL.                                        NC2074.2
232800*                                                                 NC2074.2
232900 DIV-INIT-F3-4.                                                   NC2074.2
233000     MOVE "DIV-TEST-F3-4  " TO PAR-NAME                           NC2074.2
233100     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
233200     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
233300     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
233400 DIV-TEST-F3-4.                                                   NC2074.2
233500     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
233600         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 3  NC2074.2
233700     GIVING ACCUMULATOR1.                                         NC2074.2
233800     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
233900         PERFORM PASS                                             NC2074.2
234000         GO TO DIV-WRITE-F3-4.                                    NC2074.2
234100     GO TO DIV-FAIL-F3-4.                                         NC2074.2
234200 DIV-DELETE-F3-4.                                                 NC2074.2
234300     PERFORM DE-LETE.                                             NC2074.2
234400     GO TO DIV-WRITE-F3-4.                                        NC2074.2
234500 DIV-FAIL-F3-4.                                                   NC2074.2
234600     MOVE 1 TO CORRECT-N.                                         NC2074.2
234700     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
234800     PERFORM FAIL.                                                NC2074.2
234900 DIV-WRITE-F3-4.                                                  NC2074.2
235000     PERFORM PRINT-DETAIL.                                        NC2074.2
235100*                                                                 NC2074.2
235200 DIV-INIT-F3-5.                                                   NC2074.2
235300     MOVE "DIV-TEST-F3-5  " TO PAR-NAME                           NC2074.2
235400     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
235500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
235600     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
235700 DIV-TEST-F3-5.                                                   NC2074.2
235800     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
235900         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
236000         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
236100         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
236200     GIVING ACCUMULATOR1.                                         NC2074.2
236300     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
236400         PERFORM PASS                                             NC2074.2
236500         GO TO DIV-WRITE-F3-5.                                    NC2074.2
236600     GO TO DIV-FAIL-F3-5.                                         NC2074.2
236700 DIV-DELETE-F3-5.                                                 NC2074.2
236800     PERFORM DE-LETE.                                             NC2074.2
236900     GO TO DIV-WRITE-F3-5.                                        NC2074.2
237000 DIV-FAIL-F3-5.                                                   NC2074.2
237100     MOVE 1 TO CORRECT-N.                                         NC2074.2
237200     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
237300     PERFORM FAIL.                                                NC2074.2
237400 DIV-WRITE-F3-5.                                                  NC2074.2
237500     PERFORM PRINT-DETAIL.                                        NC2074.2
237600*                                                                 NC2074.2
237700 DIV-INIT-F3-6.                                                   NC2074.2
237800     MOVE "DIV-TEST-F3-6  " TO PAR-NAME                           NC2074.2
237900     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
238000     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
238100     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
238200 DIV-TEST-F3-6.                                                   NC2074.2
238300     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
238400         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
238500         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
238600         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A       NC2074.2
238700     GIVING ACCUMULATOR1.                                         NC2074.2
238800     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
238900         PERFORM PASS                                             NC2074.2
239000         GO TO DIV-WRITE-F3-6.                                    NC2074.2
239100     GO TO DIV-FAIL-F3-6.                                         NC2074.2
239200 DIV-DELETE-F3-6.                                                 NC2074.2
239300     PERFORM DE-LETE.                                             NC2074.2
239400     GO TO DIV-WRITE-F3-6.                                        NC2074.2
239500 DIV-FAIL-F3-6.                                                   NC2074.2
239600     MOVE 1 TO CORRECT-N.                                         NC2074.2
239700     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
239800     PERFORM FAIL.                                                NC2074.2
239900 DIV-WRITE-F3-6.                                                  NC2074.2
240000     PERFORM PRINT-DETAIL.                                        NC2074.2
240100*                                                                 NC2074.2
240200 DIV-INIT-F3-7.                                                   NC2074.2
240300     MOVE "DIV-TEST-F3-7  " TO PAR-NAME                           NC2074.2
240400     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
240500     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
240600     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
240700 DIV-TEST-F3-7.                                                   NC2074.2
240800     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
240900         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 7  NC2074.2
241000     GIVING ACCUMULATOR1.                                         NC2074.2
241100     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
241200         PERFORM PASS                                             NC2074.2
241300         GO TO DIV-WRITE-F3-7.                                    NC2074.2
241400     GO TO DIV-FAIL-F3-7.                                         NC2074.2
241500 DIV-DELETE-F3-7.                                                 NC2074.2
241600     PERFORM DE-LETE.                                             NC2074.2
241700     GO TO DIV-WRITE-F3-7.                                        NC2074.2
241800 DIV-FAIL-F3-7.                                                   NC2074.2
241900     MOVE 1 TO CORRECT-N.                                         NC2074.2
242000     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
242100     PERFORM FAIL.                                                NC2074.2
242200 DIV-WRITE-F3-7.                                                  NC2074.2
242300     PERFORM PRINT-DETAIL.                                        NC2074.2
242400*                                                                 NC2074.2
242500 DIV-INIT-F3-8.                                                   NC2074.2
242600     MOVE "DIV-TEST-F3-8  " TO PAR-NAME                           NC2074.2
242700     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
242800     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
242900     MOVE ZERO TO ACCUMULATOR1.                                   NC2074.2
243000 DIV-TEST-F3-8.                                                   NC2074.2
243100     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
243200         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A BY 8  NC2074.2
243300     GIVING ACCUMULATOR1.                                         NC2074.2
243400     IF ACCUMULATOR1 EQUAL TO 1                                   NC2074.2
243500         PERFORM PASS                                             NC2074.2
243600         GO TO DIV-WRITE-F3-8.                                    NC2074.2
243700     GO TO DIV-FAIL-F3-8.                                         NC2074.2
243800 DIV-DELETE-F3-8.                                                 NC2074.2
243900     PERFORM DE-LETE.                                             NC2074.2
244000     GO TO DIV-WRITE-F3-8.                                        NC2074.2
244100 DIV-FAIL-F3-8.                                                   NC2074.2
244200     MOVE 1 TO CORRECT-N.                                         NC2074.2
244300     MOVE ACCUMULATOR1 TO COMPUTED-N.                             NC2074.2
244400     PERFORM FAIL.                                                NC2074.2
244500 DIV-WRITE-F3-8.                                                  NC2074.2
244600     PERFORM PRINT-DETAIL.                                        NC2074.2
244700*                                                                 NC2074.2
244800 DIV-INIT-F3-9.                                                   NC2074.2
244900     MOVE "DIV-TEST-F3-9  " TO PAR-NAME                           NC2074.2
245000     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
245100     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
245200     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
245300 DIV-TEST-F3-9.                                                   NC2074.2
245400     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
245500         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 9  NC2074.2
245600     GIVING ACCUMULATOR2.                                         NC2074.2
245700     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
245800         PERFORM PASS                                             NC2074.2
245900         GO TO DIV-WRITE-F3-9.                                    NC2074.2
246000     GO TO DIV-FAIL-F3-9.                                         NC2074.2
246100 DIV-DELETE-F3-9.                                                 NC2074.2
246200     PERFORM DE-LETE.                                             NC2074.2
246300     GO TO DIV-WRITE-F3-9.                                        NC2074.2
246400 DIV-FAIL-F3-9.                                                   NC2074.2
246500     MOVE 1 TO CORRECT-N.                                         NC2074.2
246600     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
246700     PERFORM FAIL.                                                NC2074.2
246800 DIV-WRITE-F3-9.                                                  NC2074.2
246900     PERFORM PRINT-DETAIL.                                        NC2074.2
247000*                                                                 NC2074.2
247100 DIV-INIT-F3-10.                                                  NC2074.2
247200     MOVE "DIV-TEST-F3-10 " TO PAR-NAME                           NC2074.2
247300     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
247400     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
247500     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
247600 DIV-TEST-F3-10.                                                  NC2074.2
247700     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
247800         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 10 NC2074.2
247900     GIVING ACCUMULATOR2.                                         NC2074.2
248000     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
248100         PERFORM PASS                                             NC2074.2
248200         GO TO DIV-WRITE-F3-10.                                   NC2074.2
248300     GO TO DIV-FAIL-F3-10.                                        NC2074.2
248400 DIV-DELETE-F3-10.                                                NC2074.2
248500     PERFORM DE-LETE.                                             NC2074.2
248600     GO TO DIV-WRITE-F3-10.                                       NC2074.2
248700 DIV-FAIL-F3-10.                                                  NC2074.2
248800     MOVE 1 TO CORRECT-N.                                         NC2074.2
248900     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
249000     PERFORM FAIL.                                                NC2074.2
249100 DIV-WRITE-F3-10.                                                 NC2074.2
249200     PERFORM PRINT-DETAIL.                                        NC2074.2
249300*                                                                 NC2074.2
249400 DIV-INIT-F3-11.                                                  NC2074.2
249500     MOVE "DIV-TEST-F3-11 " TO PAR-NAME                           NC2074.2
249600     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
249700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
249800     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
249900 DIV-TEST-F3-11.                                                  NC2074.2
250000     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
250100         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
250200         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
250300         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
250400     GIVING ACCUMULATOR2.                                         NC2074.2
250500     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
250600         PERFORM PASS                                             NC2074.2
250700         GO TO DIV-WRITE-F3-11.                                   NC2074.2
250800     GO TO DIV-FAIL-F3-11.                                        NC2074.2
250900 DIV-DELETE-F3-11.                                                NC2074.2
251000     PERFORM DE-LETE.                                             NC2074.2
251100     GO TO DIV-WRITE-F3-11.                                       NC2074.2
251200 DIV-FAIL-F3-11.                                                  NC2074.2
251300     MOVE 1 TO CORRECT-N.                                         NC2074.2
251400     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
251500     PERFORM FAIL.                                                NC2074.2
251600 DIV-WRITE-F3-11.                                                 NC2074.2
251700     PERFORM PRINT-DETAIL.                                        NC2074.2
251800*                                                                 NC2074.2
251900 DIV-INIT-F3-12.                                                  NC2074.2
252000     MOVE "DIV-TEST-F3-12 " TO PAR-NAME                           NC2074.2
252100     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
252200     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
252300     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
252400 DIV-TEST-F3-12.                                                  NC2074.2
252500     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
252600         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
252700         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
252800         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
252900     GIVING ACCUMULATOR2.                                         NC2074.2
253000     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
253100         PERFORM PASS                                             NC2074.2
253200         GO TO DIV-WRITE-F3-12.                                   NC2074.2
253300     GO TO DIV-FAIL-F3-12.                                        NC2074.2
253400 DIV-DELETE-F3-12.                                                NC2074.2
253500     PERFORM DE-LETE.                                             NC2074.2
253600     GO TO DIV-WRITE-F3-12.                                       NC2074.2
253700 DIV-FAIL-F3-12.                                                  NC2074.2
253800     MOVE 1 TO CORRECT-N.                                         NC2074.2
253900     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
254000     PERFORM FAIL.                                                NC2074.2
254100 DIV-WRITE-F3-12.                                                 NC2074.2
254200     PERFORM PRINT-DETAIL.                                        NC2074.2
254300*                                                                 NC2074.2
254400 DIV-INIT-F3-13.                                                  NC2074.2
254500     MOVE "DIV-TEST-F3-13 " TO PAR-NAME                           NC2074.2
254600     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
254700     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
254800     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
254900 DIV-TEST-F3-13.                                                  NC2074.2
255000     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF   NC2074.2
255100         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 13 NC2074.2
255200     GIVING ACCUMULATOR2.                                         NC2074.2
255300     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
255400         PERFORM PASS                                             NC2074.2
255500         GO TO DIV-WRITE-F3-13.                                   NC2074.2
255600     GO TO DIV-FAIL-F3-13.                                        NC2074.2
255700 DIV-DELETE-F3-13.                                                NC2074.2
255800     PERFORM DE-LETE.                                             NC2074.2
255900     GO TO DIV-WRITE-F3-13.                                       NC2074.2
256000 DIV-FAIL-F3-13.                                                  NC2074.2
256100     MOVE 1 TO CORRECT-N.                                         NC2074.2
256200     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
256300     PERFORM FAIL.                                                NC2074.2
256400 DIV-WRITE-F3-13.                                                 NC2074.2
256500     PERFORM PRINT-DETAIL.                                        NC2074.2
256600*                                                                 NC2074.2
256700 DIV-INIT-F3-14.                                                  NC2074.2
256800     MOVE "DIV-TEST-F3-14 " TO PAR-NAME                           NC2074.2
256900     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
257000     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
257100     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
257200 DIV-TEST-F3-14.                                                  NC2074.2
257300     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2A OF   NC2074.2
257400         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A BY 14 NC2074.2
257500     GIVING ACCUMULATOR2.                                         NC2074.2
257600     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
257700         PERFORM PASS                                             NC2074.2
257800         GO TO DIV-WRITE-F3-14.                                   NC2074.2
257900     GO TO DIV-FAIL-F3-14.                                        NC2074.2
258000 DIV-DELETE-F3-14.                                                NC2074.2
258100     PERFORM DE-LETE.                                             NC2074.2
258200     GO TO DIV-WRITE-F3-14.                                       NC2074.2
258300 DIV-FAIL-F3-14.                                                  NC2074.2
258400     MOVE 1 TO CORRECT-N.                                         NC2074.2
258500     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
258600     PERFORM FAIL.                                                NC2074.2
258700 DIV-WRITE-F3-14.                                                 NC2074.2
258800     PERFORM PRINT-DETAIL.                                        NC2074.2
258900*                                                                 NC2074.2
259000 DIV-INIT-F3-15.                                                  NC2074.2
259100     MOVE "DIV-TEST-F3-15 " TO PAR-NAME                           NC2074.2
259200     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
259300     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
259400     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
259500 DIV-TEST-F3-15.                                                  NC2074.2
259600     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
259700         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
259800         BY   TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B OF   NC2074.2
259900         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
260000     GIVING ACCUMULATOR2.                                         NC2074.2
260100     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
260200         PERFORM PASS                                             NC2074.2
260300         GO TO DIV-WRITE-F3-15.                                   NC2074.2
260400     GO TO DIV-FAIL-F3-15.                                        NC2074.2
260500 DIV-DELETE-F3-15.                                                NC2074.2
260600     PERFORM DE-LETE.                                             NC2074.2
260700     GO TO DIV-WRITE-F3-15.                                       NC2074.2
260800 DIV-FAIL-F3-15.                                                  NC2074.2
260900     MOVE 1 TO CORRECT-N.                                         NC2074.2
261000     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
261100     PERFORM FAIL.                                                NC2074.2
261200 DIV-WRITE-F3-15.                                                 NC2074.2
261300     PERFORM PRINT-DETAIL.                                        NC2074.2
261400*                                                                 NC2074.2
261500 DIV-INIT-F3-16.                                                  NC2074.2
261600     MOVE "DIV-TEST-F3-16 " TO PAR-NAME                           NC2074.2
261700     MOVE "QUALIFIED DIVIDE " TO  FEATURE.                        NC2074.2
261800     MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE.                      NC2074.2
261900     MOVE ZERO TO ACCUMULATOR2.                                   NC2074.2
262000 DIV-TEST-F3-16.                                                  NC2074.2
262100     DIVIDE   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
262200         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
262300         BY   TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B OF   NC2074.2
262400         TABLE-LEVEL-3B IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2074.2
262500     GIVING ACCUMULATOR2.                                         NC2074.2
262600     IF ACCUMULATOR2 EQUAL TO 1                                   NC2074.2
262700         PERFORM PASS                                             NC2074.2
262800         GO TO DIV-WRITE-F3-16.                                   NC2074.2
262900     GO TO DIV-FAIL-F3-16.                                        NC2074.2
263000 DIV-DELETE-F3-16.                                                NC2074.2
263100     PERFORM DE-LETE.                                             NC2074.2
263200     GO TO DIV-WRITE-F3-16.                                       NC2074.2
263300 DIV-FAIL-F3-16.                                                  NC2074.2
263400     MOVE 1 TO CORRECT-N.                                         NC2074.2
263500     MOVE ACCUMULATOR2 TO COMPUTED-N.                             NC2074.2
263600     PERFORM FAIL.                                                NC2074.2
263700 DIV-WRITE-F3-16.                                                 NC2074.2
263800     PERFORM PRINT-DETAIL.                                        NC2074.2
263900*                                                                 NC2074.2
264000 DIV-INIT-F3-17.                                                  NC2074.2
264100*    ===-->  48 LEVELS OF QUALIFICATION  <--===                   NC2074.2
264200     MOVE   "DIV-TEST-F3-17 " TO PAR-NAME.                        NC2074.2
264300     MOVE   "VI-2 1.3.2" TO ANSI-REFERENCE.                       NC2074.2
264400     MOVE    ZERO TO ACCUMULATOR1.                                NC2074.2
264500 DIV-TEST-F3-17.                                                  NC2074.2
264600     DIVIDE  GROUP-49-4  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
264700             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
264800             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
264900             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
265000             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
265100             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
265200             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
265300             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
265400             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
265500             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
265600             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
265700             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
265800             IN SECOND-GROUP                                      NC2074.2
265900          BY 40                                                   NC2074.2
266000       GIVING ACCUMULATOR1.                                       NC2074.2
266100     IF      ACCUMULATOR1 EQUAL TO 10                             NC2074.2
266200             PERFORM PASS                                         NC2074.2
266300             GO TO   DIV-WRITE-F3-17.                             NC2074.2
266400     GO TO DIV-FAIL-F3-17.                                        NC2074.2
266500 DIV-DELETE-F3-17.                                                NC2074.2
266600     PERFORM DE-LETE.                                             NC2074.2
266700     GO TO   DIV-WRITE-F3-17.                                     NC2074.2
266800 DIV-FAIL-F3-17.                                                  NC2074.2
266900     MOVE    10 TO CORRECT-N.                                     NC2074.2
267000     MOVE    GROUP-49-4  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
267100             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
267200             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
267300             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
267400             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
267500             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
267600             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
267700             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
267800             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
267900             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
268000             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
268100             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
268200             IN SECOND-GROUP                                      NC2074.2
268300          TO COMPUTED-N.                                          NC2074.2
268400     PERFORM FAIL.                                                NC2074.2
268500 DIV-WRITE-F3-17.                                                 NC2074.2
268600     PERFORM PRINT-DETAIL.                                        NC2074.2
268700     PERFORM END-ROUTINE.                                         NC2074.2
268800*                                                                 NC2074.2
268900 CND-INIT-GF-1.                                                   NC2074.2
269000*    ===-->  48 LEVELS OF QUALIFICATION  <--===                   NC2074.2
269100     MOVE   "CND-TEST-GF-1 " TO PAR-NAME.                         NC2074.2
269200     MOVE   "VI-2 1.3.2" TO ANSI-REFERENCE.                       NC2074.2
269300     MOVE   "CONDITION NAME " TO  FEATURE.                        NC2074.2
269400 CND-TEST-GF-1.                                                   NC2074.2
269500     IF      LEVEL-49-OK                                          NC2074.2
269600             PERFORM PASS                                         NC2074.2
269700             GO TO   CND-WRITE-GF-1.                              NC2074.2
269800     GO TO CND-FAIL-GF-1.                                         NC2074.2
269900 CND-DELETE-GF-1.                                                 NC2074.2
270000     PERFORM DE-LETE.                                             NC2074.2
270100     GO TO   CND-WRITE-GF-1.                                      NC2074.2
270200 CND-FAIL-GF-1.                                                   NC2074.2
270300     MOVE    500 TO CORRECT-N.                                    NC2074.2
270400     MOVE    GROUP-49-5  OF GROUP-48 IN GROUP-47 OF GROUP-46      NC2074.2
270500             IN GROUP-45 OF GROUP-44 IN GROUP-43 OF GROUP-42      NC2074.2
270600             IN GROUP-41 OF GROUP-40 IN GROUP-39 OF GROUP-38      NC2074.2
270700             IN GROUP-37 OF GROUP-36 IN GROUP-35 OF GROUP-34      NC2074.2
270800             IN GROUP-33 OF GROUP-32 IN GROUP-31 OF GROUP-30      NC2074.2
270900             IN GROUP-29 OF GROUP-28 IN GROUP-27 OF GROUP-26      NC2074.2
271000             IN GROUP-25 OF GROUP-24 IN GROUP-23 OF GROUP-22      NC2074.2
271100             IN GROUP-21 OF GROUP-20 IN GROUP-19 OF GROUP-18      NC2074.2
271200             IN GROUP-17 OF GROUP-16 IN GROUP-15 OF GROUP-14      NC2074.2
271300             IN GROUP-13 OF GROUP-12 IN GROUP-11 OF GROUP-10      NC2074.2
271400             IN GROUP-09 OF GROUP-08 IN GROUP-07 OF GROUP-06      NC2074.2
271500             IN GROUP-05 OF GROUP-04 IN GROUP-03 OF GROUP-02      NC2074.2
271600             IN SECOND-GROUP                                      NC2074.2
271700          TO COMPUTED-N.                                          NC2074.2
271800     PERFORM FAIL.                                                NC2074.2
271900 CND-WRITE-GF-1.                                                  NC2074.2
272000     PERFORM PRINT-DETAIL.                                        NC2074.2
272100 CCVS-EXIT SECTION.                                               NC2074.2
272200 CCVS-999999.                                                     NC2074.2
272300     GO TO CLOSE-FILES.                                           NC2074.2