izaya/collapseos - collapseos - GitLain

Mirror of CollapseOS

Introduce the notion of Extra words

4 yıl önce

editor: add edit buffer Also, add word "C!+" and fix PSP leak in FILL.

4 yıl önce

VE: properly initialize variables This fixes weird glitches I had on trs80. It's *always* a matter of RAM initialization. By now, I should know...

4 yıl önce

12345

: FILL ( a n b -- )
    SWAP 2 PICK + ( a b a+n ) ROT ( b a+n a ) DO ( b )
        DUP I C!
    LOOP DROP ;
: ALLOT0 ( n -- ) H@ OVER 0 FILL ALLOT ;