1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 09:38:06 +11:00
collapseos/blk/813

14 lines
307 B
Plaintext
Raw Normal View History

2020-06-23 04:20:46 +10:00
CODE >R 1 chkPS,
BP INCx, BP INCx, [BP] 0 POP[w]+,
;CODE NOP, NOP, NOP,
CODE R>
[BP] 0 PUSH[w]+, BP DECx, BP DECx,
;CODE
CODE 2>R
PC 0x37 - ORG @ 0x35 + ! ( stable abi )
[BP] 4 POP[w]+, [BP] 2 POP[w]+, BP 4 ADDxi,
;CODE
2020-06-23 04:20:46 +10:00
CODE 2R> 2 chkPS,
[BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,
;CODE