                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 064/064 ------           
       00547  2 00001 1 00527        TIX DMWR23,1,1                CK SUM FAILED, TRY UP TO 5 TIMES.  4F11522     
       00550  0 50000 0 00577        CLA DMWR89                    SET MONITOR TO RETURN TO THIS      4F11523     
       00551  0 60100 0 02402        STO STATEA                    PROGRAM INSTEAD OF TO STATE A.     4F11524     
       00552 -3 00003 4 00554        TXL DMWR80,4,3                TEST FOR STATE A IN PROGRESS.      4F11525     
       00553  0 07400 4 03400        TSX DIAG,4                  * STATE A CANNOT BE WRITTEN ON DRUM1.4F11526     
       00554 -3 00002 4 00561 DMWR80 TXL DMWR82,4,2                TEST FOR STATE D IN PROGRESS.      4F11527     
       00555  0 76200 0 00221        RTB 1                         SPACE OVER STATE C RECORD.         4F11528     
       00556  0 76200 0 00221        RTB 1                         SPACE OVER STATE B RECORD.         4F11529     
       00557  0 76200 0 00221        RTB 1                         SPACE OVER STATE A RECORD.         4F11530     
       00560  0 07400 4 03400        TSX DIAG,4                  * STATE D CANNOT BE WRITTEN ON DRUM2.4F11531     
       00561 -3 00001 4 00564 DMWR82 TXL DMWR84,4,1                TEST FOR SET B IN PROGRESS.        4F11532     
       00562  0 76200 0 00221        RTB 1                         SPACE OVER STATE A RECORD.         4F11533     
       00563  0 07400 4 03400        TSX DIAG,4                  * STATE B CANNOT BE WRITTEN ON DRUM3.4F11534     
       00564  0 76200 0 00221 DMWR84 RTB 1                         SPACE OVER STATE B RECORD.         4F11535     
       00565  0 76200 0 00221        RTB 1                         SPACE OVER STATE A RECORD.         4F11536     
       00566  0 07400 4 03400        TSX DIAG,4                  * STATE C CANNOT BE WRITTEN ON DRUM4.4F11537     
       00567  0 53400 4 01406 DMWR88 LXA L(0),4                    SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO4F11538     
       00570  0 02000 0 03400        TRA DIAG                    * PRINT END LINE AND STOP            4F11539     
       00571  0 07400 4 05702 DMWR99 TSX CA100,4                 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540     
       00572  0 02000 0 03440        TRA CA010                   * GO BEGIN STATE A OF SECTION ONE.   4F11541     
                                          END OF INITIALIZATION / PART 2.                             4F11542     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543     
                                                                                                      4F11544     
                                         PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=      4F11545     
                        00573 GARBGE BSS 1                         ERASEABLE STORAGE.                 4F11546     
       00574  0 00000 0 00000 CHECK  PZE ,,**                      SAVING CELL FOR LENGTH OF STATE.   4F11547     
       00575  0 04000 0 00004 CLDR07 PZE 4,,2048                   CONSTANT FOR CLEARING DRUMS.       4F11548     
       00576  0 00000 0 00000 CLDR08 PZE 0                         CONSTANT FOR CLEARING DRUMS.       4F11549     
       00577  0 02000 0 00567 DMWR89 TRA DMWR88                    CONSTANT FOR ERROR ROUTINE.        4F11550     
       00600  0 00000 0 00571 DMWR98 PZE DMWR99                    CONSTANT FOR ADDRESS MODIFICATION. 4F11551     
                                          END OF INITIALIZATION / PART 3.                             4F11552     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553     
                                                                                                      4F11554     
                                                                                                      4F11555     
                                         SECTION 1 / STATEA =                                         4F11556     
                                         704 FORTRAN MASTER RECORD CARD / STATE A = F0190000.         4F11557     
                        00000        ORG 0                                                            4F115571    
       00000  0 00510 0 03440        PZE ORGA,,DMWR09                                                 4F115572    
       00001  0 00000 0 07306        PZE ENDA-1                                                       4F115573    
                                                                                                      4F11558     
                                         NAME                      FUNCTION                           4F11559     
                                         PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11560     
                                         CA000                     ASSEMBLE STATEMENT.                4F11561     
                                         CD000                     SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562     
                                         CB000                     CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563     
                                         CC000                     CLASSIFY=WHICH NON-ARITHMETIC.     4F11564     
                                         PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.       4F11565     
                                         C0100                     DO.                                4F11566     
                                         C0200                     GO TO.                             4F11567     
                                         C0300                     IF.                                4F11568     
                                         C0400                     IF (SENSE SWITCH.                  4F11569     
                                         C0500                     IF (SENSE LIGHT.                   4F11570     
                                         C0600                     IF DIVIDE CHECK.                   4F11571     
                                         C0700                     IF AC OVERFLOW.                    4F11572     
