1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-02 14:30:55 +11:00

Compare commits

..

No commits in common. "058b85686f5452841ec444ca134681367cc703e5" and "fca0e79da371595c8f443be03c4968db466d73bb" have entirely different histories.

4 changed files with 1 additions and 16 deletions

View File

@ -98,8 +98,6 @@ C! c a -- Store byte c in address a
CURRENT -- a Set a to wordref of last added entry. CURRENT -- a Set a to wordref of last added entry.
HERE -- a Push HERE's address HERE -- a Push HERE's address
H@ -- a HERE @ H@ -- a HERE @
MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting with a1, going
up.
*** Arithmetic / Bits *** *** Arithmetic / Bits ***

View File

@ -118,12 +118,3 @@
( Set up initial SYSVNXT value, which is 2 bytes after its ( Set up initial SYSVNXT value, which is 2 bytes after its
own address ) own address )
46 RAM+ DUP 2 + SWAP ! 46 RAM+ DUP 2 + SWAP !
( a1 a2 u -- )
: MOVE
( u ) 0 DO
SWAP DUP I + @ ( a2 a1 x )
ROT SWAP OVER I + ( a1 a2 x a2 )
! ( a1 a2 )
LOOP
;

View File

@ -69,7 +69,7 @@
: DUMP : DUMP
LF LF
BEGIN BEGIN
OVER 1 < IF 2DROP EXIT THEN OVER 1 < IF DROP EXIT THEN
_ _
SWAP 8 - SWAP SWAP 8 - SWAP
AGAIN AGAIN

View File

@ -1,4 +0,0 @@
0x70 <>{ 0x70 &= 0x58 |= 0x20 |= <>} #
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
0x42 <>{ 0x40 &> 0x44 &< <>} #
0x44 <>{ 0x40 &> 0x44 &< <>} NOT #