1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 17:30:55 +11:00
collapseos/blk/236

13 lines
171 B
Plaintext
Raw Normal View History

( ss -- )
: OP2ss
CREATE C,
DOES>
0xed A,
C@ SWAP ( op ss )
<<4 ( op ss<< 4 )
OR A,
;
0x4a OP2ss ADCHLss,
0x42 OP2ss SBCHLss,