Previous File Previous Page Single Page Next Page Next File

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

2799 * 2800 * ELSE: ELSE PSEUDO-OP PROCESSOR 2801 * 2802 * 2803 03676 0 02 00415 ELSE LDA TCNT FETCH CONDITIONAL COUNT 2804 03677 100040 SZE IF ZERO - ERROR 2805 03700 0 01 03703 JMP *+3 NON-ZERO: OK 2806 03701 -0 10 00614 JST* ZERX FLAG A 'Z' ERROR 2807 03702 0 01 03666 JMP COUT+2 TERMINATE PROCESSING 2808 03703 0 02 00414 LDA CRP FETCH ASSEMBLY INHIBITED COUNTER 2809 03704 101040 SNZ SNZ SKIP IF ASSEMBLY IS INHIBITED 2810 03705 0 01 03662 JMP COND+1 GO INHIBIT ASSEMBLY 2811 03706 0 07 00700 SUB ONE DECREMENT INHIBITION COUNTER 2812 03707 100040 SZE SKIP IF ASSEMBLY IS NOW RESTORED 2813 03710 0 01 03666 JMP COUT+2 OTHERWISE THIS STATEMENT HAS NO EFFECT 2814 03711 0 04 00414 STA CRP CLEAR ASSEMBLY INHIBITION COUNTER 2815 03712 0 01 03666 JMP COUT+2 GO CHECK FOR LISTING AND EXIT 2816 * 2817 * 2818 * ENDC: ENDC PSEUDO-OP PROCESSOR 2819 * 2820 * 2821 03713 0 02 00414 ENDC LDA CRP FETCH ASSEMBLY INHIBITION COUNTER 2822 03714 100040 SZE SKIP IF ASSEMBLY NOT INHIBITED 2823 03715 0 07 00700 SUB ONE OTHERWISE DECREMENT THE COUNTER 2824 03716 0 04 00414 STA CRP REPLACE THE COUNTER 2825 03717 0 02 00415 LDA TCNT FETCH CONDITIONAL COUNTER 2826 03720 0 07 00700 SUB ONE DECREMENT THE COUNTER 2827 03721 100400 SPL SKIP IF VALID RESULT 2828 03722 -0 10 00614 JST* ZERX EXTRA 'ENDC' - FLAG 'Z' ERROR 2829 03723 0 04 00415 STA TCNT REPLACE THE COUNTER 2830 03724 0 01 03666 JMP COUT+2 GO TEST FOR LISTING AND EXIT 2831 * 2832 * 2833 EJCT *************************************************************
Previous File Previous Page Single Page Next Page Next File