VolksForth/AtariST/MISC.FB

1 line
10 KiB
Plaintext
Raw Normal View History

\\ 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 ;