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 1000 69 1950 1353 1 readcrcd 1999 1998 read card 1950 70 1999 1998 1998ldd 1951 transfer 1998 69 1951 1354 stdp0001 alphabetic 1354 24 1977 0980 ldd 1952 input 0980 69 1952 1355 stdp0002 to 1355 24 1978 0981 ldd 1953 output 0981 69 1953 1356 stdp0003 1356 24 1979 0982 ldd 1954 0982 69 1954 1357 stdp0004 1357 24 1980 0983 ldd 1955 0983 69 1955 1208 stdp0005 1208 24 1981 0984 ldd 1956 0984 69 1956 1209 stdp0006 1209 24 1982 0985 ralp0009 step 0985 65 1985 0989 alo1ixxx card 0989 15 0992 0997 stlp0009 number 0997 20 1985 0988 rau 1960 store 0988 60 1960 1015 srt 0002 control 1015 30 0002 0971 stup0008 info 0971 21 1984 0987 auptorg 0987 10 0990 0995 stlp0010 8003 transfer 0995 20 1986 8003 8003nop 0000 9999 to type 8003 00 0000 9999 1 punchpchp0001 readc punch read 1350 71 1977 1950 1 setccraureadc sub10 sudo exit 1400 60 1950 1405 1 1900lddreadc sub14 manual pat 1900 69 1950 1403 t0001lddx subr3 type 0 1990 69 0993 0996 1 x0001ldd procl 650 0913 69 1016 0969 ldd procd command or 1016 69 1019 0972 lddpunch proci constants 1019 69 1350 1453 1 x0002nop 0000 8003 pseudo op 0914 00 0000 8003 1 t0002raureadc sub10 type 1 com 1991 60 1950 1405 1 x 00 0000 x0001 0993 00 0000 0913 1 1 relocate routine 1 hedt t0003lddq subr3 process op 1992 69 1195 0996 q0002nop 0000 illop illegal op 0909 00 0000 1013 q0001ral 1951 is l fixed 0908 65 1951 1455 slt 0002 1455 35 0002 1211 nzu rel 1211 44 1165 1166 rau 1957 fixed l 1165 60 1957 1261 sup2000i drum core 1261 11 1014 1169 bmi fc 1169 46 1172 0973 aup 8001 res fixed drum 1172 10 8001 0979 fc ral 1957 setl fixed core 0973 65 1957 1311 sr ralxxxx1 setl set l 1450 65 1961 1311 setl slt 0004 1311 35 0004 1171 lddp0008 1171 69 1984 1187 sdap0008 prod 1187 22 1984 1237 rel rau 1957 drum core 1166 60 1957 1361 sup2000i 1361 11 1014 1219 bmi rc 1219 46 1222 1173 aupddif relocate 1222 10 0975 1179 bmi bl drum addr 1179 46 1182 1183 aup2000i res 1182 10 1014 0979 res stuxxxx1 0979 21 1961 1214 lddsr sub2r reserve l 1214 69 1450 1503 rc ral 1957 relocate 1173 65 1957 1411 alocdiff core 1411 15 1264 1269 slo9060 1269 16 1272 0977 bmi bl 0977 46 1180 1183 alo 8001 setl 1180 15 8001 1311 bl rauprod sub12 blank l 1183 60 1237 0991 1 regj0944 0944 d type 2 regg0941 0941 1 prod lddproi set d exit 1237 69 1190 1193 stdexitx 1193 24 1196 0999 rau 1952 what is d 0999 60 1952 1407 lddh subr4 1407 69 1210 1213 h0001ral 1958 relocate 0902 65 1958 1263 slo2000i d or c 1263 16 1014 1319 bmi 1564 1563 1319 46 1564 1563 h0002srt 0008 c d or f 0903 30 0008 1221 aup1500 8003 1221 10 0974 8003 1563ralcdiff cdd c 1563 65 1264 1369 1564ralddiff cdd d 1564 65 0975 1369 1566ral 1958 j0001 f 1566 65 1958 0944 cdd alo 1958 j0001 1369 15 1958 0944 h0003nop 0000 g0003 symbolic 0904 00 0000 0943 1 regj0960 0960 i regf0955 0955 1 proi lddpunch set i exit 1190 69 1350 1553 stdexitx 1553 24 1196 1099 rau 1953 what is i 1099 60 1953 1457 lddm subr4 1457 69 1260 1213 m0001ral 1959 relocate 0905 65 1959 1313 slo2000i d or c 1313 16 1014 1419 bmi 1568 1567 1419 46 1568 1567 m0002srt 0008 c d or f 0906 30 0008 1175 aup1504 8003 1175 10 0978 8003 1567ralcdiff cdi c 1567 65 1264 1469 1568ralddiff cdi d 1568 65 0975 1469 1570ral 1959 j0001 f 1570 65 1959 0960 cdi alo 1959 j0001 1469 15 1959 0960 m0003nop 0000 f0003 symbolic 0907 00 0000 0957 1 q 00 0000 q0001 constants 1195 00 0000 0908 9060 00 0000 9060 1272 00 0000 9060 h 00 0000 h0001 1210 00 0000 0902 1500 00 0000 1500 0974 00 0000 1500 m 00 0000 m0001 1260 00 0000 0905 1504 00 0000 1504 0978 00 0000 1504 xxxx1 01 0000 xxxx1 eraseable 1961 01 0000 1961 hed 1 1 bop routine 1 1001ldd sub16 initialize 1001 69 1404 1353 raureadc sub10 punch 1404 60 1950 1405 1 1 blr routine 1 1002ral 1959 blr reserve 1002 65 1959 1363 blr slo 1958 fwa to 1363 16 1958 1413 aup 8001 lwa 1413 10 8001 1271 lddsetcc sub2r 1271 69 1400 1503 1 1 rbr routine 1 1012rauddiff 1012 60 0975 1229 alo 1959 blr 1229 15 1959 1363 1 1 bla routine 1 1003lddh8xxx set drum 1003 69 1406 1309 stddrumt tag to 8 1309 24 1212 1215 ral 1959 unreserve 1215 65 1959 1463 slo 1958 fwa 1463 16 1958 1513 aup 8001 to 1513 10 8001 1321 lddsetcc sub2u lwa 1321 69 1400 1603 1 1 reg routine 1 hedr 1004ral 1952 is 1004 65 1952 1507 srt 0008 region 1507 30 0008 1225 slo90xxx character 1225 16 1178 1233 bmi 1002 alphabetic 1233 46 0986 1002 alo29xxx 0986 15 1189 1243 bmi 1002 1243 46 1002 1197 slt 0004 store 1197 35 0004 1557 alost region 1557 15 1310 1265 aup 1958 origin 1265 10 1958 1613 auph9xxx 8002 1613 10 1216 8002 8002stu 9999 1002 8002 21 9999 1002 1 st stu 1021 1002 constants 1310 21 1021 1002 hed 1 1 equ req and syn routine 1 hedz 1005lddh8xxx both equ 1005 69 1406 1359 1006lddh9xxx both syn 1006 69 1216 1359 both stdtag 1359 24 1262 1315 rau 1953 what is i 1315 60 1953 1607 lddz subr4 1607 69 1360 1213 z0001ral 1959 y0001 absolute 0917 65 1959 0915 z0002lddy subr9 regional 0918 69 1371 1174 y0001stle td 0915 20 1519 1322 y0002ralp0010 bp reg error 0916 65 1986 1191 z0003lddw subr6 symbolic 0919 69 1372 1275 w0001ralequiv y0001 s defined 0920 65 1223 0915 w0002ralp0010 bp s undefind 0921 65 1986 1191 w0003ralp0010 bp s tab full 0922 65 1986 1191 1 td rau 1952 head d 1322 60 1952 1657 ldd sub15 and equate 1657 69 1410 1663 lddv subr6 to e 1410 69 1713 1275 v0003ralp0010 bp s tab full 0912 65 1986 1191 v0001aloe sd 0910 15 1519 1273 v0002aloe sd 0911 15 1519 1273 sd lddtt subr7 1273 69 0976 1279 1 tt lddtag test tag 0976 69 1262 1365 bd0setcc 1365 90 1400 0970 raue reserve e 0970 60 1519 1323 lddsetcc sub2r 1323 69 1400 1503 1 1011lddh8xxx req 1011 69 1406 1409 stdtag routine 1409 24 1262 1415 ral 1959 is i 1415 65 1959 1763 slo2000i drum o cor 1763 16 1014 1569 bmid 1569 46 1422 1373 alocdiff cd 1373 15 1264 1619 d aloddiff cd 1422 15 0975 1619 cd alo2000i y0001 1619 15 1014 0915 1 z 00 0000 z0001 constants 1360 00 0000 0917 y 00 0089 y0001 1371 00 0089 0915 w 00 0000 w0001 1372 00 0000 0920 v 00 0000 v0001 1713 00 0000 0910 88 00 8800 0000 1500 00 8800 0000 1 bp alo88 by pass 1191 15 1500 1505 stlp0010 punch 1505 20 1986 1350 1 tag 01 0000 tag eraseable 1262 01 0000 1262 e 01 0000 e 1519 01 0000 1519 hed 1 1 alf routine 1 1007ldd procl proces loc 1007 69 1460 0969 ldd 1952 1460 69 1952 1555 stdp0007 1555 24 1983 1186 ral 1953 replace 1186 65 1953 1707 nzepunch blank i 1707 45 1350 1461 lddsoap2 by 1461 69 1314 1017 stdp0003 punch soap2 1017 24 1979 1350 soap2alfsoap2 soap2 constant 1314 82 7661 7792 1 1 pat routine 1 1008rau sub10 1008 60 1511 1405 lddreadc sub14 1511 69 1950 1403 1 1 hed routine 1 1009ral 1952 store 1009 65 1952 1757 srt 0008 heading 1757 30 0008 1325 stl0000h setcc character 1325 20 1329 1400 1 1 rel routine 1 hedm 1010ral 1952 set 1010 65 1952 1807 nze sdd drum 1807 45 1510 1561 ral 1958 sdd and 1510 65 1958 1561 sdd stlddiff core 1561 20 0975 1228 ral 1953 deltas 1228 65 1953 1857 nze scd 1857 45 1560 1611 ral 1959 scd 1560 65 1959 1611 scd stlcdiff setcc 1611 20 1264 1400 1 ddiff 01 0000 ddiff eraseable 0975 01 0000 0975 cdiff 01 0000 cdiff 1264 01 0000 1264 hed 1 1 load availablity table 1 hedl 1999ral 1951 calc 1999 65 1951 1605 srt 0004 loc 1605 30 0004 1465 slt 0004 w2 1465 35 0004 1375 alo 8002 1375 15 8002 1283 alo 8002 1283 15 8002 1241 aloc1 1241 15 0994 1149 aupc2 8003 1149 10 1352 8003 8003ldd 9995 8002 load 8003 69 9995 8002 8002std 9994 tup table 8002 24 9994 1247 tup suptw 1247 11 1550 1655 nzu readc 1655 44 1459 1950 auptwp2 1459 10 1312 1167 alo1dxxx 8003 1167 15 1020 8003 1 c1 stda0001 tup constants 0994 24 0600 1247 c2 ldd 1952 8002 1352 69 1952 8002 tw ldd 1958 8002 1550 69 1958 8002 twp2 ldd 1960 8002 1312 69 1960 8002 hed 1 optimizing table 1 n0001 00 0404 0998 nop 0800 00 0404 0998 n0002 00 0404 0998 hlt 0801 00 0404 0998 n0003 33 2322 0999 ufa 0802 33 2322 0999 n0004 00 0505 0998 rtc 0803 00 0505 0998 n0005 00 0505 0998 rtn 0804 00 0505 0998 n0006 00 0505 0998 rta 0805 00 0505 0998 n0007 00 0505 0998 wtn 0806 00 0505 0998 n0008 00 0505 0998 wta 0807 00 0505 0998 n0009 33 1212 0999 lib 0808 33 1212 0999 n0010 33 0202 0999 ldi 0809 33 0202 0999 n0011 33 0504 0999 aup 0810 33 0504 0999 n0012 33 0504 0999 sup 0811 33 0504 0999 n0013 99 9999 9999 not used 0812 99 9999 9999 n0014 99 9999 9999 not used 0813 99 9999 9999 n0015 33 1110 0999 div 0814 33 1110 0999 n0016 33 0504 0999 alo 0815 33 0504 0999 n0017 33 0504 0999 slo 0816 33 0504 0999 n0018 33 0504 0999 aml 0817 33 0504 0999 n0019 33 0504 0999 sml 0818 33 0504 0999 n0020 33 2120 0999 mpy 0819 33 2120 0999 n0021 54 0303 0999 stl 0820 54 0303 0999 n0022 45 0303 0999 stu 0821 45 0303 0999 n0023 34 0303 0999 sda 0822 34 0303 0999 n0024 34 0303 0999 sia 0823 34 0303 0999 n0025 34 0303 0999 std 0824 34 0303 0999 n0026 44 0505 0998 nts 0825 44 0505 0998 n0027 00 0505 0998 bin 0826 00 0505 0998 n0028 00 0505 0998 set 0827 00 0505 0998 n0029 33 1212 0999 sib 0828 33 1212 0999 n0030 33 0202 0999 sti 0829 33 0202 0999 n0031 00 0000 0998 srt 0830 00 0000 0998 n0032 00 0000 0888 srd 0831 00 0000 0888 n0033 33 2726 0999 fad 0832 33 2726 0999 n0034 33 2726 0999 fsb 0833 33 2726 0999 n0035 33 0000 0999 fdv 0834 33 0000 0999 n0036 00 0000 0988 slt 0835 00 0000 0988 n0037 00 0000 0988 sct 0836 00 0000 0988 n0038 33 2726 0999 fam 0837 33 2726 0999 n0039 33 2726 0999 fsm 0838 33 2726 0999 n0040 33 0000 0999 fmp 0839 33 0000 0999 n0041 33 0404 0998 nza 0840 33 0404 0998 n0042 33 0404 0998 bmz 0841 33 0404 0998 n0043 33 0404 0998 nzb 0842 33 0404 0998 n0044 33 0404 0998 bmb 0843 33 0404 0998 n0045 34 0405 0998 nzu 0844 34 0405 0998 n0046 43 0504 0998 nze 0845 43 0504 0998 n0047 33 0404 0998 bmi 0846 33 0404 0998 n0048 33 0505 0998 bov 0847 33 0505 0998 n0049 33 0404 0998 nzc 0848 33 0404 0998 n0050 33 0404 0998 bmc 0849 33 0404 0998 n0051 00 0000 0898 axa 0850 00 0000 0898 n0052 00 0000 0898 sxa 0851 00 0000 0898 n0053 00 0000 0898 axb 0852 00 0000 0898 n0054 00 0000 0898 sxb 0853 00 0000 0898 n0055 44 0505 0998 nef 0854 44 0505 0998 n0056 00 0505 0998 rwd 0855 00 0505 0998 n0057 00 0505 0998 wtm 0856 00 0505 0998 n0058 00 0505 0998 bst 0857 00 0505 0998 n0059 00 0000 0898 axc 0858 00 0000 0898 n0060 00 0000 0898 sxc 0859 00 0000 0898 n0061 33 0504 0999 rau 0860 33 0504 0999 n0062 33 0504 0999 rsu 0861 33 0504 0999 n0063 99 9999 9999 not used 0862 99 9999 9999 n0064 99 9999 9999 not used 0863 99 9999 9999 n0065 33 1110 0999 dvr 0864 33 1110 0999 n0066 33 0504 0999 ral 0865 33 0504 0999 n0067 33 0504 0999 rsl 0866 33 0504 0999 n0068 33 0504 0999 ram 0867 33 0504 0999 n0069 33 0504 0999 rsm 0868 33 0504 0999 n0070 33 0303 0999 ldd 0869 33 0303 0999 n0071 00 0000 0999 rd1 0870 00 0000 0999 n0072 00 0000 0999 wr1 0871 00 0000 0999 n0073 00 0000 0999 rc1 0872 00 0000 0999 n0074 00 0000 0999 rd2 0873 00 0000 0999 n0075 00 0000 0999 wr2 0874 00 0000 0999 n0076 00 0000 0999 rc2 0875 00 0000 0999 n0077 00 0000 0999 rd3 0876 00 0000 0999 n0078 00 0000 0999 wr3 0877 00 0000 0999 n0079 00 0000 0999 rc3 0878 00 0000 0999 n0080 00 0505 0999 rpy 0879 00 0505 0999 n0081 00 0000 0898 raa 0880 00 0000 0898 n0082 00 0000 0898 rsa 0881 00 0000 0898 n0083 00 0000 0898 rab 0882 00 0000 0898 n0084 00 0000 0898 rsb 0883 00 0000 0898 n0085 33 0506 0999 tlu 0884 33 0506 0999 n0086 00 0606 0998 sds 0885 00 0606 0998 n0087 00 0606 0998 rds 0886 00 0606 0998 n0088 00 0606 0998 wds 0887 00 0606 0998 n0089 00 0000 0898 rac 0888 00 0000 0898 n0090 00 0000 0898 rsc 0889 00 0000 0898 n0091 44 0505 0998 bd0 0890 44 0505 0998 n0092 33 0505 0998 bd1 0891 33 0505 0998 n0093 33 0505 0998 bd2 0892 33 0505 0998 n0094 33 0505 0998 bd3 0893 33 0505 0998 n0095 33 0505 0998 bd4 0894 33 0505 0998 n0096 33 0505 0998 bd5 0895 33 0505 0998 n0097 33 0505 0998 bd6 0896 33 0505 0998 n0098 33 0505 0998 bd7 0897 33 0505 0998 n0099 33 0505 0998 bd8 0898 33 0505 0998 n0100 44 0505 0998 bd0 0899 44 0505 0998 1 1 symbolic op table 1 c0001 61 7366 1007 alf 1050 61 7366 1007 c0002 61 7376 0015 alo 1051 61 7376 0015 c0003 61 7473 0017 aml 1052 61 7473 0017 c0004 61 8477 0010 aup 1053 61 8477 0010 c0005 61 8761 0050 axa 1054 61 8761 0050 c0006 61 8762 0052 axb 1055 61 8762 0052 c0007 61 8763 0053 axc 1056 61 8763 0053 c0008 62 6476 0090 bd0 1057 62 6476 0090 c0009 62 6491 0091 bd1 1058 62 6491 0091 c0010 62 6492 0092 bd2 1059 62 6492 0092 c0011 62 6493 0093 bd3 1060 62 6493 0093 c0012 62 6494 0094 bd4 1061 62 6494 0094 c0013 62 6495 0095 bd5 1062 62 6495 0095 c0014 62 6496 0096 bd6 1063 62 6496 0096 c0015 62 6497 0097 bd7 1064 62 6497 0097 c0016 62 6498 0098 bd8 1065 62 6498 0098 c0017 62 6499 0099 bd9 1066 62 6499 0099 c0018 62 6975 0026 bin 1067 62 6975 0026 c0019 62 7361 1003 bla 1068 62 7361 1003 c0020 62 7379 1002 blr 1069 62 7379 1002 c0021 62 7461 0041 bma 1070 62 7461 0041 c0022 62 7462 0043 bmb 1071 62 7462 0043 c0023 62 7463 0049 bmc 1072 62 7463 0049 c0024 62 7469 0046 bmi 1073 62 7469 0046 c0025 62 7677 1001 bop 1074 62 7677 1001 c0026 62 7685 0047 bov 1075 62 7685 0047 c0027 62 8283 0057 bst 1076 62 8283 0057 c0028 64 6985 0014 div 1077 64 6985 0014 c0029 64 8579 0064 dvr 1078 64 8579 0064 c0030 65 7884 1005 equ 1079 65 7884 1005 c0031 66 6164 0032 fad 1080 66 6164 0032 c0032 66 6174 0037 fam 1081 66 6174 0037 c0033 66 6485 0034 fdv 1082 66 6485 0034 c0034 66 7477 0039 fmp 1083 66 7477 0039 c0035 66 8262 0033 fsb 1084 66 8262 0033 c0036 66 8274 0038 fsm 1085 66 8274 0038 c0037 68 6564 1009 hed 1086 68 6564 1009 c0038 68 7383 0001 hlt 1087 68 7383 0001 c0039 73 6464 0069 ldd 1088 73 6464 0069 c0040 73 6469 0009 ldi 1089 73 6469 0009 c0041 73 6962 0008 lib 1090 73 6962 0008 c0042 74 7788 0019 mpy 1091 74 7788 0019 c0043 75 6566 0054 nef 1092 75 6566 0054 c0044 75 7677 0000 nop 1093 75 7677 0000 c0045 75 8382 0025 nts 1094 75 8382 0025 c0046 75 8961 0040 nza 1095 75 8961 0040 c0047 75 8962 0042 nzb 1096 75 8962 0042 c0048 75 8963 0048 nzc 1097 75 8963 0048 c0051 75 8965 0045 nze 1100 75 8965 0045 c0052 75 8984 0044 nzu 1101 75 8984 0044 c0053 77 6183 1008 pat 1102 77 6183 1008 c0054 77 6368 0071 pch 1103 77 6368 0071 c0055 79 6161 0080 raa 1104 79 6161 0080 c0056 79 6162 0082 rab 1105 79 6162 0082 c0057 79 6163 0088 rac 1106 79 6163 0088 c0058 79 6173 0065 ral 1107 79 6173 0065 c0059 79 6174 0067 ram 1108 79 6174 0067 c0060 79 6184 0060 rau 1109 79 6184 0060 c0061 79 6279 1012 rbr 1110 79 6279 1012 c0062 79 6364 0070 rcd 1111 79 6364 0070 c0063 79 6391 0072 rc1 1112 79 6391 0072 c0064 79 6392 0075 rc2 1113 79 6392 0075 c0065 79 6393 0078 rc3 1114 79 6393 0078 c0066 79 6482 0086 rds 1115 79 6482 0086 c0067 79 6491 0070 rd1 1116 79 6491 0070 c0068 79 6492 0073 rd2 1117 79 6492 0073 c0069 79 6493 0076 rd3 1118 79 6493 0076 c0070 79 6567 1004 reg 1119 79 6567 1004 c0071 79 6573 1010 rel 1120 79 6573 1010 c0072 79 6578 1011 req 1121 79 6578 1011 c0073 79 7788 0079 rpy 1122 79 7788 0079 c0074 79 8261 0081 rsa 1123 79 8261 0081 c0075 79 8262 0083 rsb 1124 79 8262 0083 c0076 79 8263 0089 rsc 1125 79 8263 0089 c0077 79 8273 0066 rsl 1126 79 8273 0066 c0078 79 8274 0068 rsm 1127 79 8274 0068 c0079 79 8284 0061 rsu 1128 79 8284 0061 c0080 79 8361 0005 rta 1129 79 8361 0005 c0081 79 8363 0003 rtc 1130 79 8363 0003 c0082 79 8375 0004 rtn 1131 79 8375 0004 c0083 79 8664 0055 rwd 1132 79 8664 0055 c0084 82 6383 0036 sct 1133 82 6383 0036 c0085 82 6461 0022 sda 1134 82 6461 0022 c0086 82 6482 0085 sds 1135 82 6482 0085 c0087 82 6583 0027 set 1136 82 6583 0027 c0088 82 6961 0023 sia 1137 82 6961 0023 c0089 82 6962 0028 sib 1138 82 6962 0028 c0090 82 7376 0016 slo 1139 82 7376 0016 c0091 82 7383 0035 slt 1140 82 7383 0035 c0092 82 7473 0018 sml 1141 82 7473 0018 c0093 82 7964 0031 srd 1142 82 7964 0031 c0094 82 7983 0030 srt 1143 82 7983 0030 c0095 82 8364 0024 std 1144 82 8364 0024 c0096 82 8369 0029 sti 1145 82 8369 0029 c0097 82 8373 0020 stl 1146 82 8373 0020 c0098 82 8384 0021 stu 1147 82 8384 0021 c0101 82 8477 0011 sup 1150 82 8477 0011 c0102 82 8761 0051 sxa 1151 82 8761 0051 c0103 82 8762 0053 sxb 1152 82 8762 0053 c0104 82 8763 0059 sxc 1153 82 8763 0059 c0105 82 8875 1006 syn 1154 82 8875 1006 c0106 83 7384 0084 tlu 1155 83 7384 0084 c0107 84 6661 0002 ufa 1156 84 6661 0002 c0108 86 6582 0087 wds 1157 86 6582 0087 c0109 86 7991 0071 wr1 1158 86 7991 0071 c0110 86 7992 0074 wr2 1159 86 7992 0074 c0111 86 7993 0077 wr3 1160 86 7993 0077 c0112 86 8361 0007 wta 1161 86 8361 0007 c0113 86 8374 0056 wtm 1162 86 8374 0056 c0114 86 8375 0006 wtn 1163 86 8375 0006 c0115 99 9999 0001 table end 1164 99 9999 0001 1 1 sub 1 store k in fwa to lwa 1 hed1 subr1stdexitx store exit 1600 24 1196 1199 stuxxxx1 store k 1199 21 1961 1364 lddfwa set 1364 69 1217 1170 sdafwa fwa 1170 22 1217 1220 slt 0004 lwa 1220 35 0004 1181 sdaxxxx2 addresses 1181 22 1962 1515 raufwa 1515 60 1217 1421 aloxxxx1 8003 1421 15 1961 8003 8003stl 9999 next store k 8003 20 9999 1402 next supxxxx2 end of 1402 11 1962 1267 nzu exitx loop test 1267 44 1471 1196 aup 8001 1471 10 8001 1379 aup1dxxx 8003 step 1379 10 1020 8003 1 fwa stl 9998 next constants 1217 20 9998 1402 xxxx2 01 0000 xxxx2 eraseable 1962 01 0000 1962 hed 1 1 sub 2 reserve unreserve 1 hed2 subr2stdexity reserve 1503 24 1813 1316 lddz ru entry 1316 69 1769 1472 sub2ustdexity unreserve 1603 24 1813 1366 ldd1i ru entry 1366 69 1565 1472 ru stdw set w 1472 24 1246 1299 stln store n 1299 20 1653 1556 slo 8001 calc ao 1556 16 8001 1913 aup 8003 and po 1913 10 8003 1571 srt 0003 1571 30 0003 1479 stux 1479 21 1284 1287 sup 8001 1287 11 8001 1245 slt 0001 1245 35 0001 1451 stup 1451 21 1606 1609 sup 8001 1609 11 8001 1367 slt 0002 1367 35 0002 1473 aup 8003 1473 10 8003 1281 aupx 1281 10 1284 1239 alop 1239 15 1606 1711 slt 0004 1711 35 0004 1621 aloc1 1621 15 1506 1761 stlb0002 1761 20 0901 1554 lddc2 1554 69 1188 1291 sdaspr 1291 22 1231 1334 aupc3 su 1334 10 1337 1423 su stusa 1423 21 1401 1604 aupc4 8003 1604 10 1558 8003 8003ral 9992 b0002 8003 65 9992 0901 b0002slt 0009 xx 0901 35 0009 1521 xx stuuh 1521 21 1176 1429 slt 0001 1429 35 0001 1185 ral 8002 1185 65 8002 1293 aupw 1293 10 1246 1351 srt 0001 1351 30 0001 1907 aupuh spr 1907 10 1176 1231 spr srt 0009 sa 1231 30 0009 1401 sa stl 9983 b0001 1401 20 9983 0900 b0001raln is n zero 0900 65 1653 1308 nze exity 1308 45 1362 1813 slo1l reduce n 1362 16 1565 1308 stln by 1 1669 20 1653 1669 rausa is ai 1456 60 1401 1705 supa197 in last 1705 11 1358 1863 bmi tp block of 1863 46 1266 1317 aupa201 su 4 1266 10 1719 1423 1 tp ralspr is p 9 1317 65 1231 1235 sloc2 1235 16 1188 1343 nze zp 1343 45 1296 1297 aloc5 step p 1296 15 1249 1703 lddc1 1703 69 1506 1509 sdab0002 1509 22 0901 1454 stlspr 1454 20 1231 1184 rausa reduce ai 1184 60 1401 1755 supc6 su by 196 1755 11 1408 1423 1 zp lddc1 set p 1297 69 1506 1559 stdb0002 to zero 1559 24 0901 1504 lddc7 1504 69 1458 1661 stdspr 1661 24 1231 1234 rausa reduce ai 1234 60 1401 1805 supc8 su by 195 1805 11 1508 1423 1 c1 slt 0000 xx constants 1506 35 0000 1521 c2 srt 0009 sa 1188 30 0009 1401 c3 stla0001 b0001 1337 20 0600 0900 c4 45 0000 0001 1558 45 0000 0001 1i 00 0000 0001 1565 00 0000 0001 a197 stla0197 b0001 1358 20 0796 0900 a201 stla0201 b0001 1719 20 0800 0900 c5 srt 0010 sa 1249 30 0010 1401 c6 00 0196 0000 1408 00 0196 0000 c7 srt 0000 sa 1458 30 0000 1401 c8 00 0195 0000 1508 00 0195 0000 z 00 0000 0000 1769 00 0000 0000 w 01 0000 w eraseable 1246 01 0000 1246 n 01 0000 n 1653 01 0000 1653 b0002 01 0000 b0002 0901 01 0000 0901 spr 01 0000 spr 1231 01 0000 1231 sa 01 0000 sa 1401 01 0000 1401 uh 01 0000 uh 1176 01 0000 1176 x 01 0000 x 1284 01 0000 1284 hed 1 1 sub 3 process op coce 1 hed3 subr3stdexitx store exit 0996 24 1196 1349 ral 1954 1349 65 1954 1659 srt 0004 is op 1659 30 0004 1819 nze illop blank 1819 45 1522 1013 slt 0006 is op 1522 35 0006 1387 nzu num numeric 1387 44 1341 1192 srt 0002 1341 30 0002 1347 stlxxxx1 search 1347 20 1961 1414 slo 8001 symbolic 1414 16 8001 1671 tluc0001 op table 1671 84 1050 1855 alo1 8002 1855 15 1608 8002 8002ral 9997 next is 8002 65 9997 1501 next sloxxxx1 sym op 1501 16 1961 1615 slt 0006 legal 1615 35 0006 1529 nzuillop 1529 44 1013 1384 slt 0001 test for 1384 35 0001 1391 nzupseu pseudo op 1391 44 1295 1346 slt 0001 sno store num 1346 35 0001 1753 sno stlp0007 650 op 1753 20 1983 1236 srt 0004 get optim 1236 30 0004 1397 alo3 8002 constants 1397 15 1650 8002 8002ldd 9996 nex 8002 69 9996 1399 nex stdoptim exitx 1399 24 1452 1196 1 num slo4 form 1192 16 1345 1449 slt 0002 numeric 1449 35 0002 1905 slo 8002 op 1905 16 8002 1963 srt 0001 code 1963 30 0001 1869 alo 8001 sno 1869 15 8001 1753 1 illopralp0010 illegal op 1013 65 1986 1441 alo5 set 8 1441 15 1194 1499 stlp0010 for blank 1499 20 1986 1289 ldd6 nex op 1289 69 1242 1399 1 pseu slt 0003 pseudo 1295 35 0003 1803 aloexitx op 1803 15 1196 1551 alo1ixxx 8002 1551 15 0992 8002 1 1 ral 0000 next constants 1608 65 0000 1501 2 10 0000 0000 1700 10 0000 0000 3 lddn0001 nex 1650 69 0800 1399 4 90 9000 0000 1345 90 9000 0000 5 00 0000 0008 1194 00 0000 0008 6 55 0505 0999 1242 55 0505 0999 hed 1 1 sub 4 what is address 1 hed4 subr4stdexitz store exit 1213 24 1416 1919 stuxxxx1 store addr 1919 21 1961 1464 srt 0008 is c5 1464 30 0008 1333 nzu exitz blank 1333 44 1437 1416 stuxxxx2 save c5 1437 21 1962 1665 rau 8002 are low 4 1665 60 8002 1523 aup90xxx characters 1523 10 1178 1383 bovloop loop numeric 1383 47 1286 1286 loop auph1 1286 10 1339 1393 bov sym 1393 47 1396 0998 slt 0002 1396 35 0002 1853 nzuloop 1853 44 1286 1658 ralxxxx2 low 4 num 1658 65 1962 1417 slo90xxx is c5 1417 16 1178 1433 bmi sym alphabetic 1433 46 1336 0998 alo29xxx 1336 15 1189 1443 bmisym 1443 46 0998 1447 ral1ixxx regional 1447 65 0992 1497 aupxxxx1 aex 1497 10 1961 1715 aex aloexitz 1715 15 1416 1721 slo 8002 8001 1721 16 8002 8001 sym rauxxxx1 hed symbol 0998 60 1961 1765 ldd sub15 1765 69 1018 1663 alo2ixxx step exit 1018 15 1771 1425 stuhsymb aex 1425 21 1230 1715 h1 10 0000 0000 1339 10 0000 0000 hsymb 01 0000 hsymb eraseable 1230 01 0000 1230 hed 1 1 sub 5 test absolute address 1 hed5 subr5stdexitz store exit 1750 24 1416 1969 stlxxxx1 store a 1969 20 1961 1514 slt 0004 1514 35 0004 1475 slo 8002 1475 16 8002 1483 tlur0001 tlu 1483 84 1200 1656 aloget 8002 range 1656 15 1709 8002 8002rau 9972 x table 8002 60 9972 1177 x slt 0006 1177 35 0006 1491 srt 0006 1491 30 0006 1706 aupexitz 1706 10 1416 1821 aloxxxx1 1821 15 1961 1815 sup 8003 8001 1815 11 8003 8001 get rau 0000 x 1709 60 0000 1177 r0001 00 1999 0000 range 1200 00 1999 0000 r0002 00 7999 0003 table 1201 00 7999 0003 r0003 00 8003 0001 1202 00 8003 0001 r0004 00 8004 0003 1203 00 8004 0003 r0005 00 8007 0001 1204 00 8007 0001 r0006 00 8999 0003 1205 00 8999 0003 r0007 00 9059 0002 1206 00 9059 0002 r0008 99 9999 0003 1207 99 9999 0003 hed 1 1 sub 6 symbol test routine 1 hed6 subr6stdexitz store exit 1275 24 1416 1320 stus store symb 1320 21 1601 1654 lddswof set switch 1654 69 1758 1861 stdsw off 1861 24 1610 1764 mpysc scramble 1764 19 1517 1238 ral 8002 symbol 1238 65 8002 1547 slt 0003 giving 1547 35 0003 1806 mpycf lo 1806 19 1759 1330 srt 0001 1330 30 0001 1587 slt 0004 set 1587 35 0004 1597 alol1p1 test 1597 15 1850 1856 stllop1 word 1856 20 1865 1168 slo1dxxx 1168 16 1020 1525 stllo sli save lo 1525 20 1903 1487 sli stlli 8001 init li 1487 20 1614 8001 8001ral 9990 a is cont of 8001 65 9990 1395 a nze und li zero 1395 45 1098 1549 slos is cont of 1098 16 1601 1756 nzesw def li symb 1756 45 1610 1811 sw ralli off is li 1610 65 1614 1270 off slolmax maximum 1270 16 1573 1227 nze max 1227 45 1280 1331 alolmp1 sli step li 1280 15 1533 1487 on slolo is li equa 1800 16 1903 1708 nze swsym to lo 1708 45 1412 1664 alolop1 sli step li 1412 15 1865 1487 max lddswon set 1331 69 1434 1537 stdsw switch on 1537 24 1610 1714 rall1 sli zero li 1714 65 1467 1487 1 und ralexitz undefined 1549 65 1416 1871 alo1ixxx step 1871 15 0992 1647 stlexitz exit 1647 20 1416 1370 ralli 1370 65 1614 1420 slol1 1420 16 1467 1921 stllsymb asu 1921 20 1575 1278 1 def ralli defined 1811 65 1614 1470 lddasu subr8 get 1470 69 1278 1381 asu aups exitz equivalent 1278 10 1601 1416 1 swsymhlt 0111 symof s tab full 1664 01 0111 1218 symoflddsymon set sw sym 1218 69 1971 1224 stdswsym symon on 1224 24 1664 1971 symonralexitz 1971 65 1416 1572 alo2ixxx 8002 1572 15 1771 8002 1 swof ralli off constants 1758 65 1614 1270 swon ralli on 1434 65 1614 1800 sc 10 0100 1001 1517 10 0100 1001 cf 00 0000 0004 1759 00 0000 0004 l1 ral 0000 a 1467 65 0000 1395 l1p1 ral 0001 a 1850 65 0001 1395 lmax rale0000 a 1573 65 0399 1395 lmp1 rale0001 a 1533 65 0400 1395 s 01 0000 s erasable 1601 01 0000 1601 sw 01 0000 sw 1610 01 0000 1610 lo 01 0000 lo 1903 01 0000 1903 li 01 0000 li 1614 01 0000 1614 lsymb 01 0000 lsymb 1575 01 0000 1575 hed 1 1 sub 7 store symbol and equiv 1 hed7 subr7stdexitz store exit 1279 24 1416 1520 lddss 1520 69 1623 1226 sdaxxxx2 8001 store 1226 22 1962 8001 8001stu 9988 a symbol 8001 21 9988 1541 a sup 8001 1541 11 8001 1599 stlxxxx1 save e 1599 20 1961 1814 srt 0004 1814 30 0004 1625 div2ixxx calculate 1625 14 1771 1232 slt 0004 location 1232 35 0004 1493 aloc1 of 1493 15 1446 1651 lddc2 e 1651 69 1704 1808 sdasel and 1808 22 1911 1864 lddc3 store 1864 69 1617 1620 sdaser 1620 22 1673 1276 stlobee 1276 20 1431 1484 slo 8001 1484 16 8001 1591 aloxxxx1 obee 1591 15 1961 1431 obee ldd 9986 b 1431 69 9986 1389 b nzuser 1389 44 1673 1244 slt 0004 sel 1244 35 0004 1911 ss stu 9987 a constants 1623 21 9987 1541 c1 ldde0001 b 1446 69 0400 1389 c2 sda 9985 exitz 1704 22 9985 1416 c3 sia 9984 exitz 1617 23 9984 1416 obee 01 0000 obee erasable 1431 01 0000 1431 sel 01 0000 sel 1911 01 0000 1911 ser 01 0000 ser 1673 01 0000 1673 hed 1 1 sub 8 given sym loc get equiv 1 hed8 subr8stdexit store exit 1381 24 1534 1637 ldd 8003 1637 69 8003 1294 sdalsymb store l 1294 22 1575 1328 ral 8001 1328 65 8001 1285 div2dxxx 1285 14 1288 1148 slt 0004 1148 35 0004 1809 aloe1 8002 1809 15 1462 8002 8002ldd 9975 tr 8002 69 9975 1378 tr nzu lh 1378 44 1481 1282 ram 8001 lr get e rh 1481 67 8001 1439 lh ram 8001 get e lh 1282 67 8001 1489 srt 0004 lr 1489 30 0004 1439 lr ldd 8003 1439 69 8003 1496 siaequiv 1496 23 1223 1326 rallsymb exit 1326 65 1575 1534 e1 ldde0001 tr constant 1462 69 0400 1378 exit 01 0000 exit eraseable 1534 01 0000 1534 equiv 01 0000 equiv 1223 01 0000 1223 hed 1 1 sub 9 calculate reg address hed9 subr9stdexitz store exit 1174 24 1416 1670 srt 0008 1670 30 0008 1539 ral 8003 1539 65 8003 1697 slt 0004 1697 35 0004 1858 aloc 8002 is 1858 15 1512 8002 8002ral 9991 nex region 8002 65 9991 1445 nex bd0ill defined 1445 90 1649 1701 slt 0001 1701 35 0001 1908 ral 8002 1908 65 8002 1667 srt 0001 1667 30 0001 1723 lddexitz 1723 69 1416 1720 bd6 l 1720 96 1773 1675 bd5d i 1773 95 1376 1428 l alo 1957 all 1675 15 1957 1562 d alo 1958 all 1376 15 1958 1562 i alo 1959 all 1428 15 1959 1562 all slo1ixxx 1562 16 0992 1747 bmiill exitz 1747 46 1649 1416 ill ralexitz undefined 1649 65 1416 1622 alo1ixxx 8002 or illeg 1622 15 0992 8002 1 c ral 0960 nex constant 1512 65 0960 1445 hed 1 sub 10 set cc 8 and punch 1 sub10alop0010 1405 15 1986 1641 alo84th 1641 15 1344 1699 stlp0010 1699 20 1986 1589 pchp0001 8003 1589 71 1977 8003 1 84th 00 0800 0000 constant 1344 00 0800 0000 1 1 sub 11 find and reserve best 1 hed0 sub11ldddrumt test 1801 69 1212 1965 bd0 sex drum tag 1965 90 1770 1820 stlexit is adr l 1770 20 1725 1478 bd6d1 1478 96 1531 1633 ral 8003 ssw l 1633 65 8003 1741 di lddf d or i 1531 69 1634 1787 sdaxxxx1 sub13 find optim 1787 22 1961 1964 gda slt 0004 dynam adr 1851 35 0004 1762 alo 8002 1762 15 8002 1672 alo 8002 ssw 1672 15 8002 1741 ssw lddoff set sw off 1741 69 1444 1797 stdsw 1797 24 1584 1837 aloa1p1 get table 1837 15 1290 1495 stlbp1 start addr 1495 20 1915 1268 slo1dxxx 1268 16 1020 1775 stlao sai save ao 1775 20 1804 1612 sai stlai 8001 1612 20 1687 8001 8001rau 9975 ta is locat 8001 60 9975 1579 ta nzuyes sw available 1579 44 1583 1584 sw rauai swof 1584 60 1687 1691 swof sloamax is ai max 1691 16 1394 1749 nze max 1749 45 1502 1754 aloamp1 sai step ai 1502 15 1906 1612 swon sloao is ai equa 1751 16 1804 1859 nze full to ao 1859 45 1662 1914 alobp1 sai step ai 1662 15 1915 1612 max lddon set sw on 1754 69 1909 1712 stdsw 1712 24 1584 1737 rala1 sai set ai to 1737 65 1240 1612 1 full hlt 0222 drum paked 1914 01 0222 1318 lddh9xxx set drum 1318 69 1216 1870 stddrumt tag to 9 1870 24 1212 1466 ralexit sex step exit 1466 65 1725 1820 sex alo1ixxx 8002 1820 15 0992 8002 1 yes sct 0000 reserve 1583 36 0000 1660 slt 0001 location 1660 35 0001 1717 srt 0001 found 1717 30 0001 1823 stlxxxx2 save p 1823 20 1962 1516 sup 8003 1516 11 8003 1873 slt 0004 1873 35 0004 1683 aup 8001 1683 10 8001 1791 alosrp 8002 1791 15 1494 8002 8002srt 0009 sca nulify sct 8002 30 0009 1722 sca rau 8003 1722 60 8003 1629 aloai 1629 15 1687 1841 lddst 1841 69 1544 1847 sdaeras 8001 1847 22 1901 8001 8001stu 9972 ca 8001 21 9972 1825 ca sup 8001 calculate 1825 11 8001 1733 sloa1 location 1733 16 1240 1545 srt 0004 found 1545 30 0004 1710 div4i 1710 14 1616 1426 mpy500 1426 19 1679 1552 alo 8003 1552 15 8003 1760 sup 8001 1760 11 8001 1767 aupxxxx2 1767 10 1962 1817 mpy50 1817 19 1920 1340 alo 8003 1340 15 8003 1897 sup 8001 exit 1897 11 8001 1725 f 00 0000 gda constants 1634 00 0000 1851 off ralai swof 1444 65 1687 1691 a1p1 raua0002 ta 1290 60 0601 1579 amax raua0200 ta 1394 60 0799 1579 amp1 raua0201 ta 1906 60 0800 1579 on ralai swon 1909 65 1687 1751 a1 raua0001 ta 1240 60 0600 1579 srp srt 0000 sca 1494 30 0000 1722 st stu 9999 ca 1544 21 9999 1825 4i 00 0000 0004 1616 00 0000 0004 500 00 0000 0500 1679 00 0000 0500 50 00 0000 0050 1920 00 0000 0050 fon ral 8001 stepx 1602 65 8001 1810 ao 01 0000 ao erasable 1804 01 0000 1804 ai 01 0000 ai 1687 01 0000 1687 bp1 01 0000 bp1 1915 01 0000 1915 exit 01 0000 exit 1725 01 0000 1725 hed 1 1 sub 12 set blank l 8 1 sub12alop0010 0991 15 1986 1891 alo87th 1891 15 1594 1799 stlp0010 8003 1799 20 1986 8003 1 87th 00 0000 8000 constant 1594 00 0000 8000 1 1 sub 13 cal optimum dynamic adr 1 hedy sub13stdexitz store exit 1964 24 1416 1970 bd5 i d or i 1970 95 1923 1875 raloptim d 1923 65 1452 1860 slt 0001 1860 35 0001 1867 slo 8002 1867 16 8002 1925 slt 0001 1925 35 0001 1581 alo 8001 1581 15 8001 1639 srt 0003 seq 1639 30 0003 1947 i raloptim i 1875 65 1452 1910 bd2shop shift test 1910 92 1666 1716 bd3xas xas test 1716 93 1772 1822 slt 0002 seo 1822 35 0002 1947 seo stlxxxx1 save ev od 1947 20 1961 1766 ralopreg is base 1766 65 1872 1277 div2ixxx even or od 1277 14 1771 1332 rau 8003 1332 60 8003 1689 aloxxxx1 1689 15 1961 1816 nzu rb 1816 44 1922 1972 slt 0002 1922 35 0002 1729 ral 8002 rb 1729 65 8002 1972 rb srt 0008 get base 1972 30 0008 1941 aloopreg plus delta 1941 15 1872 1327 div50 mod 50 1327 14 1380 1390 ral 8003 exitz 1390 65 8003 1416 1 shop ralp0007 tlu units 1666 65 1983 1887 srt 0004 digit of 1887 30 0004 1997 slt 0009 d address 1997 35 0009 1917 slo 8002 1917 16 8002 1975 tluu0001 1975 84 1250 1812 alogu 8002 1812 15 1866 8002 8002ral 9969 top 8002 65 9969 1973 top slt 0002 1973 35 0002 1779 lddoptim is op srd 1779 69 1452 1862 bd3 seo 1862 93 1916 1947 slt 0004 seo srd 1916 35 0004 1947 1 xas ralp0007 tlu 1772 65 1983 1937 srt 0004 d address 1937 30 0004 1198 slt 0006 1198 35 0006 1966 slo 8002 1966 16 8002 1476 tlui0001 1476 84 1300 1912 alogxd 8002 1912 15 1967 8002 8002ral 9968 nxt 8002 65 9968 1274 nxt slt 0004 seo 1274 35 0004 1947 1 u0001 00 2322 2524 shift 1250 00 2322 2524 u0002 10 0706 0706 optimizing 1251 10 0706 0706 u0003 20 0706 0908 table 1252 20 0706 0908 u0004 30 0908 1110 1253 30 0908 1110 u0005 40 1110 1312 1254 40 1110 1312 u0006 50 1312 1514 1255 50 1312 1514 u0007 60 1514 1716 1256 60 1514 1716 u0008 70 1716 1918 1257 70 1716 1918 u0009 80 1918 2120 1258 80 1918 2120 u0010 90 2120 2322 1259 90 2120 2322 1 i0001 19 9906 0600 x accum 1300 19 9906 0600 i0002 79 9907 0700 add sub 1301 79 9907 0700 i0003 80 0008 0800 table 1302 80 0008 0800 i0004 80 0106 0600 1303 80 0106 0600 i0005 80 0206 0800 1304 80 0206 0800 i0006 80 0308 0900 1305 80 0308 0900 i0007 90 5908 0800 1306 90 5908 0800 i0008 99 9909 0900 1307 99 9909 0900 1 gu ral 0000 top constants 1866 65 0000 1973 gxd ral 0000 nxt 1967 65 0000 1274 50 00 0000 0050 1380 00 0000 0050 hed 1 1 sub 14 punch avail table 1 hedp sub14stdexitx store exit 1403 24 1196 1849 ldd85th set punch 1849 69 1652 1368 stdp0010 8 1368 24 1986 1739 ldda1 init a1 1739 69 1292 1595 stdxxxx1 1595 24 1961 1418 ralrs1 loop init rs 1418 65 1324 1829 loop aupc1 8001 1829 10 1382 8001 8001stl 9999 next set locat 8001 20 9999 1702 next suptw1 1702 11 1468 1374 nzu srs 1374 44 1377 1528 aupc2 1377 10 1430 1335 aloc3 8003 1335 15 1338 8003 srs stlxxxx2 save rs 1528 20 1962 1518 rauc4 1518 60 1424 1879 aloxxxx1 8002 1879 15 1961 8002 8002ldd 9998 8003 store 8002 69 9998 8003 8003std 9997 tp av table 8003 24 9997 1752 tp suptw2 1752 11 1618 1474 nzu pun 1474 44 1427 1578 aupc5 1427 10 1480 1385 aloc6 8002 1385 15 1388 8002 pun pchp0001 1578 71 1977 1477 sloaim is ai max 1477 16 1530 1435 nze exitx 1435 45 1438 1196 aloamp1 step ai 1438 15 1342 1248 stlxxxx1 1248 20 1961 1668 ralxxxx2 1668 65 1962 1718 sloc7 loop 1718 16 1524 1829 1 c1 stlp0001 next constants 1382 20 1977 1702 c2 stlp0009 next 1430 20 1985 1702 c3 00 0500 0500 1338 00 0500 0500 c4 stdp0002 tp 1424 24 1978 1752 c5 stdp0010 tp 1480 24 1986 1752 c6 00 0001 0000 1388 00 0001 0000 c7 00 1499 1499 1524 00 1499 1499 tw1 stlp0007 next 1468 20 1983 1702 tw2 stdp0008 tp 1618 24 1984 1752 85th 00 0080 0000 1652 00 0080 0000 a1 ldda0001 8003 1292 69 0600 8003 rs1 00 0000 0450 1324 00 0000 0450 aim ldda0200 8003 1530 69 0799 8003 amp1 ldda0201 8003 1342 69 0800 8003 hed 1 1 sub 15 heading routine 1 hedh sub15stdexity save exit 1663 24 1813 1768 ldd 8003 is c1 1768 69 8003 1574 slt 0008 blank 1574 35 0008 1543 nzudh 1543 44 1298 1348 rau 8001 head 1348 60 8001 1818 aup0000h exity 1818 10 1329 1813 dh rau 8001 exity dont head 1298 60 8001 1813 hed 1 1 sub 16 initialization 1 sub16stdexity store exit 1353 24 1813 1868 rali1 1868 65 1624 1929 stup0009 zero card 1929 21 1985 1488 std0000h zero head 1488 24 1329 1432 ldd subr1 zero sym t 1432 69 1485 1600 rali2 make drum 1485 65 1538 1593 aupi3 available 1593 10 1546 1802 ldd subr1 1802 69 1918 1600 lddh8xxx set drum 1918 69 1406 1968 stddrumt tag to 8 1968 24 1212 1674 lddi4 set swsym 1674 69 1527 1580 stdswsym off 1580 24 1664 1724 rali5 undefine 1724 65 1577 1631 auph8xxx regions 1631 10 1406 1774 lddexity subr1 1774 69 1813 1600 1 i1 00s0001 e0200 constants 1624 00 0000 0599 i2 00a0001 a0200 1538 00 0600 0799 i3 11 1111 1111 1546 11 1111 1111 i4 01 0111 symof 1527 01 0111 1218 i5 00 1021 1049 1577 00 1021 1049 pacofbd6findi findl 1852 96 1824 1874 1 1 sub 17 calc 800x equivalent 1 hedx sb17dldddeq di d equiv 1902 69 1924 1627 sb17ilddieq di i equiv 1854 69 1974 1627 di stdxxxx1 save tag 1627 24 1961 1526 stuexity store exit 1526 21 1813 1576 stlxxxx2 store 800x 1576 20 1962 1626 lddxxxx1 sub13 get optim 1626 69 1961 1964 sda stlxxxx1 dynam addr 1904 20 1961 1676 div2ixxx is dy addr 1676 14 1771 1482 nzuod ev even or od 1482 44 1535 1386 od ral8002 eo 1535 65 1588 1643 ev ral8003 eo 1386 65 1789 1643 eo sloxxxx2 1643 16 1962 1726 nze add1 1726 45 1630 1681 ralxxxx1 exity 1630 65 1961 1813 add1 ralxxxx1 1681 65 1961 1776 alo1ixxx exity 1776 15 0992 1813 1 deq 00 0008 sda constants 1924 00 0008 1904 ieq 00 0009 sda 1974 00 0009 1904 8002 00 0000 8002 1588 00 0000 8002 8003 00 0000 8003 1789 00 0000 8003 hed 1 1 sub 18 index address 1 hedw indexstdexity store exit 1826 24 1813 1876 stlxxxx1 store addr 1876 20 1961 1926 rau 1954 1926 60 1954 1976 slt 0007 1976 35 0007 1693 lddexity 1693 69 1813 1677 bd5d d or i 1677 95 1680 1532 slt 0002 d 1532 35 0002 1680 d srt 0009 1680 30 0009 1727 mpy2000i 1727 19 1014 1684 lddexity 1684 69 1813 1777 bd6ds drum 0 cor 1777 96 1730 1582 srt 0001 ds core 1582 30 0001 1730 ds aloxxxx1 exity 1730 15 1961 1813 1 exity 01 0000 exity erasabele 1813 01 0000 1813 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 0969 24 1196 1899 rau 1951 is l blank 1899 60 1951 1827 nzunb 1827 44 1731 1632 ldddrumt blank test 1632 69 1212 1877 bd0b d0002 drum tag 1877 90 1781 0924 b ralopreg setl blank 1781 65 1872 1927 setl slt 0004 set l 1927 35 0004 1987 lddp0008 to dr 1987 69 1984 1638 sdap0008 exitx 1638 22 1984 1196 nb lddg subr4 what is l 1731 69 1734 1213 g0001ral 1957 k0001 absolute 0925 65 1957 0931 g0002lddk subr9 regional 0926 69 1780 1174 g0003lddj subr6 symbolic 0927 69 1830 1275 k0001lddl subr5 test range 0931 69 1784 1750 k0002rau87th x reg error 0932 60 1585 1839 x aupp0010 set blank 1839 10 1986 1392 stup0010 setl l8 1392 21 1986 1927 l0001stlopreg setl drum addr 0933 20 1872 1927 l0002aup86th 800x 800x 0934 10 1688 1743 l0003lddorceq 89x core addr 0935 69 1738 1442 l0004rau87th x other 0936 60 1585 1839 800x lddorxeq 89x 1743 69 1596 1442 89x stdopreg x 1442 24 1872 1839 j0001ralequiv k0001 sym defind 0928 65 1223 0931 j0002rald sub11 sym undef 0929 65 1682 1801 j0003rau87th x s tab full 0930 60 1585 1839 d0001stlopreg ss s eq found 0923 20 1872 1628 d0002rau87th x drum paked 0924 60 1585 1839 ss auphsymb store 1628 10 1230 1635 alolsymb symbol 1635 15 1575 1880 lddb subr7 1880 69 1781 1279 1 g 00 0000 g0001 constants 1734 00 0000 0925 k 00 0090 k0001 1780 00 0090 0931 j 00 0000 j0001 1830 00 0000 0928 l 00 0000 l0001 1784 00 0000 0933 d 00 0090 d0001 1682 00 0090 0923 86th 00 0008 0000 1688 00 0008 0000 87th 00 0000 8000 1585 00 0000 8000 exitx 01 0000 exitx eraseable 1196 01 0000 1196 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 0972 24 1196 1949 rau 1952 is d blank 1949 60 1952 1678 nzunb 1678 44 1831 1732 rald sub11 find 1732 65 1685 1801 d0001stlorbal l0004 optimum 0937 20 1492 0952 d0002rau88th x drum paked 0938 60 1542 1398 bt lddoptim is op 1728 69 1452 1778 bd1exitx a branch 1778 91 1196 1783 stlopreg exitx d to or 1783 20 1872 1196 x aupp0010 set blank 1398 10 1986 1592 stup0010 exitx 1592 21 1986 1196 nb lddg subr4 what is d 1831 69 1834 1213 g0001ral 1958 j0001 absolute 0941 65 1958 0944 g0002lddj subr9 regional 0942 69 1645 1174 g0003lddk subr6 symbolic 0943 69 1646 1275 j0001lddl subr5 test range 0944 69 1448 1750 j0002rau88th x reg error 0945 60 1542 1398 l0001lddaxd index drum addr 0949 69 1828 1826 l0002slt 0004 800x 800x 0950 35 0004 1878 l0003lddaxc index core addr 0951 69 1928 1826 l0004slt 0004 sd other 0952 35 0004 1930 800x lddp0007 set 800x d 1878 69 1983 1436 sdap0007 1436 22 1983 1486 srt 0004 1486 30 0004 1498 aupxeq sb17d get 800x e 1498 10 1881 1902 scd slt 0004 set core d 1931 35 0004 1642 lddp0007 1642 69 1983 1536 sdap0007 1536 22 1983 1586 srt 0004 1586 30 0004 1548 lddceq sub13 get core e 1548 69 1782 1964 sceq stlorceq bt save core 1832 20 1738 1728 k0001ralequiv j0001 sym defind 0946 65 1223 0944 k0002ralf sub11 sym undef 0947 65 1882 1801 k0003rau88th x s tab full 0948 60 1542 1398 f0001stleq ss save eq 0939 20 1793 1696 f0002rau88th x drum paked 0940 60 1542 1398 ss auphsymb store 1696 10 1230 1735 alolsymb symbol 1735 15 1575 1932 ldd subr7 1932 69 1785 1279 raleq l0004 1785 65 1793 0952 sd lddp0007 set d addr 1930 69 1983 1636 sdap0007 1636 22 1983 1686 srt 0004 bt 1686 30 0004 1728 d 00 0088 d0001 constants 1685 00 0088 0937 g 00 0000 g0001 1834 00 0000 0941 j 00 0088 j0001 1645 00 0088 0944 l 00 0000 l0001 1448 00 0000 0949 f 00 0088 f0001 1882 00 0088 0939 k 00 0000 k0001 1646 00 0000 0946 axd 00 0088 d0001 1828 00 0088 0937 axc 00 0098 scd 1928 00 0098 1931 xeq stlorxeq bt 1881 20 1596 1728 ceq 00 0008 sceq 1782 00 0008 1832 88th 00 0000 0800 1542 00 0000 0800 eq 01 0000 eq erasable 1793 01 0000 1793 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 1453 24 1196 1833 rau 1953 is i blank 1833 60 1953 1883 nzunb 1883 44 1788 1838 rau 1952 is d blank 1838 60 1952 1933 nzudnb 1933 44 1888 1938 ldddrumt d i blank 1938 69 1212 1884 bd0 g0002 test drum 1884 90 1988 0959 ralorbal l0004 tag 1988 65 1492 0968 dnb rald sub11 find best 1888 65 1692 1801 d0001stlorbal l0004 found 0953 20 1492 0968 d0002ralp0010 x drum paked 0954 65 1986 1742 x alo89th 1742 15 1695 1934 stlp0010 exitx 1934 20 1986 1196 nb lddf subr4 what is i 1788 69 1792 1213 f0001ral 1959 j0001 absolute 0955 65 1959 0960 f0002lddj subr9 regional 0956 69 1835 1174 f0003lddk subr6 symbolic 0957 69 1885 1275 j0001lddl subr5 test range 0960 69 1935 1750 j0002ralp0010 x reg error 0961 65 1986 1742 l0001lddaxd index drum addr 0965 69 1736 1826 l0002lddp0007 800x 800x 0966 69 1983 1786 l0003lddaxc index core addr 0967 69 1836 1826 l0004lddp0007 other 0968 69 1983 1886 siap0007 mor 1886 23 1983 1936 800x siap0007 1786 23 1983 1889 aupxeq sb17i get 800x e 1889 10 1842 1854 90xx lddp0007 set core 1939 69 1983 1989 siap0007 address 1989 23 1983 1440 lddceq sub13 get core e 1440 69 1843 1964 k0001ralequiv j0001 sym defind 0962 65 1223 0960 k0002ralg sub11 sym undef 0963 65 1490 1801 k0003ralp0010 x s tab full 0964 65 1986 1742 g0001lddp0007 si found best 0958 69 1983 1540 g0002ralp0010 x drum paked 0959 65 1986 1742 si siap0007 1540 23 1983 1590 auphsymb store 1590 10 1230 1640 alolsymb symbol 1640 15 1575 1690 lddmor subr7 1690 69 1936 1279 mor lddorbal set or 1936 69 1492 1745 stdopreg exitx to orb 1745 24 1872 1196 sceq stlorceq mor save core 1740 20 1738 1936 1 d 00 0089 d0001 constants 1692 00 0089 0953 f 00 0000 f0001 1792 00 0000 0955 j 00 0089 j0001 1835 00 0089 0960 k 00 0000 k0001 1885 00 0000 0962 l 00 0000 l0001 1935 00 0000 0965 g 00 0089 g0001 1490 00 0089 0958 89th 00 0000 0080 1695 00 0000 0080 axd 00 0089 l0004 1736 00 0089 0968 axc 00 0099 90xx 1836 00 0099 1939 xeq stlorxeq mor 1842 20 1596 1936 ceq 00 0009 sceq 1843 00 0009 1740 hed 1 1ixxx 00 0000 0001 constants 0992 00 0000 0001 1dxxx 00 0001 0000 1020 00 0001 0000 2ixxx 00 0000 0002 1771 00 0000 0002 2dxxx 00 0002 0000 1288 00 0002 0000 h8xxx 80 0000 0000 1406 80 0000 0000 h9xxx 90 0000 0000 1216 90 0000 0000 90xxx 00 0000 0090 1178 00 0000 0090 29xxx 00 0000 0029 1189 00 0000 0029 2000i 00 0000 2000 constant 1014 00 0000 2000 torg 00 0000 t0001 0990 00 0000 1990 1 pat