DAP-16M2

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

2460 * 2461 * SETB: SET BASE PSEUDO-OP PROCESSOR 2462 * 2463 * 2464 03342 -0 10 00547 SETB JST* DLC DEFINE LOCATION FIELD 2465 03343 -0 10 00612 JST* VARD EVALUATE ADDRESS FIELD 2466 03344 140100 SSP TRUNCATE IF NECESSARY TO 15 BITS 2467 03345 0 04 00437 STA WORD SAVE THE VALUE FOR OUTPUT ROUTINE 2468 03346 0 02 00417 LDA RBIT FETCH THE RELOCATION FLAG 2469 03347 101040 SNZ SKIP IF NOT ABSOLUTE 2470 03350 0 01 03357 JMP STBX ALSO OUTPUT ABSOLUTE BASE ADDRESS 2471 03351 0 07 00700 SUB ONE SUBTRACT ONE TO TEST FOR RELOCATABLE 2472 03352 100040 SZE RESULT IS ZERO IF RELOCATABLE 2473 03353 -0 10 00566 JST* VER NOT RELOCATABLE - FLAG 'V' ERROR 2474 03354 140500 SSM SET BIT ONE - RELOCATABLE 2475 03355 0 06 00437 ADD WORD ADD IN THE ADDRESS 2476 03356 0 04 00437 STA WORD SAVE RESULT FOR OUTPUT ROUTINE 2477 03357 -0 10 00577 STBX JST* OBTD OUTPUT OBJECT TEXT BLOCK 2478 03360 000015 OCT 15 CODE FOR NEW STYLE BLOCK 64 2479 03361 -0 01 00542 JMP* COM GO LIST THE STATEMENT AND EXIT 2480 * 2481 * 2482 EJCT *************************************************************