1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-14 15:08:05 +11:00
collapseos/blk/238
2020-08-15 08:11:48 -04:00

12 lines
176 B
Plaintext

( d i -- )
: OP3di
CREATE C,
DOES>
C@ ( d n op )
ROT ( n op d )
<<4 ( n op d<<4 )
OR A,
A,,
;
0x01 OP3di LDdi,