You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
12345678910111213141516 |
- : XPACK ( blkno -- )
- BLK@
- BLK( 0x2e RAM+ ! ( boot ptr )
- ['] (boot<) 0x08 RAM+ ! ( C<* override )
- BEGIN
- WORD
- 0x2e RAM+ @ BLK( 1024 + < IF
- DUP LIT< ( S= IF
- DROP [COMPILE] (
- ELSE
- SCPY 0x20 H@ 1- C!
- THEN 0 ( loop again )
- ELSE 1 ( stop looping ) THEN
- UNTIL
- 0 0x08 RAM+ !
- ;
|