mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 02:28:06 +11:00
cd514e6cd6
Also, fix (roll) which wasn't properly implemented.
12 lines
366 B
Plaintext
12 lines
366 B
Plaintext
( compiled )
|
|
BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )
|
|
DX DI MOVxx, DX INCx, DX INCx, ( --> IP )
|
|
DI [DI] MOVx[],
|
|
JMPs, lblexec @ RPCs,
|
|
|
|
lblchkPS BSET ( CX -> expected size )
|
|
AX PS_ADDR MOVxI, AX SP SUBxx, 2 SUBAXI, ( CALL adjust )
|
|
AX CX SUBxx,
|
|
IFNC, ( we're good ) RETn, THEN,
|
|
( underflow ) DI 0x06 MOVxm, JMPs, lblexec @ RPCs,
|