mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-06 23:18:47 +10:00
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
333 B
Plaintext
17 lines
333 B
Plaintext
0b11100 CONSTANT X 0b01000 CONSTANT Y 0b00000 CONSTANT Z
|
|
0b11101 CONSTANT X+ 0b11001 CONSTANT Y+ 0b10001 CONSTANT Z+
|
|
0b11110 CONSTANT -X 0b11010 CONSTANT -Y 0b10010 CONSTANT -Z
|
|
: _ldst ( Rd XYZ op ) SWAP DUP 0x10 AND 8 LSHIFT SWAP 0xf AND
|
|
OR OR ( Rd op' ) SWAP _Rdp A,, ;
|
|
: LD, 0x8000 _ldst ; : ST, SWAP 0x8200 _ldst ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|