                                        1
                                        1            soap 2
                                        1
                                        1 symbolic optimal assembly prog
                                        1
                                        1           for   the
                                        1
                                        1           ibm   650
                                        1
                                        1   data processing system
                                        1
                                               regs0000  0399 symbol tab
                                               rege0400  0599 equiv tabl
                                               rega0600  0799 avail tabl
                                               regn0800  0899 num op tab
                                               blr 1000  1000 entry
                                               blr 1001  1012 pseudo ent
                                               blr 1021  1049 reg table
                                               regc1050  1164 sym op tab
                                               bla 1098  1099  
                                               bla 1148  1149
                                               blr 1900  1900 manual pat
                                               synreadc  1950
                                               blr 1951  1962 read area
                                               regt1990  1992 type
                                               regp1977  1986 punch area
                                               blr 1998  1999
                                               equxxxx1  1961
                                               equxxxx2  1962
                                               blr 1563  1570 type2
                                               bla 1565  1565
                                               bla 1569  1569
                                               regb0900  0901 sub 2
                                               regh0902  0904 type 2
                                               regm0905  0907 
                                               regq0908  0909
                                               regr1200  1207 sub 5
                                               regu1250  1259 sub 13
                                               regv0910  0912 equ syn
                                               regx0913  0914 type 0
                                               regy0915  0916 equ syn
                                               regz0917  0919
                                               regw0920  0922
                                               blr 0923  0968 multiple r
                                               regi1300  1307
                                        1
                                        1    control program
                                        1
                                           1000lddreadc sub16 entry       
                                        1
                                          readcrcd 1999  1998 read card   
                                           1998ldd 1951       transfer    
                                               stdp0001       alphabetic  
                                               ldd 1952       input       
                                               stdp0002       to          
                                               ldd 1953       output      
                                               stdp0003                   
                                               ldd 1954                   
                                               stdp0004                   
                                               ldd 1955                   
                                               stdp0005                   
                                               ldd 1956                   
                                               stdp0006                   
                                               ralp0009       step        
                                               alo1ixxx       card        
                                               stlp0009       number      
                                               rau 1960       store       
                                               srt 0002       control     
                                               stup0008       info        
                                               auptorg                    
                                               stlp0010  8003 transfer    
                                           8003nop 0000  9999 to type     
                                        1
                                          punchpchp0001 readc punch read  
                                        1
                                          setccraureadc sub10 sudo exit   
                                        1
                                           1900lddreadc sub14 manual pat  
                                          t0001lddx     subr3 type 0      
                                        1
                                          x0001ldd      procl 650         
                                               ldd      procd command or  
                                               lddpunch proci constants   
                                        1
                                          x0002nop 0000  8003 pseudo op   
                                        1
                                          t0002raureadc sub10 type 1 com  
                                        1
                                          x     00 0000 x0001             
                                        1
                                        1    relocate routine
                                        1
                                               hedt
                                          t0003lddq     subr3 process op  
                                          q0002nop 0000 illop illegal op  
                                          q0001ral 1951       is l fixed  
                                               slt 0002                   
                                               nzu      rel               
                                               rau 1957       fixed l     
                                               sup2000i       drum core   
                                               bmi      fc                
                                               aup 8001 res   fixed drum  
                                          fc   ral 1957 setl  fixed core  
                                          sr   ralxxxx1 setl  set l       
                                          setl slt 0004                   
                                               lddp0008                   
                                               sdap0008 prod              
                                          rel  rau 1957       drum core   
                                               sup2000i                   
                                               bmi      rc                
                                               aupddif        relocate    
                                               bmi      bl    drum addr   
                                               aup2000i res               
                                          res  stuxxxx1                   
                                               lddsr    sub2r reserve l   
                                          rc   ral 1957       relocate    
                                               alocdiff       core        
                                               slo9060                    
                                               bmi      bl                
                                               alo 8001 setl              
                                          bl   rauprod  sub12 blank l     
                                        1
                                               regj0944  0944 d type 2
                                               regg0941  0941
                                        1
                                          prod lddproi        set d exit  
                                               stdexitx                   
                                               rau 1952       what is d   
                                               lddh     subr4             
                                          h0001ral 1958       relocate    
                                               slo2000i       d or c      
                                               bmi 1564  1563             
                                          h0002srt 0008       c d or f    
                                               aup1500   8003             
                                           1563ralcdiff cdd   c           
                                           1564ralddiff cdd   d           
                                           1566ral 1958 j0001 f           
                                          cdd  alo 1958 j0001             
                                          h0003nop 0000 g0003 symbolic    
                                        1
                                               regj0960 0960  i 
                                               regf0955 0955 
                                        1
                                          proi lddpunch       set i exit  
                                               stdexitx                   
                                               rau 1953       what is i   
                                               lddm     subr4             
                                          m0001ral 1959       relocate    
                                               slo2000i       d or c      
                                               bmi 1568  1567             
                                          m0002srt 0008       c d or f    
                                               aup1504   8003             
                                           1567ralcdiff cdi   c           
                                           1568ralddiff cdi   d           
                                           1570ral 1959 j0001 f           
                                          cdi  alo 1959 j0001             
                                          m0003nop 0000 f0003 symbolic    
                                        1
                                          q     00 0000 q0001 constants   
                                          9060  00 0000  9060             
                                          h     00 0000 h0001             
                                          1500  00 0000  1500             
                                          m     00 0000 m0001             
                                          1504  00 0000  1504             
                                          xxxx1 01 0000 xxxx1 eraseable   
                                               hed 
                                        1
                                        1      bop routine
                                        1
                                           1001ldd      sub16 initialize  
                                               raureadc sub10 punch       
                                        1
                                        1          blr routine
                                        1
                                           1002ral 1959 blr   reserve     
                                          blr  slo 1958       fwa to      
                                               aup 8001       lwa         
                                               lddsetcc sub2r             
                                        1 
                                        1      rbr routine
                                        1 
                                           1012rauddiff                   
                                               alo 1959 blr               
                                        1 
                                        1      bla routine
                                        1 
                                           1003lddh8xxx       set drum    
                                               stddrumt       tag to 8    
                                               ral 1959       unreserve   
                                               slo 1958       fwa         
                                               aup 8001       to          
                                               lddsetcc sub2u lwa         
                                        1 
                                        1      reg routine
                                        1  
                                               hedr
                                           1004ral 1952       is          
                                               srt 0008       region      
                                               slo90xxx       character   
                                               bmi      1002  alphabetic  
                                               alo29xxx                   
                                               bmi 1002                   
                                               slt 0004       store       
                                               alost          region      
                                               aup 1958       origin      
                                               auph9xxx 8002              
                                           8002stu 9999 1002              
                                        1 
                                          st   stu 1021 1002 constants    
                                               hed
                                        1
                                        1      equ req and syn routine
                                        1
                                               hedz
                                           1005lddh8xxx both  equ         
                                           1006lddh9xxx both  syn         
                                          both stdtag                     
                                               rau 1953       what is i   
                                               lddz     subr4             
                                          z0001ral 1959 y0001 absolute    
                                          z0002lddy     subr9 regional    
                                          y0001stle     td                
                                          y0002ralp0010 bp    reg error   
                                          z0003lddw     subr6 symbolic    
                                          w0001ralequiv y0001 s defined   
                                          w0002ralp0010 bp    s undefind  
                                          w0003ralp0010 bp    s tab full  
                                        1 
                                          td   rau 1952       head d      
                                               ldd      sub15 and equate  
                                               lddv     subr6 to e        
                                          v0003ralp0010 bp    s tab full  
                                          v0001aloe     sd                
                                          v0002aloe     sd                
                                          sd   lddtt    subr7             
                                        1 
                                          tt   lddtag         test tag    
                                               bd0setcc                   
                                               raue           reserve e   
                                               lddsetcc sub2r             
                                        1 
                                           1011lddh8xxx       req         
                                               stdtag         routine     
                                               ral 1959       is i        
                                               slo2000i       drum o cor  
                                               bmid                       
                                               alocdiff cd                
                                          d    aloddiff cd                
                                          cd   alo2000i y0001             
                                        1 
                                          z     00 0000 z0001 constants   
                                          y     00 0089 y0001             
                                          w     00 0000 w0001             
                                          v     00 0000 v0001             
                                          88    00 8800  0000             
                                        1 
                                          bp   alo88          by pass     
                                               stlp0010 punch             
                                        1 
                                          tag   01 0000 tag   eraseable   
                                          e     01 0000 e                 
                                               hed
                                        1 
                                        1      alf routine
                                        1 
                                           1007ldd      procl proces loc  
                                               ldd 1952                   
                                               stdp0007                   
                                               ral 1953       replace     
                                               nzepunch       blank i     
                                               lddsoap2       by          
                                               stdp0003 punch soap2       
                                          soap2alfsoap2 soap2 constant    
                                        1 
                                        1      pat routine
                                        1  
                                           1008rau      sub10             
                                               lddreadc sub14             
                                        1 
                                        1          hed routine
                                        1 
                                           1009ral 1952       store       
                                               srt 0008       heading     
                                               stl0000h setcc character   
                                        1 
                                        1      rel routine
                                        1  
                                               hedm
                                           1010ral 1952       set         
                                               nze      sdd   drum        
                                               ral 1958 sdd   and         
                                          sdd  stlddiff       core        
                                               ral 1953       deltas      
                                               nze      scd               
                                               ral 1959 scd               
                                          scd  stlcdiff setcc             
                                        1 
                                          ddiff 01 0000 ddiff eraseable   
                                          cdiff 01 0000 cdiff             
                                               hed
                                        1 
                                        1      load availablity table
                                        1 
                                               hedl
                                           1999ral 1951       calc        
                                               srt 0004       loc         
                                               slt 0004       w2          
                                               alo 8002                   
                                               alo 8002                   
                                               aloc1                      
                                               aupc2     8003             
                                           8003ldd 9995  8002 load        
                                           8002std 9994 tup   table       
                                          tup  suptw                      
                                               nzu      readc             
                                               auptwp2                    
                                               alo1dxxx  8003             
                                        1 
                                          c1   stda0001 tup   constants   
                                          c2   ldd 1952  8002             
                                          tw   ldd 1958  8002             
                                          twp2 ldd 1960  8002             
                                               hed
                                        1          optimizing table
                                        1 
                                          n0001 00 0404  0998 nop         
                                          n0002 00 0404  0998 hlt         
                                          n0003 33 2322  0999 ufa         
                                          n0004 00 0505  0998 rtc         
                                          n0005 00 0505  0998 rtn         
                                          n0006 00 0505  0998 rta         
                                          n0007 00 0505  0998 wtn         
                                          n0008 00 0505  0998 wta         
                                          n0009 33 1212  0999 lib         
                                          n0010 33 0202  0999 ldi         
                                          n0011 33 0504  0999 aup         
                                          n0012 33 0504  0999 sup         
                                          n0013 99 9999  9999 not used    
                                          n0014 99 9999  9999 not used    
                                          n0015 33 1110  0999 div         
                                          n0016 33 0504  0999 alo         
                                          n0017 33 0504  0999 slo         
                                          n0018 33 0504  0999 aml         
                                          n0019 33 0504  0999 sml         
                                          n0020 33 2120  0999 mpy         
                                          n0021 54 0303  0999 stl         
                                          n0022 45 0303  0999 stu         
                                          n0023 34 0303  0999 sda         
                                          n0024 34 0303  0999 sia         
                                          n0025 34 0303  0999 std         
                                          n0026 44 0505  0998 nts         
                                          n0027 00 0505  0998 bin         
                                          n0028 00 0505  0998 set         
                                          n0029 33 1212  0999 sib         
                                          n0030 33 0202  0999 sti         
                                          n0031 00 0000  0998 srt         
                                          n0032 00 0000  0888 srd         
                                          n0033 33 2726  0999 fad         
                                          n0034 33 2726  0999 fsb         
                                          n0035 33 0000  0999 fdv         
                                          n0036 00 0000  0988 slt         
                                          n0037 00 0000  0988 sct         
                                          n0038 33 2726  0999 fam         
                                          n0039 33 2726  0999 fsm         
                                          n0040 33 0000  0999 fmp         
                                          n0041 33 0404  0998 nza         
                                          n0042 33 0404  0998 bmz         
                                          n0043 33 0404  0998 nzb         
                                          n0044 33 0404  0998 bmb         
                                          n0045 34 0405  0998 nzu         
                                          n0046 43 0504  0998 nze         
                                          n0047 33 0404  0998 bmi         
                                          n0048 33 0505  0998 bov         
                                          n0049 33 0404  0998 nzc         
                                          n0050 33 0404  0998 bmc         
                                          n0051 00 0000  0898 axa         
                                          n0052 00 0000  0898 sxa         
                                          n0053 00 0000  0898 axb         
                                          n0054 00 0000  0898 sxb         
                                          n0055 44 0505  0998 nef         
                                          n0056 00 0505  0998 rwd         
                                          n0057 00 0505  0998 wtm         
                                          n0058 00 0505  0998 bst         
                                          n0059 00 0000  0898 axc         
                                          n0060 00 0000  0898 sxc         
                                          n0061 33 0504  0999 rau         
                                          n0062 33 0504  0999 rsu         
                                          n0063 99 9999  9999 not used    
                                          n0064 99 9999  9999 not used    
                                          n0065 33 1110  0999 dvr         
                                          n0066 33 0504  0999 ral         
                                          n0067 33 0504  0999 rsl         
                                          n0068 33 0504  0999 ram         
                                          n0069 33 0504  0999 rsm         
                                          n0070 33 0303  0999 ldd         
                                          n0071 00 0000  0999 rd1         
                                          n0072 00 0000  0999 wr1         
                                          n0073 00 0000  0999 rc1         
                                          n0074 00 0000  0999 rd2         
                                          n0075 00 0000  0999 wr2         
                                          n0076 00 0000  0999 rc2         
                                          n0077 00 0000  0999 rd3         
                                          n0078 00 0000  0999 wr3         
                                          n0079 00 0000  0999 rc3         
                                          n0080 00 0505  0999 rpy         
                                          n0081 00 0000  0898 raa         
                                          n0082 00 0000  0898 rsa         
                                          n0083 00 0000  0898 rab         
                                          n0084 00 0000  0898 rsb         
                                          n0085 33 0506  0999 tlu         
                                          n0086 00 0606  0998 sds         
                                          n0087 00 0606  0998 rds         
                                          n0088 00 0606  0998 wds         
                                          n0089 00 0000  0898 rac         
                                          n0090 00 0000  0898 rsc         
                                          n0091 44 0505  0998 bd0         
                                          n0092 33 0505  0998 bd1         
                                          n0093 33 0505  0998 bd2         
                                          n0094 33 0505  0998 bd3         
                                          n0095 33 0505  0998 bd4         
                                          n0096 33 0505  0998 bd5         
                                          n0097 33 0505  0998 bd6         
                                          n0098 33 0505  0998 bd7         
                                          n0099 33 0505  0998 bd8         
                                          n0100 44 0505  0998 bd0         
                                        1 
                                        1      symbolic op table
                                        1 
                                          c0001 61 7366  1007 alf         
                                          c0002 61 7376  0015 alo         
                                          c0003 61 7473  0017 aml         
                                          c0004 61 8477  0010 aup         
                                          c0005 61 8761  0050 axa         
                                          c0006 61 8762  0052 axb         
                                          c0007 61 8763  0053 axc         
                                          c0008 62 6476  0090 bd0         
                                          c0009 62 6491  0091 bd1         
                                          c0010 62 6492  0092 bd2         
                                          c0011 62 6493  0093 bd3         
                                          c0012 62 6494  0094 bd4         
                                          c0013 62 6495  0095 bd5         
                                          c0014 62 6496  0096 bd6         
                                          c0015 62 6497  0097 bd7         
                                          c0016 62 6498  0098 bd8         
                                          c0017 62 6499  0099 bd9         
                                          c0018 62 6975  0026 bin         
                                          c0019 62 7361  1003 bla         
                                          c0020 62 7379  1002 blr         
                                          c0021 62 7461  0041 bma         
                                          c0022 62 7462  0043 bmb         
                                          c0023 62 7463  0049 bmc         
                                          c0024 62 7469  0046 bmi         
                                          c0025 62 7677  1001 bop         
                                          c0026 62 7685  0047 bov         
                                          c0027 62 8283  0057 bst         
                                          c0028 64 6985  0014 div         
                                          c0029 64 8579  0064 dvr         
                                          c0030 65 7884  1005 equ         
                                          c0031 66 6164  0032 fad         
                                          c0032 66 6174  0037 fam         
                                          c0033 66 6485  0034 fdv         
                                          c0034 66 7477  0039 fmp         
                                          c0035 66 8262  0033 fsb         
                                          c0036 66 8274  0038 fsm         
                                          c0037 68 6564  1009 hed         
                                          c0038 68 7383  0001 hlt         
                                          c0039 73 6464  0069 ldd         
                                          c0040 73 6469  0009 ldi         
                                          c0041 73 6962  0008 lib         
                                          c0042 74 7788  0019 mpy         
                                          c0043 75 6566  0054 nef         
                                          c0044 75 7677  0000 nop         
                                          c0045 75 8382  0025 nts         
                                          c0046 75 8961  0040 nza         
                                          c0047 75 8962  0042 nzb         
                                          c0048 75 8963  0048 nzc         
                                          c0051 75 8965  0045 nze         
                                          c0052 75 8984  0044 nzu         
                                          c0053 77 6183  1008 pat         
                                          c0054 77 6368  0071 pch         
                                          c0055 79 6161  0080 raa         
                                          c0056 79 6162  0082 rab         
                                          c0057 79 6163  0088 rac         
                                          c0058 79 6173  0065 ral         
                                          c0059 79 6174  0067 ram         
                                          c0060 79 6184  0060 rau         
                                          c0061 79 6279  1012 rbr         
                                          c0062 79 6364  0070 rcd         
                                          c0063 79 6391  0072 rc1         
                                          c0064 79 6392  0075 rc2         
                                          c0065 79 6393  0078 rc3         
                                          c0066 79 6482  0086 rds         
                                          c0067 79 6491  0070 rd1         
                                          c0068 79 6492  0073 rd2         
                                          c0069 79 6493  0076 rd3         
                                          c0070 79 6567  1004 reg         
                                          c0071 79 6573  1010 rel         
                                          c0072 79 6578  1011 req         
                                          c0073 79 7788  0079 rpy         
                                          c0074 79 8261  0081 rsa         
                                          c0075 79 8262  0083 rsb         
                                          c0076 79 8263  0089 rsc         
                                          c0077 79 8273  0066 rsl         
                                          c0078 79 8274  0068 rsm         
                                          c0079 79 8284  0061 rsu         
                                          c0080 79 8361  0005 rta         
                                          c0081 79 8363  0003 rtc         
                                          c0082 79 8375  0004 rtn         
                                          c0083 79 8664  0055 rwd         
                                          c0084 82 6383  0036 sct         
                                          c0085 82 6461  0022 sda         
                                          c0086 82 6482  0085 sds         
                                          c0087 82 6583  0027 set         
                                          c0088 82 6961  0023 sia         
                                          c0089 82 6962  0028 sib         
                                          c0090 82 7376  0016 slo         
                                          c0091 82 7383  0035 slt         
                                          c0092 82 7473  0018 sml         
                                          c0093 82 7964  0031 srd         
                                          c0094 82 7983  0030 srt         
                                          c0095 82 8364  0024 std         
                                          c0096 82 8369  0029 sti         
                                          c0097 82 8373  0020 stl         
                                          c0098 82 8384  0021 stu         
                                          c0101 82 8477  0011 sup         
                                          c0102 82 8761  0051 sxa         
                                          c0103 82 8762  0053 sxb         
                                          c0104 82 8763  0059 sxc         
                                          c0105 82 8875  1006 syn         
                                          c0106 83 7384  0084 tlu         
                                          c0107 84 6661  0002 ufa         
                                          c0108 86 6582  0087 wds         
                                          c0109 86 7991  0071 wr1         
                                          c0110 86 7992  0074 wr2         
                                          c0111 86 7993  0077 wr3         
                                          c0112 86 8361  0007 wta         
                                          c0113 86 8374  0056 wtm         
                                          c0114 86 8375  0006 wtn         
                                          c0115 99 9999  0001 table end   
                                        1 
                                        1      sub 1 store k in fwa to lwa
                                        1 
                                               hed1        
                                          subr1stdexitx       store exit  
                                               stuxxxx1       store k     
                                               lddfwa         set         
                                               sdafwa         fwa         
                                               slt 0004       lwa         
                                               sdaxxxx2       addresses   
                                               raufwa                     
                                               aloxxxx1  8003             
                                           8003stl 9999 next  store k     
                                          next supxxxx2       end of      
                                               nzu      exitx loop test   
                                               aup 8001                   
                                               aup1dxxx  8003 step        
                                        1 
                                          fwa  stl 9998 next  constants   
                                          xxxx2 01 0000 xxxx2 eraseable   
                                               hed
                                        1 
                                        1      sub 2 reserve unreserve
                                        1 
                                               hed2
                                          subr2stdexity       reserve     
                                               lddz     ru    entry       
                                          sub2ustdexity       unreserve   
                                               ldd1i    ru    entry       
                                          ru   stdw           set w       
                                               stln           store n     
                                               slo 8001       calc ao     
                                               aup 8003       and po      
                                               srt 0003                   
                                               stux                       
                                               sup 8001                   
                                               slt 0001                   
                                               stup                       
                                               sup 8001                   
                                               slt 0002                   
                                               aup 8003                   
                                               aupx                       
                                               alop                       
                                               slt 0004                   
                                               aloc1                      
                                               stlb0002                   
                                               lddc2                      
                                               sdaspr                     
                                               aupc3    su                
                                          su   stusa                      
                                               aupc4     8003             
                                           8003ral 9992 b0002             
                                          b0002slt 0009 xx                
                                          xx   stuuh                      
                                               slt 0001                   
                                               ral 8002                   
                                               aupw                       
                                               srt 0001                   
                                               aupuh    spr               
                                          spr  srt 0009 sa                
                                          sa   stl 9983 b0001             
                                          b0001raln            is n zero  
                                               nze      exity             
                                               slo1l           reduce n   
                                               stln            by 1       
                                               rausa           is ai      
                                               supa197         in last    
                                               bmi      tp     block of   
                                               aupa201  su     4          
                                        1
                                          tp   ralspr          is p 9     
                                               sloc2                      
                                               nze      zp                
                                               aloc5           step p     
                                               lddc1                      
                                               sdab0002                   
                                               stlspr                     
                                               rausa           reduce ai  
                                               supc6    su     by 196     
                                        1
                                          zp   lddc1           set p      
                                               stdb0002        to zero    
                                               lddc7                      
                                               stdspr                     
                                               rausa           reduce ai  
                                               supc8    su     by 195     
                                        1
                                          c1   slt 0000 xx     constants  
                                          c2   srt 0009 sa                
                                          c3   stla0001 b0001             
                                          c4    45 0000  0001             
                                          1i    00 0000  0001             
                                          a197 stla0197 b0001             
                                          a201 stla0201 b0001             
                                          c5   srt 0010 sa                
                                          c6    00 0196  0000             
                                          c7   srt 0000 sa                
                                          c8    00 0195  0000             
                                          z     00 0000  0000             
                                          w     01 0000 w      eraseable  
                                          n     01 0000 n                 
                                          b0002 01 0000 b0002             
                                          spr   01 0000 spr               
                                          sa    01 0000 sa                
                                          uh    01 0000 uh                
                                          x     01 0000 x                 
                                               hed
                                        1
                                        1      sub 3 process op coce
                                        1
                                               hed3
                                          subr3stdexitx        store exit 
                                               ral 1954                   
                                               srt 0004        is op      
                                               nze      illop  blank      
                                               slt 0006        is op      
                                               nzu      num    numeric    
                                               srt 0002                   
                                               stlxxxx1        search     
                                               slo 8001        symbolic   
                                               tluc0001        op table   
                                               alo1      8002             
                                           8002ral 9997 next   is         
                                          next sloxxxx1        sym op     
                                               slt 0006        legal      
                                               nzuillop                   
                                               slt 0001        test for   
                                               nzupseu         pseudo op  
                                               slt 0001 sno    store num  
                                          sno  stlp0007        650 op     
                                               srt 0004        get optim  
                                               alo3      8002  constants  
                                           8002ldd 9996 nex               
                                          nex  stdoptim exitx             
                                        1
                                          num  slo4            form       
                                               slt 0002        numeric    
                                               slo 8002        op         
                                               srt 0001        code       
                                               alo 8001 sno               
                                        1
                                          illopralp0010        illegal op 
                                               alo5            set 8      
                                               stlp0010        for blank  
                                               ldd6     nex    op         
                                        1
                                          pseu slt 0003        pseudo     
                                               aloexitx        op         
                                               alo1ixxx  8002             
                                        1
                                          1    ral 0000 next   constants  
                                          2     10 0000  0000             
                                          3    lddn0001 nex               
                                          4     90 9000  0000             
                                          5     00 0000  0008             
                                          6     55 0505  0999             
                                               hed
                                        1
                                        1      sub 4 what is address
                                        1
                                               hed4
                                          subr4stdexitz         store exit
                                               stuxxxx1         store addr
                                               srt 0008         is c5     
                                               nzu      exitz   blank     
                                               stuxxxx2         save c5   
                                               rau 8002         are low 4 
                                               aup90xxx         characters
                                               bovloop  loop    numeric   
                                          loop auph1                      
                                               bov      sym               
                                               slt 0002                   
                                               nzuloop                    
                                               ralxxxx2         low 4 num 
                                               slo90xxx         is c5     
                                               bmi      sym     alphabetic
                                               alo29xxx                   
                                               bmisym                     
                                               ral1ixxx         regional  
                                               aupxxxx1 aex               
                                          aex  aloexitz                   
                                               slo 8002  8001             
                                          sym  rauxxxx1         hed symbol
                                               ldd      sub15             
                                               alo2ixxx         step exit 
                                               stuhsymb aex               
                                          h1    10 0000  0000             
                                          hsymb 01 0000 hsymb   eraseable 
                                               hed
                                        1
                                        1      sub 5 test absolute address
                                        1
                                               hed5
                                          subr5stdexitz         store exit
                                               stlxxxx1         store a   
                                               slt 0004                   
                                               slo 8002                   
                                               tlur0001         tlu       
                                               aloget    8002   range     
                                           8002rau 9972 x       table     
                                          x    slt 0006                   
                                               srt 0006                   
                                               aupexitz                   
                                               aloxxxx1                   
                                               sup 8003  8001             
                                          get  rau 0000 x                 
                                          r0001 00 1999  0000   range     
                                          r0002 00 7999  0003   table     
                                          r0003 00 8003  0001             
                                          r0004 00 8004  0003             
                                          r0005 00 8007  0001             
                                          r0006 00 8999  0003             
                                          r0007 00 9059  0002             
                                          r0008 99 9999  0003             
                                               hed
                                        1
                                        1      sub 6 symbol test routine
                                        1
                                               hed6
                                          subr6stdexitz         store exit
                                               stus             store symb
                                               lddswof          set switch
                                               stdsw            off       
                                               mpysc            scramble  
                                               ral 8002         symbol    
                                               slt 0003         giving    
                                               mpycf            lo        
                                               srt 0001                   
                                               slt 0004         set       
                                               alol1p1          test      
                                               stllop1          word      
                                               slo1dxxx                   
                                               stllo    sli     save lo   
                                          sli  stlli     8001   init li   
                                           8001ral 9990 a       is cont of
                                          a    nze      und     li zero   
                                               slos             is cont of
                                               nzesw    def     li symb   
                                          sw   ralli    off     is li     
                                          off  slolmax          maximum   
                                               nze      max               
                                               alolmp1  sli     step li   
                                          on   slolo            is li equa
                                               nze      swsym   to lo     
                                               alolop1  sli     step li   
                                          max  lddswon          set       
                                               stdsw            switch on 
                                               rall1    sli     zero li   
                                        1
                                          und  ralexitz         undefined 
                                               alo1ixxx         step      
                                               stlexitz         exit      
                                               ralli                      
                                               slol1                      
                                               stllsymb asu               
                                        1
                                          def  ralli            defined   
                                               lddasu   subr8   get       
                                          asu  aups     exitz   equivalent
                                        1
                                          swsymhlt 0111 symof   s tab full
                                          symoflddsymon         set sw sym
                                               stdswsym symon   on        
                                          symonralexitz                   
                                               alo2ixxx  8002             
                                        1
                                          swof ralli    off     constants 
                                          swon ralli    on                
                                          sc    10 0100  1001             
                                          cf    00 0000  0004             
                                          l1   ral 0000 a                 
                                          l1p1 ral 0001 a                 
                                          lmax rale0000 a                 
                                          lmp1 rale0001 a                 
                                          s     01 0000 s       erasable  
                                          sw    01 0000 sw                
                                          lo    01 0000 lo                
                                          li    01 0000 li                
                                          lsymb 01 0000 lsymb             
                                               hed
                                        1
                                        1      sub 7 store symbol and equiv
                                        1
                                               hed7
                                          subr7stdexitz         store exit
                                               lddss                      
                                               sdaxxxx2  8001   store     
                                           8001stu 9988 a       symbol    
                                          a    sup 8001                   
                                               stlxxxx1         save e    
                                               srt 0004                   
                                               div2ixxx         calculate 
                                               slt 0004         location  
                                               aloc1            of        
                                               lddc2            e         
                                               sdasel           and       
                                               lddc3            store     
                                               sdaser                     
                                               stlobee                    
                                               slo 8001                   
                                               aloxxxx1 obee              
                                          obee ldd 9986 b                 
                                          b    nzuser                     
                                               slt 0004 sel               
                                          ss   stu 9987 a       constants 
                                          c1   ldde0001 b                 
                                          c2   sda 9985 exitz             
                                          c3   sia 9984 exitz             
                                          obee  01 0000 obee    erasable  
                                          sel   01 0000 sel               
                                          ser   01 0000 ser               
                                               hed
                                        1 
                                        1    sub 8 given sym loc get equiv
                                        1
                                               hed8
                                          subr8stdexit          store exit
                                               ldd 8003                   
                                               sdalsymb         store l   
                                               ral 8001                   
                                               div2dxxx                   
                                               slt 0004                   
                                               aloe1     8002             
                                           8002ldd 9975 tr                
                                          tr   nzu      lh                
                                               ram 8001 lr      get e rh  
                                          lh   ram 8001         get e lh  
                                               srt 0004 lr                
                                          lr   ldd 8003                   
                                               siaequiv                   
                                               rallsymb exit              
                                          e1   ldde0001 tr      constant  
                                          exit  01 0000 exit    eraseable 
                                          equiv 01 0000 equiv             
                                               hed
                                        1
                                        1      sub 9 calculate reg address
                                               hed9
                                          subr9stdexitz         store exit
                                               srt 0008                   
                                               ral 8003                   
                                               slt 0004                   
                                               aloc      8002   is        
                                           8002ral 9991 nex     region    
                                          nex  bd0ill           defined   
                                               slt 0001                   
                                               ral 8002                   
                                               srt 0001                   
                                               lddexitz                   
                                               bd6      l                 
                                               bd5d     i                 
                                          l    alo 1957 all               
                                          d    alo 1958 all               
                                          i    alo 1959 all               
                                          all  slo1ixxx                   
                                               bmiill   exitz             
                                          ill  ralexitz         undefined 
                                               alo1ixxx  8002   or illeg  
                                        1
                                          c    ral 0960 nex     constant  
                                               hed
                                        1      sub 10 set cc 8 and punch
                                        1 
                                          sub10alop0010                   
                                               alo84th                    
                                               stlp0010                   
                                               pchp0001  8003             
                                        1
                                          84th  00 0800  0000  constant   
                                        1
                                        1      sub 11 find and reserve best
                                        1
                                               hed0
                                          sub11ldddrumt        test       
                                               bd0      sex    drum tag   
                                               stlexit         is adr l   
                                               bd6d1                      
                                               ral 8003 ssw    l          
                                          di   lddf            d or i     
                                               sdaxxxx1 sub13  find optim 
                                          gda  slt 0004        dynam adr  
                                               alo 8002                   
                                               alo 8002 ssw               
                                          ssw  lddoff          set sw off 
                                               stdsw                      
                                               aloa1p1         get table  
                                               stlbp1          start addr 
                                               slo1dxxx                   
                                               stlao    sai    save ao    
                                          sai  stlai     8001             
                                           8001rau 9975 ta     is locat   
                                          ta   nzuyes   sw     available  
                                          sw   rauai    swof              
                                          swof sloamax         is ai max  
                                               nze      max               
                                               aloamp1  sai    step ai    
                                          swon sloao           is ai equa 
                                               nze      full   to ao      
                                               alobp1   sai    step ai    
                                          max  lddon           set sw on  
                                               stdsw                      
                                               rala1    sai    set ai to  
                                        1
                                          full hlt 0222        drum paked 
                                               lddh9xxx        set drum   
                                               stddrumt        tag to 9   
                                               ralexit  sex    step exit  
                                          sex  alo1ixxx  8002             
                                        1
                                          yes  sct 0000        reserve    
                                               slt 0001        location   
                                               srt 0001        found      
                                               stlxxxx2        save p     
                                               sup 8003                   
                                               slt 0004                   
                                               aup 8001                   
                                               alosrp    8002             
                                           8002srt 0009 sca    nulify sct 
                                          sca  rau 8003                   
                                               aloai                      
                                               lddst                      
                                               sdaeras   8001             
                                           8001stu 9972 ca                
                                          ca   sup 8001        calculate  
                                               sloa1           location   
                                               srt 0004        found      
                                               div4i                      
                                               mpy500                     
                                               alo 8003                   
                                               sup 8001                   
                                               aupxxxx2                   
                                               mpy50                      
                                               alo 8003                   
                                               sup 8001 exit              
                                          f     00 0000 gda    constants  
                                          off  ralai    swof              
                                          a1p1 raua0002 ta                
                                          amax raua0200 ta                
                                          amp1 raua0201 ta                
                                          on   ralai    swon              
                                          a1   raua0001 ta                
                                          srp  srt 0000 sca               
                                          st   stu 9999 ca                
                                          4i    00 0000 0004              
                                          500   00 0000 0500              
                                          50    00 0000 0050              
                                          fon  ral 8001 stepx             
                                          ao    01 0000 ao     erasable   
                                          ai    01 0000 ai                
                                          bp1   01 0000 bp1               
                                          exit  01 0000 exit              
                                               hed
                                        1
                                        1          sub 12 set blank l 8
                                        1
                                          sub12alop0010                   
                                               alo87th                    
                                               stlp0010  8003             
                                        1
                                          87th  00 0000  8000  constant   
                                        1
                                        1      sub 13 cal optimum dynamic adr
                                        1
                                               hedy
                                          sub13stdexitz        store exit 
                                               bd5      i      d or i     
                                               raloptim        d          
                                               slt 0001                   
                                               slo 8002                   
                                               slt 0001                   
                                               alo 8001                   
                                               srt 0003 seq               
                                          i    raloptim        i          
                                               bd2shop         shift test 
                                               bd3xas          xas test   
                                               slt 0002 seo               
                                          seo  stlxxxx1        save ev od 
                                               ralopreg        is base    
                                               div2ixxx        even or od 
                                               rau 8003                   
                                               aloxxxx1                   
                                               nzu      rb                
                                               slt 0002                   
                                               ral 8002 rb                
                                          rb   srt 0008        get base   
                                               aloopreg        plus delta 
                                               div50           mod 50     
                                               ral 8003 exitz             
                                        1
                                          shop ralp0007        tlu units  
                                               srt 0004        digit of   
                                               slt 0009        d address  
                                               slo 8002                   
                                               tluu0001                   
                                               alogu     8002             
                                           8002ral 9969 top               
                                          top  slt 0002                   
                                               lddoptim        is op srd  
                                               bd3      seo               
                                               slt 0004 seo    srd        
                                        1
                                          xas  ralp0007        tlu        
                                               srt 0004        d address  
                                               slt 0006                   
                                               slo 8002                   
                                               tlui0001                   
                                               alogxd    8002             
                                           8002ral 9968 nxt               
                                          nxt  slt 0004 seo               
                                        1
                                          u0001 00 2322  2524  shift      
                                          u0002 10 0706  0706  optimizing 
                                          u0003 20 0706  0908  table      
                                          u0004 30 0908  1110             
                                          u0005 40 1110  1312             
                                          u0006 50 1312  1514             
                                          u0007 60 1514  1716             
                                          u0008 70 1716  1918             
                                          u0009 80 1918  2120             
                                          u0010 90 2120  2322             
                                        1
                                          i0001 19 9906  0600  x accum    
                                          i0002 79 9907  0700  add sub    
                                          i0003 80 0008  0800  table      
                                          i0004 80 0106  0600             
                                          i0005 80 0206  0800             
                                          i0006 80 0308  0900             
                                          i0007 90 5908  0800             
                                          i0008 99 9909  0900             
                                        1
                                          gu   ral 0000 top    constants  
                                          gxd  ral 0000 nxt               
                                          50    00 0000 0050              
                                               hed
                                        1
                                        1      sub 14 punch avail table
                                        1
                                               hedp
                                          sub14stdexitx        store exit 
                                               ldd85th         set punch  
                                               stdp0010        8          
                                               ldda1           init a1    
                                               stdxxxx1                   
                                               ralrs1   loop   init rs    
                                          loop aupc1     8001             
                                           8001stl 9999 next   set locat  
                                          next suptw1                     
                                               nzu      srs               
                                               aupc2                      
                                               aloc3     8003             
                                          srs  stlxxxx2        save rs    
                                               rauc4                      
                                               aloxxxx1  8002             
                                           8002ldd 9998  8003  store      
                                           8003std 9997 tp     av table   
                                          tp   suptw2                     
                                               nzu      pun               
                                               aupc5                      
                                               aloc6     8002             
                                          pun  pchp0001                   
                                               sloaim          is ai max  
                                               nze      exitx             
                                               aloamp1         step ai    
                                               stlxxxx1                   
                                               ralxxxx2                   
                                               sloc7    loop              
                                        1
                                          c1   stlp0001 next   constants  
                                          c2   stlp0009 next              
                                          c3    00 0500  0500             
                                          c4   stdp0002 tp                
                                          c5   stdp0010 tp                
                                          c6    00 0001  0000             
                                          c7    00 1499  1499             
                                          tw1  stlp0007 next              
                                          tw2  stdp0008 tp                
                                          85th  00 0080 0000              
                                          a1   ldda0001 8003              
                                          rs1   00 0000 0450              
                                          aim  ldda0200 8003              
                                          amp1 ldda0201 8003              
                                               hed
                                        1
                                        1         sub 15 heading routine
                                        1
                                               hedh
                                          sub15stdexity        save exit  
                                               ldd 8003        is c1      
                                               slt 0008        blank      
                                               nzudh                      
                                               rau 8001        head       
                                               aup0000h exity             
                                          dh   rau 8001 exity  dont head  
                                               hed
                                        1
                                        1         sub 16 initialization
                                        1
                                          sub16stdexity        store exit 
                                               rali1                      
                                               stup0009        zero card  
                                               std0000h        zero head  
                                               ldd      subr1  zero sym t 
                                               rali2           make drum  
                                               aupi3           available  
                                               ldd      subr1             
                                               lddh8xxx        set drum   
                                               stddrumt        tag to 8   
                                               lddi4           set swsym  
                                               stdswsym        off        
                                               rali5           undefine   
                                               auph8xxx        regions    
                                               lddexity subr1             
                                        1
                                          i1    00s0001 e0200  constants  
                                          i2    00a0001 a0200             
                                          i3    11 1111  1111             
                                          i4    01 0111 symof             
                                          i5    00 1021  1049             
                                          pacofbd6findi findl             
                                        1
                                        1      sub 17 calc 800x equivalent
                                        1 
                                               hedx
                                          sb17dldddeq   di     d equiv    
                                          sb17ilddieq   di     i equiv    
                                          di   stdxxxx1        save tag   
                                               stuexity        store exit 
                                               stlxxxx2        store 800x 
                                               lddxxxx1 sub13  get optim  
                                          sda  stlxxxx1        dynam addr 
                                               div2ixxx        is dy addr 
                                               nzuod    ev     even or od 
                                          od   ral8002  eo                
                                          ev   ral8003  eo                
                                          eo   sloxxxx2                   
                                               nze      add1              
                                               ralxxxx1 exity             
                                          add1 ralxxxx1                   
                                               alo1ixxx exity             
                                        1
                                          deq   00 0008 sda    constants  
                                          ieq   00 0009 sda               
                                          8002  00 0000  8002             
                                          8003  00 0000  8003             
                                               hed
                                        1
                                        1          sub 18 index address
                                        1
                                               hedw
                                          indexstdexity        store exit 
                                               stlxxxx1        store addr 
                                               rau 1954                   
                                               slt 0007                   
                                               lddexity                   
                                               bd5d            d or i     
                                               slt 0002 d                 
                                          d    srt 0009                   
                                               mpy2000i                   
                                               lddexity                   
                                               bd6ds           drum 0 cor 
                                               srt 0001 ds     core       
                                          ds   aloxxxx1 exity             
                                        1
                                          exity 01 0000 exity  erasabele  
                                               hed
                                        1    
                                        1          sub 19 process location
                                        1
                                               regd0923  0923  proc l
                                               regg0925  0925
                                               regj0928  0928
                                               regk0931  0931
                                               regl0933  0933
                                        1
                                               heda
                                          proclstdexitx        store exit 
                                               rau 1951        is l blank 
                                               nzunb                      
                                               ldddrumt        blank test 
                                               bd0b     d0002  drum tag   
                                          b    ralopreg setl   blank      
                                          setl slt 0004        set l      
                                               lddp0008        to dr      
                                               sdap0008 exitx             
                                          nb   lddg     subr4  what is l  
                                          g0001ral 1957 k0001  absolute   
                                          g0002lddk     subr9  regional   
                                          g0003lddj     subr6  symbolic   
                                          k0001lddl     subr5  test range 
                                          k0002rau87th  x      reg error  
                                          x    aupp0010        set blank  
                                               stup0010 setl   l8         
                                          l0001stlopreg setl   drum addr  
                                          l0002aup86th  800x   800x       
                                          l0003lddorceq 89x    core addr  
                                          l0004rau87th  x      other      
                                          800x lddorxeq 89x               
                                          89x  stdopreg x                 
                                          j0001ralequiv k0001  sym defind 
                                          j0002rald     sub11  sym undef  
                                          j0003rau87th  x      s tab full 
                                          d0001stlopreg ss     s eq found 
                                          d0002rau87th  x      drum paked 
                                          ss   auphsymb        store      
                                               alolsymb        symbol     
                                               lddb     subr7             
                                        1                                  
                                          g     00 0000 g0001 constants   
                                          k     00 0090 k0001             
                                          j     00 0000 j0001             
                                          l     00 0000 l0001             
                                          d     00 0090 d0001             
                                          86th  00 0008  0000             
                                          87th  00 0000  8000             
                                          exitx 01 0000 exitx eraseable   
                                               hed
                                        1
                                        1      sub 20 process data address
                                        1
                                               regd0937  0937 proc d
                                               regf0939  0939
                                               regg0941  0941
                                               regj0944  0944
                                               regk0946  0946
                                               regl0949  0949
                                        1
                                               hedb
                                          procdstdexitx        store exit 
                                               rau 1952        is d blank 
                                               nzunb                      
                                               rald     sub11  find       
                                          d0001stlorbal l0004  optimum    
                                          d0002rau88th  x      drum paked 
                                          bt   lddoptim        is op      
                                               bd1exitx        a branch   
                                               stlopreg exitx  d to or    
                                          x    aupp0010        set blank  
                                               stup0010 exitx             
                                          nb   lddg     subr4  what is d  
                                          g0001ral 1958 j0001  absolute   
                                          g0002lddj     subr9  regional   
                                          g0003lddk     subr6  symbolic   
                                          j0001lddl     subr5  test range 
                                          j0002rau88th  x      reg error  
                                          l0001lddaxd   index  drum addr  
                                          l0002slt 0004 800x   800x       
                                          l0003lddaxc   index  core addr  
                                          l0004slt 0004 sd     other      
                                          800x lddp0007        set 800x d 
                                               sdap0007                   
                                               srt 0004                   
                                               aupxeq   sb17d  get 800x e 
                                          scd  slt 0004        set core d 
                                               lddp0007                   
                                               sdap0007                   
                                               srt 0004                   
                                               lddceq   sub13  get core e 
                                          sceq stlorceq bt     save core  
                                          k0001ralequiv j0001  sym defind 
                                          k0002ralf     sub11  sym undef  
                                          k0003rau88th  x      s tab full 
                                          f0001stleq    ss     save eq    
                                          f0002rau88th  x      drum paked 
                                          ss   auphsymb        store      
                                               alolsymb        symbol     
                                               ldd      subr7             
                                               raleq    l0004             
                                          sd   lddp0007        set d addr 
                                               sdap0007                   
                                               srt 0004 bt                
                                          d     00 0088 d0001  constants  
                                          g     00 0000 g0001             
                                          j     00 0088 j0001             
                                          l     00 0000 l0001             
                                          f     00 0088 f0001             
                                          k     00 0000 k0001             
                                          axd   00 0088 d0001             
                                          axc   00 0098 scd               
                                          xeq  stlorxeq bt                
                                          ceq   00 0008 sceq              
                                          88th  00 0000 0800              
                                          eq    01 0000 eq     erasable   
                                               hed
                                        1
                                        1      sub 21 process instr address
                                        1
                                               regd0953  0953  proc i
                                               regf0955  0955
                                               regg0958  0958
                                               regj0960  0960
                                               regk0962  0962
                                               regl0965  0965
                                        1
                                               hedc
                                          procistdexitx        store exit 
                                               rau 1953        is i blank 
                                               nzunb                      
                                               rau 1952        is d blank 
                                               nzudnb                     
                                               ldddrumt        d i blank  
                                               bd0      g0002  test drum  
                                               ralorbal l0004  tag        
                                          dnb  rald     sub11  find best  
                                          d0001stlorbal l0004  found      
                                          d0002ralp0010 x      drum paked 
                                          x    alo89th                    
                                               stlp0010 exitx             
                                          nb   lddf     subr4  what is i  
                                          f0001ral 1959 j0001  absolute   
                                          f0002lddj     subr9  regional   
                                          f0003lddk     subr6  symbolic   
                                          j0001lddl     subr5  test range 
                                          j0002ralp0010 x      reg error  
                                          l0001lddaxd   index  drum addr  
                                          l0002lddp0007 800x   800x       
                                          l0003lddaxc   index  core addr  
                                          l0004lddp0007        other      
                                               siap0007 mor               
                                          800x siap0007                   
                                               aupxeq   sb17i  get 800x e 
                                          90xx lddp0007        set core   
                                               siap0007        address    
                                               lddceq   sub13  get core e 
                                          k0001ralequiv j0001  sym defind 
                                          k0002ralg     sub11  sym undef  
                                          k0003ralp0010 x      s tab full 
                                          g0001lddp0007 si     found best 
                                          g0002ralp0010 x      drum paked 
                                          si   siap0007                   
                                               auphsymb        store      
                                               alolsymb        symbol     
                                               lddmor   subr7             
                                          mor  lddorbal        set or     
                                               stdopreg exitx  to orb     
                                          sceq stlorceq mor    save core  
                                        1
                                          d     00 0089 d0001 constants   
                                          f     00 0000 f0001             
                                          j     00 0089 j0001             
                                          k     00 0000 k0001             
                                          l     00 0000 l0001             
                                          g     00 0089 g0001             
                                          89th  00 0000  0080             
                                          axd   00 0089 l0004             
                                          axc   00 0099 90xx              
                                          xeq  stlorxeq mor               
                                          ceq   00 0009 sceq              
                                               hed
                                        1
                                          1ixxx 00 0000  0001 constants   
                                          1dxxx 00 0001  0000             
                                          2ixxx 00 0000  0002             
                                          2dxxx 00 0002  0000             
                                          h8xxx 80 0000  0000             
                                          h9xxx 90 0000  0000             
                                          90xxx 00 0000  0090             
                                          29xxx 00 0000  0029             
                                          2000i 00 0000  2000 constant    
                                          torg  00 0000 t0001             
                                        1
                                               pat
