URL
https://opencores.org/ocsvn/i650/i650/trunk
Subversion Repositories i650
[/] [i650/] [trunk/] [software/] [soap2/] [soap2_src.txt] - Rev 7
Go to most recent revision | Compare with Previous | Blame | View Log
1 SOAP 211 SYMBOLIC OPTIMAL ASSEMBLY PROG11 FOR THE11 IBM 65011 DATA PROCESSING SYSTEM11REGS0000 0399 SYMBOL TABREGE0400 0599 EQUIV TABLREGA0600 0799 AVAIL TABLREGN0800 0899 NUM OP TABBLR 1000 1000 ENTRYBLR 1001 1012 PSEUDO ENTBLR 1021 1049 REG TABLEREGC1050 1164 SYM OP TABBLA 1098 1099BLA 1148 1149BLR 1900 1900 MANUAL PATSYNREADC 1950BLR 1951 1962 READ AREAREGT1990 1992 TYPEREGP1977 1986 PUNCH AREABLR 1998 1999EQUXXXX1 1961EQUXXXX2 1962BLR 1563 1570 TYPE2BLA 1565 1565BLA 1569 1569REGB0900 0901 SUB 2REGH0902 0904 TYPE 2REGM0905 0907REGQ0908 0909REGR1200 1207 SUB 5REGU1250 1259 SUB 13REGV0910 0912 EQU SYNREGX0913 0914 TYPE OREGY0915 0916 EQU SYNREGZ0917 0919REGW0920 0922BLR 0923 0968 MULTIPLE RREGI1300 1307 SUB1311 CONTROL PROGRAM11000LDDREADC SUB16 ENTRY1READCRCD 1999 1998 READ CARD1998LDD 1951 TRANSFERSTDP0001 ALPHABETICLDD 1952 INPUTSTDP0002 TOLDD 1953 OUTPUTSTDP0003LDD 1954STDP0004LDD 1955STDP0005LDD 1956STDP0006RALP0009 STEPALO1IXXX CARDSTLP0009 NUMBERRAU 1960 STORESRT 0002 CONTROLSTUP0008 INFOAUPTORGSTLP0010 8003 TRANSFER8003NOP 0000 9999 TO TYPE1PUNCHPCHP0001 READC PUNCH READ1SETCCRAUREADC SUB10 SUDO EXIT111900LDDREADC SUB14 MANUAL PAT11T0001LDDX SUBR3 TYPE 01X0001LDD PROCL 650LDD PROCD COMMAND ORLDDPUNCH PROCI CONSTANTS1X0002NOP 0000 8003 PSEUDO OP1T0002RAUREADC SUB10 TYPE 1 COM1X 00 0000 X000111 RELOCATE ROUTINE1HEDTT0003LDDQ SUBR3 PROCESS OPQ0002NOP 0000 ILLOP ILLEGAL OPQ0001RAL 1951 IS L FIXEDSLT 0002NZU RELRAU 1957 FIXED LSUP2000I DRUM COREBMI FCAUP 8001 RES FIXED DRUMFC RAL 1957 SETL FIXED CORESR RALXXXX1 SETL SET LSETL SLT 0004LDDP0008SDAP0008 PRODREL RAU 1957 DRUM CORESUP2000IBMI RCAUPDDIFF RELOCATEBMI BL DRUM ADDRAUP2000I RESRES STUXXXX1LDDSR SUB2R RESERVE LRC RAL 1957 RELOCATEALOCDIFF CORESLO9060BMI BLALO 8001 SETLBL RAUPROD SUB12 BLANK L1REGJ0944 0944 D TYPE 2REGG0941 09411PROD LDDPROI SET D EXITSTDEXITXRAU 1952 WHAT IS dLDDH SUBR4H0001RAL 1958 RELOCATESLO2000I D OR CBMI 1564 1563H0002SRT 0008 C D OR FAUP1500 80031563RALCDIFF CDD C1564RALDDIFF CDD D1566RAL 1958 J0001 FCDD ALO 1958 J0001H0003NOP 0000 G0003 SYMBOLIC1REGJ0960 0960 IREGF0955 09551PROI LDDPUNCH SET I EXITSTDEXITXRAU 1953 WHAT IS ILDDM SUBR4M0001RAL 1959 RELOCATESLO2000I D OR CBMI 1568 1567M0002SRT 0008 C D OR FAUP1504 80031567RALCDIFF CDI C1568RALDDIFF CDI D1570RAL 1959 J0001 FCDI ALO 1959 J0001M0003NOP 0000 F0003 SYMBOLIC1Q 00 0000 Q0001 CONSTANTS9060 00 0000 9060H 00 0000 H00011500 00 0000 1500M 00 0000 M00011504 00 0000 1504XXXX1 01 0000 XXXX1 ERASEABLE11 BOP ROUTINE11001LDD SUB16 INITIALIZERAUREADC SUB10 PUNCH11 BLR ROUTINE11002RAL 1959 BLR RESERVEBLR SLO 1958 FWA TOAUP 8001 LWALDDSETCC SUB2R11 RBR ROUTINE11012RAUDDIFFALO 1959 BLR11 BLA ROUTINE11003LDDH8XXX SET DRUMSTDDRUMT TAG TO 8RAL 1959 UNRESERVESLO 1958 FWAAUP 8001 TOLDDSETCC SUB2U LWA11 REG ROUTINE1HEDR1004RAL 1952 ISSRT 0008 REGIONSLO90XXX CHARACTERBMI 1002 ALPHBETICALO29XXXBMI 1002SLT 0004 STOREALOST REGIONAUP 1958 ORIGINAUPH9XXX 80028002STU 9999 10021ST STU 1021 1002 CONSTANTSHED11 EQU REQ AND SYN ROUTINE1HEDZ1005LDDH8XXX BOTH EQU1006LDDH9XXX BOTH SYNBOTH STDTAGRAU 1953 WHAT IS ILDDZ SUBR4Z0001RAL 1959 Y0001 ABSOLUTEZ0002LDDY SUBR9 REGIONALY0001STLE TDY0002RALP0010 BP REG ERRORZ0003LDDW SUBR6 SYMBOLICW0001RALEQUIV Y0001 S DEFINEDW0002RALP0010 BP S UNDEFINDW0003RALP0010 BP S TAB FULL1TD RAU 1952 HEAD DLDD SUB15 AND EQUATELDDV SUBR6 TO EV0003RALP0010 BP S TAB FULLV0001ALOE SDV0002ALOE SDSD LDDTT SUBR71TT LDDTAG TEST TAGBDOSETCCRAUE RESERVE ELDDSETCC SUB2R11011LDDH8XXX REQSTDTAG ROUTINERAL 1959 IS ISLO2000I DRUM O CORBMIDALOCDIFF CDD ALODDIFF CDCD ALO2000I Y00011Z 00 0000 Z0001 CONSTANTSY 00 0089 Y0001W 00 0000 W0001V 00 0000 V000188 00 8800 00001BP ALO88 BY PASSSTLP0010 PUNCH1TAG 01 0000 TAG ERASEABLEE 01 0000 EHED11 ALF ROUTINE11007LDD PROCL PROCES LOCLDD 1952STDP0007RAL 1953 REPLACENZEPUNCH BLANK ILDDSOAP2 BYSTDP0003 PUNCH SOAP2SOAP2ALFSOAP2 SOAP2 CONSTANT11 PAT ROUTINE11008RAU SUB10LDDREADC SUB1411 HED ROUTINE11009RAL 1952 STORESRT 0008 HEADINGSTL0000H SETCC CHARACTER11 REL ROUTINE1HEDM1010RAL 1952 SETNZE SDD DRUMRAL 1958 SDD ANDSDD STLDDIFF CORERAL 1953 DELTASNZE SCDRAL 1959 SCDSCD STLCDIFF SETCC1DDIFF 01 0000 DDIFF ERASEABLECDIFF 01 0000 CDIFFHED11 LOAD AVAILABILITY TABLE1HEDL1999RAL 1951 CALCSRT 0004 LOCSLT 0004 W2ALO 8002ALO 8002ALOC1AUPC2 80038003LDD 9995 8002 LOAD8002STD 9994 TUP TABLETUP SUPTWNZU READCAUPTWP2ALO1DXXX 80031C1 STDA0001 TUP CONSTANTSC2 LDD 1952 8002TW LDD 1958 8002TWP2 LDD 1960 8002HED11 OPTIMIZING TABLE1N0001 00 0404 0998 NOPN0002 00 0404 0998 HLTN0003 33 2322 0999 UFAN0004 00 0505 0998 RTCN0005 00 0505 0998 RTNN0006 00 0505 0998 RTAN0007 00 0505 0998 WTNN0008 00 0505 0998 WTAN0009 33 1212 0999 LIBN0010 33 0202 0999 LDIN0011 33 0504 0999 AUPN0012 33 0504 0999 SUPN0013 99 9999 9999 NOT USEDN0014 99 9999 9999 NOT USEDN0015 33 1110 0999 DIVN0016 33 0504 0999 ALON0017 33 0504 0999 SLON0018 33 0504 0999 AMLN0019 33 0504 0999 SMLN0020 33 2120 0999 MPYN0021 54 0303 0999 STLN0022 45 0303 0999 STUN0023 34 0303 0999 SDAN0024 34 0303 0999 SIAN0025 33 0303 0999 STDN0026 44 0505 0998 NTSN0027 00 0505 0998 BINN0028 00 0505 0998 SETN0029 33 1212 0999 SIBN0030 33 0202 0999 STIN0031 00 0000 0988 SRTN0032 00 0000 0888 SRDN0033 33 2726 0999 FADN0034 33 2726 0999 FSBN0035 33 0000 0999 FDVN0036 00 0000 0988 SLTN0037 00 0000 0988 SCTN0038 33 2726 0999 FAMN0039 33 2726 0999 FSMN0040 33 0000 0999 FMPN0041 33 0404 0998 NZAN0042 33 0404 0998 BMAN0043 33 0404 0998 NZBN0044 33 0404 0998 BMBN0045 34 0405 0998 NZUN0046 43 0504 0998 NZEN0047 33 0404 0998 BMIN0048 33 0505 0998 BOVN0049 33 0404 0998 NZCN0050 33 0404 0998 BMCN0051 00 0000 0898 AXAN0052 00 0000 0898 SXAN0053 00 0000 0898 AXBN0054 00 0000 0898 SXBN0055 44 0505 0998 NEFN0056 00 0505 0998 RWDN0057 00 0505 0998 WTMN0058 00 0505 0998 BSTN0059 00 0000 0898 AXCN0060 00 0000 0898 SXCN0061 33 0504 0999 RAUN0062 33 0504 0999 RSUN0063 99 9999 9999 NOT USEDN0064 99 9999 9999 NOT USEDN0065 33 1110 0999 DVRN0066 33 0504 0999 RALN0067 33 0504 0999 RSLN0068 33 0504 0999 RAMN0069 33 0504 0999 RSMN0070 33 0303 0999 LDDN0071 00 0000 0999 RD1N0072 00 0000 0999 WR1N0073 00 0000 0999 RC1N0074 00 0000 0999 RD2N0075 00 0000 0999 WR2N0076 00 0000 0999 RC2N0077 00 0000 0999 RD3N0078 00 0000 0999 WR3N0079 00 0000 0999 RC3N0080 00 0505 0999 RPYN0081 00 0000 0898 RAAN0082 00 0000 0898 RSAN0083 00 0000 0898 RABN0084 00 0000 0898 RSBN0085 33 0506 0999 TLUN0086 00 0606 0998 SDAN0087 00 0606 0998 RDSN0088 00 0606 0998 WDSN0089 00 0000 0898 RACN0090 00 0000 0898 RSCN0091 44 0505 0998 BD0N0092 33 0505 0998 BD1N0093 33 0505 0998 BD2N0094 33 0505 0998 BD3N0095 33 0505 0998 BD4N0096 33 0505 0998 BD5N0097 33 0505 0998 BD6N0098 33 0505 0998 BD7N0099 33 0505 0998 BD8N0100 44 0505 0998 BD911 SYMBOLIC OP TABLE1C0001 61 7366 1007 ALFC0002 61 7376 0015 ALOC0003 61 7473 0017 AMLC0004 61 8477 0010 AUPC0005 61 8761 0050 AXAC0006 61 8762 0052 AXBC0007 61 8763 0058 AXCC0008 62 6476 0090 BD0C0009 62 6491 0091 BD1C0010 62 6492 0092 BD2C0011 62 6493 0093 BD3C0012 62 6494 0094 BD4C0013 62 6495 0095 BD5C0014 62 6496 0096 BD6C0015 62 6497 0097 BD7C0016 62 6498 0098 BD8C0017 62 6499 0099 BD9C0018 62 6975 0026 BINC0019 62 7361 1003 BLAC0020 62 7379 1002 BLRC0021 62 7461 0041 BMAC0022 62 7462 0043 BMBC0023 62 7463 0049 BMCC0024 62 7469 0046 BMIC0025 62 7677 1001 BOPC0026 62 7685 0047 BOVC0027 62 8283 0057 BSTC0028 64 6985 0014 DIVC0029 64 8579 0064 DVRC0030 65 7884 1005 EQUC0031 66 6164 0032 FADC0032 66 6174 0037 FAMC0033 66 6485 0034 FDVC0034 66 7477 0039 FMPC0035 66 8262 0033 FSBC0036 66 8274 0038 FSMC0037 68 6564 1009 HEDC0038 68 7383 0001 HLTC0039 73 6464 0069 LDDC0040 73 6469 0009 LDIC0041 73 6962 0008 LIBC0042 74 7788 0019 MPYC0043 75 6566 0054 NEFC0044 75 7677 0000 NOPC0045 75 8382 0025 NTSC0046 75 8961 0040 NZAC0047 75 8962 0042 NZBC0048 75 8963 0048 NZCC0051 75 8965 0045 NZEC0052 75 8984 0044 NZUC0053 77 6183 1008 PATC0054 77 6368 0071 PCHC0055 79 6161 0080 RAAC0056 79 6162 0082 RABC0057 79 6163 0088 RACC0058 79 6173 0065 RALC0059 79 6174 0067 RAMC0060 79 6184 0060 RAUC0061 79 6279 1012 RBRC0062 79 6364 0070 RCDC0063 79 6391 0072 RC1C0064 79 6392 0075 RC2C0065 79 6393 0078 RC3C0066 79 6482 0086 RDSC0067 79 6491 0070 RD1C0068 79 6492 0073 RD2C0069 79 6493 0076 RD3C0070 79 6567 1004 REGC0071 79 6573 1010 RELC0072 79 6578 1011 REQC0073 79 7788 0079 RPYC0074 79 8261 0081 RSAC0075 79 8262 0083 RSBC0076 79 8263 0089 RSCC0077 79 8273 0066 RSLC0078 79 8274 0068 RSMC0079 79 8284 0061 RSUC0080 79 8361 0005 RTAC0081 79 8363 0003 RTCC0082 79 8375 0004 RTNC0083 79 8664 0055 RWDC0084 82 6383 0036 SCTC0085 82 6461 0022 SDAC0086 82 6482 0085 SDSC0087 82 6583 0027 SETC0088 82 6961 0023 SIAC0089 82 6962 0028 SIBC0090 82 7376 0016 SLOC0091 82 7383 0035 SLTC0092 82 7473 0018 SMLC0093 82 7964 0031 SRDC0094 82 7983 0030 SRTC0095 82 8364 0024 STDC0096 82 8369 0029 STIC0097 82 8373 0020 STLC0098 82 8384 0021 STUC0101 82 8477 0011 SUPC0102 82 8761 0051 SXAC0103 82 8762 0053 SXBC0104 82 8763 0059 SXCC0105 82 8875 1006 SYNC0106 83 7384 0084 TLUC0107 84 6661 0002 UFAC0108 86 6482 0087 WDSC0109 86 7991 0071 WR1C0110 86 7992 0074 WR2C0111 86 7993 0077 WR3C0112 86 8361 0007 WTAC0113 86 8374 0056 WTMC0114 86 8375 0006 WTNC0115 99 9999 0001 TABLE END11 SUB 1 STORE IN FWA TO LWA1HED1SUBR1STDEXITX STORE EXITSTUXXXX1 STORE KLDDFWA SETSDAFWA FWASLT 0004 LWASDAXXXX2 ADDRESSESRAUFWAALOXXXX1 80038003STL 9999 NEXT STORE KNEXT SUPXXXX2 END OFNZU EXITX LOOP TESTAUP 8001AUP1DXXX 8003 STEP1FWA STL 9998 NEXT CONSTANTSXXXX2 01 0000 XXXX2 ERASEABLEHED11 SUB 2 RESERVE UNRESERVE1HED2B0002SLT 0009 XXXX STUUHSLT 0001RAL 8002AUPWSRT 0001AUPUH SPRSPR SRT 0009 SASA STL 9983 B0001B0001RALN IS N ZERONZE EXITYSLO1I REDUCE NSTLN BY 1RAUSA IS AISUPA197 IN LASTBMI TP BLOCK OFAUPA201 SU 41SUB2RSTDEXITY RESERVELDDZ RU ENTRYSUB2USTDEXITY UNRESERVELDD1I RU ENTRYTP RALSPR IS P 9SLOC2NZE ZPALOC5 STEP PLDDC1SDAB0002STLSPRRAUSA REDUCE AISUPC6 SU BY 1961ZP LDDC1 SET PSTDB0002 TO ZEROLDDC7STDSPRRAUSA REDUCE AISUPC8 SU BY 195RU STDW SET WSTLN STORE NSLO 8001 CALC AOAUP 8003 AND POSRT 0003STUXSUP 8001SLT 0001STUPSUP 8001SLT 0002AUP 8003AUPXALOPSLT 0004ALOC1STLB0002LDDC2SDASPRAUPC3 SUSU STUSAAUPC4 80038003RAL 9992 B00021C1 SLT 0000 XX CONSTANTSC2 SRT 0009 SAC3 STLA0001 B0001C4 45 0000 00011I 00 0000 0001A197 STLA0197 B0001A201 STLA0201 B0001C5 SRT 0010 SAC6 00 0196 0000C7 SRT 0000 SAC8 00 0195 0000Z 00 0000 0000W 01 0000 W ERASEABLEN 01 0000 NB0002 01 0000 B0002SPR 01 0000 SPRSA 01 0000 SAUH 01 0000 UHX 01 0000 XHED11 SUB 3 PROCESS OP CODE1HED3SUBR3STDEXITX STORE EXITRAL 1954SRT 0004 IS OPNZE ILLOP BLANKSLT 0006 IS OPNZU NUM NUMERICSRT 0002STLXXXX1 SEARCHSLO 8001 SYMBOLICTLUC0001 OP TABLEALO1 80028002RAL 9997 NEXT ISNEXT SLOXXXX1 SYM OPSLT 0006 LEGALNZUILLOPSLT 0001 TEST FORNZUPSEU PSEUDO OPSLT 0001 SNO STORE NUMSNO STLP0007 650 OPSRT 0004 GET OPTIMALO3 8002 CONSTANTS8002LDD 9996 NEXNEX STDOPTIM EXITX1NUM SLO4 FORMSLT 0002 NUMERICSLO 8002 OPSRT 0001 CODEALO 8001 SNO1ILLOPRALP0010 ILLEGAL OPALO5 SET 8STLP0010 FOR BLANKLDD6 NEX OP1PSEU SLT 0003 PSEUDOALOEXITX OPALO1IXXX 800211 RAL 0000 NEXT CONSTANTS2 10 0000 00003 LDDN0001 NEX4 90 9000 00005 00 0000 00086 55 0505 0999HED11 SUB 4 WHAT IS ADDRESS1HED4SUBR4STDEXITZ STORE EXITSTUXXXX1 STORE ADDRSRT 0008 IS C5NZU EXITZ BLANKSTUXXXX2 SAVE C5RAU 8002 ARE LOW 4AUP90XXX CHARACTERSBOVLOOP LOOP NUMERICLOOP AUPH1BOV SYMSLT 0002NZULOOPRALXXXX2 LOW 4 NUMSLO90XXX IS C5BMI SYM ALPHABETICALO29XXXBMISYMRAL1IXXX REGIONALAUPXXXX1 AEXAEX ALOEXITZSLO 8002 8001SYM RAUXXXX1 HED SYMBOLLDD SUB15ALO2IXXX STEP EXITSTUHSYMB AEXH1 10 0000 0000HSYMB 01 0000 HSYMB ERASEABLEHED11 SUB 5 TEST ABSOLUTE ADDRESS1HED5SUBR5STDEXITZ STORE EXITSTLXXXX1 STORE ASLT 0004SLO 8002TLUR0001 TLUALOGET 8002 RANGE8002RAU 9972 X TABLEX SLT 0006SRT 0006AUPEXITZALOXXXX1SUP 8003 8001GET RAU 0000 XR0001 00 1999 0000 RANGER0002 00 7999 0003 TABLER0003 00 8003 0001R0004 00 8004 0003R0005 00 8007 0001R0006 00 8999 0003R0007 00 9059 0002R0008 99 9999 0003HED11 SUB 6 SYMBOL TEST ROUTINEHED6A NZE UND LI ZEROSLOS IS CONT OFNZESW DEF LI SYMBSW RALLI OFF IS LIOFF SLOLMAX MAXIMUMNZE MAXALOLMP SLI STEP LION SLOLO IS LI EQUANZE SWSYM TO LOALOLOP1 SLI STEP LIMAX LDDSWON SETSTDSW SWITCH ONRALL1 SLI ZERO LI1UND RALEXITZ UNDEFINEDALO1IXXX STEPSTLEXITZ EXITRALLISLOL1STLLSYMB ASU1DEF RALLI DEFINEDLDDASU SUBR8 GETASU AUPS EXITZ EQUIVALENT1SWSYMHLT 0111 SYMOF S TAB FULLSYMOFLDDSYMON SET SW SYMSTDSYMON SYMON ONSYMONRALEXITZALO2IXXX 8002SUBR6STDEXITZ STORE EXITSTUS STORE SYMBLDDSWOF SET SWITCHSTDSW OFFMPYSC SCRAMBLERAL 8002 SYMBOLSLT 0003 GIVINGMPYCF LOSRT 0001SLT 0004 SETALOL1P1 TESTSTLLOP1 WORDSLO1DXXXSTLLO SLI SAVE LOSLI STLLI 8001 INIT LI8001RAL 9990 A IS CONT OF1SWOF RALLI OFF CONSTANTSSWON RALLI ONSC 10 0100 1001CF 00 0000 0004L1 RAL 0000 AL1P1 RAL 0001 ALMAX RALE0000 ALMP1 RALE0001 AS 01 0000 S ERASEABLESW 01 0000 SWLO 01 0000 LOLI 01 0000 LILSYMB 01 0000 LSYMBHED11 SUB 7 STORE SYMBOL AND EQUIV1HED7SUBR7STDEXITZ STORE EXITLDDSSSDAXXXX2 8001 STORE8001STU 9988 A SYMBOLA SUP 8001STLXXXX1 SAVE ESRT 0004DIV2IXXX CALCULATESLT 0004 LOCATIONALOC1 OFLDDC2 ESDASEL ANDLDDC3 STORESDASERSTLOBEESLO 8001ALOXXXX1 OBEEOBEE LDD 9986 BB NZUSERSLT 0004 SELSS STU 9987 A CONSTANTSC1 LDDE0001 BC2 SDA 9985 EXITZC3 SIA 9984 EXITZOBEE 01 0000 OBEE ERASEABLESEL 01 0000 SELSER 01 0000 SERHED11 SUB 8 GIVEN SYM LOC GET EQUIV1HED8SUBR8STDEXIT STORE EXITLDD 8003SDALSYMB STORE LRAL 8001DIV2DXXXSLT 0004ALOE1 80028002LDD 9975 TRTR NZU LHRAM 8001 LR GET E RHLH RAM 8001 GET E LHSRT 0004 LRLR LDD 8003SIAEQUIVRALLSYMB EXIT1E1 LDDE0001 TR CONSTANTEXIT 01 0000 EXIT ERASEABLEEQUIV 01 0000 EQUIVHED11 SUB 9 CALCULATE REG ADDRESSHED9SUBR9STDEXITZ STORE EXITSRT 0008RAL 8003SLT 0004ALOC 8002 IS8002RAL 9991 NEX REGIONNEX BDOILL DEFINEDSLT 0001RAL 8002SRT 0001LDDEXITZBD6 LBD5D IL ALO 1957 ALLD ALO 1958 ALLI ALO 1959 ALLALL SLO1IXXXBMIILL EXITZILL RALEXITZ UNDEFINEDALO1IXXX 8002 OR ILLEG1C RAL 0960 NEX CONSTANTHED1 SUB 10 SET CC 8 AND PUNCH1SUB10ALOP0010ALO84THSTLP0010PCHP0001 8003184TH 00 0800 0000 CONSTANT11 SUB 11 FIND AND RESERVE BEST1HED0SUB11LDDDRUMT TESTBDO SEX DRUM TAGSTLEXIT IS ADR LBD6DIRAL 8003 SSW LDI LDDF D OR ISDAXXXX1 SUB13 FIND OPTIMGDA SLT 0004 DYNAM ADRALO 8002ALO 8002 SSWSSW LDDOFF SET SW OFFSTDSWALOA1P1 GET TABLESTLBP1 START ADDRSLO1DXXXSTLAO SAI SAVE AOSAI STLAI 80018001RAU 9975 TA IS A LOCATTA NZUYES SW AVAILABLESW RAUAI SWOFSWOF SLOAMAX IS AI MAXNZE MAXALOAMP1 SAI STEP AISWON SLOAO IS AI EQUANZE FULL TO AOALOBP1 SAI STEP AIMAX LDDON SET SW ONSTDSWRALA1 SAI SET AI TO1FULL HLT 0222 DRUM PAKEDLDDH9XXX SET DRUMSTDDRUMT TAG TO 9RALEXIT SEX STEP EXITSEX ALO1IXXX 80021YES SCT 0000 RESERVESLT 0001 LOCATIONSRT 0001 FOUNDSTLXXXX2 SAVE PSUP 8003SLT 0004AUP 8001ALOSRP 80028002SRT 0009 SCA NULIFY SCTSCA RAU 8003ALOAILDDSTSDAERAS 80018001STU 9972 CACA SUP 8001 CALCULATESLOA1 LOCATIONSRT 0004 FOUNDDIV4IMPY500ALO 8003SUP 8001 EXITF 00 0000 GDA CONSTANTSOFF RALAI SWOFA1P1 RAUA0002 TAAMAX RAUA0200 TAAMP1 RAUA0201 TAON RALAI SWONA1 RAUA0001 TASRP SRT 0000 SCAST STU 9999 CA4I 00 0000 0004500 00 0000 050050 00 0000 0050FON RAL 8001 STEPXAO 01 0000 AO ERASEABLEAI 01 0000 AIBP1 01 0000 BP1EXIT 01 0000 EXITHED11 SUB 12 SET BLANK L 81SUB12ALOP0010ALO87THSTLP0010 8002187TH 00 0000 8000 CONSTANT11 SUB 13 CAL OPTIMUM DYNAMIC ADR1HEDYSUB13STDEXITZ STORE EXITBD5 I D OR IRALOPTIM DSLT 0001SLO 8002SLT 0001ALO 8001SRT 0003 SEOI RALOPTIM IBD2SHOP SHIFT TESTBD3XAS XAS TESTSLT 0002 SEOSEO STLXXXX1 SAVE EV ODRALOPREG IS BASEDIV2IXXX EVEN OR ODRAU 8003ALOXXXX1NZU R8SLT 0002RAL 8002 R8R8 SRT 0008 GET BASEALOOPREG PLUS DELTADIV50 MOD 50RAL 8003 EXITZ1SHOP RALP0007 TLU UNITSSRT 0004 DIGIT OFSLT 0009 D ADDRESSSLO 8002TLUU0001ALOGU 80028002RAL 9969 TOPTOP SLT 0002LDDOPTIM IS OP SRDBD3 SEOSLT 0004 SEO SRD1XAS RALP0007 TLUSRT 0004 D ADDRESSSLT 0006SLO 8002TLUI0001ALOGXD 80028002RAL 9968 NXTNXT SLT 0004 SEO1U0001 00 2322 2524 SHIFTU0002 10 0706 0706 OPTIMIZINGU0003 20 0706 0908 TABLEU0004 30 0908 1110U0005 40 1110 1312U0006 50 1312 1514U0007 60 1514 1716U0008 70 1716 1918U0009 80 1918 2120U0010 90 2120 23221I0001 19 9906 0600 X ACCUMI0002 79 9907 0700 ADD SUBI0003 80 0008 0800 TABLEI0004 80 0106 0600I0005 80 0209 0800I0006 80 0308 0900I0007 90 5908 0800I0008 99 9909 09001GU RAL 0000 TOP CONSTANTSGXD RAL 0000 NXT50 00 0000 0050HED11 SUB 14 PUNCH AVIL TABLE1HEDPSUB14STDEXITX STORE EXITLDD85TH SET PUNCHSTDP0010 8LDDA1 INIT AISTDXXXX1RALRS1 LOOP INIT RSLOOP AUPC1 80018001STL 9999 NEXT SET LOCATNEXT SUPTW1NZU SRSAUPC2AUPC3 8003SRS STLXXXX2 SAVE RSRAUC4ALOXXXX1 80028002LDD 9998 8003 STORE8002STD 9997 TP AV TABLETP SUPTW2NZU PUNAUPC5ALOC6 8002PUN PCHP0001SLOAIM IS AI MAXNZE EXITXALOAMP1 STEP AISTLXXXX1RALXXXX2SLOC7 LOOP1C1 STLP0001 NEXT CONSTANTSC2 STLP0009 NEXTC3 00 0500 0500C4 STDP0002 TPC5 STDP0010 TPC6 00 0001 0000C7 00 1499 1499TW1 STLP0007 NEXTTW2 STDP0008 TP85TH 00 0080 0000A1 LDDA0001 8003RS1 00 0000 0450AIM LDDA0200 8003AMP1 LDDA0201 8003HED11 SUB 15 HEADING ROUTINE1HEDHSUB15STDEXITY SAVE EXITLDD 8003 IS C1SLT 0008 BLANKNZUDHRAU 8001 HEADAUP0000H EXITYDH RAU 8001 EXITY DONT HEADHED11 SUB 16 INITIALIZATION1SUB16STDEXITY STORE EXITRALI1STUP0009 ZERO CARDSTD0000H ZERO HEADLDD SUBR1 ZERO SYM TRALI2 MAKE DRUMAUPI3 AVAILABLELDD SUBR1LDDH8XXX SET DRUMSTDDRUMT TAG TO 8LDDI4 SET SWSYMSTDSWSYM OFFRALI5 UNDEFINEAUPH8XXX REGIONSLDDEXITY SUBR11I1 00S0001 E0200 CONSTANTSI2 00A0001 A0200I3 11 1111 1111I4 01 0111 SYMOFI5 00 1021 1049PACOFBD6FINDI FINDL11 SUB 17 CALC 800X EQUIVALENT1HEDXSB17DLDDDEQ DI D EQUIVSB17ILDDIEQ DI I EQUIVDI STDXXXX1 SAVE TAGSTUEXITY STORE EXITSTLXXXX2 STORE 800XLDDXXXX1 SUB13 GET OPTIMSDA STLXXXX1 DYNAM ADDRDIV2IXXX IS DY ADDRNZUOD EV EVEN OR ODDOD RAL8002 EOEV RAL8003 EOEO SLOXXXX2NZE ADD1RALXXXX1 EXITYADD1 RALXXXX1ALO1IXXX EXITY1DEQ 00 0008 SDA CONSTANTSIEQ 00 0009 SDA8002 00 0000 80028003 00 0000 8003HED11 SUB 18 INDEX ADDRESS1HEDWINDEXSTDEXITY STORE EXITSTLXXXX1 STORE ADDRRAU 1954SLT 0007LDDEXITYBD5D D OR ISLT 0002 DD SRT 0009MPY2000ILDDEXITYBD6DS DRUM O CORSRT 0001 DS COREDS ALOXXXX1EXITY1EXITY 01 0000 EXITY ERASEABLEHED11 SUB 19 PROCESS LOCATION1REGD0923 0923 PROC LREGG0925 0925REGJ0928 0928REGK0931 0931REGL0933 09331HEDAPROCLSTDEXITX STORE EXITRAU 1951 IS L BLANKNZUNBLDDDRUMT BLANK TESTBD0B D0002 DRUM TAGB RALOPREG SETL BLANKSETL SLT 0004 SET LLDDP0008 TO ORSDAP0008 EXITXNB LDDG SUBR4 WHAT IS LG0001RAL 1957 K0001 ABSOLUTEG0002LDDK SUBR9 REGIONALG0003LDDL SUBR6 SYMBOLICK0001LDDL SUBR5 TEST RANGEK0002RAU87TH X REG ERRORX AUPP0010 SET BLANKSTUP0010 SETL L8L0001STLOPREG SETL DRUM ADDRL0002AUP86TH 800X 800XL0003LDDORCEQ 89X CORE ADDRL0004RAU87TH X OTHER800X LDDORXEQ 89X89X STDOPREG XJ0001RALEQUIV K0001 SYM DEFINDJ0002RALD SUB11 SYM UNDEFJ0003RAU87TH X S TAB FULLD0001STLOPREG SS S EQ FOUNDD0002RAU87TH X DRUM PAKEDSS AUPHSYMB STOREALOLSYMB SYMBOLLDDB SUBR71G 00 0000 G0001 CONSTANTSK 00 0090 K0001J 00 0000 J0001L 00 0000 L0001D 00 0090 D000186TH 00 0008 000087TH 00 0000 8000EXITX 01 0000 EXITX ERASEABLEHED11 SUB 20 PROCESS DATA ADDRESS1REGD0937 0937 PROC DREGF0939 0939REGG0941 0941REGJ0944 0944REGK0946 0946REGL0949 09491HEDBPROCDSTDEXITX STORE EXITRAU 1952 IS D BLANKNZUNBRALD SUB11 FINDD0001STLORBAL L0004 OPTIMUM DD0002RAU88TH X DRUM PAKEDBT LDDOPTIM IS OPBD1EXITX A BRANCHSTLOPREG EXITX D TO ORX AUPP0010 SET BLANKSTUP0010 EXITXNB LDDG SUBR4 WHAT IS DG0001RAL 1958 J0001 ABSOLUTEG0002LDDJ SUBR9 REGIONALG0003LDDK SUBR6 SYMBOLICJ0001LDDL SUBR5 TEST RANGEJ0002RAU88TH X REG ERRORL0001LDDAXD INDEX DRUM ADDRL0002SLT 0004 800X 800XL0003LDDAXC INDEX CORE ADDRL0004SLT 0004 SD OTHER800X LDDP0007 SET 800X DSDAP0007SRT 0004AUPXEQ SB17D GET 800X ESCD SLT 0004 SET CORE DLDDP0007SDAP0007SRT 0004LDDCEQ SUB13 GET CORE ESCEQ STLORCEQ BT SAVE COREK0001RALEQUIV J0001 SYM DEFINEDK0002RALF SUB11 SYM UNDEFK0003RAU88TH X S TAB FULLF0001STLEQ SS SAVE EQF0002RAU88TH X DRUM PAKEDSS AUPHSYMB STOREALOLSYMB SYMBOLLDD SUBR7RALEQ L0004SD LDDP0007 SET D ADDRSDAP0007SRT 0004 BT1D 00 0088 D0001 CONSTANTSG 00 0000 G0001J 00 0088 J0001L 00 0000 L0001F 00 0088 F0001K 00 0000 K0001AXD 00 0088 D0001AXC 00 0098 SCDXEQ STLORXEQ BTCEQ 00 0008 SCEQ88TH 00 0000 0800EQ 01 0000 EQ ERASEABELE11 SUB 21 PROCESS INSTR ADDRESS1REGD0953 0953 PROC IREGF0955 0955REGG0958 0958REGJ0960 0960REGK0962 0962REGL0965 09651HEDCPROCISTDEXITX STORE EXITRAU 1953 IS I BLANKNZUNBRAU 1952 IS D BLANKNZUDNBLDDDRUMT D I BLANKBDO G0002 TEST DRUMRALORBAL L0004 TABDNB RALD SUB11 FIND BESTD0001STLORBAL L0004 FOUNDD0002RALP0010 X DRUM PAKEDX ALO89THSTLP0010 EXITXNB LDDF SUBR4 WHAT IS IF0001RAL 1959 J0001 ABSOLUTEF0002LDDJ SUBR9 REGIONALF0003LDDK SUBR6 SYMBOLICJ0001LDDL SUBR5 TEST RANGEJ0002RALP0010 X REG ERRORL0001LDDAXD INDEX DRUM ADDRL0002LDDP0007 800X 800XL0003LDDAXC INDEX CORE ADDRL0004LDDP0007 OTHERSIAP0007 MOR800X SIAP0007AUPXEQ SB17I GET 800X E90XX LDDP0007 SET CORESIAP0007 ADDRESSLDDCEQ SUB13 GET CORE EK0001RALEQUIV J0001 SYM DEFINDK0002RALG SUB11 SYM UNDEFK0003RALP0010 X S TAB FULLG0001LDDP0007 SI FOUND BESTG0002RALP0010 X DRUM PAKEDSI SIAP0007AUPHSYMB STOREALOLSYMB SYMBOLLDDMOR SUBR7MOR LDDORBAL SET ORSTDOPREG EXITX TO ORBSCEQ STLORCEQ MOR SAVE CORE1D 00 0089 D0001 CONSTANTSF 00 0000 F0001J 00 0089 J0001K 00 0000 K0001L 00 0000 L0001G 00 0089 G000189TH 00 0000 0080AXD 00 0089 L0004AXC 00 0099 90XXXEQ STLORXEQ MORCEQ 00 0009 SCEQHED11IXXX 00 0000 0001 CONSTANTS1DXXX 00 0001 00002IXXX 00 0000 00022DXXX 00 0002 0000H8XXX 80 0000 0000H9XXX 90 0000 000090XXX 00 0000 009029XXX 00 0000 00292000I 00 0000 2000 CONSTANTTORG 00 0000 T00011PAT
Go to most recent revision | Compare with Previous | Blame | View Log