DAP-16M2

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

2687 * 2688 * 2689 * VFD : VFD PSEUDO-OP PROCESSOR 2690 * 2691 * 2692 03565 -0 10 00547 VFD JST* DLC DEFINE SYMBOL IN LOCATION FIELD 2693 03566 -0 10 00573 JST* ADVD ADVANCE TO ADDRESS FIELD 2694 03567 140040 CRA 2695 03570 0 04 00477 STA VFD2 CLEAR BIT COUNTER 2696 03571 0 04 00500 STA VFD3 CLEAR DATA WORD 2697 03572 0 04 00501 STA VFDX CLEAR ERROR INDICATOR 2698 03573 0 10 02230 VFD8 JST VARX EVALUATE FIELD SIZE 2699 03574 0 02 00444 LDA TERM FETCH TERMINATING CHARACTER 2700 03575 0 07 00635 SUB C240 CHECK FOR SPACE 2701 03576 101040 SNZ SKIP IF NOT 2702 03577 -0 10 00566 JST* VER UNMATCHED FIELD - FLAG WARNING::NONFATAL 2703 03600 0 02 00477 LDA VFD2 FETCH BIT COUNTER 2704 03601 0 06 00423 ADD SUM ADD NEW FIELD SIZE 2705 03602 0 04 00477 STA VFD2 REPLACE THE COUNTER 2706 03603 140407 TCA COMPLEMENT THE COUNTER 2707 03604 0 06 00631 ADD C20 PERFORM OVERFLOW CHECK 2708 03605 100400 SPL SPL SKIP IF NO OVERFLOW 2709 03606 0 04 00501 STA VFDX OVERFLOW - SET ERROR INDICATOR 2710 03607 0 02 00477 LDA VFD2 FETCH BIT COUNT 2711 03610 0 07 00631 SUB C20 SUBTRACT '20 TO GET POSITION SHIFT COUNT 2712 03611 0 03 00634 ANA C77 A(1-10)=0 2713 03612 0 05 00702 ERA VFD6 INSERT SHIFT INSTRUCTION 2714 03613 0 04 03625 STA VFD9 PLACE SHIFT INSTRUCTION FOR EXECUTION 2715 03614 0 02 00423 LDA SUM FETCH FIELD SIZE 2716 03615 0 07 00631 SUB C20 OBTAIN SHIFT COUNT 2717 03616 0 03 00634 ANA C77 A(1-10)=0 2718 03617 0 05 00701 ERA VFD5 INSERT SHIFT INSTRUCTION 2719 03620 0 04 03623 STA VFD7 PLACE SHIFT INSTRUCTION FOR EXECUTION 2720 03621 0 10 02230 JST VARX EVALUATE DATA FIELD 2721 03622 0 02 00671 LDA M1 SET ALL A REGISTER BITS 2722 03623 0404 00 VFD7 LGR 0 FORM TRUNCATION MASK 2723 03624 0 03 00423 ANA SUM TRUNCATE EXCESS BITS IN DATA FIELD 2724 03625 0414 00 VFD9 LGL 0 POSITION DATA FIELD 2725 03626 0 05 00500 ERA VFD3 INSERT REST OF WORD 2726 03627 0 04 00500 STA VFD3 SAVE NEW VALUE 2727 03630 0 02 00444 LDA TERM FETCH TERMINATING CHARACTER 2728 03631 0 07 00635 SUB C240 CHECK FOR SPACE 2729 03632 100040 SZE SZE SKIP IF END OF ADDRESS FIELD 2730 03633 0 01 03573 JMP VFD8 GO PROCESS NEXT FIELD 2731 03634 0 04 00472 VFDZ STA CBT1 CLEAR OUTPUT CODE BITS 2732 03635 0 02 00501 LDA VFDX FETCH ERROR INDICATOR 2733 03636 100040 SZE SKIP IF NO ERROR DETECTED 2734 03637 -0 10 00557 JST* CER FLAG A 'C' ERROR 2735 03640 0 02 00500 LDA VFD3 FETCH COMPLETE WORD 2736 03641 0 04 00423 STA SUM SAVE IT FOR OUTPUT