DAP-16M2

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

2014 * 2015 * EXT : EXT PSEUDO-OP PROCESSOR 2016 * 2017 * 2018 02741 -0 10 00573 EXT JST* ADVD ADVANCE T0 ADDRESS FIELD 2019 02742 0 10 03016 JST R6C READ 1-6 CHARACTER NAME 2020 02743 0 02 00444 LDA TERM FETCH TERMINATING CHARACTER 2021 02744 0 05 00635 ERA C240 CHECK FOR SPACE CHARACTER 2022 02745 100040 SZE SKIP IF IT IS 2023 02746 -0 01 00604 JMP* BCE9 ELSE FLAG 'V' ERROR AND EXIT 2024 02747 0 02 00405 LDA CLOC CHECK FOR PREVIOUS CODE GENERATION 2025 02750 100040 SZE SKIP IF NO CODE HAS BEEN GENERATED 2026 02751 -0 10 00560 JST* EER THIS POTENTIALLY COULD CAUSE PROBLEMS 2027 02752 0 02 00436 LDA ZP CHECK FOR PASS ONE 2028 02753 0 05 00461 ERA TST BIT ONE RESET IF PASS ONE 2029 02754 100400 SPL SKIP IF PASS ONE 2030 02755 -0 01 00542 JMP* COM PASS TWO - NO MORE PROCESSING REQUIRED 2031 02756 0 02 00450 LDA SYL FETCH FIRST WORD OF NAME 2032 02757 0 05 00621 ERA B4 SET EXTERNAL FLAG 2033 02760 0 04 00450 STA SYL REPLACE FIRST WORD OF NAME 2034 02761 0 02 00451 LDA SYL+1 FETCH SECOND WORD OF NAME 2035 02762 0 05 00616 ERA B1 COMPLEMENI 'SUBR' FLAG 2036 02763 0 04 00451 STA SYL+1 REPLACE WORD 2037 02764 0 10 02766 JST SCHW WRITE EXTERNAL NAME IN TABLE 2038 02765 -0 01 00542 JMP* COM EXIT 2039 * 2040 * 2041 EJCT *************************************************************