INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 45

2102 ORG ORG+'2000 START NEW SECTOR. 2103 02000 0 003700 FIL7 DAC COMM 2104 02001 0 000045 DAC1 DAC BOT+3 POINTER TO SYMBOL TALBE 2105 SETB STB2 DESECTOR IN CURRENT SECTOR. 2106 * 2107 * 2108 02002 0 000000 SAVE DAC ** HERE TO PREPARE FOR UNSTRINGING. 2109 02003 0 02 03777 LDA WORD SAVE THE LOCATION COUNTER. 2110 02004 0 04 02012 STA SAVL * 2111 02005 0 02 03666 LDA MMOD SAVE THE MEMORY MODE. 2112 02006 0 04 02013 STA SAVL+1 * 2113 02007 0 02 02674 LDA BASE SAVE THE CURRENT BASE SECTOR. 2114 02010 0 04 02014 STA SAVL+2 * 2115 02011 -0 01 02002 JMP* SAVE EXIT TO CALLER. 2116 02012 SAVL BSS 3 SPACE TO SAVE LOADER, FOR 'SAVE' 2117 * 2118 02015 0 000000 SETB DAC ** HERE TO CHANGE BASE SECTOR. 2119 02016 0 04 02674 STA BASE NEW BASE ORIGIN. 2120 02017 0 03 02722 ANA ='077000 ISOLATE BASE SECTOR NUMBER. 2121 02020 0 06 02723 ADD ='000004 FORM BASE INFORMATION KEY. 2122 02021 0 04 02675 STA BASE+1 SAVE IT TEMPORARILY. 2123 02022 0 02 03352 LDA SYM SET UP FOR A SEARCH OF THE 2124 02023 0 04 03673 STA T SYMBOL TABLE. 2125 02024 0 02 03673 SETL LDA T MOVE TO FIRST OR NEXT ENTRY. 2126 02025 0 10 02342 JST NEXE IF TABLE IS EXHAUSTED, GO 2127 02026 0 01 02042 JMP SETN CREATE NEW ENTRY FOR THE SECTOR. 2128 02027 0 10 02656 JST GET GET ENTRY KEY. 2129 02030 0 05 02675 ERA BASE+1 IS IT THE KEY WE WANT.Q 2130 02031 100040 SZE 2131 02032 0 01 02024 JMP SETL NO. CONTINUE SEARCH. 2132 02033 0 12 03673 IRS T YES. MOVE TO FIRST WORD POINTER. 2133 02034 -0 02 03673 LDA* T GET START OF INDIRECT TABLE. 2134 02035 0 04 02674 STA BASE SET IT UP IN CURRENT BASE. 2135 02036 0 12 03673 IRS T MOVE TO COUNT. 2136 02037 0 02 03673 SETJ LDA T 2137 02040 0 04 02675 STA BASE+1 REMEMBER LOCATION OF THE COUNT. 2138 02041 -0 01 02015 JMP* SETB EXIT TO CALLER. 2139 * 2140 02042 0 02 02674 SETN LDA BASE PICKUP BASE SECTOR 2141 02043 101040 SNZ * 2142 02044 -0 01 02015 JMP* SETB IT'S ALREADY SET - EXIT 2143 02045 0 10 02306 JST GEN3 FIRST TIME THIS SECTOR USED 2144 02046 0 02 02675 LDA BASE+1 CREATE AN ENTRY FOR IT IN TABLE. 2145 02047 0 10 03020 JST PUT PLACE THE KEY. 2146 02050 0 02 02674 LDA BASE PLACE THE ORIGIN OF THE TABLE. 2147 02051 0 10 03020 JST PUT 2148 02052 0 02 02721 LDA ='177777 INTTIALIZE (-COUNT-1) TO SAY 2149 02053 -0 04 03673 STA* T NO ENTRIES MADE. 2150 02054 0 01 02037 JMP SETJ GO COPY TABLE ENTRY, AND EXIT. 2151 *