[color=Navy]#terminal 9600
#no_data[/color]
[color=Blue]pause [/color][color=Navy]4000 [/color][color=Green]'// Let terminal open [/color]
[color=Blue]Sertxd ([/color][color=Red]"Test Pushram / PopRam"[/color][color=Black],[/color][color=Blue]cr[/color][color=Black],[/color][color=Blue]lf[/color][color=Black],[/color][color=Blue]cr[/color][color=Black],[/color][color=Blue]lf)
for [/color][color=Purple]Bptr [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]15
[/color][color=Purple]@bptr [/color][color=DarkCyan]= [/color][color=Purple]bptr [/color][color=Green]' 0 to 15
[/color][color=Blue]next
pushram [/color][color=DarkCyan]Clear [/color][color=Green]; Push to ram
[/color][color=Blue]for [/color][color=Purple]bptr [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]15
[/color][color=Purple]@bptr [/color][color=DarkCyan]= [/color][color=Purple]bptr [/color][color=DarkCyan]+ [/color][color=Navy]16
[/color][color=Blue]next
Pushram [/color][color=DarkCyan]Clear [/color][color=Green]; Push to Ram (Previous Data shifted 1 Level)
[/color][color=Blue]For [/color][color=Purple]bptr [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]15
[/color][color=Purple]@bptr [/color][color=DarkCyan]= [/color][color=Purple]bptr [/color][color=DarkCyan]+ [/color][color=Navy]32 [/color][color=Green]'( 32 to 47)
[/color][color=Blue]next
Pushram [/color][color=DarkCyan]Clear [/color][color=Green]; Push to ram (Previous data shifted 1 Level)
[/color][color=Blue]For [/color][color=Purple]bptr [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]15
[/color][color=Purple]@bptr [/color][color=DarkCyan]= [/color][color=Purple]bptr [/color][color=DarkCyan]+ [/color][color=Navy]48 [/color][color=Green]'( 48 to 63)
[/color][color=Blue]next
Pushram [/color][color=DarkCyan]Clear [/color][color=Green]; Push to Ram (Previous Data shifted 1 Level)
[/color][color=Blue]For [/color][color=Purple]bptr [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]15
[/color][color=Purple]@bptr [/color][color=DarkCyan]= [/color][color=Navy]255 [/color][color=Green]'fill B0 to b15 with '255"
[/color][color=Blue]next
sertxd ([/color][color=Red]"Current B0 - B15"[/color][color=Black],[/color][color=Blue]cr[/color][color=Black],[/color][color=Blue]lf) [/color][color=Green]'Verify 255 in all varibles
[/color][color=Blue]for [/color][color=Purple]Bptr [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]15
[/color][color=Blue]sertxd([/color][color=Black]#[/color][color=Purple]@bptr[/color][color=Black],[/color][color=Red]" "[/color][color=Blue])
next
sertxd (cr[/color][color=Black],[/color][color=Blue]lf[/color][color=Black],[/color][color=Blue]cr[/color][color=Black],[/color][color=Blue]lf)
[/color][color=Green]'Now retreive stored data from RAM
[/color][color=Black]Retreive_data:
[/color][color=Green]'Retreive from all 4 levels (Last in first out)
[/color][color=Blue]for [/color][color=Purple]b55 [/color][color=DarkCyan]= [/color][color=Navy]1 [/color][color=Blue]to [/color][color=Navy]8
[/color][color=Blue]Popram
sertxd([/color][color=Red]"Loop "[/color][color=Black],#[/color][color=Purple]b55[/color][color=Black],[/color][color=Red]" (B0 - B15)"[/color][color=Black],[/color][color=Blue]cr[/color][color=Black],[/color][color=Blue]lf)
[/color][color=Purple]Bptr [/color][color=DarkCyan]= [/color][color=Navy]0
[/color][color=Blue]do while [/color][color=Purple]bptr [/color][color=DarkCyan]< [/color][color=Navy]16
[/color][color=Blue]sertxd ([/color][color=Black]#[/color][color=Purple]@Bptrinc[/color][color=Black],[/color][color=Red]" "[/color][color=Blue])
loop
sertxd (Cr[/color][color=Black],[/color][color=Blue]lf[/color][color=Black],[/color][color=Blue]cr[/color][color=Black],[/color][color=Blue]lf)
next
stop[/color]