mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 21:18:05 +11:00
91f79d1131
The idea is to consider assemblers as "runtime" apps instead of placing them in the "bootstrap" section of the blocks. These apps will be used for much more than bootstrapping. Moved its documentation to doc/asm.txt and made its code blocks more compact.
9 lines
274 B
Plaintext
9 lines
274 B
Plaintext
: OP1r0 ( r -- )
|
|
CREATE C, DOES>
|
|
C@ ( r op ) OR A, ;
|
|
0x80 OP1r0 ADDr, 0x88 OP1r0 ADCr,
|
|
0xa0 OP1r0 ANDr, 0xb8 OP1r0 CPr,
|
|
0xb0 OP1r0 ORr, 0x90 OP1r0 SUBr,
|
|
0x98 OP1r0 SBCr, 0xa8 OP1r0 XORr,
|
|
: CP(IXY+), CPr, A, ;
|