                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 099/099 ------           
 D     06271  1 00000 0 04673        TXI RDC,0                     READ CARD.                         4F13405     
 D     06272  1 00000 0 04777        TXI WBT,0                     WRITE TAPE.                        4F13406     
 D     06273  1 00000 0 04764        TXI WOT,0                     WRITE OUTPUT TAPE.                 4F13407     
 D     06274  1 00000 0 05044        TXI WRD,0                     WRITE DRUM,                        4F13408     
 D     06275  1 00000 0 04753        TXI RDP,0                     PRINT.                             4F13409     
 D     06276  1 00000 0 04772        TXI PDC,0                     PUNCH.                             4F13410     
 D     06277  1 00000 0 05107        TXI RWN,0                     REWIND.                            4F13411     
 D     06300  1 00000 0 05111        TXI BSP,0                     BACKSPACE.                         4F13412     
 D     06301  1 00000 0 05066        TXI EFT,0                     END FILE.                          4F13413     
 D     06302 -3 00000 0 05113        TXL FOR,0                     FORMAT.                            4F13414     
 D     06303 -3 00000 0 04442        TXL C3000,0                   SUBROUTINE.                        4F13415     
 D     06304 -3 00000 0 04512        TXL C3100,0                   COMMON.                            4F13416     
 D     06305  1 00000 0 04536        TXI C3200,0                   RETURN.                            4F13417     
 D     06306  1 00000 0 04607        TXI C3300,0                   CALL.                              4F13418     
 D     06307 -3 00000 0 04660        TXL C3400,0                   END.                               4F13419     
 D     06310 -3 00000 0 04440        TXL C3500,0                   FUNCTION.                          4F13420     
                        06311        BSS 10                                                           4F134205    
                                         END OF TRANSFER TABLE.                                       4F13421     
                        06323 ENDADR BSS 0                                                            4F134215    
                                         ******************************  *                            4F13422     
                                                                                                      4F13423     
                        07307 ENDA   ORG 3783                                                         4F13424     
                        07307 BIN    BSS 1                          VARIABLE  USED BY  IOT.           4F13425     
                        07316 CHR    BES 6                          VARIABLE  USED BY  IOT.           4F13426     
                        07316        BSS 50                         PARAMETERS FOR TLDOS TABLE -IOT.  4F13427     
                        07400 DOLEV  BSS 1                          PARAMETERS FOR TLDOS TABLE -IOT.  4F13428     
                        07401 OP     BSS 1                          VARIABLE USED BY IOT.             4F13429     
                        07402 RA     BSS 1                          VARIABLE USED BY IOT.             4F13430     
                        07403 SA     BSS 1                          VARIABLE USED BY IOT.             4F13431     
                        07404 SYM    BSS 1                          VARIABLE USED BY IOT.             4F13432     
                        07405 TLDOS  BSS 250                        DO TABLE USED BY IOT.             4F13433     
                                         END OF WORKING STORAGE USED BY STATEA.                       4F13434     
                                         ******************************                              *4F13435     
                                                                                                      4F13436     
                                         END OF THE NON-ARITHMETIC PART OF SECTION ONE.               4F13437     
                                                                                                      4F13438     
                                         ******************************                              *4F13439     
                                                                                                      4F13440     
                                         ARITHMETIC / STATE B=                                        4F13441     
                                         704 FORTRAN MASTER RECORD CARD / STATE B = F0180000.         4F13442     
                        00000        ORG 0                                                            4F134421    
       00000  0 00506 0 03440        PZE ORGB,,DMWR06                                                 4F134422    
       00001  0 00000 0 05214        PZE ENDB-1                                                       4F134423    
                                                                                                      4F13443     
                        03440 ORGB   ORG 1824                                                         4F13444     
                                                                                                      4F13445     
                                         THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704     4F13446     
                                         FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL   4F13447     
                                         ANALYSIS HAS BEEN FOLDED OVER.                               4F13440     
                                                                                                      4F13449     
                                         STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS.    4F13450     
                                         THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451     
                                         IN THE F REGION OF COMMON AND  IS IN BCD.                    4F13452     
                                         EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD  4F13453     
