.TITLE DEFINE ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 1 ARG ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: DEFLIST .GLOBL DEFINE,ZDEFINE,QDEFLIST,EXPR DEFINE: MOV @R5,-(R5) ;INSERT INDICATOR EXPR MOV EXPR,2(R5) QDEFLIST ;CALL DEFLIST WITH NO RETURN PATH .WORD 0 ZDEFINE=.-DEFINE .END