INHALT

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

1174 00350 0 001001 DAC NS14 14.. END BLOCK. 1175 00351 0 000321 DAC BLER 20.. ILLEGAL. USED INTERNALLY BY DAP-16. 1176 00352 0 001015 DAC NS24 24.. SET RELOCATABLE MODE. 1177 00353 0 001017 DAC NS30 30.. SET ABSOLUTE MODE. 1178 00354 0 000321 DAC BLER 34.. ILLEGAL. USED INTERNALLY BY DAP-16. 1179 00355 0 000321 DAC BLER 40.. ILLEGAL. USED INTERNALLY BY DAP-16. 1180 00356 0 001022 DAC NS44 44.. SUBPROGRAM CALL BLOCK. 1181 00357 0 001117 DAC NS50 50.. SUBPROGRAM ENTRY DEFINITION. 1182 00360 0 001132 DAC NS54 54.. ENTER EXTEND-MODE DESECTORING. 1183 00361 0 001135 DAC NS60 60.. LEAVE EXTEND-MODE DESECTORING. 1184 00362 0 001141 DAC NS64 64.. SET BASE SECTOR. 1185 00363 0 000321 DAC BLER 70 AND 74.. NOT ASSIGNED. 1186 00364 0 000321 DAC BLER 1187 * 1188 00365 0 003701 BUFD DAC BUFF+1 POINTER TO FIRST INFO WORD, LESS ONE. 1189 * 1190 * 1191 * 1192 * ******************************************************************* 1193 * * NEW STYLE BLOCK ROUTINES * 1194 * ******************************************************************* 1195 * 1196 * 1197 * 1198 * NS00 NEW STYLE 0.. SUBPROGRAM NAME BLOCK. 1199 * 1200 00366 0 02 00667 NS00 LDA ='100005 SET KEY TO INDICATE SUBPROGRAM 1201 00367 0 04 03665 STA KEY NAME RATHER THAN COMMON NAME. 1202 00370 0 10 01561 SNNF JST R48B READ SUBPROGRAM NAME. 1203 00371 0 10 02357 JST SSS SET UP SYMBOL TABLE SEARCH. 1204 00372 0 02 00676 SNNL LDA ='000077 LOOK AT ALL ENTRIES OF TYPE 5. 1205 00373 0 10 02363 JST SSN LOOK AT NEXT ENTRY. 1206 00374 0 01 00370 JMP SNNF NOT FOUND. IGNORE. 1207 00375 0 10 02413 JST MACH DOES THIS ENTRY MATCH.Q 1208 00376 0 01 00372 JMP SNNL NO. CONTINUE HUNT. 1209 00377 101040 SNZ FOUND, IS IT CALLED OR LOADED.Q 1210 00400 0 01 00370 JMP SNNF LOADED. IGNORE IT. 1211 00401 140040 FORS CRA CALLED. WE MUST LOAD IT NOW. 1212 00402 0 04 03671 STA SKIF TURN OFF SKIP FLAG. 1213 00403 0 01 00323 JMP BLOK READ ON 1214 * 1215 * 1216 * 1217 * NS04 NEW STYLE BLOCK 4.. DATA BLOCK. 1218 * 1219 00404 0 10 03024 NS04 JST SKIP IGNORE IF SKIPPING THIS SUBPROGRAM. 1220 00405 0 10 01555 JST LEFT COUNT ORIGIN WORD. 1221 00406 0 12 00657 IRS BUFP MOVE TO IT. 1222 00407 -0 02 00657 LDA* BUFP PICK UP BLOCK ORIGIN. 1223 00410 0 04 03677 STA VALU STORE IT FOR POSSIBLE RELOCATION.