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
Messung V0.5 in Prozent C=96 H=88 G=91
¤ Dauer der Verarbeitung: 0.164 Sekunden
(vorverarbeitet am 2026-06-14)
¤ *© Formatika GbR, Deutschland
