mirror of https://github.com/hsoft/collapseos.git
12 lines
411 B
Plaintext
12 lines
411 B
Plaintext
CODE ! DI POPx, AX POPx, [DI] AX MOV[]x, ;CODE
|
|
CODE @ DI POPx, AX [DI] MOVx[], AX PUSHx, ;CODE
|
|
CODE C! DI POPx, AX POPx, [DI] AX MOV[]r, ;CODE
|
|
CODE C@
|
|
DI POPx, AH AH XORrr, AL [DI] MOVr[], AX PUSHx, ;CODE
|
|
CODE I [BP] 0 PUSH[w]+, ;CODE
|
|
CODE I' [BP] -2 PUSH[w]+, ;CODE
|
|
CODE J [BP] -4 PUSH[w]+, ;CODE
|
|
CODE (resSP) SP PS_ADDR MOVxI, ;CODE
|
|
CODE (resRS) BP RS_ADDR MOVxI, ;CODE
|
|
CODE BYE BEGIN, JMPs, AGAIN, ;CODE
|