DAP-16M2

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

1956 * 1957 * 1958 * ENT : ENT PSEUDO-OP PROCESSOR 1959 * SUBR: SUBR PSEUDO-OP PROCESSOR 1960 * 1961 * 1962 002662 ENT EQU * 1963 002662 SUBR EQU * 1964 02662 0 04 00526 STA SYMF CLEAR SYNONYM FLAG 1965 02663 0 02 00436 LDA ZP FETCH PASS INDICATOR 1966 02664 100400 SPL SKIP IF OUTPUT PASS 1967 02665 -0 01 00542 JMP* COM NOT OUTPUT PASS - EXIT 1968 02666 -0 10 00573 JST* ADVD ADVANCE TO ADDRESS FIELD 1969 02667 0 10 03016 JST R6C READ AND CHECK ENTRY NAME 1970 02670 0 02 00444 LDA TERM FETCH DELIMITING CHARACTER 1971 02671 0 05 00641 ERA C254 CHECK FOR COMMA 1972 02672 100040 SZE SKIP IF COMMA 1973 02673 0 01 02677 JMP *+4 NO COMMA, THEREFORE NO SYNONYM 1974 02674 0 12 00526 IRS SYMF SET SYNONYM FLAG 1975 02675 0 10 01270 JST SWAP PLACE ENTRY NAME IN SYL1 1976 02676 0 10 03016 JST R6C READ SYNONYM NAME 1977 02677 0 02 00461 LDA TST CHECK FOR A TWO PASS ASSEMBLY 1978 02700 101400 SMI SKIP IF TWO PASS ASSEMBLY 1979 02701 0 01 02713 JMP SBL1 ONE PASS - FOLLOWING CHECK CANNOT BE MADE 1980 02702 0 02 00452 LDA SYL+2 SAVE LAST 2 CHARS. OF NAME BECAUSE VFS 1981 02703 0 04 00475 STA T MAY WIPE THEM OUT 1982 02704 0 10 02244 JST VFS SEARCH SYMBOL TABLE FOR INTERNAL NAME 1983 02705 100000 SKP SKIP IF NOT FOUND 1984 02706 0 01 02711 JMP *+3 ENTRY POINT IS DEFINED 1985 02707 0 10 04022 JST UERR FLAG AN UNDEFINED SYMBOL ERROR 1986 02710 -0 01 00542 JMP* COM EXIT 1987 02711 0 02 00475 LDA T RESTORE LAST TWO CHARS. OF 1988 02712 0 04 00452 STA SYL+2 NAME 1989 02713 0 02 00526 SBL1 LDA SYMF CHECK FOR A SYNONYM 1990 02714 100040 SZE NO - EXTERNAL NAME IS IN SYL 1991 02715 0 10 01270 JST SWAP PUT EXTERNAL NAME IN SYL 1992 02716 0 35 00673 LDX M3 OUTPUT COUNTER 1993 02717 0 02 00624 LDA C2 INSURE ROOM FOR THIS ENTRY 1994 02720 0 04 00513 STA ROOM 1995 02721 1 02 00453 LDA SYL+3,1 FETCH TWO CHARACTERS OF NAME 1996 02722 -0 10 00605 JST* UPAK 1997 02723 -0 10 00577 JST* OBTD OUTPUT SUBR HEADER WORD 1998 02724 000000 OCT 0 DAP1 1999 02725 0 12 00000 IRS 0 INCREMENT WORD COUNT 2000 02726 0 01 02721 JMP *-5 GO BACK TO OUTPUT NEXT WORD 2001 02727 0 10 02766 JST SCHW PUT ENTRY NAME IN SYMBOL TABLE 2002 02730 0 02 00526 LDA SYMF FETCH SYNONYM FLAG 2003 02731 101040 SNZ SKIP IF A SYNONYM IS IN SYL1 2004 02732 -0 01 00542 JMP* COM OTHERWISE, PROCESSING IS COMPLETE 2005 02733 0 10 01270 JST SWAP PLACE SYNONYM IN SYL