DAP-16M2

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

1905 * 1906 * CALL: CALL PSEUDO-OP PROCESSOR 1907 * 1908 * 1909 02615 -0 10 00547 CALL JST* DLC DEFINE SYMBOL IN LOCATION FIELD 1910 02616 0 02 00620 LDA B3 A(3)=1 1911 02617 0 04 00437 STA WORD PLACE A JST INSTRUCTION IN WORD 1912 02620 0 04 00472 STA CBT1 DAP1 1913 02621 140040 CRA SET ADDRESS T0 1914 02622 0 04 00423 STA SUM ABSOLUTE ZERO 1915 02623 -0 10 00544 JST* DUMP OUTPUT A 'JST 0' INSTRUCTION 1916 02624 -0 10 00573 JST* ADVD ADVANCE TO ADDRESS FIELD 1917 02625 0 10 03016 JST R6C READ SIX CHAR. EXTERNAL NAME 1918 02626 0 35 00673 CAL1 LDX M3 PREPARE TO OUTPUT SIX CHAR. NAME 1919 02627 1 02 00453 LDA SYL+3,1 FETCH NAME WORD 1920 02630 -0 10 00605 JST* UPAK UNPACK THE CHARACTERS 1921 02631 -0 10 00577 JST* OBTD OUTPUT 2 CHARS. OF NAME 1922 02632 000011 OCT 11 CODE FOR EXTERNAL LINKAGE BLOCK 1923 02633 0 12 00000 IRS 0 INCREMENT COUNTER 1924 02634 0 01 02627 JMP *-5 GO BACK FOR NEXT WORD 1925 02635 0 02 00432 LDA DACF DACF INDICATED 9 OF 14/15 1926 02636 0 04 00437 STA WORD BIT REFERENCE 1927 02637 -0 10 00577 JST* OBTD OUTPUT REFERENCE TYPE INDICATOR 1928 02640 000011 OCT 11 1929 02641 -0 01 00542 JMP* COM LIST THIS LINE AND EXIT 1930 * 1931 * 1932 EJCT *************************************************************