http://channelf.se/veswiki/index.php?action=history&feed=atom&title=Snippet%3AKStack
Snippet:KStack - Revision history
2026-08-05T03:18:03Z
Revision history for this page on the wiki
MediaWiki 1.28.0
http://channelf.se/veswiki/index.php?title=Snippet:KStack&diff=780&oldid=prev
E5frog at 22:44, 4 August 2026
2026-08-04T22:44:31Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 22:44, 4 August 2026</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l24" >Line 24:</td>
<td colspan="2" class="diff-lineno">Line 24:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ; push K onto the stack</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ; push K onto the stack</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr A, Ku</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr A, Ku</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> lr <del class="diffchange diffchange-inline">S</del>, A ; push high byte of K</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> lr <ins class="diffchange diffchange-inline">D</ins>, A ; push high byte of K</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"> lr A, IS</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"> ai $ff ; decrease ISAR</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"> lr IS, A</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr A, Kl</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr A, Kl</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr S, A ; push low byte of K</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr S, A ; push low byte of K</div></td></tr>
<tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l53" >Line 53:</td>
<td colspan="2" class="diff-lineno">Line 50:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> inc ; increment the pointer</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> inc ; increment the pointer</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr IS, A ; and set the ISAR</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr IS, A ; and set the ISAR</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> lr A, <del class="diffchange diffchange-inline">S</del></div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> lr A, <ins class="diffchange diffchange-inline">I</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr Kl, A ; load lower byte of K  </div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr Kl, A ; load lower byte of K  </div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> lr A, IS</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> inc ; increase ISAR</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> lr IS, A</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr A, S</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr A, S</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr Ku, A ; load upper byte of K</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> lr Ku, A ; load upper byte of K</div></td></tr>
</table>
E5frog
http://channelf.se/veswiki/index.php?title=Snippet:KStack&diff=779&oldid=prev
E5frog: Created page with "<pre> ;=========================================================================== ; KStack Functions ;========================================================================..."
2026-08-04T22:43:21Z
<p>Created page with "<pre> ;=========================================================================== ; KStack Functions ;========================================================================..."</p>
<p><b>New page</b></p><div><pre><br />
;===========================================================================<br />
; KStack Functions<br />
;===========================================================================<br />
; the K stack implements a stack using the registers. it uses r63 as a stack<br />
; pointer that holds the register number of the top of the stack, starting<br />
; at r57 and working down. when called, K is pushed to the first two<br />
; registers on the stack, and the pointer is increased.<br />
;<br />
; at startup, the stack pointer (r63) should be set to 62 ($3E)<br />
<br />
;---------------------------------------------------------------------------<br />
; KStack Push<br />
;---------------------------------------------------------------------------<br />
; pushes register K onto the stack using r63 as the stack pointer<br />
; destroys ISAR<br />
<br />
kstack.push:<br />
; get the top of the stack<br />
lisu 7<br />
lisl 7 ; r63, stack pointer<br />
lr A, S<br />
lr IS, A ; load the referenced register<br />
; push K onto the stack<br />
lr A, Ku<br />
lr S, A ; push high byte of K<br />
lr A, IS<br />
ai $ff ; decrease ISAR<br />
lr IS, A<br />
lr A, Kl<br />
lr S, A ; push low byte of K<br />
; adjust the stack pointer<br />
lr A, IS<br />
ai $ff ; decrease ISAR<br />
lisu 7<br />
lisl 7<br />
lr S, A ; store the adjusted stack pointer in r63<br />
<br />
; return from the subroutine<br />
pop<br />
<br />
;---------------------------------------------------------------------------<br />
; KStack Pop<br />
;---------------------------------------------------------------------------<br />
; pops register K from the stack using r63 as the stack pointer<br />
; destroys ISAR<br />
<br />
kstack.pop:<br />
; retrieve K from the stack<br />
lisu 7<br />
lisl 7<br />
lr A, S ; load the stack pointer into A<br />
inc ; increment the pointer<br />
lr IS, A ; and set the ISAR<br />
lr A, S<br />
lr Kl, A ; load lower byte of K <br />
lr A, IS<br />
inc ; increase ISAR<br />
lr IS, A<br />
lr A, S<br />
lr Ku, A ; load upper byte of K<br />
; adjust the stack pointer<br />
lr A, IS<br />
lisu 7<br />
lisl 7<br />
lr S, A ; store the adjusted stack pointer in r63<br />
<br />
; return from the subroutine<br />
pop<br />
</pre></div>
E5frog