dialer/common.jrt

21 lines
497 B
Plaintext
Executable File

: 2drop drop drop ;
: !+ ( v p -- ) dup @ <rot + swap ! ;
: b!+ ( v p -- ) dup b@ <rot + swap b! ;
: b!| ( f p -- ) dup b@ <rot | swap b! ;
: b!^ ( f p -- ) dup b@ <rot ^ swap b! ;
: ~ 0xffff ^ ;
import text.jrt
import keys.jrt
import random.jrt
import file.jrt
import task.jrt
import iter.jrt
import timer.jrt
import beep.jrt
import tandy.jrt
: !save ( v p -- ) openself >r dup >rot !
r@ if dup 0x100 - r@ seekto cell swap r@ fwrite <r close
else rdrop drop then ;