DEFINE $SAVE(N),< .SAVE'N: XLIST EXCH P1,(P) HRLI P1,(P) ..T==P1+1 REPEAT N-1,< PUSH P,..T ..T=..T+1 > CALL [JRA P1,(P1)] .SAVX'N: SOS -N(P) RET'N: ..T==P1+N-1 REPEAT N,< POP P,..T ..T=..T-1 > AOS (P) RET LIST > ;DEFINE $SAVE $SAVE 1