                                        1 program for fortran                                    
                                        1 statements to it statements                             
                                               blr 1000  1010                                          
                                               blr 1150  1171      functions                           
                                               blr 1200  1210      nonarith t                          
                                               blr 1450  1454      equ var ta                          
                                               blr 1500  1519      jibase tbl                          
                                               blr 1600  1699      varbl tabl                          
                                               blr 1821  1830      startnarit                          
                                               blr 1900  1930      pack band                           
                                               blr 1948  1949                                          
                                               regr1951  1960      read band                           
                                               regp1977  1986      punch band                          
                                               blr 1990  1998      comp gp ta                          
                                               synstart  1999                                          
                                               synreset  0228                                          
                                               synstorg  1961                                          
                                               synsubsc  1962                                          
                                          startrcd 1952 reset      read first   
                                          resetral 1960              card       
                                               slt 0001            test for     
                                               nzustart                         
                                               stuiad              sub a        
                                               stdsw4                 sub  a    
                                               stdsw5                 sub  a    
                                               stdctvar                         
                                               lddeghts                         
                                               stdp0010                         
                                               lddcnpka                         
                                               stdswpka pack                    
                                          cnpkastltesta suba1      switch pka   
                                          read raliac                is wd end  
                                               nzearead             frst wd in  
                                               raltemae             pack band   
                                               sloendcn              if no rd   
                                               nzearead  1830      next card    
                                          endcn 00 6575  6400                   
                                          areadrcd 1951              if yes     
                                               ral 1960             punch hedr  
                                               slt 0001             card and    
                                               nzuread              reinitia    
                                               slt 0001             lize        
                                               nzupack                          
                                               lddcnpka             pack sw a1  
                                               stdswpka swt                     
                                          swt  lddin2   tr ca      suba         
                                          tr castdsw 59                         
                                               raltemae                         
                                               stutesta                         
                                               nzenzt5  in2                     
                                          nzt5 slt 0002                         
                                               nzunzt 4 nzt5                    
                                          pack ralltr f                         
                                               ldd      tr uc                   
                                               stdtemph                         
                                               stlp0006                         
                                               auppacka                         
                                               lddtjasw sub x                   
                                          suba1lddcnpkb              pack sw a2 
                                               stdswpka                         
                                               lddpacka                         
                                               stdsw 59                         
                                               lddswh                switch 3   
                                               stdsw 60                         
                                               rau 1960              statement  
                                               stdp0008                         
                                               stliac                           
                                               stup0009 tra1b                   
                                          tra1braltesta tr aa                   
                                          cnpkbstltesta suba2                   
                                          suba2alotemae tr aa                   
                                          tr aaslt 0002                to temp  
                                               nzunzt 4              test 6 cha 
                                               stltemae sub a                   
                                          nzt 4srt 0002              five char  
                                               stutemae                         
                                               aupiac                  index    
                                               supcnbkb                         
                                               nzu      stp r                   
                                               aupcnbib                         
                                               stuiac                  store    
                                               aupcn f1  8003         word      
                                          cn f1stl 1899 sub a                   
                                          sub araltesta              lt parnt   
                                               sloparnl                         
                                               nzenztt                          
                                               ralone   tr  l      add to cou   
                                          tr  laloiad                           
                                               stliad   tr  m                   
                                          nztt aloplus                          
                                               nzesw 60                         
                                               rslone   tr  l      sub to cou   
                                          tr  mnzenzt9a              set sw 3   
                                               lddswh   tr  n         on        
                                          nzt9alddsw 59 tr  n         off       
                                          tr  nstdsw 60 sw 59                   
                                          tr  onzenzt10            sw b on      
                                               lddone              equal out    
                                               stdsw4   sw 59                   
                                          nzt10alocn a5                         
                                               nzesw 59                         
                                               lddone              comma out    
                                               stdsw5   sw 59                   
                                          swh  slomult  tr  o      suba         
                                          in2  raliad   tr ml      parn count   
                                          tr mlstuiad              zero iad     
                                               nzestopa              test       
                                               ralsw4              test type    
                                               stusw4              reset equa   
                                               nze      in3                     
                                               ralsw5                           
                                               nzein3   in4        out          
                                          in3  ral 1900                         
                                               stusw5                           
                                               srt 0006              look up    
                                               slt 0006              for        
                                               stltemaa                         
                                               ralcn j1              non        
                                               lddtemaa                         
                                               tlu 1200  8002        statemen   
                                          tr  pslotemaa                         
                                               slt 0004              look up    
                                               nzustopb            nz is erro   
                                               srt 0004  8002      zt is ok     
                                          cn j1ral 0000 tr  p      suba         
                                          scan stltemae                         
                                               std 1992                         
                                               lddnnal1                         
                                               stdnn l1                         
                                               lddswba1                         
                                               stdsw ba                         
                                               lddtj10b                         
                                               stdtj 10                         
                                               lddnzu2a                         
                                               stdnzu2                          
                                               lddsw oa tr mt                   
                                          tr mtstdsw 56                         
                                               rauiac                           
                                               stlf3                            
                                               stdtemac                         
                                               lddsw bh tr tn                   
                                          sw bhnzutr rn zt h4                   
                                          tr rnalof3                            
                                               aloone                           
                                               stlf3                            
                                               rau 8003 sw 56                   
                                          sw oasupdecpt                         
                                               nzu      zt g8                   
                                               suptwo 1                         
                                               nzu      zt g9                   
                                               supnine                          
                                               nzu      zt h1                   
                                               supone 1                         
                                               nzu      zt h2                   
                                               supone 1                         
                                               nzu      zt n8                   
                                               supeight                         
                                               nzu      zt h3                   
                                               aupparnl tr mv                   
                                          tr mvstutemaf tr mw                   
                                          tr mwraltemac                         
                                               slt 0002                         
                                               alotemaf                         
                                               stltemac nztb2                   
                                          zt h4raltempf                         
                                               sloone   tr rj                   
                                          tr rjstltempf                         
                                               stutemac                         
                                               nzetx dg                         
                                               ldd 1991                         
                                               bd1flo2  arith                   
                                          zt h2rauminus tr pn                   
                                          tr pnlddf3                            
                                               stdoutp                          
                                               lddsw pa tr rp                   
                                          tr rpstdsw 59                         
                                               alotemaa                         
                                               srt 0002                         
                                               stltemaa tr rh                   
                                          tr rhralnxtwd                         
                                               sloone                           
                                               lddnn m1                         
                                               sdanxtwd tr pr                   
                                          tr prrautemac                         
                                               nzu      tr nk                   
                                               srt 0002                         
                                               stutemac                         
                                               ral 8002                         
                                               slt 0002 sw 59                   
                                          tr nkstutemaa nxtwd                   
                                          nn m1ral 0000                         
                                               stltemac tr rh                   
                                          zt g9rauplus  tr pn                   
                                          sw pasupparnr                         
                                               nzunzti4 zt i4                   
                                          zt i4aup 8001                         
                                               lddout1s tr ps                   
                                          tr psstdf8                            
                                               alotemaa                         
                                               srt 0002                         
                                               stltemaa                         
                                               ralf3                            
                                               sloone                           
                                               stlf3    f8                      
                                          out1sralone   tr pu                   
                                          tr pualosw 61                         
                                               stlsw 61 tr pr                   
                                          nzti4supone 1                         
                                               nzunzti5                         
                                               rauplus  tr pv                   
                                          tr pvldd      tr ps                   
                                               rslsw 61 tr ux                   
                                          tr uxbmitr pr zt l3                   
                                          nzti5supnine                          
                                               nzunzti7                         
                                               raumult                          
                                               ldd      tr ps                   
                                               rslsw 61                         
                                               nzetr ux nzti8                   
                                          nzti7supone 1                         
                                               nzunztq5                         
                                               rauminus tr pv                   
                                          nztq5supone 1                         
                                               nzunztj5                         
                                               raudivid tr pv                   
                                          nztj5supseven                         
                                               nzunztj6                         
                                               raucomma tr pv                   
                                          nztj6supone 1                         
                                               nzunztj7 zt j7                   
                                          zt j7rauparnl                         
                                               ldd      tr ps                   
                                               rslone   tr pu                   
                                          nztj7supnine                          
                                               nzunztj8 zt j8                   
                                          nztj8aupequal                         
                                               lddtr pr tr ps                   
                                          zt j8rauequal                         
                                               lddzt l3 tr ps                   
                                          nzti8lddsw pc                         
                                               stdsw 59 tr pr                   
                                          sw pcsupparnr                         
                                               nzu      zt i4                   
                                               supone 1                         
                                               nzunztk3                         
                                               rauplus  tr py                   
                                          tr pyldd      tr ps                   
                                               rsusw 61                         
                                               bmitr pr zt k4                   
                                          nztk3supcn a5                         
                                               nzunztk4                         
                                               rauminus tr py                   
                                          nztk4supeight                         
                                               nzunztk5                         
                                               raucomma tr py                   
                                          nztk5supone 1                         
                                               nzunzt03                         
                                               rslsw 61                         
                                               bmizt j7                         
                                               lddsw pd                         
                                               stdsw 59 zt j7                   
                                          sw pdsupltr f                         
                                               nzu      zt o2                   
                                               aup 8001                         
                                               lddsw ph                         
                                               stdsw 59  8001                   
                                          zt o2aup 8001 tr sb                   
                                          nzt03supnine                          
                                               nzunztj8                         
                                               rauequal tr sb                   
                                          tr sbsrt 0002                         
                                               auptemac                         
                                               slt 0002                         
                                               stutemac tr qc                   
                                          zt k4lddout4v                         
                                               stdtesto tr qa                   
                                          out4vralf3                            
                                               aloone                           
                                               stlf3    tr qc                   
                                          tr qcraloutp                          
                                               aloone                           
                                               stloutp                          
                                               ralnn m3                         
                                               aloiac                           
                                               stlf4     8001                   
                                          nn m3rau 1899                         
                                               srt 0004                         
                                               ral 8002                         
                                               nze      zt kb                   
                                               ralf4                            
                                               aloone                           
                                               lddnn m4                         
                                               sdaf4                            
                                               ralnn n6                         
                                               slof4                            
                                               nze 8001 stopc                   
                                          nn m4stu 0000 tr tz                   
                                          tr tzraliac                           
                                               aloone                           
                                               stliac   zt kb                   
                                          zt kbralnxtwd                         
                                               aloone                           
                                               lddnn m7                         
                                               sdanxtwd                         
                                               lddnn mb                         
                                               sdastore                         
                                               rauparnl                         
                                               alotemaa                         
                                               srt 0002 tr qd                   
                                          tr qdstltemaa                         
                                               lddout1v                         
                                               stdtesto tr rg                   
                                          sub vraltemac                         
                                               slt 0002                         
                                               nzu      tr qa                   
                                               srt 0002 store                   
                                          tr qarautemac                         
                                               alotemaa                         
                                               slt 0002                         
                                               stutemac                         
                                               stltemaa testo                   
                                          out1vralf3                            
                                               aloone                           
                                               stlf3                            
                                               slooutp                          
                                               nzetr rg sw qa                   
                                          nn mbstl 0000 tr qe                   
                                          tr qestutemac                         
                                               ralnxtwd                         
                                               aloone                           
                                               stlnxtwd                         
                                               lddstore                         
                                               sdastore tr rg                   
                                          tr rgraltemaa                         
                                               nzesub v nxtwd                   
                                          sw qaraloutp                          
                                               aloone                           
                                               stloutp                          
                                               ralnxtwd                         
                                               ldd 8003                         
                                               sdaf7                            
                                               lddnnm16                         
                                               sdanxtwd                         
                                               lddnnm13                         
                                               sdastore                         
                                               ralf4                            
                                               lddstore                         
                                               sdaf4                            
                                               slof7                            
                                               sdaf7                            
                                               lddout5v                         
                                               stdtesto                         
                                               raltemaa                         
                                               nzenzto5 zt o5                   
                                          nzto5aupparnr                         
                                               srt 0002                         
                                               std 1993 tr sk                   
                                          zt o5ral 1992                         
                                               nze      nzto5                   
                                               rsl 8002                         
                                               stlf7                            
                                               raltemaa                         
                                               std 1992 nzto5                   
                                          nnm13stl 0000                         
                                               ral 1993                         
                                               nze      zt o6                   
                                               ralf7                            
                                               stu 1993                         
                                               sloone                           
                                               stlf7    zt o6                   
                                          zt o6ralf4                            
                                               slostore                         
                                               nzetr qe zt l3                   
                                          nnm16ral 0000 tr sk                   
                                          tr skstltemaa sub v                   
                                          zt l3raltemae                         
                                               nze      tr rv                   
                                               stdoutp                          
                                               stutemae tr rv                   
                                          tr rvraloutp                          
                                               lddtr mw tr ud                   
                                          tr udstdf1                            
                                               stlout q                         
                                               ldd      tr mt                   
                                               stutemaf                         
                                               ralf3                            
                                               sloout q                         
                                               nzetr mw                         
                                               lddsw oa                         
                                               stdsw 56 f1                      
                                          out5vraltemaa                         
                                               nzesub v                         
                                               std 1993                         
                                               ralf7                            
                                               bmitr rm                         
                                               sloone                           
                                               stlf7    nxtwd                   
                                          tr rmrautemac                         
                                               sct 0000                         
                                               ral 8003 store                   
                                          zt h3rautemaf                         
                                               supltr f                         
                                               nzu      tr nf                   
                                               aupseven                         
                                               bmitr nf                         
                                               lddsw oe                         
                                               stdsw 56 tr nf                   
                                          tr nfrauparnl tr mv                   
                                          sw oesupparnr                         
                                               nzunzth6 tr sq                   
                                          nzth6aup 8001 tr mv                   
                                          tr sqaup 8001                         
                                               alosw oa tr sr                   
                                          tr srstlsw 56 tr mv                   
                                          zt h1raumult                          
                                               alo      tr ro                   
                                               supmult                          
                                               nzutr mz tr sf                   
                                          tr mzaup 8001                         
                                               lddsw oa tr sc                   
                                          tr scstdsw 56  8001                   
                                          tr sfralf3    tr sa                   
                                          tr saaloone                           
                                               stltemae                         
                                               lddsw bl                         
                                               stdsw 50 tr so                   
                                          tr solddsw oi tr sn                   
                                          tr snstdsw 56 nztb2                   
                                          tr rolddf3                            
                                               stdf6    tr sr                   
                                          zt g8aup 8001                         
                                               alo      tr ro                   
                                               supltr a                         
                                               bmitr mz                         
                                               aup 8001                         
                                               supltr e                         
                                               nzunzth6                         
                                               aup 8001                         
                                               alo      tr sr                   
                                               supltr a                         
                                               bmitr sf tr sq                   
                                          sw blnzutr rn                         
                                               raltempf                         
                                               sloone                           
                                               nzetr rj                         
                                               ralone                           
                                               std 1992 tr ru                   
                                          tr rualof3    tr sl                   
                                          tr slstloutp                          
                                               ralf6                            
                                               ldd      tr ud                   
                                               rautemaf                         
                                               lddsw ph tr rp                   
                                          sw phsupmult                          
                                               nzu      zt n7                   
                                               aup 8001                         
                                               supdivid                         
                                               nzu      zt n7                   
                                               aup 8001 sw pc                   
                                          zt n7aup 8001 tr py                   
                                          zt n8ralf3                            
                                               stdf6    tr sa                   
                                          sw oisupequal                         
                                               bmi      nztb2                   
                                               aupmult                          
                                               nzu      zt n6                   
                                               supcn a5                         
                                               nzu      zt o4                   
                                               sup 8001                         
                                               nzu      zt n5                   
                                               aupone 1                         
                                               nzu      zt q4                   
                                               aupplus                          
                                               nzuzt q4 zt o1                   
                                          zt q4ralf3    tr uy                   
                                          tr uysupsw 61                         
                                               bminztb2 tr sl                   
                                          zt o1ldd      tr sn                   
                                               supltr a                         
                                               bmitr ry                         
                                               aup 8001                         
                                               supltr e                         
                                               nzunztb2                         
                                               lddtr so tr sn                   
                                          tr ryaup 8001 tr sm                   
                                          tr smlddsw oi tr sc                   
                                          zt n6lddsw ja                         
                                               stdsw 56                         
                                               rslone   tr sp                   
                                          tr spalosw 61                         
                                               stlsw 61 nztb2                   
                                          sw jasupltr a                         
                                               bmitr ry zt q4                   
                                          zt n5ralone   tr sp                   
                                          zt o4ldd      tr sn                   
                                               stutemaf                         
                                               supmult                          
                                               nzu      tr uv                   
                                               rslsw 61                         
                                               bmi      tr sd                   
                                               rautemaf tr sm                   
                                          tr uvralsw 61                         
                                               bmitr sd tr so                   
                                          tr sdrslone   tr ru                   
                                          nn m7ral 0000 tr qd                   
                                          nn n6stu 1931 tr tz                   
                                          in4  lddnine  tr sh                   
                                          tr shstd 1991 scan                    
                                          arithralfive  rith1                   
                                          rith1stutemab                         
                                               auptx db                         
                                               lddzt c5 flo 1                   
                                          flo 1stdsw 62                         
                                               stliae                           
                                               stusw 59                         
                                               lddtx de                         
                                               stdsw 60                         
                                               lddsw fa                         
                                               stdsw 54                         
                                               raufour                          
                                               stliai                           
                                               alotx dl                         
                                               lddsw ba tr tn                   
                                          tr tnstdsw 50                         
                                               stlsw 61                         
                                               stutempf                         
                                               lddnn l1                         
                                               stdnxtwd tx dg                   
                                          tx dgralnxtwd            word to ac   
                                               aloone              modify nex   
                                               stlnxtwd  8002       word addr   
                                          tr jmslt 0002                         
                                               stltemaa                         
                                               rau 8003 sw 50                   
                                          nztatsupcomma            test for     
                                               nzu      tx dm       comma       
                                               aupplus             test for     
                                               nzu      tx da       decimal p   
                                               supone 1            test for     
                                               nzu      sw 59       right pae   
                                               supone 1            test for     
                                               nzu      tx dj       plus sign   
                                               supnine             test for     
                                               nzu      tx dc       mult sign   
                                               supone 1            test for     
                                               nzu      tx dk       minus sig   
                                               supone 1            test for     
                                               nzu      tx dd       divide si   
                                               supeight            test for     
                                               nzu      sw 60       left pare   
                                               supnine             test for     
                                               nzu      tx df       equal sig   
                                               aupequal tr ha      restore      
                                          tr hastutemac                         
                                               raltemab                         
                                               slt 0002                         
                                               nzustopm            test ten a   
                                               alotemac                         
                                               slt 0002                         
                                               nzunztc8 zt cb                   
                                          zt cbsrt 0002                         
                                               stltemab tr hb      store tem    
                                          tr hbraliae   tr jl      decr shift   
                                          tr jlsloone               count       
                                               stliae              store        
                                               nzenztb2 zt b2      test         
                                          nztb2raltemaa tr jm      temaa to a   
                                          zt b2lddfive             reset shif   
                                               stdiae               count       
                                               raliac              decr word    
                                               sloone               count       
                                               stliac              store        
                                               nzetx dg tx dh      test word    
                                          nztc8supzerol            test tem a   
                                               bmi      abnum       for numer   
                                               aupzerol zt cb                   
                                          abnumlddtr hb                         
                                               stdoutp  tr hc                   
                                          tr hcaupzerol tr jn      restore      
                                          tr jnsrt 0002 tr jo                   
                                          tr jostltemab sw 54                   
                                          tr hestdiaf                           
                                               lddnn l2            next pch     
                                               stdtx di             word inst   
                                               lddnn l3            punch stor   
                                               stdstore             instr       
                                               ldd      tr uc                   
                                               stdp0006             punch ban   
                                               lddsw fb                         
                                               stdsw 54  8001                   
                                          tr hnslt 0002 store                   
                                          tr hostltemab            la to tem    
                                               rauiaf              decr shift   
                                               supone               count       
                                               stuiaf              store        
                                               nzunztb3                         
                                               ralp0006                         
                                               nzezt b4                         
                                               lddfive  tr mr                   
                                          tr mrstdiaf   tr ka                   
                                          nztb3raltemab            tem ab to    
                                               nzesw 54 outp       any more     
                                          zt b4pch 1977 tr hp                   
                                          tr karaltx di                         
                                               aloone              modify nex   
                                               stltx di             pch wd in   
                                               lddstore            modify pun   
                                               sdastore nztb3       store ins   
                                          tr hpraltempf                         
                                               sloone               count       
                                               stltempf                         
                                               nzenztb6            test         
                                               lddstopn tr lg      set sw 54    
                                          tr lgstdsw 54 nztb3       error sto   
                                          nztb6lddsw fa tr lg                   
                                          tx dhlddout 1 tr is                   
                                          tr hkraltemab            tem ab to    
                                               nzenztb7 outp       test         
                                          nztb7slt 0002            tem ab to    
                                               nzu      nztb7       high orde   
                                               supzerol            test for     
                                               bmitr hf tr hc       numeric     
                                          tr hdsct 0000                         
                                               stup0001                         
                                               ralp0006 tj sw       insert f    
                                          tjaswslt 0002            in last wd   
                                               nzutr rf tr ex      of punch     
                                          tr exalolast  tr sg      statement    
                                          tjbswslt 0004            output       
                                               nzu      tr ex                   
                                               srt 0002             insert of   
                                               nzutr rf            in last wd   
                                               pch 1977            of read      
                                               raltempf            statement    
                                               sloone              output       
                                               stltempf                         
                                               nzetr rf stopn                   
                                          tr sgstlp0006                         
                                               ldd 1991                         
                                               bd1      punch                   
                                               pch 1977 out19                   
                                          tr rfralsw 54                         
                                               slostopn                         
                                               nze       8001                   
                                               rallast                          
                                               lddtr sg tr uc                   
                                          tr ucstdout q                         
                                               stup0001                         
                                               stdp0002                         
                                               stdp0003                         
                                               stdp0004                         
                                               stdp0005 out q                   
                                          tr hfrautemab tj 10                   
                                          tj 10lddtstpr subj                    
                                          tj10alddtstpr subj                    
                                          tj10blddtr jo subj                    
                                          tstprnzu      tj 20       precede     
                                               stutemac            location     
                                               sup 8001            number of    
                                               ralltr t            last vari    
                                               lddout30 tr kk      able in      
                                          out30rauprodt            read or      
                                               ldd      sube       punch        
                                               lddout31 tr kk      statement    
                                          out31rautemac            by t         
                                               srt 0004             exit to     
                                               sup 8003            punch out    
                                               aupnine             put and      
                                               slt 0004            continue     
                                               ldd      sube       procedding   
                                               slt 0002            statements   
                                               lddout 1 tr kk                   
                                          tj 20slt 0002                         
                                               sup 8003                         
                                               srt 0002                         
                                               aloltr t tr jo                   
                                          tx dfraultr z                         
                                               ldd 1991                         
                                               bd1tr uo tr hl                   
                                          tr uostutemac                         
                                               lddout 3 tr jz                   
                                          tr hlstutemac             sign        
                                               lddout 3 tr is                   
                                          tr isstdoutp  tr hk                   
                                          tr hrstdtemab tr jp                   
                                          tr jplddtr hb tr jz                   
                                          tr jzstdoutp  sw 54                   
                                          tx ddraultr d tr hl      store divi   
                                          tx djraultr s tr hl      store plus   
                                          tx dkraultr m tr hl      store minu   
                                          tx dbraultr r tr hl      store rtpa   
                                          tx dmraultrkh tr hl      stor comma   
                                          tx dclddsw bb tr li                   
                                          tr listdsw 50                         
                                               lddtr hb tr is                   
                                          tr hmnzunztc1                         
                                               lddsw ba                         
                                               stdsw 50                         
                                               ralltr p tr jo                   
                                          tr ldlddsw bf                         
                                               stdsw 50 tr mo                   
                                          tr moaupltr e tr ha                   
                                          tr mpnzu      zt g5                   
                                               bmitr kp tr mo                   
                                          zt g5raultr b tr pi                   
                                          nztc1aupmult                          
                                               alotemaa                         
                                               srt 0002                         
                                               stltemaa                         
                                               raliae                           
                                               aloone                           
                                               stliae                           
                                               lddltr x tr jk                   
                                          tx daraultr j                         
                                               lddsw bg tr pj                   
                                          tr hunzu      zt c2                   
                                               bmitr kp tr ld                   
                                          tr kpaup 8001                         
                                               lddsw ba                         
                                               stdsw 50 nztat                   
                                          zt c2rauzrob  tr pi                   
                                          tr pilddsw ba tr pj                   
                                          tr pjstdsw 50 tr hl                   
                                          tx derautemab tr kh                   
                                          tr khnzunztc5 sw 62                   
                                          zt c5lddltr l tr hr                   
                                          nztc5srt 0002                         
                                               ral 8002                         
                                               sloltrfh                         
                                               nze      sw 61                   
                                               rsutemab                         
                                               lddnzu2  subj                    
                                          nzu2 stutemac tj 5a                   
                                          nzu2anzutj ba stopf                   
                                          tj bastltemab                         
                                               stutemac tj 8                    
                                          tj 8 lddout 4 tr jz                   
                                          tr ibsloone 1                         
                                               ldd 8003                         
                                               siatemae                         
                                               slt 0003                         
                                               stutemaf                         
                                               nzu      zt d1                   
                                               ral 8002                         
                                               slt 0003                         
                                               stutemaf                         
                                               rsl 8003                         
                                               alotemae                         
                                               stltemae                         
                                               lddsw hb tr if                   
                                          tr ifstdsw 56 out 5                   
                                          zt d1lddsw ha tr if                   
                                          tr ikstdsw 50                         
                                               slo 8002                         
                                               stlf6                            
                                               stdf7                            
                                               stdf8                            
                                               stdf9                            
                                               lddone 1 tr kn                   
                                          tr knstddim i                         
                                               stlf1                            
                                               stdf3                            
                                               stdf4                            
                                               stdf5                            
                                               lddsw ia tr ki                   
                                          tr kistdsw 57 tr hb                   
                                          tr ilbminztd4                         
                                               aup 8001                         
                                               stutemac sw 57                   
                                          tr imslt 0002                         
                                               nzustopo                         
                                               alotemac                         
                                               stlf1    tr hb                   
                                          nztd4aupmult                          
                                               bminztd6                         
                                               aupltr a                         
                                               stutemac sw ib                   
                                          tr inslt 0002                         
                                               nzustopo                         
                                               alotemac                         
                                               stlf3    tr ig                   
                                          tr iglddsw ib tr ki                   
                                          nztd6aupdivid                         
                                               nzu      zt e1                   
                                               aupone 1                         
                                               nzu      tr ig                   
                                               aupnine                          
                                               nzunzte1 tr ip                   
                                          tr iplddsw ic tr ki                   
                                          tr ioslt 0002                         
                                               nzustopo                         
                                               alotemac                         
                                               stlf5    tr hb                   
                                          zt e1lddone 1                         
                                               stdf4    tr ip                   
                                          nzte1ralf7                            
                                               stdf9                            
                                               stuf7                            
                                               lddf6                            
                                               stdf8                            
                                               stuf6                            
                                               ralf5                            
                                               nze      zt e5                   
                                               lddoutq1 tr lh                   
                                          tr lhstdout q sub q                   
                                          tr jrralf4                            
                                               nzenztj2                         
                                               ralf5    tr jt                   
                                          nztj2rslf5    tr jt                   
                                          tr jtalotemae                         
                                               stltemae zt e5                   
                                          zt e5ralf1                            
                                               nzenzte6 nzte7                   
                                          sub qstutemac zt f4                   
                                          zt f4slt 0001                         
                                               nzu      zt f4                   
                                               supnine                          
                                               auptemac                         
                                               slt 0001                         
                                               stutemac                         
                                               ral 8002                         
                                               nzezt f4                         
                                               rautemac                         
                                               mpydim i out q                   
                                          nzte6lddoutq2 tr lh                   
                                          tr jvrauf3                            
                                               nzenzte7                         
                                               raltemae                         
                                               alof6                            
                                               stltemae                         
                                               stuf6                            
                                               lddout12                         
                                               stdsw 58 sw 56                   
                                          nzte7lddout 6                         
                                               stdsw 58                         
                                               rauf3                            
                                               lddtr ir subj                    
                                          tr irstlf7    sw 56                   
                                          sw 56ralf7    jtest       bypass      
                                          jtestnzejstor jzero      insertion    
                                          jstorralltr l            of l and r   
                                               ldd      tr kk      for          
                                               raltemae            specific     
                                               bmitr ix tr iu      variable     
                                          jzeroralf9               of array     
                                               nzejstor                         
                                               rautemae                         
                                               ldd      sube                    
                                               stltemab trajk                   
                                          tr itstdsw 56                         
                                               lddtemaf tr kn                   
                                          tr iulddsw 58 tr iv                   
                                          tr ivstdoutp                          
                                               nzetr iz tr hc                   
                                          tr izlddtr jo tr un                   
                                          tr unslt 0004 sube1                   
                                          tr ixrallmcom                         
                                               lddout 7 tr kk                   
                                          tr iystdoutp                          
                                               ramtemae tr iz                   
                                          tr jalddout 8 tr kk                   
                                          tr kkstdoutp  tr jo                   
                                          tr jblddsw 58 tr kk                   
                                          tr jcnzenzte9 zt e9                   
                                          nzte9lddout10 tr iv                   
                                          tr jdlddout11 tr kk                   
                                          tr jflddout 9 tr kk                   
                                          tr jslddout12 tr kk                   
                                          zt e9ralf7                            
                                               nze      out12                   
                                               raltemaf                         
                                               nzenzte9 out11                   
                                          tr jgnze      zt f2                   
                                               ralltr s                         
                                               lddout13 tr kk                   
                                          tr jhlddout14 tr iv                   
                                          tr jilddout15 tr kk                   
                                          tr jjlddout16 tr kk                   
                                          zt f2ralf9                            
                                               nze      out16                   
                                               ralltr s tr ji                   
                                          tr jkstdtemab trajk                   
                                          trajklddsw ba                         
                                               stdsw 50 tr jp                   
                                          flo  stltemab                         
                                               raunine                          
                                               slt 0004                         
                                               aup 1900                         
                                               stu 1900                         
                                               lddeight tr sh                   
                                          flo2 lddiac                           
                                               stdiafi                          
                                               lddone                           
                                               stdtemph                         
                                               ral 1900                         
                                               slt 0004                         
                                               stl 1900                         
                                               ralthree                         
                                               aupsw ka                         
                                               lddsw lb flo 1                   
                                          sw karaltr ua                         
                                               supone   tr uw                   
                                          tr uanzutx db zt f6                   
                                          tr lpaupiai                           
                                               stuiai    8002                   
                                          zt f6lddsw be tr li                   
                                          tr kfsrt 0002                         
                                               stltemaf                         
                                               raliac                           
                                               sloone                           
                                               lddiafi                          
                                               stdiac                           
                                               stliafi  out 1                   
                                          sw lbralzt c5                         
                                               aupone   tr uw                   
                                          tr uwauptemph                         
                                               stutemph  8002                   
                                          tr kdaupone   tr lp                   
                                          tx dlraltr ub                         
                                               stu 1990 tr kd                   
                                          tr ublddtr lq                         
                                               stdtest                          
                                               ralsw kb                         
                                               aupsw ma                         
                                               lddsw na tr qx                   
                                          tr qxstdsw 62                         
                                               stlsw 59                         
                                               stusw 61 test                    
                                          tr lqralmask1                         
                                               lddtemab                         
                                               tlu 1161                         
                                               lddmask2                         
                                               sdatesto                         
                                               slocnaib  8002                   
                                          mask1ral 0000                         
                                               slotemab                         
                                               nze 1171                         
                                               lddltr q                         
                                               stdtemab testo                   
                                          mask2rau 0000 tr uo                   
                                          tr lnsloone                           
                                               stliai                           
                                               nzetr lo                         
                                               rautx dl                         
                                               lddtr lo                         
                                               stdtest                          
                                               ldd 1991                         
                                               bd1      tr se                   
                                               alosw ka                         
                                               lddsw lb tr qx                   
                                          tr sealotx db                         
                                               lddzt c5 tr qx                   
                                          tr loraultr q tr hl                   
                                          tr lznze      zt g3                   
                                               sloone                           
                                               stl 1990 tx db                   
                                          sw naral 1990                         
                                               aloone                           
                                               stl 1990 zt c5                   
                                          zt g3raliai   tr ln                   
                                           1160 99 9999  9999      end of tab   
                                          swba1nzunztat tx dh                   
                                          sw bbsupmult  tr hm       for         
                                          sw bdsupzerol tr il       50          
                                          sw bealotemaa tr kf                   
                                          sw bfsupltr e tr mp                   
                                          sw bgsupltr e tr hu                   
                                          sw faralfive  tr he      settings f   
                                          sw fbraltemab tx di       switch 54   
                                          sw haralf7    jtest      settings f   
                                          sw hbrausw ha tr it       switch 56   
                                          sw iaralf1    tr im      settings     
                                          sw ibralf3    tr in       for         
                                          sw icralf5    tr io       switch 57   
                                          sw kbral 1990 tr lz                   
                                          sw maraltr lq tr kd                   
                                          nnal1ral 1899 tr jm                   
                                          nn l1ral 1899 tr jm      nxt wd ins   
                                          nn l2aup 1977 tr hn      to tx di     
                                          nn l3stu 1977 tr ho      store pch    
                                          out 1raup0001 tr hd                   
                                          out 3lddtemac tr hr       exits       
                                          out 4raltemac tr ib       from        
                                          out 6ralslcom tr ja                   
                                          out 5lddsw bd tr ik       store       
                                          out 7lddout17 tr iy                   
                                          out 8ralf6    tr jc       subroutin   
                                          out 9ralltr r tr js                   
                                          out10ralltr x tr jd                   
                                          out11ralf7    tr jf                   
                                          out12ralf8    tr jg                   
                                          out13ralf8    tr jh                   
                                          out14ralltr x tr ji                   
                                          out15ralf9    tr jj                   
                                          out16lddltr r tr jk                   
                                          out17ralltr r tr jb                   
                                          out19ralsw ab in10                    
                                          outq1stlf5    tr jr                   
                                          outq2stlf6    tr jv                   
                                        1                                       
                                        1 insert variables in table and         
                                        1 assign i or y value depending         
                                        1 if variable is fixed point or         
                                        1 floating point                        
                                          subj stdout   subj1         store     
                                          subj1sct 0000              signed var 
                                               stutest               in temploc 
                                               rauctvar               zero      
                                               stlsubsc              temporary  
                                               stdstorg              counters   
                                               nzej101  insvr                   
                                          insvraupone                           
                                               aloone 1                         
                                               stuctvar               store     
                                               stlstorg              mnemonic   
                                               aup      j1           in varibal 
                                               std 1599 j2           table      
                                          j1   lddtest   8003                   
                                          j2   ral 8001               test if   
                                               bmi      j4b          subsc or   
                                               rausubsc            nonsubsc     
                                               supd20               halt over   
                                               nzuj2a   stp n      20 subsc     
                                          stp nhlt 0002 pack       variables    
                                          j2a  aupd21               increment   
                                               stusubsc            subsc ctr    
                                               rautesto                         
                                               srt 0003             set up      
                                               stloute             j i base     
                                               rautestn            word and     
                                               slt 0004            store in     
                                               aupoute             subscrpt     
                                               aupstorg            table        
                                               alosubsc                         
                                               alo      j3                      
                                               stu 1499 j4          set swchs   
                                          j3   lddseta             a and a1     
                                               sdaswcha            for fix      
                                               lddseta1            flt test     
                                               sdaswha1  8002      if subs vr   
                                          j4   rautesto             increment   
                                               nzunzmpy            storg ctr    
                                               alotestn j4a        by i times   
                                          nzmpympytestn j4a                     
                                          j4a  alostorg                         
                                               sloone 1            j minus 1    
                                               stlstorg                         
                                               stdtotlc fxflt                   
                                          fxfltramtest              test var    
                                               slt 0002            for fix or   
                                               rau 8003            flt pt       
                                               supltrni                         
                                               bmiswcha             brch flt    
                                               supseven                         
                                               bmiswha1 swcha       brch fix    
                                          seta ram 1499             sw a set    
                                               rau 8002 j6                      
                                          normaraustorg j7          sw a norm   
                                          seta1ram 1499                         
                                               rau 8002 j8          sw a1 set   
                                          nrma1raustorg j9          swa1 norm   
                                          j6   aloltr y out                     
                                          j7   lddj6    sube2                   
                                          j8   aloltr i out                     
                                          j9   lddj8    sube2                   
                                          j4b  lddstorg                         
                                               stdtotlc nosub                   
                                          nosublddnorma             sws a and   
                                               stdswcha            a1 norm 44   
                                               lddnrma1            fix flt if   
                                               stdswha1 fxflt      nonsubs vr   
                                          sube2stdoute2                         
                                               ldddone1 sube                    
                                          sube1slt 0006 sube                    
                                          sube stdoute  lopff       set up      
                                          lopffnzu      oute       doubl digt   
                                               srt 0001            location     
                                               stuteste            number for   
                                               sup 8001            nonsubsc     
                                               srt 0001            variables    
                                               aloazero                         
                                               aupteste lopff                   
                                          done1srt 0002 oute2                   
                                          j101 suphndrd             halt over   
                                               nze      stp n      100 vars     
                                               aup 8001 nxtvr       test        
                                          nxtvraloone                           
                                               stlmchct            variable     
                                               alo      j101a      for table    
                                               ram 1599 j101b       test        
                                          j101alddtsvar                         
                                               sdatsvar  8002                   
                                          j101bsmltest                          
                                               nzej102  match                   
                                          j102 lddnormb             sws b c     
                                               stdswchb            and d norm   
                                               stdswchc            to repeat    
                                               lddnormd            table        
                                               stdswchd tsvar      search       
                                          tsvarral 0000             increment   
                                               bmi      plsad      storg and    
                                               ralsubsc            subsc ctrs   
                                               aloone              as needed    
                                               stlsubsc            before       
                                               alo      j103       continuing   
                                               ram 1499 j104       search or    
                                          j103 lddseta             exiting      
                                               sdaswcha             set fix     
                                               lddseta1            flt sign     
                                               sdaswha1  8002      sw for mch   
                                          j104 slt 0003                         
                                               nzuj105                          
                                               slt 0003                         
                                               ral 8003 j106                    
                                          j105 stuoute1                         
                                               sup 8003                         
                                               slt 0003                         
                                               rau 8003                         
                                               mpyoute1 j106                    
                                          j106 stlprodt j107                    
                                          j106astlprodt j107                    
                                          j107 ralsubsc                         
                                               alo       8002                   
                                               ral 1499 swchd                   
                                          normdbmiproc  j107a                   
                                          setd bmifxflt j107a                   
                                          j107aralprodt                         
                                               alostorg swchb                   
                                          swchbstlstorg fxflt       yes match   
                                          proc ralmchct             if no       
                                               sloctvar            match        
                                               nzej108             insert       
                                               rau 8001            variable     
                                               alostorg insvr      in table     
                                          j108 alo 8001 nxtvr       serch ovr   
                                          plsadralstorg                         
                                               aloone 1 swchc                   
                                          swchcstlstorg nosub       yes match   
                                          matchlddsetb              sws b c     
                                               stdswchb            and d set    
                                               lddsetc             if match     
                                               stdswchc            found        
                                               lddsetd                          
                                               stdswchd tsvar                   
                                        1                                       
                                        1  subrotine constants                  
                                          d20   00 0020  0000                   
                                          d21   00 0021  0000                   
                                          one   00 0001  0000                   
                                          one 1 00 0000  0001                   
                                          setb stlstorg fxflt                   
                                          normbstlstorg proc                    
                                          setc stlstorg nosub                   
                                           1200 63 7600  1821       continue    
                                           1201 64 6900  1822       dimension   
                                           1202 64 7600  1823       do          
                                           1203 65 7800  1824       equivalnce  
                                           1204 67 7600  1825       go to       
                                           1205 69 6600  1826       if          
                                           1206 77 6100  1827       pause       
                                           1207 77 8400  1828       punch       
                                           1208 79 6500  1829       read        
                                           1209 82 8300  1827       stop        
                                           1210 99 9999  9999       end of tab  
                                          subf2stdlast  subf3                   
                                          subf3stutemaf subf1                   
                                          subf1stlnext  sub f                   
                                          sub fraltemaf lp f1                   
                                          lp f1nze      zt f1                   
                                               slt 0002             next char   
                                               stltemaf                         
                                               rau 8003 next                    
                                          zt f1raliafi              dec iafi    
                                               nze      last        final char  
                                               sloone                           
                                               stliafi                          
                                               rsl 8002                         
                                               aloiac                           
                                               alocnffi  8002                   
                                          cnffiral 1899 lp f1       sub f       
                                          subk1aup 8001 sub k                   
                                          subk2aupcomma sub k       restpr com  
                                          sub kral 8003 trski                   
                                          trskialotemph                         
                                               slt 0002                         
                                               nzusw6   zt 30                   
                                          zt 30lddswv   tr cc                   
                                          tr aslddstopm tr cc                   
                                          tr ccstdsw6   tr qr                   
                                          tr qrstltemph sub f                   
                                          swv  srt 0002 tr as       sub k       
                                          pch cstlp0001 punch                   
                                          punchpch 1977 pack        end contin  
                                          pch bpch 1977 sub f       do pch if   
                                          headrraltotlc             statmnt no  
                                               stlp0004             pch 37 40   
                                               stup0006                         
                                               stup0007                 61 70   
                                               stdp0008               71  80    
                                               stdp0001                         
                                               lddlow88             set contro  
                                               stdp0010                         
                                               pch 1977 start                   
                                           1822lddtr uh tr ug       dimension   
                                          tr ugstdout q                         
                                               raliac                           
                                               slotwo                word cou   
                                               stliafi                          
                                               rau 1901 out q                   
                                          tr uhslt 0008                         
                                               aloswdma                         
                                               lddtrdme subf2                   
                                          trdmanzusubk1                         
                                               raltemph            process v    
                                               stutemph                         
                                               stltest                          
                                               stutesto            zero v j     
                                               stutestn                         
                                               ralswdmb subf1                   
                                          trdmbnzu      ztdmc      comma test   
                                               aupparnr                         
                                               nzu      ztdmd      parenr tes   
                                               aupparnr            2par z com   
                                               srt 0001            collect su   
                                               supnine              charater    
                                               bmistopf            n            
                                               auptesto                         
                                               slt 0001 trdmg                   
                                          ztdmcraltesto            subscript    
                                               stltestn trdmg                   
                                          trdmgstutesto sub f      ze           
                                          ztdmdlddtrdmc                         
                                               stdnext                          
                                               raltestn            at comma     
                                               nzesub f ztdmc      over 2 sub   
                                          trdmclddswdma trdmh      supparltrd   
                                          trdmhstdnext  trdmd                   
                                          trdmdlddnzu3  trdmf                   
                                          trdmelddnzu1  trdmf                   
                                          trdmfstdout                           
                                               rsutest  subj1                   
                                          nzu1 nzupack  stopf                   
                                          nzu3 nzusub f stopf                   
                                          swdmasupparnl trdma      next 1       
                                          swdmbsupcomma trdmb      next 2       
                                           1823lddtr ue tr bd      do statmnt   
                                          tr bdstdout q                         
                                               raliac                           
                                               sloone                           
                                               stliafi                          
                                               rau 1900            shift off    
                                               slt 0004 out q                   
                                          tr uealoswdoa                         
                                               lddcn b4 subf2                   
                                          swdoasupzerol tr  c                   
                                          tr  cbmi      subk1                   
                                               aupzerol                         
                                               slt 0002                         
                                               alotemph                         
                                               stutemph                         
                                               stltest  tr  b                   
                                          tr  baloltr k             add comma   
                                               stdp0003             punch wor   
                                               stdp0005             punch wor   
                                               stlp0001                         
                                               ralswdob subf1                   
                                          tr  dnzusubk1 zt5                     
                                          zt5  rautemph                         
                                               stltemph                         
                                               lddtr  f subj                    
                                          tr  fstlp0002              punch 2    
                                               lddswdod            stlp0004tr   
                                               stdsw 59                         
                                               ralswdoc subf1                   
                                          tr  gnzusubk2 zt7                     
                                          zt7  raltemph                         
                                               stltest               test b     
                                               stutemph tx  e                   
                                          tx  eslt 0002            to high      
                                               nzu      tx  e       order       
                                               supzerol                         
                                               bminzt9                          
                                               raltest  sw 59                   
                                          nzt9 rautest                          
                                               lddsw 59 subj                    
                                          tr  hstup0006                         
                                               pch 1977            pch card 0   
                                               stup0001            zero punch   
                                               stup0002            words for    
                                               stdp0004                         
                                               lddswdoe tr qo                   
                                          tr  ilddswdof tr qo                   
                                          tr qostdsw 59 sub f                   
                                          tr  klddltr f            f in word    
                                               stdp0006 punch        six        
                                          tr  jnzezt7               t store m   
                                               lddswdog            stlp0004tr   
                                               stdsw 59                         
                                               lddaone             0000 0  91   
                                               stdp0002 zt7        one for h3   
                                          cn b4ralp0004 tr  j      last         
                                          swdobsupequal tr  d      next b       
                                          swdocsupcomma tr  g      next c       
                                          swdodstlp0004 tr  h      swdo2  1     
                                          swdoestlp0004 tr  i      swdo2  2     
                                          swdofstlp0002 tr  k      swdo2  3     
                                          swdogstlp0004 tr  k      swdo2  4     
                                           1826raucnif6            if statmnt   
                                               lddtraea subj                    
                                          traeastltempg flo                     
                                          in10 lddltr f                         
                                               stdp0006                         
                                               stlsw 59                         
                                               ralsw aa                         
                                               lddzt 95 tr ui                   
                                          tr dmnzusubk2 zt 95                   
                                          zt 95raltemph                         
                                               stutemph                         
                                               srt 0002                         
                                               aloltr g                         
                                               stlp0001 sw 59                   
                                          sw ablddzrojo                         
                                               stdp0003                         
                                               lddif                            
                                               stdp0002                         
                                               stup0009                         
                                               ralltr v                         
                                               auptempg                         
                                               ldd      tradp                   
                                               lddtempg                         
                                               stdp0003                         
                                               ralltr u                         
                                               aupzrojo                         
                                               lddsw ad tradp                   
                                          tradpstdsw 59                         
                                               stlp0004                         
                                               stup0005 pch b                   
                                          tr dsstdp0004 punch                   
                                          sw aasupcomma tr dm      if           
                                          sw adlddltr v tr ds      if           
                                           1825stuiaw              go to        
                                               ldd      tr bd                   
                                               slt 0004                         
                                               alocn a7                         
                                               ldd      subf2                   
                                               raltemph in5                     
                                          cn a7supparnl                         
                                               nzusubk1 in7                     
                                          in5  srt 0002                         
                                               aloltr g pch c                   
                                          in7  ralcn f2                         
                                               lddcnaf1 tr ui                   
                                          tr uistdlast  subf1                   
                                          tr  snzu      tr  u                   
                                               supparnr                         
                                               nzusubk2 tr  u                   
                                          tr  uraltemph                         
                                               stutemph            zero temph   
                                               nzeloopr sub f                   
                                          loopraupiaw                           
                                               supcnakb                         
                                               nzu      stp n                   
                                               aupcnaib                         
                                               stuiaw                           
                                               aupcn f5  8003      stl1149sub   
                                          cn f5stl 1989 sub f      computed     
                                          tr  xstdp0002                         
                                               lddltr u                         
                                               stdp0004                         
                                               rautemph                         
                                               lddtr  y subj                    
                                          tr  ystlp0003                         
                                               raliaw   trgog                   
                                          looptnze      punch                   
                                               pch 1977                         
                                               stup0009                         
                                               stliaw   trgog                   
                                          trgogldd      sube1                   
                                               stlp0005                         
                                               raliaw                           
                                               alocn f6  8002      ldd1149sub   
                                          cn f6ral 1989 tr  z      computed g   
                                          tr  zsrt 0002                         
                                               aloltr g                         
                                               stlp0001                         
                                               raliaw                           
                                               sloone   loopt                   
                                          cnaf1lddif    tr  x      computed g   
                                          cn f2supparnr tr  s      computed g   
                                        1                                       
                                        1 changes for punch routine             
                                           1828ralnnal1             set sw 50   
                                               aloone              nxtwd and    
                                               aupswba2            1991 for     
                                               ldd      tm ra      processing   
                                               raliac              punch        
                                               sloone              statements   
                                               stliac   arith                   
                                          swba2supcomma             bypass      
                                               nzutr hb            n comma      
                                               lddtj10a            and reset    
                                               stdtj 10            sw 50 to     
                                               lddswba3            process      
                                               stdsw ba tr li      statement    
                                          swba3nzu      tx dh       if parnl    
                                               supparnl            want elem    
                                               nzu      tj 5       of array     
                                               aupone 1             if comma    
                                               nzu      tj 3       var asmbld   
                                               aupcomma tr ha      to process   
                                          tj 3 rautemab                         
                                               nzu      tr hb                   
                                               lddstrup subj                    
                                          strupstutemac             precede     
                                               sup 8001            var loc      
                                               slt 0002            number by    
                                               sup 8003            t for read   
                                               srt 0002            and punch    
                                               aloltr t            statements   
                                               lddout21 tr kk                   
                                          out21rautemac             if whole    
                                               nzuout22 tr hb      array        
                                          out22rauprodt            specified    
                                               ldd      sube       by punch     
                                               lddout23            statement    
                                               stdoutp  tr jo      process ij   
                                          out23rautemac            product      
                                               srt 0004            followed     
                                               sup 8003            by base      
                                               aupnine                          
                                               slt 0004                         
                                               ldd      sube                    
                                               slt 0002                         
                                               stltemab tr jp                   
                                          tj 5 lddnzu2b                         
                                               stdnzu2  tx de                   
                                          nzu2bstutemac tj 5a       rrecd loc   
                                          tj 5aralltr t            num by t     
                                               stltemab tj 8                    
                                        1                                       
                                        1 changes for read statements           
                                           1829ralnnal1             set sw 50   
                                               aupswba2            nxtwd and    
                                               ldd      tm ra      1991 for     
                                               rau 1900            read state   
                                               srt 0002            ments        
                                               stl 1900             bybass wd   
                                               rautr rd            read         
                                               aloltrdf             store df    
                                               lddtjbsw sub x                   
                                          tr rdralone   rith1                   
                                          tm rastdoute                          
                                               lddnine                          
                                               std 1991                         
                                               stusw ba                         
                                               stlnn l1 oute                    
                                          sub xstdtj sw                         
                                               stllast   8003                   
                                           1821ralccn01 pch c      continue     
                                           1830ralltrff            end          
                                               ldd      tr uc                   
                                               stlp0006                         
                                               pch 1977 headr                   
                                           1827ralcst01 pch c      oause stop   
                                          one 1 00 0000  0001      one 1        
                                          two 1 00 0000  0002                   
                                          seven 00 0000  0007                   
                                          eight 00 0000  0008                   
                                          nine  00 0000  0009      nine in 10   
                                          cn a5 00 0000  0010      equl n com   
                                          decpt 00 0000  0018      decimal pt   
                                          parnr 00 0000  0019                   
                                          plus  00 0000  0020      plus sign    
                                          mult  00 0000  0029      milt sign    
                                          minus 00 0000  0030      minus sign   
                                          divid 00 0000  0031                   
                                          comma 00 0000  0038                   
                                          parnl 00 0000  0039                   
                                          equal 00 0000  0048      equal sign   
                                          ltr a 00 0000  0061                   
                                          ltr e 00 0000  0065                   
                                          ltr f 00 0000  0066                   
                                          ltrni 00 0000  0069                   
                                          ltr k 00 0000  0072                   
                                          egton 00 0000  0081                   
                                          low88 00 0000  0088                   
                                          zerol 00 0000  0090      alpha o lo   
                                          aone  00 0000  0091      alpha one    
                                          ltrff 00 0000  6666                   
                                          if    00 0000  6966                   
                                          one   00 0001  0000      one in fif   
                                          two   00 0002  0000      two in fif   
                                          three 00 0003  0000      three in 5   
                                          four  00 0004  0000      four in 5t   
                                          five  00 0005  0000      five in 5t   
                                          six   00 0006  0000                   
                                          cnakb 00 0010  0000                   
                                          cnaib 00 0011  0000                   
                                          cnbkb 00 0025  0000                   
                                          cnbib 00 0026  0000                   
                                          cnif6 00 0091  6966                   
                                          hndrd 00 0100  0000      table cnst   
                                          ltr b 62 0000  0000                   
                                          ltr d 64 0000  0000                   
                                          ltrfh 66 0000  0000      f in hop     
                                          ltr g 67 0000  0000                   
                                          cst01 68 0000  0000      word halt    
                                          ltr i 69 0000  0000                   
                                          ltr j 71 0000  0000                   
                                          ltr l 73 0000  0000                   
                                          ltr m 74 0000  0000                   
                                          ltr p 77 0000  0000                   
                                          ltr q 78 0000  0000                   
                                          ltr r 79 0000  0000                   
                                          ltr s 82 0000  0000                   
                                          ltr t 83 0000  0000                   
                                          ltr u 84 0000  0000                   
                                          ltr v 85 0000  0000                   
                                          ltr x 87 0000  0000                   
                                          ltr y 88 0000  0000                   
                                          ltr z 89 0000  0000                   
                                          ltrdf 00 0000  6466                   
                                          ltrkh 72 0000  0000      k in hop     
                                          azero 90 0000  0000                   
                                          zrob  90 6200  0000                   
                                          ccn01 88 9189  8891      cont const   
                                          lmcom 73 7400  0000                   
                                          slcom 82 7300  0000                   
                                          stopahlt 0010 pack       nz parn co   
                                          stopbhlt 0001 pack       tlu error    
                                          stopfhlt 0400 pack       not intege   
                                          stophhlt 0020 pack       pack error   
                                          stp nhlt 0002 pack       table ovfl   
                                          stp rhlt 0003 pack                    
                                          stopmhlt 0004 pack       variable o   
                                          stopnhlt 0300 pack       transltn o   
                                          stopohlt 0100 pack       subscrpt o   
                                           1171hlt 0030 pack       function n   
                                          stopchlt 0005 pack       scan ovrfl   
                                          eghts 00 0800  8080                   
                                          zrojo 90 7190  0000      if constan   
                                        1 process equivalence statement         
                                           1824raliac                initialze  
                                               slothree            word count   
                                               stliafi             parn count   
                                               stutemaa                         
                                               rau 1902                         
                                               slt 0002              is charac  
                                               aloeqsw1 subf3        is charac  
                                          eqsw1supparnl             left paren  
                                               nzu      eq1         comma or    
                                               aupone 1             rght paren  
                                               nzu      eq2          if no      
                                               aupparnr             restor var  
                                               nzusubk1 eq3                     
                                          eq1  raltemaa              yes left   
                                               aloone               paren       
                                               stuf1                 increment  
                                               stdf3                parn count  
                                               stdtemab                         
                                               stdf9                 initialze  
                                               stltemaa sub f       for new     
                                        1 equivl set                        
                                          eq2  rautemaa              yes comma  
                                               nzueq2a  eqout        prnct zro  
                                          eq2a rautemph             start new   
                                               stltemph             equiv set   
                                               lddouteq subj                    
                                          outeqrau 8003              not zero   
                                               srt 0004             proces var  
                                               sup 8003              is base    
                                               srt 0006             of new var  
                                               stlout q              less than  
                                               aupf1                 base of    
                                               nzu      eq2aa        previous   
                                               sup 8002              variable   
                                               bmieq2b  eq2aa                   
                                          eq2aastlf1    eq2b        save low    
                                          eq2b ralprodt            base         
                                               slof3                is ji       
                                               bmieq2c             prod of      
                                               alo 8001            new var      
                                               stlf3               greater      
                                               lddeq2ba            than prod    
                                               stdeqsw2            of previos   
                                               lddout q            variable     
                                               stdtemae treq1       save bse    
                                          treq1rauf9               of lrg ary   
                                               supfive                          
                                               nzu      stp n       save lrge   
                                               aupsix              product      
                                               stuf9                store       
                                               stdf6               subsc tabl   
                                               alosubsc            locat in     
                                               aup       8003      equ bar ta   
                                               stl 1449 eqsw2       halt if     
                                          eq2baaloeq2b1            more         
                                               lddeqsw3 eq2bb       than        
                                          eq2bbstdsw 50 eq2be       five        
                                          eq2belddeq2b2 eq2bc       variables   
                                          eq2bcsdaf8               in equ set   
                                               stlf7                            
                                               rslf1    f7          read equ    
                                          eq2b1ldd 1499 f8         var table    
                                          eq2b2sia 0000 eq2bd      to insert    
                                          eq2bdrauf6               low base     
                                               supone              in 15xx      
                                               nzu      sub f                   
                                               stuf6                if ij       
                                               aup       8003      prodt of     
                                               ral 1449 sw 50                   
                                          eqsw3aloeq2b3 eq2be                   
                                          eq2b3sup 1499            equiv set    
                                               bmi      eq2bd      chnge 15xx   
                                               ldd 8003 f8         to minus     
                                          eq2c lddeq2ca            in subsc     
                                               stdeqsw2 treq1      table        
                                          eq2caaloeq2b3                         
                                               lddeqsw4 eq2bb                   
                                          eqsw4aloeq2b1 eq2be                   
                                          eq3  raltemaa             yes rght    
                                               sloone              paren        
                                               stltemaa             decrement   
                                               lddeqout            paren        
                                               stdlast  eq2a       count        
                                          eqoutraleq3a1 eq3a        prepar to   
                                          eq3a sloeq3a2            scan subsc   
                                               nze      eq3d       table and    
                                               aloeq3b             adjust       
                                               lddeq3c1            bases        
                                               sdaf4                            
                                               lddeq3c2                         
                                               sdaf5                            
                                               stltemac  8001                   
                                          eq3a1ral 1499 eq3ba                   
                                          eq3a2ral 1519 eq3ba                   
                                          eq3b ral 1520 eq3ba                   
                                          eq3babmi      eq3bb                   
                                               lddsetm  storm                   
                                          eq3bblddeq3bc storm                   
                                          stormstdswchm             compare     
                                               rsm 8002            base of      
                                               slt 0006            15xx with    
                                               stuoutp             bse of eqv   
                                               sup 8003            set          
                                               slt 0004             if less     
                                               aupf1               continue     
                                               bmieq3c             scan         
                                               nzueq3bc swchm       if equal    
                                          eq3bcraltemac eq3a       adjust loc   
                                          setm ramoutp             count        
                                               slt 0004             if grter    
                                               lddeq3bd            compare      
                                               stdj106  j104       with orig    
                                          eq3bdalotemab            bse of       
                                               lddj106a            lrgst aray   
                                               stdj106              decrease    
                                               stltemab eq3bc      or increse   
                                          eq3c sup 8001            base of      
                                               auptemae            15xx as      
                                               bmieq3cb            needed       
                                               sup 8001                         
                                               ram 8003                         
                                               alof3    eq3ca                   
                                          eq3caslotemab f4                      
                                          eq3c1ldd 0000 f5                      
                                          eq3c2sia 0000 eq3bc                   
                                          eq3cbsup 8001                         
                                               ram 8003 eq3ca                   
                                          eq3d lddpack                          
                                               stdlast  sub f                   
                                               pat                              
                                        1
                                               equminus  0167                   
                                               equswpka  0098                   
                                               equread   0050                   
                                               equpacka  0088                   
                                        1 pack                                  
                                        1 for transit i s and ii s              
                                               bla 1000  1010                   
                                               regr1951  1960                   
                                          packaralr0001                         
                                               nze      ztpk1                   
                                               slt 0002                         
                                               stlr0001                         
                                               ral 8003                         
                                               nzeswpkt packa                   
                                          ztpk1ralr0002                         
                                               nze      ztpk2                   
                                               slt 0002                         
                                               stlr0002                         
                                               ral 8003                         
                                               nzeswpkt ztpk1                   
                                          ztpk2ralr0003                         
                                               nze      ztpk3                   
                                               slt 0002                         
                                               stlr0003                         
                                               ral 8003                         
                                               nzeswpkt ztpk2                   
                                          ztpk3ralr0004                         
                                               nze      ztpk4                   
                                               slt 0002                         
                                               stlr0004                         
                                               ral 8003                         
                                               nzeswpkt ztpk3                   
                                          ztpk4ralr0005                         
                                               nze      ztpk5                   
                                               slt 0002                         
                                               stlr0005                         
                                               ral 8003                         
                                               nzeswpkt ztpk4                   
                                          ztpk5ralr0006                         
                                               nze      read                    
                                               slt 0002                         
                                               stlr0006                         
                                               ral 8003                         
                                               nzeswpkt ztpk5                   
                                          swpktsloi49                           
                                               nzenzk1                          
                                               ralminus swpka                   
                                          nzk1 alo 8001 swpka                   
                                          i49   00 0000  0049                   
                                               pat                                       
                                               pst                                        
