
  PROCEDURE [XREF] pmp$update_tos_ring_1 (top_of_stack: ^cell);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$STACK_SEGMENT
?? POP ??
