collapseos/blk/367

: MOVE ( a1 a2 u -- )
    ?DUP IF ( u ) 0 DO ( a1 a2 )
        OVER I + A@ ( src dst x )
        OVER I + ( src dst x dst )
        A! ( src dst )
    LOOP THEN 2DROP ;
: MOVE- ( a1 a2 u -- )
    ?DUP IF ( u ) 0 DO ( a1 a2 )
        OVER I' + I - 1- A@ ( src dst x )
        OVER I' + I - 1- ( src dst x dst )
        A! ( src dst )
    LOOP THEN 2DROP ;
: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-28 18:06:58 -04:00			`: MOVE ( a1 a2 u -- )`
			`?DUP IF ( u ) 0 DO ( a1 a2 )`
Make MOVE* words use A@ and A! This allows us to remove AMOVE* words. 2020-10-29 12:15:21 -04:00			`OVER I + A@ ( src dst x )`
			`OVER I + ( src dst x dst )`
			`A! ( src dst )`
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-28 18:06:58 -04:00			`LOOP THEN 2DROP ;`
			`: MOVE- ( a1 a2 u -- )`
Make MOVE* words use A@ and A! This allows us to remove AMOVE* words. 2020-10-29 12:15:21 -04:00			`?DUP IF ( u ) 0 DO ( a1 a2 )`
			`OVER I' + I - 1- A@ ( src dst x )`
			`OVER I' + I - 1- ( src dst x dst )`
			`A! ( src dst )`
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-28 18:06:58 -04:00			`LOOP THEN 2DROP ;`
			`: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;`