DAP-16M2

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

2420 * 2421 * SYMBOL DEFINITION PSEUDO-OP PROCESSORS 2422 * 2423 * 2424 * SET : SET PSEUDO-OP PROCESSOR 2425 * 2426 * 2427 03313 0 12 00431 SET IRS SETF TURN ON SET FLAG 2428 * FALL THROUGH TO EQU PROCESSOR 2429 * 2430 * EQU : EQU PSEUDO-OP PROCESSOR 2431 * 2432 03314 0 10 02224 EQU JST VAR EVALUATE ADDRESS FIELD-RESULT IN A 2433 03315 0 13 00405 EQU1 IMA CLOC SWAP RESULT WITH PROGRAM COUNTER 2434 03316 0 04 00526 STA SYMF SAVE PROGRAM COUNTER IN SYMF 2435 03317 0 02 00417 LDA RBIT RELOCATION VALUE OF THE EXPRESSION 2436 03320 0 13 00406 IMA ABSW SWAP IT WILL ASSEMBLY RELOCATION MODE 2437 03321 0 04 00417 STA RBIT SAVE ASSEMBLY RELOCATION MODE IN RBIT 2438 03322 0 02 00454 LDA SYL1 CHECK FOR SYMBOL IN LOCATION FIELD 2439 03323 101040 SNZ SKIP IF THERE IS 2440 03324 0 10 03760 JST LERR NO SYMBOL ... FLAG 'L' ERROR 2441 03325 -0 10 00547 JST* DLC DEFINE THE SYMBOL IN THE LOCATION FIELD 2442 03326 -0 10 00546 JST* CDTA PRINT THE VALUE OF THE EXPRESSION 2443 03327 0 02 00526 LDA SYMF SYMF CONTAINS CORRECT PROGRAM COUNTER 2444 03330 0 04 00405 STA CLOC RESTORE THE PROGRAM COUNTER 2445 03331 0 02 00417 LDA RBIT RBIT CONTAINS ASSEMBLY MODE 2446 03332 0 04 00406 STA ABSW RESTORE ASSEMBLY MODE FLAG 2447 03333 -0 01 00542 JMP* COM EXIT 2448 * 2449 * COMN: COMN PSEUDO-OP PROCESSOR 2450 * 2451 * 2452 03334 0 10 02224 COMN JST VAR EVALUATE IHE ADDRESS FIELD 2453 03335 140407 TCA COMPLEMENT THE RESULT 2454 03336 0 06 00502 ADD COML ADD TO THE COMMON BASE 2455 03337 0 04 00502 STA COML REPLACE THE COMMON BASE WITH NEW VALUE 2456 03340 0 04 00423 STA SUM SAVE RESULT IN SUM FOR PRINTING 2457 03341 0 01 03315 JMP EQU1 JOIN THE EQU PROCESSOR 2458 * 2459 EJCT *************************************************************