izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
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.
1091 Commits
4 Branches
13MB
Tree: f38de1c151
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'f38de1c151'
${ noResults }
collapseos/blk/268

17 lines
384B
Raw Blame History 

  1. : XPACK ( blkno -- )

  2.     BLK@

  3.     BLK( 0x2e RAM+ ! ( boot ptr )

  4.     ['] (boot<) 0x08 RAM+ ! ( C<* override )

  5.     BEGIN

  6.         WORD

  7.         0x2e RAM+ @ BLK( 1024 + < IF

  8.             DUP LIT< ( S= IF

  9.                 DROP [COMPILE] (

  10.             ELSE

  11.                 SCPY 0x20 H@ 1- C!

  12.             THEN 0 ( loop again )

  13.         ELSE 1 ( stop looping ) THEN

  14.     UNTIL

  15.     0 0x08 RAM+ !

  16. ;