DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 66

2300 * 2301 * ORG : ORG PSEUDO-OP PROCESSOR 2302 * 2303 * 2304 03240 -0 10 00547 ORG JST* DLC DEFINE SYMBOL IN LOCATION FIELD 2305 03241 0 10 02224 JST VAR EVALUATE EXPRESSION IN ADDRESS FIELD 2306 03242 0 04 00405 STA CLOC SET NEW VALUE IN PROGRAM COUNTER 2307 03243 -0 10 00577 OR2 JST* OBTD SET NEW ORIGIN IN OBJECT TEXT 2308 03244 000007 OCT 7 2309 03245 -0 01 00542 JMP* COM LIST THIS STATEMENT AND EXIT 2310 * 2311 * 2312 * LOAD: LOAD PSEUDO-OP PROCESSOR 2313 * 2314 03246 0 02 00671 LOAD LDA M1 SET LOAD FLAG TO 2315 03247 0 04 00407 STA LODF MINUS ONE 2316 * FALL THROUGH TO ABS PROCESSOR 2317 * 2318 * ABS : ABS PSEUDO-OP PROCESSOR 2319 * 2320 03250 -0 10 00577 ABS JST* OBTD OUTPUT ABS MODE BLOCK 2321 03251 000006 OCT 6 CODE FOR NEW STYLE BLOCK 0-30 2322 03252 140040 CRA CLEAR A REGISTER FOR ASSEMBLY MODE SWITCH 2323 03253 0 01 03257 JMP REL1 GO TO REL PROCESSOR TO SET THE SWITCH 2324 * 2325 * 2326 * REL : REL PSEUDO-OP PROCESSOR 2327 * 2328 03254 -0 10 00577 REL JST* OBTD OUTPUT REL MODE BLOCK 2329 03255 000005 OCT 5 CODE FOR NEW STYLE BLOCK 0-24 2330 03256 0 02 00700 LDA ONE A=1 FOR ASSEMBLY MODE SWITCH 2331 03257 0 04 00406 REL1 STA ABSW SET ASSEMBLY MODE SWITCH 2332 03260 -0 01 00542 JMP* COM GO LIST THIS STATEMENT AND EXIT 2333 * 2334 * 2335 EJCT *************************************************************