The assembler is written in Maclisp. The main entry point is ZAP which expects a symbol with a value cell pointing to the source code.