00010 * EQUates and MACRO definitions for BIF 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM) 01000 * 01010 * JMP to next icode word 01020 NEXT MACRO 01030 JMP [,Y++] 01040 ENDM 01050 * 01053 * offset from name field to mode field 01056 MFAOFF EQU 1 01057 * length of symbols, must be 2^n for mask 01058 NLMASK EQU $1F 01060 * offset to previous allocation link 01070 LFAOFF EQU MFAOFF+1 01080 * offset to owning VOCABULARY (genesis) link 01090 GFAOFF EQU LFAOFF+2 01100 LFTOFF EQU GFAOFF+2 left child link 01110 RTOFF EQU GFAOFF+4 right child link 01120 * offset to code field 01130 CFAOFF EQU GFAOFF+6 01140 * offset to parameter field (past Direct Page jump) 01150 PFAOFF EQU CFAOFF+2 01160 * All links are relative to the name field (NFA) 01170 * Use PFAOFF (or PFA) with ;CODE! 01320 * usage and name length share a byte (name length < 32). 01330 * foreward blocks marked in the mode byte 01340 * usage and mode bits 01350 MFORE EQU $80 part of FORWARD reference block (in mode byte -- MFA) 01360 MCOMP EQU $80 compile only (in length byte -- NFA) 01370 MIMM EQU $40 precedence is IMMEDIATE execution (in length byte -- NFA) 01380 MHID EQU $20 SMUDGEd definition (in length byte -- NFA) 01390 * 01400 * initiate an icode list 01410 DOCOL MACRO 01420 JSR