INHALT

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

2152 * 2153 * 2154 02055 0 000000 REST DAC ** HERE TO RESTORE AFTER UNSTRINGING. 2155 02056 0 02 02012 LDA SAVL RESTORE THE LOCATION COUNTER. 2156 02057 0 04 03777 STA WORD 2157 02060 0 02 02013 LDA SAVL+1 RESTORE THE MEMORY MODE. 2158 02061 0 04 03666 STA MMOD 2159 02062 0 02 02014 LDA SAVL+2 RESTORE THE BASE SECTOR. 2160 02063 0 10 02015 JST SETB 2161 02064 -0 01 02055 JMP* REST EXIT TO CALLER. 2162 * 2163 * 2164 * 2165 02065 0 000000 DESE DAC ** HERE TO DESECTOR 'WORD' TO 'VALU'. 2166 02066 0 02 03677 LDA VALU PICK UP DESIRED ADDRESS. 2167 02067 0 04 03674 STA T+1 ASSUME IT WILL BE DIRECT ADDRESS. 2168 02070 0 05 03777 ERA WORD COMPARE WITH LOC OF INSTRUCTION. 2169 02071 0 03 02722 ANA ='077000 ISOLATE THE SECTOR NUMBERS. 2170 02072 0 03 03666 ANA MMOD 2171 02073 101040 SNZ IS ADDRESS IN SAME SECTOR.Q 2172 02074 0 01 02151 JMP DESC YES. GO HANDLE IT. 2173 02075 0 02 03677 LDA VALU NO. MAYBE ADDRESS IS IN THE 2174 02076 0 03 02722 ANA ='077000 2175 02077 100040 SZE 2176 02100 0 05 02674 ERA BASE CURRENT BASE SECTOR. 2177 02101 0 03 02722 ANA ='077000 ISOLATE SECTOR NUMBERS. 2178 02102 0 03 03666 ANA MMOD CURRENT MODE 2179 02103 101040 SNZ IS ADDRESS IN BASE SECTOR.Q 2180 02104 0 01 02146 JMP DESB YES. GO SERVICE IT. 2181 02105 0 02 02674 LDA BASE PICK UP BASE SECTOR 2182 02106 100040 SZE * 2183 02107 0 01 02113 JMP *+4 * 2184 02110 0 02 02720 LDA ='100 SET TO DEFAULT 2185 02111 0 10 02667 JST MRG2 * 2186 02112 0 10 02015 JST SETB SET THE BASE 2187 02113 -0 02 03777 LDA* WORD NO. MUST CREATE INDIRECT WORD. 2188 02114 0 05 02717 ERA ='032000 CHECK FOR OBJECT INSTRUCTION 2189 02115 0 03 02716 ANA ='036000 'LOAD-INDEX', WHICH MUST BE 2190 02116 101040 SNZ INDIRECTED DIFFERENTLY. 2191 02117 0 01 02136 JMP DESL YES. GO SERVICE 'LDX'. 2192 02120 0 02 03677 LDA VALU NO. GET TARGET ADDRESS. 2193 02121 -0 05 03777 ERA* WORD COMBINE WITH FLAG (AND ALSO 2194 02122 0 03 03666 ANA MMOD TAG IF 16K MEMORY MODE) OF OP. 2195 02123 -0 05 03777 ERA* WORD CREATE INDIRECT WORD. 2196 02124 0 04 03673 STA T SAVE IT TEMPORARILY. 2197 02125 0 02 03666 LDA MMOD TURN ON THE INDIRECT BIT OF 2198 02126 -0 03 03777 DESF ANA* WORD THE OBJECT WORD (AND ALSO 2199 02127 0 05 02242 ERA SIGN TURN OFF ITS TAG IN 16K MODE 2200 02130 -0 04 03777 STA* WORD REPLACE CORRECTED WORD. 2201 02131 0 02 02674 LDA BASE PREPARE FOR SEARCH OF