2020-05-17 09:30:36 -04:00
|
|
|
: _oor ." arg out of range: " .X SPC ." PC: " PC .X NL ABORT ;
|
|
|
|
|
: _r8c DUP 7 > IF _oor THEN ;
|
|
|
|
|
: _r32c DUP 31 > IF _oor THEN ;
|
|
|
|
|
: _r16+c _r32c DUP 16 < IF _oor THEN ;
|
2020-05-17 21:10:02 -04:00
|
|
|
: _r64c DUP 63 > IF _oor THEN ;
|
2020-05-17 09:30:36 -04:00
|
|
|
: _r256c DUP 255 > IF _oor THEN ;
|
2020-05-17 08:57:23 -04:00
|
|
|
: _Rdp ( op rd -- op', place Rd ) 4 LSHIFT OR ;
|
2020-06-11 18:12:01 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
