> Stack101/s + Give visual display of stack position  v1.01 Graph goes downwards (: 2,"1: Mode 7 display"'"2: Mode 0 display" <A$=:"12",A$) FA$="1":m7 m0 P Z: dm7 n P=0 1 x P%=&900 [OPT P*3 CMP #4:BNE ignore TXA:PHA TSX:TXA:STA stack CLC:ADC #16 CMP #&D8:BCC not_do STA index2: #&FE:STA index LDX #&D8 .do_loop LDA #32 CPX index:BNE put_space LDA #"5":BIT index2 BEQ put_space:LDA #"j" .put_space STA &7B28,X:INX:INX BMI do_loop "LDA #151:STA &7C00 , .not_do 6 PLA:TAX @ LDA #4 J .ignore T JMP (old) ^.old h EQUW 0 r .index | EQUB 0  .index2  EQUB 0  .stack  EQUB 0 ]  on !old=!&220 ?&220=0:?&221=9  *FX14,4   P=0 1  P%=&A00  [OPT P*3  JSR &FFE0 CMP #13:BNE again &RTS 0 .again : JSR &A00 DRTS N] X b l v 256*4,0:  256*4,1024  256*4,500 + A=256 0 -16: 4*A,500: 4*A,508: =0  4*256,0 A=0 1023/2:4*?&943,A:  0 : m0:OSBYTE=&FFF4 4OSWRCH=&FFEE:WRCHV=&20E:USERV=&220:VduQueue=&26A :  P=0 1  P%=&900  [OPT P*3 :  .vector *BIT VduQueue:BMI VduBusy 4BIT IAmBusy:BMI VduBusy >PHA:TXA:PHA:TYA:PHA HSEC:ROR IAmBusy RLDY Ycoord:BNE NoRedraw \LDX #0:.RedrawLp1 f5LDA Window,X:JSR OSWRCH:INX:CPX #27:BNE RedrawLp1 pLDY #128:LDX #0:.RedrawLp2 zJSR Move:DEY:JSR Draw:INY %TXA:CLC:ADC #16:TAX:BNE RedrawLp2 TSX:LDY #255:JSR Move  .NoRedraw DEC Ycoord TSX:LDY Ycoord:JSR Draw ASL IAmBusy PLA:TAY:PLA:TAX:PLA  .VduBusy .old  JMP 0 : .Move:LDA #4:BNE Plot .Draw:LDA #5  .Plot )PHA:LDA #25:JSR OSWRCH:PLA:JSR OSWRCH -TXA:ROL A:ROL A:PHA:PHP: #&FC:JSR OSWRCH $!PLP:PLA:ROL A: #3:JSR OSWRCH .#TYA:ROL A:PHP: #&FE:JSR OSWRCH 8%PLP:LDA #0:ROL A:A #2:JMP OSWRCH B: L.VduVector VPHP:SEC:ROR IAmBusy ` .OldVdu j JSR 0 tASL IAmBusy:PLP:RTS ~: .IAmBusy:EQUB 0 .Ycoord:EQUB 0  .Window AEQUB 24:EQUW 0:EQUW 512:EQUW 1279:EQUW 1023:\ Set G-Window DEQUB 16:EQUB 28:EQUB 0:EQUB 31:EQUB 79:EQUB 16:\ , Set T-Window @EQUB 25:EQUB 4:EQUW 1024:EQUW 1023:\ 1024,1023 ?EQUB 25:EQUB 5:EQUW 1024:EQUW 512:\ 1024,512 : .go%  PHP:SEI -LDA USERV:STA old+1:LDA USERV+1:STA old+2 LDA #vector 255:STA USERV !LDA #vector 256:STA USERV+1  3LDA WRCHV:STA OldVdu+1:LDA WRCHV+1:STA OldVdu+2 "LDA #VduVector 255:STA WRCHV $LDA #VduVector 256:STA WRCHV+1 (LDA #14:LDX #4:JSR OSBYTE 2 PLP:RTS <] F: P="*Save Stack FFFF0900 ";~P%&FFFF0000;" ";~go%&FFFF0000 Z d test n x 4$&7C00="!&268=&"+~(!&268)+" !&26C=&"+~(!&26C) :  :0