1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 03:18:05 +11:00
collapseos/blk/037

16 lines
506 B
Plaintext
Raw Normal View History

2020-06-19 11:21:46 +10:00
: OPrm CREATE C, DOES> C@ A, SWAP 3 LSHIFT OR A, ;
0x8a OPrm MOVr[], 0x8b OPrm MOVx[],
2020-06-19 21:26:33 +10:00
0x3a OPrm CMPr[], 0x3b OPrm CMPx[],
2020-06-19 11:21:46 +10:00
: OPmr CREATE C, DOES> C@ A, 3 LSHIFT OR A, ;
0x88 OPmr MOV[]r, 0x89 OPmr MOV[]x,
: OPrm+ ( r m off ) CREATE C, DOES>
C@ A, ROT 3 LSHIFT ROT OR 0x40 OR A, A, ;
0x8a OPrm+ MOVr[]+, 0x8b OPrm+ MOVx[]+,
0x3a OPrm+ CMPr[]+, 0x3b OPrm+ CMPx[]+,
: OPm+r ( m off r ) CREATE C, DOES>
C@ A, 3 LSHIFT ROT OR 0x40 OR A, A, ;
0x88 OPm+r MOV[]+r, 0x89 OPm+r MOV[]+x,