\\ miscellaneous words cas202007 this file contains words that are frequently used but do not fit into any of the other source files \ Loadscreen for misc tools cas 21july2020 Onlyforth 1 2 +thru ' .blk Is .status \ 3 +load setvec \ common used words cas 21july2020 : >absaddr ( addr -- abs_laddr ) 0 forthstart d+ ; : .blk ( -- ) blk @ ?dup 0= ?exit dup 1 = IF cr file? THEN ." Blk " . ?cr ; : abort( ( f -- ) IF [compile] .( true abort" !" THEN [compile] ( ; \needs arguments abort( use definition in FILEINT.SCR) \ more common word definitions cas 21july2020 | Create: cpull rp@ count 2dup + even rp! r> swap cmove ; : cpush ( addr len --) r> -rot over >r rp@ over 2+ - even dup rp! place cpull >r >r ; : bell 7 con! ; : blank ( addr count -- ) bl fill ;
