1 soap 4000 1 1 symbolic optimal assembly prog 1 1 for the 1 1 ibm 650 model 4 1 1 data processing system 1 1 0 5cd 4007 0006 0 blr 0000 0040 avail 0 blr 0050 0090 table 0 blr 0100 0140 areas 0 blr 0150 0190 0 blr 0200 0240 0 blr 0250 0290 0 blr 0300 0340 0 blr 0350 0390 0 blr 0400 0440 0 blr 0450 0490 0 regb0041 0042 subr2 0 reg=0043 0044 sub 11 0 reg*0045 0046 punch subr 0 reg/0091 0093 0 blr 0191 0191 0 reg.0500 0509 sub 11 0 reg(0550 0560 sub 11 0 equ1ixxx (0001 0 equ0010i (0002 0 equ100ix (0003 0 equ1dxxx (0005 0 equ10dxx (0006 0 equh1 4 (0010 0 reg)0600 0612 index tabl 0 regn0700 0752 optim tabl 0 blr 0800 0819 pseudo ent 0 regh0902 0904 type 2 0 regm0905 0907 0 regv0910 0911 equ syn 0 regx0913 0914 type 0 0 regy0915 0916 equ syn 0 regz0917 0919 0 regw0920 0921 0 blr 0923 0968 multiple r 0 regd0923 0923 proc l 0 bla 0930 0930 0 bla 0964 0964 0 reg+0977 0986 5/cd outpt 0 equ85thp +0010 0 blr 1000 1000 entry 0 blr 1002 1002 literal 0 blr 1005 1005 symbols 0 blr 1017 1017 0 blr 1025 1025 0 blr 1041 1041 0 blr 1055 1055 0 rego1185 1199 multipass 0 regr1200 1207 sub 5 0 regu1250 1259 sub 13 0 blr 1292 1292 0 regi1300 1307 sub 13 0 blr 1563 1570 type2 0 bla 1565 1565 0 bla 1569 1569 0 syn. 1578 0 syn) 1579 0 syn+ 1580 0 syn$ 1588 0 syn* 1589 0 syn- 1590 0 syn/ 1591 0 syn, 1598 0 syn( 1599 0 syn= 1608 0 syn' 1609 0 blr 1621 1649 reg table 0 equpchex 1630 0 equzzzz1 1640 temporary 0 equzzzz2 1641 storage 0 equtag zzzz1 0 regc1650 1786 symblic op 0 blr 1800 1800 manual pst 0 blr 1900 1900 manual pat 0 syn80xxl 1912 0 syn80xxd 1928 0 reg-1937 1941 0 syn80xxi 1944 0 synreadc 1950 0 blr 1951 1967 17wd buffr 0 equxxxx1 1961 0 equxxxx2 1962 0 equw 2 xxxx2 0 regp1977 1986 punch area 0 regt1990 1993 type 0 blr 1998 1999 0 regs2000 3099 symbol tab 0 rege3200 3749 equiv tabl 0 rega0510 0527 0 reg$0528 0545 0 hed3 0 subr3stdexitx downr stor exit 0 downrrau 1954 0 siaxxxx1 0 ral 8001 is op blnk 0 nze illop 0 slt 0002 0 nzu num 0 rau 8001 0 tluc0001 search 0 alo1 8002 symbolic 0 8002rau 9998 nxt op table 0 nxt supxxxx1 0 srt 0004 is symb op 0 nzuillop legal 0 slt 0001 0 nzu norm 0 sup4ixxx test pseu 0 nzurpq 0 slt 0003 8003 pseudo op 1 0 norm stlp0007 store num 0 slo 8001 op and get 0 tlun0001 optimizing 0 alo5 8002 data 0 8002ldd 9998 nxtin 0 nxtinstdoptim exitx 1 0 num rau 8001 op code in 0 ldd compr dbl digit 0 raup0007 0 srt 0002 norm to 1 digit 1 0 rpq slt 0001 negativ op 0 stlp0007 add cntrol 0 slo 8002 8 to pch 0 slt 0004 minus and 0 alop0010 get proper 0 slt 0001 entry in 0 slo 8002 0ptimizing 0 aloh8xxx table 0 srt 0001 aup 1 0 illopralp0010 illegal 0 alo8ixxx aup op pch 0 aup aup2 blank op 0 stlp0010 8003 0 8003lddn0000 nxtin 1 0 1 rau 0000 nxt constants 0 2 lddn0004 nxtin 0 5 ldd 0000 nxtin 0 optim 01 0000 optim 0 hed 1 1 sub 4 what is address 1 0 hed4 0 subr4bov 0 stdexitz 0 stuxxxx1 store addr 0 srt 0008 is c5 0 stuxxxx2 save c5 0 rau 8002 are low 4 0 aup90xxx loop 0 loop auph1 0 bov sym 0 slt 0002 0 nzuloop 0 ralxxxx2 low 4 num 0 nze exitz 0 slo90xxx is c5 0 bmi sym alphabetic 0 ral1ixxx regional 0 aupxxxx1 aex 0 aex aloexitz 0 slo 8002 8001 0 sym rauxxxx1 hed symbol 0 ldd sub15 0 stuhsymb 0 srt 0008 0 nzu lit 0 rau 8001 0 alo2ixxx aex 0 lit rau 8001 0 alo100ix aex 0 hsymb 01 0000 hsymb eraseable 0 hed 1 1 sub 15 heading routine 1 0 hedh 0 sub15stdexity save exit 0 ldd 8003 is c1 0 slt 0008 blank 0 nzudh 0 rau 8001 head 0 aup0000h exity 0 dh rau 8001 exity dont head 0 hed 1 1 sub 5 test absolute address 1 0 hed5 0 subr5stdexitz store exit 0 stlxxxx1 store a 0 slt 0004 0 slo 8002 0 tlur0001 tlu 0 aloget 8002 range 0 8002rau 9972 x table 0 x slt 0006 0 srt 0006 0 aupexitz 0 aloxxxx1 0 sup 8003 8001 0 get rau 0000 x 0 r0001 00 3999 0000 range 0 r0002 00 7999 0003 table 0 r0003 00 8003 0001 0 r0004 00 8004 0979 0 r0005 00 8007 0001 0 r0006 00 8999 0979 0 r0007 00 9199 0002 0 r0008 99 9999 0003 1 0 exitz 01 0000 exitz 0 hed 1 1 1 sub 6 symbol test routine 1 0 hed6 0 subr6stdexitz store exit 0 stus store symb 0 lddswof set switch 0 stdsw off 0 ral 8003 scramnle 0 divrf symbol 0 ral 8003 giving lo 0 slt 0004 0 alol1 sli 0 sli stlli 8001 init li 0 8001ral 9990 a is cont of 0 a nze und li zero 0 slos is cont of 0 nzesw def li symb 0 sw ralli off is li 0 off slolmax maximum 0 nze max 0 alolmp1 sli step li 0 on alo1dxxx sli step li 0 max lddswon set 0 stdsw switch on 0 rall1 sli zero li 1 0 def ralli defined 0 lddasu subr8 get 0 asu aups exitz equivalent 1 0 und ralexitz if symbol 0 bd5l is undefnd 0 bd6d i test if it 0 l ldd 1960 has been 0 bd9 alo1 previously 0 ldd 1957 stequ establshed 0 d ldd 1960 and if so 0 bd8 alo1 store it 0 ldd 1958 stequ as equiv 0 i ldd 1960 0 bd7 alo1 0 ldd 1959 stequ if still 0 stequstdequiv ralli undefined 0 alo1 alo1ixxx then step 0 stlexitz exit 0 ralsymct 0 slo1ixxx zero if 0 stlsymct 1000th 0 nzeralli full symbol 1 0 ralliralli 0 slolx 0 stllsymb asu 1 0 full lddset5+ suspend 0 stdpchwd 5/cd punch 0 ldd4d888 1100 symbs 0 stdtrans set contrl 0 lddinto1 to enter 0 stdintox pass 0 lddp0009 routine 0 stdnhold on next 0 ldd0000h card read 0 stdhhold ralli 1 0 swof ralli off constants 0 swon ralli on 0 rf 00 0000 1099 0 lx ral 0000 a 0 l1 rals0001 a 0 lmax rals1100 a 0 lmp1 rals1101 a 0 4d888 04 0000 8880 0 into1alotorgp first 0 s 01 0000 s eraseable 0 sw 01 0000 sw 0 lo 01 0000 lo 0 li 01 0000 li 0 lsymb 01 0000 lsymb 0 symct 01 0000 symct 0 nhold 01 0000 nhold 0 hhold 01 0000 hhold 0 trans 01 0000 trans 0 hed 1 1 sub 7 store symbol and equiv 1 0 hed7 0 subr7stdexitz store exit 0 lddss 0 sdaxxxx2 8001 store 0 8001stu 9988 a symbol 0 a sup 8001 0 stlxxxx1 save e 0 srt 0004 0 div2ixxx calculate 0 slt 0004 location 0 aloc1 of 0 lddc2 e 0 sdasel and 0 lddc3 store 0 sdaser 0 stlobee 0 slo 8001 0 aloxxxx1 obee 0 obee ldd 9986 b 0 b nzuser 0 slt 0004 sel 0 ss stu 9987 a condtants 0 c1 ldd 2200 b 0 c2 sda 9985 exitz 0 c3 sia 9984 exitz 0 obee 01 0000 obee eraseable 0 sel 01 0000 sel 0 ser 01 0000 ser 0 hed 1 1 sub 8 given sym loc get equiv 1 0 hed8 0 subr8stdexit store exit 0 ldd 8003 0 sdalsymb store l 0 ral 8001 0 div2dxxx 0 slt 0004 0 aloe1 8002 0 8002ldd 9975 tr 0 tr nzu lh 0 ram 8001 lr get e rh 0 lh ram 8001 get e lh 0 srt 0004 lr 0 lr ldd 8003 0 siaequiv 0 rallsymb exit 1 0 e1 ldd 2200 tr 0 exit 01 0000 exit eraseable 0 equiv 01 0000 equiv 0 hed 1 1 sub 9 calculate reg address 0 hed9 0 subr9stlexitz 0 lddmask 0 sdazzzz1 0 lddal0c stor 0 stor stdxxxx1 0 srt 0008 0 ral 8003 test char 0 slo90xxx region 0 bmi 0801 0 slt 0004 xxxx1 3 xxxx1aloc 8002 0 8002ral 9991 nex 0 nex bdoill is reg cha 0 sloh9xxx zzzz1 defined 3 zzzz1alo 1959 all 0 all slo1ixxx 0 bmiill exitz 0 ill ralexitz undefined 0 alo1ixxx 8002 or illegal 1 0 mask alo 9999 all 0 al0c aloc 8002 0 c ral 1650 nex 0 hed 1 sub 10 set cc 8 and punch 1 0 sub10stucongo 0 raup0010 0 aup84th 0 lddcongo h8sub 1 0 84th 00 0800 0000 constant 1 0 h8substd8exit 0 slt 0001 0 srt 0001 0 auph8xxx 0 stup0010 0 pchp0001 0 rautyp3a 8exit 1 1 1 sub 11 find and reserve best 1 0 hed0 0 sub11aupdrumt test drum 0 nzusex tag 0 stlexit is addr l 0 bd6di 0 ralseqll 0 bmi d0001 0 ral 8003 ssw l 0 di lddf d or i 0 sdaxxxx1 sub13 find optim 1 0 ssw ldd gda11 get table 0 srt 0005 ta strt 0 ta aloa1p1 8002 srch tabl 0 8002aup 0040 =0001 is a locat 0 =0001nzu add available 0 bmi yes 0 sup 8001 sw no strtlu 0 add alo1dxxx 8002 1 3 sw stlao swin multiple 3 sw sloamax swof exit 3 sw sloao swon 1 0 swin lddoff2 stsw get tlu st 1 0 swof nze max test end 0 aloamp1 sai of table 1 0 swon nze full is drum 0 alo 8001 full 0 alo10dxx sai 1 0 sai ldd1ixxx 8002 tlu avail 0 8002tlu 0040 =0002 table 0 =0002sloa1 ta 1 0 max rala1 tbl end-60 0 lddon test full 0 stdsw sai 1 0 stsw stdsw 8001 1 0 full hlt 0222 drum packd 0 ralexit set drum 0 ldd1ixxx tag to 1 0 stddrumt sex 0 sex alo 8001 8002 k+1 exit 1 0 yes lddst reserve 0 sdaeras location 0 rau 8003 found 0 tlu(0001 0 alofixav 8002 0 8002sup(0011 sca 0 sca bmi eras 0 aup 8001 0 slo1dxxx 8002 0 eras stu 0040 ca 0 ca slostmpy calculate 0 sdasau2 location 0 rslst found 0 aloeras 0 slt 0004 0 slo 8002 0 slt 0005 0 tlu.0001 0 stdrcall 0 aup 8002 0 studla 0 alosxavl 8002 0 8002ral.0010 asca 0 asca slorcall 0 slt 0007 0 aupsau2 0 mpy-50 0 alodla 0 alocnvrt 0 srt 0004 exit 1 0 gda11stdrerun given 0 rau 8002 dynamic 0 stddyna level-get 0 aup 8001 tabl start 0 srt 0001 address 0 rsl 8002 0 lddoff 0 stdsw 0 aupdyna rerun 1 0 .0001 07 0000 0000 group tabl 0 .0002 15 0000 0000 0 .0003 23 0000 0000 0 .0004 31 0000 0000 0 .0005 39 0000 0000 0 .0006 57 0000 0000 0 .0007 65 0000 0000 0 .0008 73 0000 0000 0 .0009 81 0000 0000 0 .0010 89 0000 0000 1 0 (0001 00 0000 0001 band table 0 (0002 00 0000 0010 0 (0003 00 0000 0100 0 (0004 00 0000 1000 0 (0005 00 0001 0000 0 (0006 00 0010 0000 0 (0007 00 0100 0000 0 (0008 00 1000 0000 0 (0009 01 0000 0000 0 (0010 10 0000 0000 0 (0011 99 9999 9999 1 0 f 00 0000 ssw constants 0 a1p1 aup 0000 =0001 0 ao hlt 0000 ao 0 amax aup 0490 =0001 0 apex 74 0000 0001 0 off2 sloamax swof 0 amp1 tlu 0500 0044 0 a1 tlu 0000 =0002 0 on sloao swon 0 sw hlt 0000 sw 0 st stu 0000 ca 0 fixavsup 0000 sca 0 stmpy 00 0550 0000 0 sau2 hlt 0000 sau2 0 rcallhlt 0000 rcall 0 dla hlt 0000 dla 0--50 00 0000 0050 0 cnvrt 00 3450 0000 0 rerunhlt 0000 rerun 0 dyna hlt 0000 dyna 0 off stlao swin 0 sxavlral 0000 asca 0 hed 1 1 sub 12 set blank l 8 1 0 sub12alop0010 0 alo87nth 0 stlp0010 8003 1 1 sub 13 cal optimum dynamic adr 1 0 hedy 0 sub13stdexitz store exit 0 bd5 i d or i 0 bd6ram + '+u 0 ral 1954 test core 0 srt 0002 d addr 0 rau 8002 tagged 0 srt 0002 0 sup 8003 0 nze ram 0 ralopreg set opreg 0 alo1ixxx to n + 1 0 stlopreg ram 0 ram ramoptim 0 slt 0002 clear op 0 sup 8003 code 0 slt 0001 0 slo 8002 0 slt 0001 0 alo 8001 0 srt 0003 seo 0 i ramoptim i 0 bd2shop shift test 0 slt 0004 seo + '+u 0 seo stlxxxx1 save ev od 0 ralopreg 0 div2ixxx 0 rau 8003 0 aloxxxx1 0 nzu r8 0 slt 0002 0 ral 8002 r8 0 r8 srt 0008 get base 0 aloopreg plus delta 0 div50xxx 0 ral 8003 exitz 1 0 shop bd3 xas ir test 0 ralp0007 0 srt 0004 digit of 0 slt 0009 d address 0 slo 8002 0 tluu0001 0 alogu 8002 0 8002ral 9969 top 0 top slt 0002 0 lddoptim is op srd 0 bd4 seo 0 slt 0004 seo srd 1 0 xas ralp0007 tlu 0 srt 0004 d address 0 slt 0006 0 slo 8002 0 tlui0001 0 alogxd 8002 0 8002ral 9968 nxt 0 nxt slt 0004 seo 1 0 u0001 00 2322 2524 shift 0 u0002 10 0706 0706 optimizing 0 u0003 20 0706 0908 table 0 u0004 30 0908 1110 0 u0005 40 1110 1312 0 u0006 50 1312 1514 0 u0007 60 1514 1716 0 u0008 70 1716 1918 0 u0009 80 1918 2120 0 u0010 90 2120 2322 1 0 i0001 39 9906 0600 x accum 0 i0002 79 9907 0700 add sub 0 i0003 80 0008 0800 table 0 i0004 80 0106 0600 0 i0005 80 0209 0800 0 i0006 80 0308 0900 0 i0007 90 5908 0800 0 i0008 99 9909 0900 1 0 gu ral 0000 top constants 0 gxd ral 0000 nxt 0 hed 1 1 sub 17 calc 800x equivalent 1 0 hedx 0 sb17dldddeq di d equiv 0 sb17ilddieq di i equiv 0 di stdxxxx1 save tag 0 stuexity save exit 0 stlxxxx2 save 800x 0 lddxxxx1 sub13 calc optim 0 sda stlequiv dynam addr 0 div2ixxx 0 stuxxxx1 store even 0 raloptim odd factor 0 bmi xm 0 lddexitz branch if 0 bd5d i arithmetic 0 d ralxxxx2 op code 0 slo8001 and lessen 0 nzexm even 8001 0 ralxxxx1 data da 0 nzeex by 2 or 0 ral48 alo increase 0 i ralequiv any 800x 0 alo2ixxx inst da 0 stlequiv xm by 2 0 xm ralxxxx1 0 nzeod ev add to da 0 od ral8002 eo possible 0 ev ral8003 eo even or 0 eo sloxxxx2 odd factor 0 nzeex add1 for 8002 0 ex ralequiv exity and 8003 d 0 add1 ral1ixxx alo and i das 0 alo aloequiv exity 1 0 deq 00 0088 sda 0 ieq 00 0009 sda 0 8001 00 0000 8001 0 8002 00 0000 8002 0 8003 00 0000 8003 0 48 00 0000 0048 0 hed 1 1 sub 18 index address 1 0 hedw 0 indexstlxxxx1 store addr 0 stuexity store exit 0 rau 1954 get d tag 0 slt 0007 clear opcd 0 aloindxi 0 lddexity 0 bd5d i d or i 0 i slt 0002 0 bd6drmi cori test core 0 drmi nzucomp1 or drum 0 srt 0001 a 0 cori nzudtag and i tag 0 srt 0002 chnge 4000 0 alo 8002 a to 800 0 dtag sup 8003 0 nzecomp2 0 ral 8001 set to mpy 0 slt 0001 cord itag by200 0 d srt 0009 positn tag 0 bd6drmd cord testdrm or 0 cord mpy0200i a core 0 drmd slo 8002 0 nzu a is there a 0 sup2ixxx 0 lddexity test 80xx 0 bd7 800x or 0 bmidax d80xx drum 0 d80xxldd400ix tag 8 or c 0 stdindxi 0 nzudax a test b c 0 800x nzu 0945 d80xx is it b 0 dax ral4000i a tag a andc 0 a aloxxxx1 exity 0 400ix 00 0000 0400 1 0 comp1stuitagw 1620r save tag 0 comp2stditagw 1620r 0 1620rrau 1952 0 nzu clrit 0 rau 1954 test ir 0 siaxxxx2 ir op code 0 tlu)0001 0 aloopsrh 8002 0 8002sup)0013 ars 0 ars srt 0004 0 nzu clrit 0 ral 1954 clr i-tag 0 srt 0002 from 0 slt 0002 instructn 0 stlp0004 0 std 1954 zero i-go 0 stup0003 dnb c find locat 0 clritstuitagw 0954 error 0 opsrhsup 0000 ars 0 itagwhlt 0000 itagw 1 0 )0001alfaxa soap2 tagged 0 )0002alfaxb soap2 i-address 0 )0003alfaxc soap2 op code 0 )0004alfraa soap2 search 0 )0005alfrab soap2 table 0 )0006alfrac soap2 0 )0007alfrsa soap2 0 )0008alfrsb soap2 0 )0009alfrsc soap2 0 )0010alfsxa soap2 0 )0011alfsxb soap2 0 )0012alfsxc soap2 0 )0013alf99999 soap2 table end 0 exity 01 0000 exity eraseable 0 hed 1 1 sub 19 process location 1 0 regg0925 0925 0 regj0928 0928 0 regk0931 0931 0 regl0933 0933 1 0 heda 0 proclstdexitx store exit 0 rau 1951 is l blank 0 nzunb 0 aloseqll 0 bmiblnk 0 lddtcori 0 bdok0001 l0003 0 blnk raudrumt 0 nzud0002 b 0 b ralopreg setl blank 0 setl slt 0004 set l 0 lddp0008 to or 0 sdap0008 0 ralseqll 0 bmiexitx 0 aloctrsq 0 stlseqll exitx 0 nb lddg subr4 what is l 0 g0001ral 1957 k0001 absolute 0 g0002alok subr9 0 g0003lddj subr6 symbolic 0 g0101lddj subr6 0 k0001lddl subr5 test range 0 k0002rau87nth x reg error 0 x aupp0010 set blank 0 stup0010 setl l8 0 l0001stlopreg setl drum addr 0 l0002stltyp3a 800x 800x loc 0 l0003lddorceq 89x core addr 0 l0004rau87nth x other 0 80xxlrau87nth x 80xx addr 0 800x lddorxeq 89x 0 89x stdopreg x 0 j0001ralequiv k0001 sym defind 0 j0002rald sub11 sym undef 0 d0001stlopreg ss s eq found 0 d0002rau87nth x drum paked 0 ss auphsymb store 0 alolsymb symbol 0 lddb subr7 1 0 g 00 0000 g0001 constants 0 k nop 1957 k0001 0 j 00 0008 j0001 0 l 00 0000 l0001 0 d 00 0090 d0001 0 86th 00 0008 0000 0 87nth 00 0000 8000 0 exitx 01 0000 exitx eraseable 0 opreg 00 0000 0000 0 drumt 01 0000 drumt 0 orceq 01 0000 orceq 0 orxeq 01 0000 orxeq 0 hed 1 1 sub 20 process data address 1 0 regd0937 0937 proc d 0 regf0939 0939 0 regg0941 0941 0 regj0944 0944 0 regk0946 0946 0 regl0949 0949 1 0 hedb 0 procdstdexitx store exit 0 rau 1952 0 nzunb 0 aloseqdd 0 bmi j0001 0 rald sub11 find 0 d0001stlorbal l0004 optimum d 0 d0002rau88th x drum paked 0 bt lddoptim is op 0 bd1cksqd 0 stlopreg cksqd 0 x aupp0010 set blank 0 stup0010 cksqd 0 cksqdralseqdd 0 bmiexitx 0 aloctrsq 0 stlseqdd exitx 0 nb lddg subr4 what is d 0 g0001ral 1958 j0001 0 g0002aloj subr9 0 g0003lddk subr6 symbolic 0 g0101lddk- subr6 0 j0001lddl subr5 test range 0 j0002rau88th x reg error 0 l0001aupaxd index drum addr 0 l0002aupax8a index test tag 0 l0003aupaxc index core addr 0 l0004slt 0004 sd other 0 80xxdaupax8t index 80xx addr 0 800x slt 0004 set 80xx d 0 lddp0007 0 sdap0007 0 srt 0004 0 aupxeq sb17d get 800x e 0 scd slt 0004 set core d 0 lddp0007 0 sdap0007 0 srt 0004 0 lddceq sub13 get core e 0 sceq stlorceq bt save core 0 k0001stdpchex k0003 0 k0002ralequiv j0001 0 k0003ralf sub11 0 f0001stleq ss save eq 0 f0002studdrmt j0002 drum paked 0 ss auphsymb store 0 alolsymb symbol 0 ldd subr7 0 raleq l0001 0 sd lddp0007 set d addr 0 sdap0007 0 srt 0004 bt 1 0 d 00 0088 d0001 constants 0 g 00 0000 g0001 0 j nop 1958 j0001 0 l 00 0000 l0001 0 f 00 0088 f0001 0 k 00 0089 k0002 0-k- 00 0089 k0002 0 axd 00 0888 d0001 0 axc 00 0098 scd 0 ax8t 00 0988 l0004 0 ax8a 00 0988 800x 0 xeq stlorxeq bt 0 ceq 00 0098 sceq 0 88th 00 0000 0800 0 eq 01 0000 eq eraseable 0 orbal 01 0000 orbal 0 hed 1 1 sub 21 process instr address 1 0 regd0953 0953 proc i 0 regf0955 0955 0 regg0958 0958 0 regj0960 0960 0 regk0962 0962 0 regl0965 0965 1 0 hedc 0 procistdexitx store exit 0 rau 1953 is i blank 0 nzunb 0 aloseqii 0 bmi j0001 0 rau 1952 is d blank 0 nzudnb 0 aupdrumt 0 nzug0002 0 ralorbal l0004 tag 0 dnb rald sub11 find best 0 d0001stlorbal l0001 found 0 d0002ralp0010 x drum paked 0 x alo89th 0 stlp0010 cksqi 0 nb lddf subr4 what is i 0 f0001ral 1959 j0001 absolute 0 f0002aloj subr9 0 f0003lddk subr6 symbolic 0 f0101lddk subr6 0 j0001lddl subr5 test range 0 j0002ralp0010 x reg err0r 0 l0001aupaxd index drum addr 0 l0002aup 8002 800x 800x 0 l0003aupaxc index core addr 0 l0004lddp0007 other 0 siap0007 mor 0 80xxinop 0000 l0004 80xx iaddr 0 800x aloindxi 0 alo 8001 0 lddp0007 0 siap0007 0 ral 8003 0 aupxeq sb17i 0 90xx lddp0007 set core 0 siap0007 address 0 lddceq sub13 get core e 0 k0001ralequiv j0001 sym defind 0 k0002ralg sub11 sym undef 0 g0001aupaxds index found best 0 g0002ralp0010 x drum paked 0 ldd lddp0007 si 0 si siap0007 0 ralxxxx1 0 auphsymb store 0 alolsymb symbol 0 lddmor subr7 0 mor lddorbal set or 0 stdopreg cksqi 0 cksqiralseqii bmiexitx 0 aloctrsq 0 stlseqii exitx 0 sceq stlorceq mor save core 1 0 d 00 0089 d0001 constants 0 f 00 0000 f0001 0 j nop 1959 j0001 0 k 00 0099 k0001 0 l 00 0000 l0001 0 g 00 0089 g0001 0 89th 00 0000 0080 0 axd 00 0089 l0004 0 axc 00 0099 90xx 0 axds 00 0089 ldd 0 xeq stlorxeq mor 0 ceq 00 0009 sceq 0 hed 1 1 sub 2 reserve unreserve 1 0 hed2 0 subr2stdexity 0 stln store n 0 slo 8001 0 aup 8003 0 srt 0003 0 stux save group 0 sup 8001 0 slt 0001 0 stup save band 0 sup 8001 0 slt 0002 0 mpy51xxx get 0 srt 0001 table 0 ldd gda11 0 slt 0001 0 stuany 0 srt 0002 0 slo 8002 0 srt 0006 0 alo 8001 0 aloh5 0 nzu slt 0 alo5000 slt 0 slt slt 0002 0 alobgin2 0 stla393 0 rauany 0 aupx 0 alop 0 slt 0004 0 aloc1 get slt 0 stlb0002 and srt 0 lddc2 1nstructns 0 sdaspr 0 aupc3 su and ral 0 su stusa 0 aupc4 8003 0 8003ral 9992 b0002 0 b0002slt 0009 xx 0 xx alo 8003 0 rau 8002 0 slt 0001 0 srt 0001 0 aupw spr 0 spr srt 0009 sac 0 sac aup 8002 sa 0 sa stu 9983 b0001 1 0 b0001raln is n zero 0 nze1or50 exity 0 1or50slo1ixxx next reduce n 0 next stln eithr by 1 0 eithrrausa eith2 is ai 0 eith2supa393 at band 0 bmi tpl end yes 0 aup 8001 no 0 aup su 0 00 0008 0000 1 0 tpl aup 8001 band end 0 alo 8001 test tabl 0 suplast end 0 bmi tp 0 aup 8001 no step 0 alo50d to nxt bnd 0 stla393 0 aup su 0 00 0018 0000 1 0 tp lddbgin2 0 stda393 tpr 0 tpr ralspr 0 sloc2 is p 9 0 nze zp 0 aloc5 0 lddc1 0 sdab0002 0 stlspr 56 0 56 rausa sz reduce ai 0 sz sup su by 482 0 00 0482 0000 1 0 zp lddc1 set p to 0 stdb0002 zero 0 lddc7 0 stdspr 78 0 78 rausa 178 reduce ai 0 178 sup su by 481 0 00 0481 0000 1 0 c1 slt 0000 xx constants 0 c2 srt 0009 sac 0 c3 stu 0000 b0001 0 c4 44 0000 0001 0 a393 stu 0482 b0001 0 c5 srt 0010 sac 0 c7 srt 0000 sac 0 w hlt 0000 w 0 p hlt 0000 p 0 n hlt 0000 n 0 spr hlt 0000 spr 0 sa hlt 0000 sa 0 x hlt 0000 x 0 51xxx 00 0000 0005 0 last stu 0482 b0001 0 h5 50 0000 0000 0 5000 00 0000 5000 0 bgin2stu 0032 b0001 0 50d 00 0050 0000 0 hed2 0 hed 1 1 optimizing table 1 0 n0001 01 0004 0498 nop hlt 0 n0002 02 3323 2299 ufa 0 n0003 07 0005 0598 03 to 07 0 n0004 08 3312 1299 lib ill op 0 n0005 09 3302 0299 ldi 0-n0006 11 3305 0499 aup sup 0 n0007 13 0000 0099 rsr 0 n0008 14 3311 1099 div 0-n0009 18 3305 0499 15 to 18 0 n0010 19 3321 2099 mpy 0 n0011 20 5403 0399 stl 0 n0012 21 4503 0399 stu 0 n0013 23 3403 0399 sda sia 0 n0014 24 3303 0399 std sfm 0 n0015 25 4405 0598 nts 0 n0016 26 0004 0498 bin 0 n0017 27 0005 0598 set wts 0 n0018 28 3312 1299 sib 0 n0019 29 3302 0299 sti 0 n0020 30 0000 9888 srt sps 0 n0021 31 0000 8888 srd 0 n0022 33 3327 2699 fad fsb 0 n0023 34 3300 0099 fdv 0 n0024 36 0000 9888 slt sct 0 n0025 38 3327 2699 fam fsm 0 n0026 39 3300 0099 fmp 0 n0027 43 3304 0498 40 to 43 0 n0028 44 3404 0598 nzu 0 n0029 45 4305 0498 nze 0 n0030 46 3304 0498 bmi 0 n0031 47 3305 0598 bov 0 n0032 49 3304 0498 nzc bmc 0 n0033 53 0000 0988 50 to 53 0 n0034 54 4405 0598 nef 0 n0035 57 0005 0598 55 to 57 0 n0036 59 0000 0988 axc sxc 0-n0037 61 3305 0499 rau rsu 0 n0038 63 3305 0699 tle 0 n0039 64 3311 1099 dvr 0-n0040 68 3305 0499 65 to 68 0 n0041 69 3303 0399 ldd 0 n0042 78 0000 0099 70 to 78 0 n0043 79 0005 0599 rpy 0 n0044 83 0000 0988 80 70 83 0 n0045 84 3305 0699 tlu 0 n0046 87 0005 0598 85 to 87 0 n0047 89 0000 0988 rac rsc 0 n0048 90 4405 0598 bd0 0 n0049 00 3306 0599 nac 0 n0050 00 5406 0598 elu neu 0 n0051 98 3305 0598 bd1 to bd8 0 n0052 99 4405 0598 bd9 0 n0053 00 6503 0399 anc 1 1 symbolic op table 1 0 1650seq 0 61 7366 4806 alf 0 61 7376 0150 alo 0 61 7473 0170 aml 0 61 7563 8920 anc 0 61 8477 0100 aup 0 61 8761 0500 axa 0 61 8762 0520 axb 0 61 8763 0580 axc 0 62 6476 0900 bdo 0 62 6490 0900 bd0 now ok 0 62 6491 0910 bd1 0 62 6492 0920 bd2 0 62 6493 0930 bd3 0 62 6494 0940 bd4 0 62 6495 0950 bd5 0 62 6496 0960 bd6 0 62 6497 0970 bd7 0 62 6498 0980 bd8 0 62 6499 0990 bd9 0 62 6975 0260 bin 0 62 7361 4802 bla 0 62 7379 4801 blr 0 62 7461 0410 bma 0 62 7462 0430 bmb 0 62 7463 0490 bmc 0 62 7469 0460 bmi 0 62 7677 4814 bop 0 62 7685 0470 bov 0 62 8283 0570 bst 0 64 6985 0140 div 0 64 7361 4815 dla 0 64 8579 0640 dvr 0 65 7384 8643 elu 0 65 7884 4804 equ 0 66 6164 0320 fad 0 66 6174 0370 fam 0 66 6485 0340 fdv 0 66 7477 0390 fmp 0 66 8262 0330 fsb 0 66 8274 0380 fsm 0 68 6564 4808 hed 0 68 7383 0010 hlt 0 73 6464 0690 ldd 0 73 6469 0090 ldi 0 73 6962 0080 lib 0 74 7788 0190 mpy 0 75 6163 8565 nac 0 75 6566 0540 nef 0 1700seq 0 75 6584 8642 neu 0 75 7677 0000 nop 0 75 8382 0250 nts 0 75 8961 0400 nza 0 75 8962 0420 nzb 0 75 8963 0480 nzc 0 75 8965 0450 nze 0 75 8984 0440 nzu 0 77 6183 4807 pat 0 77 6368 0710 pch 0 77 8283 4812 pst 0 79 6161 0800 raa 0 79 6162 0820 rab 0 79 6163 0880 rac 0 79 6173 0650 ral 0 79 6174 0670 ram 0 79 6184 0600 rau 0 79 6279 4811 rbr 0 79 6364 0700 rcd 0 79 6391 0720 rc1 0 79 6392 0750 rc2 0 79 6393 0780 rc3 0 79 6479 4813 rdr 0 79 6482 0860 rds 0 79 6491 0700 rd1 0 79 6492 0730 rd2 0 79 6493 0760 rd3 0 79 6567 4803 reg 0 79 6573 4809 rel 0 79 6578 4810 req 0 79 7788 0790 rpy 0 79 8261 0810 rsa 0 79 8262 0830 rsb 0 79 8263 0890 rsc 0 79 8273 0660 rsl 0 79 8274 0680 rsm 0 79 8279 0120 rsr 0 79 8284 0610 rsu 0 79 8361 0050 rta 0 79 8363 0030 rtc 0 79 8375 0040 rtn 0 79 8382 8205 rts 0 79 8664 0550 rwd 0 82 6383 0360 sct 0 82 6461 0220 sda 0 82 6482 0850 sds 0 82 6578 4816 seq 0 82 6583 0270 set 0 1750seq 0 82 6674 5019 sfm 0 82 6961 0230 sia 0 82 6962 0280 sib 0 82 7376 0160 slo 0 82 7383 0350 slt 0 82 7473 0180 sml 0 82 7782 5630 sps 0 82 7964 0310 srd 0 82 7983 0300 srt 0 82 8364 0240 std 0 82 8369 0290 sti 0 82 8373 0200 stl 0 82 8384 0210 stu 0 82 8477 0110 sup 0 82 8761 0510 sxa 0 82 8762 0530 sxb 0 82 8763 0590 sxc 0 82 8875 4805 syn 0 83 6177 4817 tap 0 83 7365 0630 tle 0 83 7384 0840 tlu 0 83 8876 7879 tyo 0 84 6661 0020 ufa 0 86 6482 0870 wds 0 86 7991 0710 wr1 0 86 7992 0740 wr2 0 86 7993 0770 wr3 0 86 8361 0070 wta 0 86 8374 0560 wtm 0 86 8375 0060 wtn 0 86 8382 5307 wts 0 87 6679 4818 xfr 0 95 6364 4819 5cd 0 00 0000 0000 0 00 0000 0000 0 00 0000 0000 0 99 9999 9999 table end 0 seq 1 1 control program 1 0 1000lddreadc sub16 entry 1 0 readcrcd 1999 1998 read card 0 1998rau 1951 transfer 0 stdp0001 alphabetic 0 stlindxi 0 ldd 1952 input 0 stdp0002 to 0 ldd 1953 output 0 stdp0003 0 ldd 1954 0 stdp0004 0 ldd 1955 0 stdp0005 0 ldd 1956 0 stdp0006 count 0 countralp0009 step 0 alo1ixxx card 0 stlp0009 number 0 rau 1960 0 stltyp3a zro testwd 0 srt 0002 store 0 slo 8002 control 0 stdp0010 info 0 alo 8003 0 auptrans 0 stup0008 intox 0 intoxalotorg 8002 transfer 0 8002nop 0999 9999 to type 0 intoxalotorgp first or multi 0 intoxalotorgp test pass cntrl 1 0 torg 00 0000 t0001 1 0 torgp 00 0000 o0001 constants 1 1 1 punch routine 1 0 hed+ 0 punchraltyp3a test typ3 0 nze h8pre 0 raup0010 add contrl 0 aup86tha preh8 8 to p0010 0 h8preraup0010 preh8 0 preh8lddset5 h8sub 3 set5 ralpchex lit 1/cd exit 3 set5 nzepexit 5/cd 5/cd entry 3 set5 lddbrnch rstor a typ3 lit 0 5/cd bov 0 raup0010 test neg 0 slt 0001 instrcyn 0 auph8xxx 0 bovneg 0 ramp0007 posit positive 0 neg rsmp0007 posit negative 3 positstl+0006 *0001 stor inst 0 *0001ralp0008 0 ldd 8003 loc 3 loc sda-0005 *0002 stor loc 0 *0002rauposit 0 sup+max test pch 0 nzu 5cd 0 aup+amp1 + up store 0 + stuposit instrctns 0 auplocm 0 stuloc pexit 1 0 5cd rau-0003 0 srt 0002 set 5/cd 0 alo-0005 locations 0 srt 0004 in words 0 alo-0004 7-8 of 0 stl+0008 output cd 0 slt 0002 0 aup-0002 0 srt 0004 0 aup-0001 0 slt 0002 0 stu+0007 0 pch+0001 pch 5/cd 0 ram+0001 up card 0 alo1ixxx number 0 stl+0001 0 raurset + 1 0 pexitralpchex lit test litrl 0 lit nzetryit symbl no 0 rauitagw hld5c + '+u 3 hld5cnzuitag readc 3 hld5cnzuitag tsful 0 tsfullddtrans test full 0 bd2 readc symbl tabl 0 lddpexit 0 stdset5 suspend 0 lddrsltt 5/cd punch 0 stdhld5c readc 0 rslttnzuitag tsful 0 itag stlwhere 0 bmisecnd hirst 0 secndlddsaved 0 stdopreg 0 stlitagw pexit 0 hirstrsu 8003 0 stuitagw 0 raup0007 0 slt 0002 0 ral 8003 0 srt 0006 0 stlsaved 0 ramitagw 0 slt 0002 0 aml 8001 0 slt 0003 0 aupnzsym 0 stu 1954 0 rau 1953 0 std 1952 0 stl 1951 0 ldd subr4 0 00 0000 /0001 0 /0001ldd 1959 set58 0 set58std 1958 1998 0 /0002ldd 1959 set58 0 /0003nop 0000 1998 0 /0101nop 0000 1998 0 tryitrauitagw 0 nzu litc 0 bmisecnd 0 lddp0007 0 stdabsol 0 lddp0002 0 stdlitsm 0 stdwhere hirst 1 0 litc rauwhere 0 stlp0002 0 nzumoved 0 ral 1952 ornry 0 movedlddabsol trsfr data 0 stdp0007 to normal 0 rallitsm area 0 stuwhere ornry 0 ornrysrt 0006 test neg m 0 sloalfm 0 nzeh8x 0 ralh88 st88 0 h8x ralh8xxx st88 0 st88 aupddrmt drum paked 0 nzu stlit 0 alo87nth stlit 0 stlitstlp0010 0 ralp0009 0 alo1ixxx 0 stlp0009 0 stup0001 0 ralp0007 0 lddtran1 0 sdap0008 0 raup0005 0 ldd compr 0 raup0006 0 lddstp7 0 stdxxxx2 sct 0 stp7 stupchex 0 stdp0003 0 lddltalf 0 stdp0004 rauset5 are we in supbrnch 5cd mode nzupunch lddrset5 stdset5 punch rset5lddbrnch rstor rstorstdset5 5/cd 0 +max stl+0006 *0001 0 +amp1stl+0007 *0001 0 locm 02 0959 0001 0 loc hlt 0000 loc 0 symflnzuitag readc 0 h88 88 0000 0000 0 alfm alf m soap2 0 ltalfalflit soap2 0 tran1 09 0000 9991 0 nzsym 75 8960 6000 1 convert double digit numeric 1 word to single digit form 0 comprstdxxxx2 0 stlp0007 sct 0 sct sct 0000 ckzer 0 ckzernzu xxxx2 0 slt 0001 0 ral 8003 0 aupp0007 0 slt 0001 0 stup0007 0 rau 8002 ckzer 0 hed 1 0 setccraureadc sub10 sudo exit 1 0 1800lddreadc sub22 manual pst 1 0 1900lddreadc sub14 manual pat 1 0 t0004stdtyp3a t0001 set testwd 0 t0001ldd subr3 type 0 0 ldd procl 650 0 ldd procd command or 0 lddpunch proci constants 1 1 0 t0002rau 1954 0 supltalf 0 nzusetcc cdnod 0 cdnodralp0009 0 slo1ixxx 0 stlp0009 readc 1 1 1 multipass control section 1 0 test ral 8002 if zero 0 slt 0003 enter 0 nzu 8001 multipass 0 lddhhold restore 0 std0000h card numbr 0 lddnhold and 0 stdp0009 heading 0 ral 8000 pst if 0 bmi zero 8000 is 0 lddzero sub22 minus 1 0 zero ldd1998x sub16 zero sym t 1 0 firstldd8d888 alter 0 stdtrans control 0 lddintop for cards 0 stdintox test 2 thru x 1 0 o0002raureadc sub10 comments 0 o0003nop 0000 o0005 relocate 0 o0004stdtyp3a o0001 set testwd 0 o0001ral 1954 type 0 0 sloc0041 test hed 0 slt 0006 0 nzu 0808 0 rau 1951 0 aloo5 look 0 o0005rau 1952 control 0 aloo6 look exits for 0 o0006rau 1953 examining 0 aloo7 look loc data 0 o0007ralp0010 and inst 0 stutyp3a zro testwd 0 alo8and8 addresses 0 stlp0010 punch 0 look nzu 8001 blank 0 stdexitx 0 lddo11 0 sdao11 0 rau 8003 0 lddo8 subr4 0 o0008nop 0000 exitx 0 o0009nop 0000 exitx regional 0 o0010lddo11 subr6 symbolic 0 o010 lddo11 subr6 0 o0012nop 0000 exitx undefined 0 o0011ralequiv defined or 0 slt 0004 previously 0 aupexitx establishd 0 aup8ixxx 0 lddp0007 8003 0 o0013lddp0008 cause drum 0 sdap0008 equivalent 0 rsl3000i fix to be pchd 0 o0014sdap0007 as l d or 0 rsl0200i fix i and 5 6 0 o001 srt 0004 or 7 to be 0 siap0007 punched 0 rsl0010i fix accordngly 0 fix alop0008 0 stlp0008 exitx 1 0 8d888 08 0000 8880 0 intopalotorgp test 0 1998xnop 0800 1998 0 o5 nop 0008 o0005 constants 0 o6 nop 0089 o0006 0 o7 nop 0099 o0007 0 8and8 00 8008 0000 0 o8 nop 0000 o0008 0 o11 nop 0000 o0011 eraseable 1 1 relocate routine 1 0 hedt 0 t0003ldd subr3 process op 0 ral 1951 is l fixed 0 slt 0002 0 nzu rel 0 rau 1957 fixed l 0 sup4000i drum core 0 bmi fc 0 aup 8001 res fixed drum 0 fc ral 1957 setl + '+u 0 sr ral 1951 setl 0 setl slt 0004 0 lddp0008 0 sdap0008 prod 0 rel rau 1957 drum core 0 sup4000i 0 bmi rc 0 aupddiff relocate 0 bmi bl drum addr 0 aup4000i res 0 res stu 1951 0 stlw 2 0 lddsr subr2 0 rc ral 1957 relocate 0 alocdiff core 0 slo9060 0 bmi bl 0 alo 8001 setl 0 bl rauprod sub12 bl4nk l 1 0 regj0944 0944 d type 2 0 regg0941 0941 1 0 prod lddproi set d exit 0 stdexitx 0 rau 1952 what is d 0 lddh subr4 0 h0001ral 1958 relocate 0 slo4000i d 0r c 0 bmi 1564 1563 0 h0002srt 0008 c d or f 0 aup1500 8003 0 1563ralcdiff cdd c 0 1564ralddiff cdd d 0 1566ral 1958 j0001 f 0 cdd alo 1958 j0001 0 h0003nop 0000 g0003 symbolic 0 h0101nop 0000 g0101 1 0 regj0960 0960 i 0 regf0955 0955 1 0 proi lddpunch set i exit 0 stdexitx 0 rau 1953 what is i 0 lddm subr4 0 m0001ral 1959 relocate 0 slo4000i d or c 0 bmi 1568 1567 0 m0002srt 0008 c d or f 0 aup1504 8003 0 1567ralcdiff cdi c 0 1568ralddiff cdi d 0 1570ral 1959 j0001 f 0 cdi alo 1959 j0001 0 m0003nop 0000 f0003 symbolic 0 m0101nop 0000 f0101 1 0 9060 00 0000 9060 0 h 00 0000 h0001 0 1500 00 0000 1500 0 m 00 0000 m0001 0 1504 00 0000 1504 0 xxxx1 01 0000 xxxx1 eraseable 0 hed 1 1 bop routine 1 0 0814lddsetcc sub16 1 1 blr routine 1 0 0801ral 1959 blr 0 blr lddzeroo blr1 0 zeroo 00 0000 0000 0 blr1 stdw 2 0 slo 1958 0 aup 8001 0 sup4000i 0 bmi setcc 0 aup 8001 0 lddsetcc subr2 1 1 rbr routine 1 0 0811rauddiff 0 alo 1959 blr 1 1 dla routine 1 0 0815lddits50 dla 0 std1or50 routine 0 ldd24 0 std56 2 modfy 0 ldd35 subr2 0 std78 2 0 lddtpr 2 0 stdeithr 0 lddpreex 0 stdsetcc 0802 0 preexldd13 0 std56 2 reset 0 ldd08 exits 0 std78 2 0 ldd964 0 stdeithr 0 lddslo11 0 std1or50 0 lddpcha 0 stdsetcc 8001 0 its50slo50xxx next2 0 24 rausa 2 su 2 0 35 rausa 2 0 aup1dxxx su 2 0 08 rausa 2 178 2 0 964 rausa 2 eith2 0 slo11slo1ixxx next2 0 pcha raureadc sub10 0 13 rausa 2 sz 2 1 1 bla routine 1 0 0802ral 1959 0 studrumt 0 stdddrmt 0 ldd(0010 blr1 1 1 reg routine 1 0 hedr 0 0803rau 1952 0 ldd stor9 0 alost 0 aup 1958 0 auph9xxx 8002 add def 9 0 8002stu 9999 0801 0 st stu 1650 0801 store reg 0 hed 1 1 equ req and syn routine 1 0 hedz 0 eque 1958 0 0804lddh8xxx both 0 0805lddh9xxx both 0 both stdtag 0 rau 1953 what is 1 0 lddz subr4 0 z0001ral 1959 y0001 absolute 0 z0002aloy subr9 0 y0001stle 0 std 1959 td 0 y0002ralp0010 bp reg error 0 z0003lddw subr6 symbolic 0 z0101lddw subr6 0 w0001ralequiv y0001 s defined 0 w0002ralp0010 bp s undefind 1 0 td rau 1952 head d 0 ldd sub15 and equate 0 lddv subr6 to e 0 v0001aloe sd 0 v0002aloe symb und 0 stlxxxx1 0 ral 1952 test lit 0 slt 0002 symbol 0 nzuok 0 stlpchex set testw 0 rale set l 0 lddp0007 0 slt 0004 0 sdap0007 0 ldd1 0 stdreadc ok set return 0 ok ralxxxx1 0 aups 6 sd 0 1 lddrdcd* go to 0 stdreadc pexit pch lit 0 sd lddtt subr7 0 rdcd*rcd 1999 1998 1 0 tt lddtag test tag 0 bdosetcc 0801 1 0 0810lddh8xxx 0 stdtag routine 0 ral 1959 is i 0 slo4000i drum 0 cor 0 bmid 0 alocdiff cd 0 d aloddiff cd 0 cd alo4000i y0001 1 0 bp alo88 by pass 0 stlp0010 setcc 1 0 z 00 0000 z0001 constants 0 y nop 1959 y0001 0 w 00 0099 w0001 0 v 00 0089 v0001 0 88 00 8000 0000 1 0 tag 01 0000 tag eraseable 0 hed 1 1 alf routine 1 0 0806ldd procl 0 ldd 1952 0 stdp0007 0 ral 1953 0 nzepunch 0 lddsoap2 by 0 stdp0003 punch soap2 1 0 soap2alfsoap2 so4p2 constant 1 1 pat routine 1 0 hedp 0 sub14stdexitx store exir 0 raua1 set for 0 alors1 1st hal 0 ldd avtb 0 raua2 set for 0 alors2 2nd half 0 lddexitx avtb of drum 0 avtb stdexit store exit 0 ldd85th set punch 0 stdp0010 8 0 stuxxxx1 0 aup35d 0 stubdmax 0 aup450d 0 stuamax 0 aup15d 0 stuamp5 0 sup 8003 loop 0 loop aupc1 8001 0 8001stl 9999 next set locat 0 next suptw1 0 nzu srs 0 aupc2 0 aloc3 8003 0 srs stlxxxx2 save rs 0 rauc4 0 aloxxxx1 8002 0 8002ldd 9998 8003 0 8003std 9997 tp 0 tp suptw2 0 nzu pun 0 aupc5 0 alo1dxxx 8002 0 pun pchp0001 0 ram 8002 0 slobdmax 0 nze tsten 0 alo 8001 0 alo5dxxx stlxx 0 tstenalo 8001 0 sloamax 0 nze exit 0 aloamp5 0 aupbdmax 0 aup50d 2 0 stubdmax stlxx 0 stlxxstlxxxx1 0 ralxxxx2 0 sloc7 loop 1 0 a1 ldd 0000 8003 0 a2 ldd 0004 8003 0 rs1 00 0000 0450 0 rs2 00 2000 2450 0 zp1 stup0001 nxt 0 zp9 stup0009 nxt 0 zp10 stup0010 nxt 0 c1 stlp0001 next 0 c2 stlp0009 next 0 c3 00 0500 0500 0 c4 stdp0002 tp 0 c5 stdp0010 tp 0 c7 00 1499 1499 0 tw1 stlp0007 next 0 tw2 stdp0008 tp 0 35d 00 0035 0000 0 450d 00 0450 0000 0 15d 00 0015 0000 0 5dxxx 00 0005 0000 0 85th 00 0080 0000 0 hed 1 rdr routine 1 0 0813rau 8002 zero 80023 0 lddsetcc unrav 0 unravstdzzzz1 store exit 0 stuxxxx1 0 aloi2 incrm get start 0 incrmstlzzzz2 store k 0 ldd subr1 to avail 0 ralzzzz2 0 sloi99 are we 0 nze zzzz1 done 0 alo 8001 0 alo astrk 0 00 0050 0050 0 astrkaupxxxx1 incrm 0 i99 00 0450 0489 0 i2 00 0000 0039 1 1 1 tap routine 1 0 hed) 0817lddtran1 comments stdp0008 raubb817 aloh8xxx sub10 0 bb817rau set test 1st 0 ral 1951 tap rcd vs 0 slo 9050 card 0 nzepass init no yes 0 setblset 9050 trsfr tape 0 sib 1951 1998 to cd area 0 set set 9050 read tape 0 rtn 8012 nts 0 nts nts 8001 0 nef exit 0 nze halt 0 slt 0001 reread 0 bst 8012 set routine 0 halt hlt 0000 9999 0 init lddcopy found 0 stdreadc routine 0 lddrwind set to 0 stdexit setbl process 0 rwindrwd 8012 finished 0 lddentr routine 0 stdexit 1 z 0 pass rau 8001 bypass 0 rtc 8012 nts routine 0 copy ralsetbl set 0 entr nop 0000 bb817 0 exit nop 0000 bb817 0 hed 1 1 pst routine 1 0 0812rau 1800 sub10 1 1 hed routine 1 0 0808ral 1952 0 srt 0008 heading 0 stl0000h setcc character 1 0 0000h 01 0000 0000h eraseable 1 1 rel routine 1 0 hedm 0 0809ral 1952 0 nze sdd drum 0 ral 1958 sdd and 0 sdd stlddiff core 0 ral 1953 deltas 0 nze scd 0 ral 1959 scd 0 scd stlcdiff setcc 1 0 ddiff 01 0000 ddiff eraseable 0 cdiff 01 0000 cdiff 0 hed 1 1 seq routine 1 0 0816rau 1951 0 nzu s9h 0 alo 1957 stll 0 s9h rsl 1954 stll 0 stll stlseqll 0 rau 1952 0 nzu s9i 0 alo 1958 stld 0 s9i rsl 1954 stld 0 stld stlseqdd 0 rau 1953 0 nzu s9j 0 ral 1959 0 slo9000 0 bmi cseqi 0 alo 8001 tuvwx 0 tuvwxlddh8xxx s9k 0 s9k stdtcori 0 stlseqii 0 rau 1960 0 srt 0001 0 sup 8003 0 nzenegsq 0 ram1ixxx stiix 0 negsqrsm1ixxx stiix 0 stiixstlctrsq setcc 0 s9j rsl 1954 tuvwx 0 cseqialo 8001 0 lddh9xxx s9k 0 9000 00 0000 9000 1 1 transfer card routine 1 0 hed* 0 0818rau sub10 xfr 0 rau 1952 test 0 nzu y blank trsf 0 stlp0007 0 ldd procd get start 0 ralretn z address 0 y raltw z 0 z aupposit must we 0 sup+min pch lastcd 0 nzu 8002 no 0 stlreadc 5cd + yes 0 retn rsm+0001 set id wd 0 stl+0001 negative 0 ralp0007 0 srt 0004 stor start 0 stl+0002 address 0 rali6 zero 0 ldd subr1 wds3-8 0 pch+0001 0 ram+0001 0 alo1ixxx 0 stl+0001 tw 0 tw lddrdcd 0 stdreadc 8001 rset exit 0 i6 00+0003 +0008 0 +min stl+0002 *0001 1 1 5cd routine 1 0 0819rau sub10 5/cd punch 0 rau 1952 insert id 0 nzu * if any 0 ral 1958 0 slt 0004 * 0 * aup 1953 and set cd 0 nzu skp no+ strt 0 alo 1959 sia 0 skp alo1ixxx sia 0 sia ldd+0001 0 sdazzzz1 0 sia+0001 0 raubrnch 0 stdset5+ 8001 0 brnchnzepexit 5/cd+ 1 0 0807rau 1900 sub10 1 sub 22 punch symbols and equvs 1 0 heds 0 sub22stdexitx set exit 0 raup0009 save card 0 stdxxxx1 numbering 0 stlp0001 blank out 0 stdp0005 locn and 0 stdp0006 comments 0 stdp0009 and number 0 ldd9d999 set nines 0 stdp0008 for pching 0 lddc0034 store equ 0 siap0004 as pseudop 0 rala see 0 see sloterm exit when 0 nze endst finished 0 alomore increment 0 stlxxxx2 8001 st locatn 0 8001aup 2000 test 0 test nzu see 0 sup 8003 0 stdp0002 if symbol 0 stup0010 is in tabl 0 ldd subr8 get equiv 0 rauequiv enter 0 aup1dxxx loop loop to 0 loop srt 0001 convert 0 sup 8003 numeric 0 srt 0001 equivalent 0 aup 8001 to alpha 0 nzuloop form 0 aloy store it 0 stlp0003 for punch 0 rau sub10 punch a 0 ralxxxx2 see 1 0 endstlddxxxx1 restore 0 stdp0009 exitx card numbr 1 0 a aups0000 test constants 0 term aups1100 test 0 more aups1101 test 0 y 99 9090 9090 0 hed 1 1 sub 16 initialization 1 0 sub16stdalpha 0 bd7 init 0 lddpchwd part reset pch 0 init ralrset+ 0 stdposit 5/cd pch 0 alolocm+ 0 stlloc + 0 raui3 0 stlp0009 zero numb 0 std0000h zero hed 0 ldd unrav make drum 0 rsu 8001 available 0 stuseqll 0 stdseqdd 0 stdseqii 0 ldd87nth 0 stdopreg 0 rali5 0 studrumt + '+u 0 stdddrmt 0 stditagw 0 auph8xxx undefine 0 stdtcori 0 std. undefine 0 std$ special 0 std, character 0 std= 0 std) 0 std* 0 std( 0 std' 0 std+ 0 std- 0 std/ 0 ldd subr1 0 lddpexit 0 stdpchwd part 0 part stdset5+ 0 lddsymfl 0 stdhld5c 0 ldd1198i restore 0 stdsymct sym count 0 rali1 zero out 0 stupchex 0 ldd subr1 symbol tab 0 ldd9d999 set con 0 stdtrans trols for 0 lddintoa assembly 0 stdintox alpha 1 0 i1 00s0001 s1100 0 i3 11 1111 1111 0 i5 00 1621 1649 0 9d999 09 0000 9990 0 intoaalotorg 8002 0 rset+stl+0002 *0001 0 +0001hlt 0000 9999 0 1198i 00 0000 0998 1 0 hed 1 1 sub 1 store k in fwa to lwa 1 0 hed1 0 subr1stdexitx store exit 0 stuxxxx1 store k 0 lddfwa set 0 sdafwa fwa 0 slt 0004 lwa 0 sdaxxxx2 addresses 0 raufwa 0 aloxxxx1 8003 0 8003stl 9999 next store k 0 next supxxxx2 end of 0 nzu exitx loop test 0 aup 8001 aup1d 0 aup1daup1dxxx 8003 1 0 fwa stl 9998 next constants 0 hed 1 1 load availability table subr 1 0 1999ral 1951 calculate 0 srt 0004 location 0 rau 8002 in avail 0 srt 0003 table 0 aup 8003 0 stuadd 0 sup 8001 0 srt 0007 0 ldd gda11 0 slt 0001 0 aupadd 0 srt 0006 0 aloc1 0 aupc3 8003 0 8003ldd 9995 8002 0 8002std 9994 tup 0 tup suptw 0 nzu readc 0 auptwp2 0 alo1dxxx 8003 0 tw ldd 1958 8002 0 twp2 ldd 1960 8002 1 0 50xxx 00 0000 0050 0 90xxx 00 0000 0090 0 0200i 00 0000 0200 0 3000i 00 0000 3000 0 4000i 00 0000 4000 0 1dxxx 00 0001 0000 0 2dxxx 00 0002 0000 0 h8xxx 80 0000 0000 0 h9xxx 90 0000 0000 0 3999i 00 0000 3999 0 32dxx 00 0032 0000 0 3dxxx 00 0003 0000 0 11ixx 00 0000 0011 0 2ixxx 00 0000 0002 0 4ixxx 00 0000 0004 0 8ixxx 00 0000 0008 0- 0040 99 9999 9999 table end 0- 0090 99 9999 9999 for 0- 0140 99 9999 9999 avail 0- 0190 99 9999 9999 tbl 0- 0240 99 9999 9999 0- 0290 99 9999 9999 0- 0340 99 9999 9999 0- 0390 99 9999 9999 0- 0440 99 9999 9999 0- 0490 99 9999 9999 1 0 c1 std 0000 tup constants 0 c3 ldd 1952 8002 1 ii00 00 0000 1600 0 pat 0 pst