VolksForth/AtariST/MISC.FB

\\                       *** Diverses ***              26oct86we                                                                In diesem File haben wir Worte untergebracht, die zwar h<>ufig    gebraucht werden, aber nicht bestimmten Files zugeordnet werden k<>nnen.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \ Loadscreen f<>r Diverses                              26oct86we                                                                Onlyforth                                                                                                                       1 2  +thru                                                                                                                      ' .blk Is .status                                                                                                                                                                               \ 3 +load   setvec                                                                                                                                                                                                                                                                                                                                                                                                                                              \ H<>ufig benutzte Definitionen                         26oct86we                                                                : >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)                                                                                                                                                                                                                                                                                                                                        \ H<>ufig benutzte Definitionen II                      26oct86we                                                                | 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 ;