David Westbrook
For instructions see Stack
Window and Stack Monitor article.
"stk" [7MODE
31#OUT11#OUT0#OUT 131#OUT "STACK MONITOR"$OUT
FRAME
FRAME? 2 #/ #2 #11 FOR(
COUNT #11 #11
31#OUT12#OUT 1#+#OUT 131#OUT $STR 2$PAD $OUT
FVAR #? $STR 6$PAD 130#OUT $OUT
)FOR
16 #12 #- FOR(
31#OUT15#OUT 18 INDEX #-#OUT 146#OUT
6 FOR(172#OUT)FOR
)FOR
31#OUT7#OUT19#OUT 134#OUT
"<SPACE> to continue..."$OUT
REP(#IN 32 #=)UNTIL(IDLE)REP
NL
]
31#OUT11#OUT0#OUT 131#OUT "STACK MONITOR"$OUT
FRAME
FRAME? 2 #/ #2 #11 FOR(
COUNT #11 #11
31#OUT12#OUT 1#+#OUT 131#OUT $STR 2$PAD $OUT
FVAR #? $STR 6$PAD 130#OUT $OUT
)FOR
16 #12 #- FOR(
31#OUT15#OUT 18 INDEX #-#OUT 146#OUT
6 FOR(172#OUT)FOR
)FOR
31#OUT7#OUT19#OUT 134#OUT
"<SPACE> to continue..."$OUT
REP(#IN 32 #=)UNTIL(IDLE)REP
NL
]
Published in AMPLINEX 004, March 1988
