A fast storage allocator

TEST MACRO EtNEXT,XX CONSIDER SQUARE C (RELATIVE TO LEAD). ZET ARENA-Ct l SEE WHETHER IT IS EMPTY. IFF K -L ,O tO (FOR OTHER THAN LEAD (C N O T O ) * DO NEXT ITEM. I TRA XX*I IF IT IS N0F ENPTY~ TRY NEXT CHOICE FOR C* IFF K I , 0 , I (FOR LEAD (C IS O)* DO NEXT ITEM. I TC0 DO AS DESCRIBED IN TED MACFtO. STQ ARENA-C,[ INDICATE SQUARE C TO BE OCCUPIEDK SET g+l (ADVANCE COUNT OF DEPTH OF MACRO NESTING.) IRP NEXT (ITERATE DN ITEMS IN NEXT~ WHICH IS A LIST.) IFF K-S,Ot0 (FOR DEPTH OF NESTING NOT S~ DO NEXT ITEM. I TEST NEXT DO AS IN TEST MACRO wITH ARGUMENTS FROM NEXT. IFF K-5~Owl (FOR DEPTH DF NESTING EQUAL ~ i O0 NFXT ITFM*) FTEST NEXT DO AS IN FTEST MACRO WiTH ARGUMENTS FROM NEXT. IRE (CEASE ITERATING ON ITEMS IN ~EXT.) K SET K-I (REDUCE COUNT OF DEPTH O F MACRO NESTING,) XX STZ ARENA-Cel RESET SQUARE C TO E M P T Y . TEST END SQUARE C AND ITEMS IN NEXT ~OW ALL CONSIDERED.