diff --git a/blk/660 b/blk/660 index 2bb238b..dcc3342 100644 --- a/blk/660 +++ b/blk/660 @@ -1 +1 @@ -1 7 LOADR+ +1 8 LOADR+ diff --git a/blk/668 b/blk/668 new file mode 100644 index 0000000..f0d4735 --- /dev/null +++ b/blk/668 @@ -0,0 +1,8 @@ +( a -- k12, absolute addr a, relative to PC in a k12 addr ) +: _r7ffc DUP 0x7ff > IF _oor THEN ; +: _raddr12 + PC - DUP 0< IF 0x800 + _r7ffc 0x800 OR ELSE _r7ffc THEN ; +: RJMP ( a -- op ) _raddr12 0xc000 OR ; +: RCALL ( a -- op ) _raddr12 0xd000 OR ; +: RJMP, RJMP A,, ; +: RCALL, RCALL A,, ;